Advanced Inno Setup Example

[DelphiBuilder]

TRadioButtonCreate

FRadioButton:=RadioButtonCreate(WizardForm, alNone, taRightJustify, 'RadioButton Create', False, clBtnFace, True, crDefault, False, crDrag, dmManual, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, 'RadioButton Create Hint', True, True, True, True, True, nil, False, 0, True, 0, True, 20, 20, 200, 200, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

RadioButtonGetParent(FRadioButton);
 RadioButtonGetAlign(FRadioButton);
 RadioButtonGetAlignment(FRadioButton);
 RadioButtonGetCaption(FRadioButton);
 RadioButtonGetChecked(FRadioButton);
 RadioButtonGetColor(FRadioButton);
 RadioButtonGetCtl3D(FRadioButton);
 RadioButtonGetCursor(FRadioButton);
 RadioButtonGetDoubleBuffered(FRadioButton);
 RadioButtonGetDragCursor(FRadioButton);
 RadioButtonGetDragMode(FRadioButton);
 RadioButtonGetEnabled(FRadioButton);
 RadioButtonGetFontColor(FRadioButton);
 RadioButtonGetFontHeight(FRadioButton);
 RadioButtonGetFontName(FRadioButton);
 RadioButtonGetFontPitch(FRadioButton);
 RadioButtonGetFontSize(FRadioButton);
 RadioButtonGetFontStyle(FRadioButton);
 RadioButtonGetHelpContext(FRadioButton);
 RadioButtonGetHint(FRadioButton);
 RadioButtonGetParentBackground(FRadioButton);
 RadioButtonGetParentColor(FRadioButton);
 RadioButtonGetParentCtl3D(FRadioButton);
 RadioButtonGetParentFont(FRadioButton);
 RadioButtonGetParentShowHint(FRadioButton);
 RadioButtonGetPopupMenu(FRadioButton);
 RadioButtonGetShowHint(FRadioButton);
 RadioButtonGetTabOrder(FRadioButton);
 RadioButtonGetTabStop(FRadioButton);
 RadioButtonGetTag(FRadioButton);
 RadioButtonGetVisible(FRadioButton);
 RadioButtonGetLeft(FRadioButton);
 RadioButtonGetTop(FRadioButton);
 RadioButtonGetHeight(FRadioButton);
 RadioButtonGetWidth(FRadioButton);
 RadioButtonGetBounds(FRadioButton);

RadioButtonSetParent(FRadioButton, WizardForm);
 RadioButtonSetAlign(FRadioButton, alNone);
 RadioButtonSetAlignment(FRadioButton, taRightJustify);
 RadioButtonSetCaption(FRadioButton, 'RadioButton Create');
 RadioButtonSetChecked(FRadioButton, False);
 RadioButtonSetColor(FRadioButton, clWindow);
 RadioButtonSetCtl3D(FRadioButton, True);
 RadioButtonSetCursor(FRadioButton, crDefault);
 RadioButtonSetDoubleBuffered(FRadioButton, False);
 RadioButtonSetDragCursor(FRadioButton, crDrag);
 RadioButtonSetDragMode(FRadioButton, dmManual);
 RadioButtonSetEnabled(FRadioButton, True);
 RadioButtonSetFontColor(FRadioButton, clBlack);
 RadioButtonSetFontHeight(FRadioButton, 20);
 RadioButtonSetFontName(FRadioButton, 'Segoe UI');
 RadioButtonSetFontPitch(FRadioButton, fpDefault);
 RadioButtonSetFontSize(FRadioButton, 20);
 RadioButtonSetFontStyle(FRadioButton, []);
 RadioButtonSetFont(FRadioButton, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
 RadioButtonSetHelpContext(FRadioButton, 0);
 RadioButtonSetHint(FRadioButton, 'RadioButton Create Hint');
 RadioButtonSetParentBackground(FRadioButton, False);
 RadioButtonSetParentColor(FRadioButton, False);
 RadioButtonSetParentCtl3D(FRadioButton, True);
 RadioButtonSetParentFont(FRadioButton, True);
 RadioButtonSetParentShowHint(FRadioButton, True);
 RadioButtonSetPopupMenu(FRadioButton, nil);
 RadioButtonSetShowHint(FRadioButton, False);
 RadioButtonSetTabOrder(FRadioButton, 0);
 RadioButtonSetTabStop(FRadioButton, True);
 RadioButtonSetTag(FRadioButton, 0);
 RadioButtonSetVisible(FRadioButton, True);
 RadioButtonSetLeft(FRadioButton, 20);
 RadioButtonSetTop(FRadioButton, 20);
 RadioButtonSetHeight(FRadioButton, 200);
 RadioButtonSetWidth(FRadioButton, 200);
 RadioButtonSetBounds(FRadioButton, 20, 20, 200, 200);

RadioButtonSetEvent(FRadioButton, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);