Advanced Inno Setup Example

[DelphiBuilder]

TUpDownCreate

 FUpDown:=UpDownCreate(WizardForm, udRight, True, nil, crDefault, False, True, 0, 'UpDown Create Hint', 1, 100, 0, udVertical, 0, False, 0, False, 0, True, True, False, 20, 20, 200, 200, nil, nil);

UpDownGetParent(FUpDown);
 UpDownGetAlignButton(FUpDown);
 UpDownGetArrowKeys(FUpDown);
 UpDownGetAssociate(FUpDown);
 UpDownGetCursor(FUpDown);
 UpDownGetDoubleBuffered(FUpDown);
 UpDownGetEnabled(FUpDown);
 UpDownGetHelpContext(FUpDown);
 UpDownGetHint(FUpDown);
 UpDownGetIncrement(FUpDown);
 UpDownGetMax(FUpDown);
 UpDownGetMin(FUpDown);
 UpDownGetOrientation(FUpDown);
 UpDownGetPosition(FUpDown);
 UpDownGetShowHint(FUpDown);
 UpDownGetTabOrder(FUpDown);
 UpDownGetTabStop(FUpDown);
 UpDownGetTag(FUpDown);
 UpDownGetThousands(FUpDown);
 UpDownGetVisible(FUpDown);
 UpDownGetWrap(FUpDown);
 UpDownGetLeft(FUpDown);
 UpDownGetTop(FUpDown);
 UpDownGetHeight(FUpDown);
 UpDownGetWidth(FUpDown);
 UpDownGetBounds(FUpDown);

UpDownSetParent(FUpDown, WizardForm);
 UpDownSetAlignButton(FUpDown, udRight);
 UpDownSetArrowKeys(FUpDown, True);
 UpDownSetAssociate(FUpDown, nil);
 UpDownSetCursor(FUpDown, crDefault);
 UpDownSetDoubleBuffered(FUpDown, False);
 UpDownSetEnabled(FUpDown, True);
 UpDownSetHelpContext(FUpDown, 0);
 UpDownSetHint(FUpDown, 'UpDown Create Hint');
 UpDownSetIncrement(FUpDown, 1);
 UpDownSetMax(FUpDown, 100);
 UpDownSetMin(FUpDown, 0);
 UpDownSetOrientation(FUpDown, udVertical);
 UpDownSetPosition(FUpDown, 0);
 UpDownSetShowHint(FUpDown, False);
 UpDownSetTabOrder(FUpDown, 0);
 UpDownSetTabStop(FUpDown, False);
 UpDownSetTag(FUpDown, 0);
 UpDownSetThousands(FUpDown, True);
 UpDownSetVisible(FUpDown, True);
 UpDownSetWrap(FUpDown, False);
 UpDownSetLeft(FUpDown, 20);
 UpDownSetTop(FUpDown, 20);
 UpDownSetHeight(FUpDown, 200);
 UpDownSetWidth(FUpDown, 200);
 UpDownSetBounds(FUpDown, 20, 20, 200, 200);

 UpDownSetEvent(FUpDown, nil, nil);