PDA

View Full Version : Advanced Inno Setup Example


DelphiBuilder
21-12-2022, 02:57
TLabelCreate

FLabel:=LabelCreate(WizardForm, alNone, taCenter, True, 'Label Create', clBtnFace, crDefault, crDrag, dmManual, True, nil, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 'Label Create Hint', tlCenter, True, True, True, True, False, 0, True, True, False, 20, 20, 200, 200, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);



LabelGetParent(FLabel);
LabelGetAlign(FLabel);
LabelGetAlignment(FLabel);
LabelGetAutoSize(FLabel);
LabelGetCaption(FLabel);
LabelGetColor(FLabel);
LabelGetCursor(FLabel);
LabelGetDragCursor(FLabel);
LabelGetDragMode(FLabel);
LabelGetEnabled(FLabel);
LabelGetFocusControl(FLabel);
LabelGetFontColor(FLabel);
LabelGetFontHeight(FLabel);
LabelGetFontName(FLabel);
LabelGetFontPitch(FLabel);
LabelGetFontSize(FLabel);
LabelGetFontStyle(FLabel);
LabelGetHint(FLabel);
LabelGetLayout(FLabel);
LabelGetParentColor(FLabel);
LabelGetParentFont(FLabel);
LabelGetParentShowHint(FLabel);
LabelGetShowAccelChar(FLabel);
LabelGetShowHint(FLabel);
LabelGetTag(FLabel);
LabelGetTransparent(FLabel);
LabelGetVisible(FLabel);
LabelGetWordWrap(FLabel);
LabelGetLeft(FLabel);
LabelGetTop(FLabel);
LabelGetHeight(FLabel);
LabelGetWidth(FLabel);
LabelGetBounds(FLabel);




LabelSetParent(FLabel, WizardForm);
LabelSetAlign(FLabel, alNone);
LabelSetAlignment(FLabel, taCenter);
LabelSetAutoSize(FLabel, True);
LabelSetCaption(FLabel, 'Label Create');
LabelSetColor(FLabel, clBtnFace);
LabelSetCursor(FLabel, crDefault);
LabelSetDragCursor(FLabel, crDrag);
LabelSetDragMode(FLabel, dmManual);
LabelSetEnabled(FLabel, True);
LabelSetFocusControl(FLabel, nil);
LabelSetFontColor(FLabel, clBlack);
LabelSetFontHeight(FLabel, 20);
LabelSetFontName(FLabel, 'Segoe UI');
LabelSetFontPitch(FLabel, fpDefault);
LabelSetFontSize(FLabel, 20);
LabelSetFontStyle(FLabel, []);
LabelSetFont(FLabel, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
LabelSetHint(FLabel, 'Label Create Hint');
LabelSetLayout(FLabel, tlCenter);
LabelSetParentColor(FLabel, True);
LabelSetParentFont(FLabel, True);
LabelSetParentShowHint(FLabel, True);
LabelSetShowAccelChar(FLabel, True);
LabelSetShowHint(FLabel, True);
LabelSetTag(FLabel, 0);
LabelSetTransparent(FLabel, True);
LabelSetVisible(FLabel, True);
LabelSetWordWrap(FLabel, True);
LabelSetLeft(FLabel, 20);
LabelSetTop(FLabel, 20);
LabelSetHeight(FLabel, 200);
LabelSetWidth(FLabel, 200);
LabelSetBounds(FLabel, 20, 20, 200, 200);



LabelSetEvent(FLabel, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
21-12-2022, 05:33
TEditCreate

FEdit:=EditCreate(WizardForm, alNone, True, True, bsSingle, ecNormal, clWindow, True, crDefault, False, crDrag, dmManual, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, True, 'Edit Create Hint', 0, False, False, True, True, True, #0, nil, False, False, 0, True, 0, 'Edit Create', True, 20, 20, 200, 200, nil, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);




EditGetParent(FEdit);
EditGetAlign(FEdit);
EditGetAutoSelect(FEdit);
EditGetAutoSize(FEdit);
EditGetBorderStyle(FEdit);
EditGetCharCase(FEdit);
EditGetColor(FEdit);
EditGetCtl3D(FEdit);
EditGetCursor(FEdit);
EditGetDoubleBuffered(FEdit);
EditGetDragCursor(FEdit);
EditGetDragMode(FEdit);
EditGetEnabled(FEdit);
EditGetFontColor(FEdit);
EditGetFontHeight(FEdit);
EditGetFontName(FEdit);
EditGetFontPitch(FEdit);
EditGetFontSize(FEdit);
EditGetFontStyle(FEdit);
EditGetHelpContext(FEdit);
EditGetHideSelection(FEdit);
EditGetHint(FEdit);
EditGetMaxLength(FEdit);
EditGetOEMConvert(FEdit);
EditGetParentColor(FEdit);
EditGetParentCtl3D(FEdit);
EditGetParentFont(FEdit);
EditGetParentShowHint(FEdit);
//EditGetPasswordChar(FEdit);
EditGetPopupMenu(FEdit);
EditGetReadOnly(FEdit);
EditGetShowHint(FEdit);
EditGetTabOrder(FEdit);
EditGetTabStop(FEdit);
EditGetTag(FEdit);
EditGetVisible(FEdit);
EditGetLeft(FEdit);
EditGetTop(FEdit);
EditGetHeight(FEdit);
EditGetWidth(FEdit);
EditGetBounds(FEdit);





EditSetParent(FEdit, WizardForm);
EditSetAlign(FEdit, alNone);
EditSetAutoSelect(FEdit, True);
EditSetAutoSize(FEdit, True);
EditSetBorderStyle(FEdit, bsSingle);
EditSetCharCase(FEdit, ecNormal);
EditSetColor(FEdit, clWindow);
EditSetCtl3D(FEdit, True);
EditSetCursor(FEdit, crDefault);
EditSetDoubleBuffered(FEdit, False);
EditSetDragCursor(FEdit, crDrag);
EditSetDragMode(FEdit, dmManual);
EditSetEnabled(FEdit, True);
EditSetFontColor(FEdit, clBlack);
EditSetFontHeight(FEdit, 20);
EditSetFontName(FEdit, 'Segoe UI');
EditSetFontPitch(FEdit, fpDefault);
EditSetFontSize(FEdit, 20);
EditSetFontStyle(FEdit, []);
EditSetFont(FEdit, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
EditSetHelpContext(FEdit, 0);
EditSetHideSelection(FEdit, True);
EditSetHint(FEdit, 'Edit Create Hint');
EditSetMaxLength(FEdit, 0);
EditSetOEMConvert(FEdit, False);
EditSetParentColor(FEdit, False);
EditSetParentCtl3D(FEdit, True);
EditSetParentFont(FEdit, True);
EditSetParentShowHint(FEdit, True);
EditSetPasswordChar(FEdit, #0);
EditSetPopupMenu(FEdit, nil);
EditSetReadOnly(FEdit, False);
EditSetShowHint(FEdit, False);
EditSetTabOrder(FEdit, 0);
EditSetTabStop(FEdit, True);
EditSetTag(FEdit, 0);
EditSetText(FEdit, 'Edit Create');
EditSetVisible(FEdit, True);
EditSetLeft(FEdit, 20);
EditSetTop(FEdit, 20);
EditSetHeight(FEdit, 200);
EditSetWidth(FEdit, 200);
EditSetBounds(FEdit, 20, 20, 200, 200);



EditSetEvent(FEdit, nil, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
21-12-2022, 08:29
TMemoCreate

FMemo:=MemoCreate(WizardForm, alNone, taLeftJustify, bsSingle, clWindow, True, crDefault, False, crDrag, dmManual, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, True, 'Memo Create Hint', 'Memo Create', 0, False, False, True, True, True, nil, False, ssNone, False, 0, True, 0, True, True, False, True, 20, 20, 200, 200, nil, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);



MemoGetParent(FMemo);
MemoGetAlign(FMemo);
MemoGetAlignment(FMemo);
MemoGetBorderStyle(FMemo);
MemoGetColor(FMemo);
MemoGetCtl3D(FMemo);
MemoGetCursor(FMemo);
MemoGetDoubleBuffered(FMemo);
MemoGetDragCursor(FMemo);
MemoGetDragMode(FMemo);
MemoGetEnabled(FMemo);
MemoGetFontColor(FMemo);
MemoGetFontHeight(FMemo);
MemoGetFontName(FMemo);
MemoGetFontPitch(FMemo);
MemoGetFontSize(FMemo);
MemoGetFontStyle(FMemo);
MemoGetHelpContext(FMemo);
MemoGetHideSelection(FMemo);
MemoGetHint(FMemo);
MemoGetLinesText(FMemo);
MemoGetMaxLength(FMemo);
MemoGetOEMConvert(FMemo);
MemoGetParentColor(FMemo);
MemoGetParentCtl3D(FMemo);
MemoGetParentFont(FMemo);
MemoGetParentShowHint(FMemo);
MemoGetPopupMenu(FMemo);
MemoGetReadOnly(FMemo);
MemoGetScrollBars(FMemo);
MemoGetShowHint(FMemo);
MemoGetTabOrder(FMemo);
MemoGetTabStop(FMemo);
MemoGetTag(FMemo);
MemoGetVisible(FMemo);
MemoGetWantReturns(FMemo);
MemoGetWantTabs(FMemo);
MemoGetWordWrap(FMemo);
MemoGetLeft(FMemo);
MemoGetTop(FMemo);
MemoGetHeight(FMemo);
MemoGetWidth(FMemo);
MemoGetBounds(FMemo);




MemoSetParent(FMemo, WizardForm);
MemoSetAlign(FMemo, alNone);
MemoSetAlignment(FMemo, taLeftJustify);
MemoSetBorderStyle(FMemo, bsSingle);
MemoSetColor(FMemo, clWindow);
MemoSetCtl3D(FMemo, True);
MemoSetCursor(FMemo, crDefault);
MemoSetDoubleBuffered(FMemo, False);
MemoSetDragCursor(FMemo, crDrag);
MemoSetDragMode(FMemo, dmManual);
MemoSetEnabled(FMemo, True);
MemoSetFontColor(FMemo, clBlack);
MemoSetFontHeight(FMemo, 20);
MemoSetFontName(FMemo, 'Segoe UI');
MemoSetFontPitch(FMemo, fpDefault);
MemoSetFontSize(FMemo, 20);
MemoSetFontStyle(FMemo, []);
MemoSetFont(FMemo, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
MemoSetHelpContext(FMemo, 0);
MemoSetHideSelection(FMemo, True);
MemoSetHint(FMemo, 'Memo Create Hint');
MemoSetLinesText(FMemo, 'Memo Create');
MemoSetMaxLength(FMemo, 0);
MemoSetOEMConvert(FMemo, False);
MemoSetParentColor(FMemo, False);
MemoSetParentCtl3D(FMemo, True);
MemoSetParentFont(FMemo, True);
MemoSetParentShowHint(FMemo, True);
MemoSetPopupMenu(FMemo, nil);
MemoSetReadOnly(FMemo, False);
MemoSetScrollBars(FMemo, ssNone);
MemoSetShowHint(FMemo, False);
MemoSetTabOrder(FMemo, 0);
MemoSetTabStop(FMemo, True);
MemoSetTag(FMemo, 0);
MemoSetVisible(FMemo, True);
MemoSetWantReturns(FMemo, True);
MemoSetWantTabs(FMemo, False);
MemoSetWordWrap(FMemo, True);
MemoSetLeft(FMemo, 20);
MemoSetTop(FMemo, 20);
MemoSetHeight(FMemo, 200);
MemoSetWidth(FMemo, 200);
MemoSetBounds(FMemo, 20, 20, 200, 200);



MemoSetEvent(FMemo, nil, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
21-12-2022, 10:25
TButtonCreate

FButton:=ButtonCreate(WizardForm, alNone, False, 'Button Create', crDefault, False, False, crDrag, dmManual, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, 'Button Create Hint', mrNone, 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);



ButtonGetParent(FButton);
ButtonGetAlign(FButton);
ButtonGetCancel(FButton);
ButtonGetCaption(FButton);
ButtonGetCursor(FButton);
ButtonGetDefault(FButton);
ButtonGetDoubleBuffered(FButton);
ButtonGetDragCursor(FButton);
ButtonGetDragMode(FButton);
ButtonGetEnabled(FButton);
ButtonGetFontColor(FButton);
ButtonGetFontHeight(FButton);
ButtonGetFontName(FButton);
ButtonGetFontPitch(FButton);
ButtonGetFontSize(FButton);
ButtonGetFontStyle(FButton);
ButtonGetHelpContext(FButton);
ButtonGetHint(FButton);
ButtonGetModalResult(FButton);
ButtonGetParentFont(FButton);
ButtonGetParentShowHint(FButton);
ButtonGetPopupMenu(FButton);
ButtonGetShowHint(FButton);
ButtonGetTabOrder(FButton);
ButtonGetTabStop(FButton);
ButtonGetTag(FButton);
ButtonGetVisible(FButton);
ButtonGetLeft(FButton);
ButtonGetTop(FButton);
ButtonGetHeight(FButton);
ButtonGetWidth(FButton);
ButtonGetBounds(FButton);




ButtonSetParent(FButton, WizardForm);
ButtonSetAlign(FButton, alNone);
ButtonSetCancel(FButton, False);
ButtonSetCaption(FButton, 'Button Create');
ButtonSetCursor(FButton, crDefault);
ButtonSetDefault(FButton, False);
ButtonSetDoubleBuffered(FButton, False);
ButtonSetDragCursor(FButton, crDrag);
ButtonSetDragMode(FButton, dmManual);
ButtonSetEnabled(FButton, True);
ButtonSetFontColor(FButton, clBlack);
ButtonSetFontHeight(FButton, 20);
ButtonSetFontName(FButton, 'Segoe UI');
ButtonSetFontPitch(FButton, fpDefault);
ButtonSetFontSize(FButton, 20);
ButtonSetFontStyle(FButton, []);
ButtonSetFont(FButton, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
ButtonSetHelpContext(FButton, 0);
ButtonSetHint(FButton, 'Button Create Hint');
ButtonSetModalResult(FButton, mrNone);
ButtonSetParentFont(FButton, True);
ButtonSetParentShowHint(FButton, True);
ButtonSetPopupMenu(FButton, nil);
ButtonSetShowHint(FButton, False);
ButtonSetTabOrder(FButton, 0);
ButtonSetTabStop(FButton, True);
ButtonSetTag(FButton, 0);
ButtonSetVisible(FButton, True);
ButtonSetLeft(FButton, 20);
ButtonSetTop(FButton, 20);
ButtonSetHeight(FButton, 200);
ButtonSetWidth(FButton, 200);
ButtonSetBounds(FButton, 20, 20, 200, 200);



ButtonSetEvent(FButton, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
21-12-2022, 22:32
TCheckBoxCreate

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



CheckBoxGetParent(FCheckBox);
CheckBoxGetAlign(FCheckBox);
CheckBoxGetAlignment(FCheckBox);
CheckBoxGetAllowGrayed(FCheckBox);
CheckBoxGetCaption(FCheckBox);
CheckBoxGetChecked(FCheckBox);
CheckBoxGetColor(FCheckBox);
CheckBoxGetCtl3D(FCheckBox);
CheckBoxGetCursor(FCheckBox);
CheckBoxGetDoubleBuffered(FCheckBox);
CheckBoxGetDragCursor(FCheckBox);
CheckBoxGetDragMode(FCheckBox);
CheckBoxGetEnabled(FCheckBox);
CheckBoxGetFontColor(FCheckBox);
CheckBoxGetFontHeight(FCheckBox);
CheckBoxGetFontName(FCheckBox);
CheckBoxGetFontPitch(FCheckBox);
CheckBoxGetFontSize(FCheckBox);
CheckBoxGetFontStyle(FCheckBox);
CheckBoxGetHelpContext(FCheckBox);
CheckBoxGetHint(FCheckBox);
CheckBoxGetParentBackground(FCheckBox);
CheckBoxGetParentColor(FCheckBox);
CheckBoxGetParentCtl3D(FCheckBox);
CheckBoxGetParentFont(FCheckBox);
CheckBoxGetParentShowHint(FCheckBox);
CheckBoxGetPopupMenu(FCheckBox);
CheckBoxGetShowHint(FCheckBox);
CheckBoxGetState(FCheckBox);
CheckBoxGetTabOrder(FCheckBox);
CheckBoxGetTabStop(FCheckBox);
CheckBoxGetTag(FCheckBox);
CheckBoxGetVisible(FCheckBox);
CheckBoxGetLeft(FCheckBox);
CheckBoxGetTop(FCheckBox);
CheckBoxGetHeight(FCheckBox);
CheckBoxGetWidth(FCheckBox);
CheckBoxGetBounds(FCheckBox);




CheckBoxSetParent(FCheckBox, WizardForm);
CheckBoxSetAlign(FCheckBox, alNone);
CheckBoxSetAlignment(FCheckBox, taRightJustify);
CheckBoxSetAllowGrayed(FCheckBox, False);
CheckBoxSetCaption(FCheckBox, 'CheckBox Create');
CheckBoxSetChecked(FCheckBox, False);
CheckBoxSetColor(FCheckBox, clWindow);
CheckBoxSetCtl3D(FCheckBox, True);
CheckBoxSetCursor(FCheckBox, crDefault);
CheckBoxSetDoubleBuffered(FCheckBox, False);
CheckBoxSetDragCursor(FCheckBox, crDrag);
CheckBoxSetDragMode(FCheckBox, dmManual);
CheckBoxSetEnabled(FCheckBox, True);
CheckBoxSetFontColor(FCheckBox, clBlack);
CheckBoxSetFontHeight(FCheckBox, 20);
CheckBoxSetFontName(FCheckBox, 'Segoe UI');
CheckBoxSetFontPitch(FCheckBox, fpDefault);
CheckBoxSetFontSize(FCheckBox, 20);
CheckBoxSetFontStyle(FCheckBox, []);
CheckBoxSetFont(FCheckBox, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
CheckBoxSetHelpContext(FCheckBox, 0);
CheckBoxSetHint(FCheckBox, 'CheckBox Create Hint');
CheckBoxSetParentBackground(FCheckBox, False);
CheckBoxSetParentColor(FCheckBox, False);
CheckBoxSetParentCtl3D(FCheckBox, True);
CheckBoxSetParentFont(FCheckBox, True);
CheckBoxSetParentShowHint(FCheckBox, True);
CheckBoxSetPopupMenu(FCheckBox, nil);
CheckBoxSetShowHint(FCheckBox, False);
CheckBoxSetState(FCheckBox, cbUnchecked);
CheckBoxSetTabOrder(FCheckBox, 0);
CheckBoxSetTabStop(FCheckBox, True);
CheckBoxSetTag(FCheckBox, 0);
CheckBoxSetVisible(FCheckBox, True);
CheckBoxSetLeft(FCheckBox, 20);
CheckBoxSetTop(FCheckBox, 20);
CheckBoxSetHeight(FCheckBox, 200);
CheckBoxSetWidth(FCheckBox, 200);
CheckBoxSetBounds(FCheckBox, 20, 20, 200, 200);



CheckBoxSetEvent(FCheckBox, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
21-12-2022, 22:44
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);

DelphiBuilder
22-12-2022, 23:49
TListBoxCreate

FListBox:=ListBoxCreate(WizardForm, alNone, bsSingle, clWindow, 0, True, crDefault, False, crDrag, dmManual, True, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, 'ListBox Create Hint', False, 13, -1, 'ListBox Create' + #13#10 + 'ListBox Create' + #13#10 + 'ListBox Create' + #13#10 + 'ListBox Create' + #13#10 + 'ListBox Create', False, False, True, True, True, nil, False, False, lbStandard, 0, True, 0, 0, True, 20, 20, 200, 200, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);



ListBoxGetParent(FListBox);
ListBoxGetAlign(FListBox);
ListBoxGetBorderStyle(FListBox);
ListBoxGetColor(FListBox);
ListBoxGetColumns(FListBox);
ListBoxGetCtl3D(FListBox);
ListBoxGetCursor(FListBox);
ListBoxGetDoubleBuffered(FListBox);
ListBoxGetDragCursor(FListBox);
ListBoxGetDragMode(FListBox);
ListBoxGetEnabled(FListBox);
ListBoxGetExtendedSelect(FListBox);
ListBoxGetFontColor(FListBox);
ListBoxGetFontHeight(FListBox);
ListBoxGetFontName(FListBox);
ListBoxGetFontPitch(FListBox);
ListBoxGetFontSize(FListBox);
ListBoxGetFontStyle(FListBox);
ListBoxGetHelpContext(FListBox);
ListBoxGetHint(FListBox);
ListBoxGetIntegralHeight(FListBox);
ListBoxGetItemHeight(FListBox);
ListBoxGetItemIndex(FListBox);
ListBoxGetItemsText(FListBox);
ListBoxGetMultiSelect(FListBox);
ListBoxGetParentColor(FListBox);
ListBoxGetParentCtl3D(FListBox);
ListBoxGetParentFont(FListBox);
ListBoxGetParentShowHint(FListBox);
ListBoxGetPopupMenu(FListBox);
ListBoxGetShowHint(FListBox);
ListBoxGetSorted(FListBox);
ListBoxGetStyle(FListBox);
ListBoxGetTabOrder(FListBox);
ListBoxGetTabStop(FListBox);
ListBoxGetTabWidth(FListBox);
ListBoxGetTag(FListBox);
ListBoxGetVisible(FListBox);
ListBoxGetLeft(FListBox);
ListBoxGetTop(FListBox);
ListBoxGetHeight(FListBox);
ListBoxGetWidth(FListBox);
ListBoxGetBounds(FListBox);




ListBoxSetParent(FListBox, WizardForm);
ListBoxSetAlign(FListBox, alNone);
ListBoxSetBorderStyle(FListBox, bsSingle);
ListBoxSetColor(FListBox, clWindow);
ListBoxSetColumns(FListBox, 0);
ListBoxSetCtl3D(FListBox, True);
ListBoxSetCursor(FListBox, crDefault);
ListBoxSetDoubleBuffered(FListBox, False);
ListBoxSetDragCursor(FListBox, crDrag);
ListBoxSetDragMode(FListBox, dmManual);
ListBoxSetEnabled(FListBox, True);
ListBoxSetExtendedSelect(FListBox, True);
ListBoxSetFontColor(FListBox, clBlack);
ListBoxSetFontHeight(FListBox, 20);
ListBoxSetFontName(FListBox, 'Segoe UI');
ListBoxSetFontPitch(FListBox, fpDefault);
ListBoxSetFontSize(FListBox, 20);
ListBoxSetFontStyle(FListBox, []);
ListBoxSetFont(FListBox, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
ListBoxSetHelpContext(FListBox, 0);
ListBoxSetHint(FListBox, 'ListBox Create Hint');
ListBoxSetIntegralHeight(FListBox, False);
ListBoxSetItemHeight(FListBox, 13);
ListBoxSetItemIndex(FListBox, -1);
ListBoxSetItemsText(FListBox, 'ListBox Create' + #13#10 + 'ListBox Create' + #13#10 + 'ListBox Create' + #13#10 + 'ListBox Create' + #13#10 + 'ListBox Create');
ListBoxSetMultiSelect(FListBox, False);
ListBoxSetParentColor(FListBox, False);
ListBoxSetParentCtl3D(FListBox, True);
ListBoxSetParentFont(FListBox, True);
ListBoxSetParentShowHint(FListBox, True);
ListBoxSetPopupMenu(FListBox, nil);
ListBoxSetShowHint(FListBox, False);
ListBoxSetSorted(FListBox, False);
ListBoxSetStyle(FListBox, lbStandard);
ListBoxSetTabOrder(FListBox, 0);
ListBoxSetTabStop(FListBox, True);
ListBoxSetTabWidth(FListBox, 0);
ListBoxSetTag(FListBox, 0);
ListBoxSetVisible(FListBox, True);
ListBoxSetLeft(FListBox, 20);
ListBoxSetTop(FListBox, 20);
ListBoxSetHeight(FListBox, 200);
ListBoxSetWidth(FListBox, 200);
ListBoxSetBounds(FListBox, 20, 20, 200, 200);



ListBoxSetEvent(FListBox, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
23-12-2022, 00:43
TComboBoxCreate

FComboBox:=ComboBoxCreate(WizardForm, alNone, clWindow, True, crDefault, False, crDrag, dmManual, 10, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, 'ComboBox Create Hint', -1, 'ComboBox Create' + #13#10 + 'ComboBox Create' + #13#10 + 'ComboBox Create' + #13#10 + 'ComboBox Create' + #13#10 + 'ComboBox Create', 0, False, True, True, True, nil, False, False, csDropDown, 0, True, 0, '', True, 20, 20, 200, 200, nil, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);



ComboBoxGetParent(FComboBox);
ComboBoxGetAlign(FComboBox);
ComboBoxGetColor(FComboBox);
ComboBoxGetCtl3D(FComboBox);
ComboBoxGetCursor(FComboBox);
ComboBoxGetDoubleBuffered(FComboBox);
ComboBoxGetDragCursor(FComboBox);
ComboBoxGetDragMode(FComboBox);
ComboBoxGetDropDownCount(FComboBox);
ComboBoxGetEnabled(FComboBox);
ComboBoxGetFontColor(FComboBox);
ComboBoxGetFontHeight(FComboBox);
ComboBoxGetFontName(FComboBox);
ComboBoxGetFontPitch(FComboBox);
ComboBoxGetFontSize(FComboBox);
ComboBoxGetFontStyle(FComboBox);
ComboBoxGetHelpContext(FComboBox);
ComboBoxGetHint(FComboBox);
ComboBoxGetItemIndex(FComboBox);
ComboBoxGetItemsText(FComboBox);
ComboBoxGetMaxLength(FComboBox);
ComboBoxGetParentColor(FComboBox);
ComboBoxGetParentCtl3D(FComboBox);
ComboBoxGetParentFont(FComboBox);
ComboBoxGetParentShowHint(FComboBox);
ComboBoxGetPopupMenu(FComboBox);
ComboBoxGetShowHint(FComboBox);
ComboBoxGetSorted(FComboBox);
ComboBoxGetStyle(FComboBox);
ComboBoxGetTabOrder(FComboBox);
ComboBoxGetTabStop(FComboBox);
ComboBoxGetTag(FComboBox);
ComboBoxGetText(FComboBox);
ComboBoxGetVisible(FComboBox);
ComboBoxGetLeft(FComboBox);
ComboBoxGetTop(FComboBox);
ComboBoxGetHeight(FComboBox);
ComboBoxGetWidth(FComboBox);
ComboBoxGetBounds(FComboBox);




ComboBoxSetParent(FComboBox, WizardForm);
ComboBoxSetAlign(FComboBox, alNone);
ComboBoxSetColor(FComboBox, clWindow);
ComboBoxSetCtl3D(FComboBox, True);
ComboBoxSetCursor(FComboBox, crDefault);
ComboBoxSetDoubleBuffered(FComboBox, False);
ComboBoxSetDragCursor(FComboBox, crDrag);
ComboBoxSetDragMode(FComboBox, dmManual);
ComboBoxSetDropDownCount(FComboBox, 10);
ComboBoxSetEnabled(FComboBox, True);
ComboBoxSetFontColor(FComboBox, clBlack);
ComboBoxSetFontHeight(FComboBox, 20);
ComboBoxSetFontName(FComboBox, 'Segoe UI');
ComboBoxSetFontPitch(FComboBox, fpDefault);
ComboBoxSetFontSize(FComboBox, 20);
ComboBoxSetFontStyle(FComboBox, []);
ComboBoxSetFont(FComboBox, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
ComboBoxSetHelpContext(FComboBox, 0);
ComboBoxSetHint(FComboBox, 'ComboBox Create Hint');
ComboBoxSetItemIndex(FComboBox, -1);
ComboBoxSetItemsText(FComboBox, 'ComboBox Create' + #13#10 + 'ComboBox Create' + #13#10 + 'ComboBox Create' + #13#10 + 'ComboBox Create' + #13#10 + 'ComboBox Create');
ComboBoxSetMaxLength(FComboBox, 0);
ComboBoxSetParentColor(FComboBox, False);
ComboBoxSetParentCtl3D(FComboBox, True);
ComboBoxSetParentFont(FComboBox, True);
ComboBoxSetParentShowHint(FComboBox, True);
ComboBoxSetPopupMenu(FComboBox, nil);
ComboBoxSetShowHint(FComboBox, False);
ComboBoxSetSorted(FComboBox, False);
ComboBoxSetStyle(FComboBox, csDropDown);
ComboBoxSetTabOrder(FComboBox, 0);
ComboBoxSetTabStop(FComboBox, True);
ComboBoxSetTag(FComboBox, 0);
ComboBoxSetText(FComboBox, '');
ComboBoxSetVisible(FComboBox, True);
ComboBoxSetLeft(FComboBox, 20);
ComboBoxSetTop(FComboBox, 20);
ComboBoxSetHeight(FComboBox, 200);
ComboBoxSetWidth(FComboBox, 200);
ComboBoxSetBounds(FComboBox, 20, 20, 200, 200);



ComboBoxSetEvent(FComboBox, nil, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
23-12-2022, 01:35
TPanelCreate

FPanel:=PanelCreate(WizardForm, alNone, taCenter, bvNone, bvRaised, 1, bsNone, 0, 'Panel Create', clBtnFace, True, crDefault, False, crDrag, dmManual, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, 'Panel Create Hint', False, True, False, True, True, True, nil, False, 0, False, 0, True, 20, 20, 200, 200, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);



PanelGetParent(FPanel);
PanelGetAlign(FPanel);
PanelGetAlignment(FPanel);
PanelGetBevelInner(FPanel);
PanelGetBevelOuter(FPanel);
PanelGetBevelWidth(FPanel);
PanelGetBorderStyle(FPanel);
PanelGetBorderWidth(FPanel);
PanelGetColor(FPanel);
PanelGetCtl3D(FPanel);
PanelGetCursor(FPanel);
PanelGetDoubleBuffered(FPanel);
PanelGetDragCursor(FPanel);
PanelGetDragMode(FPanel);
PanelGetEnabled(FPanel);
PanelGetFontColor(FPanel);
PanelGetFontHeight(FPanel);
PanelGetFontName(FPanel);
PanelGetFontPitch(FPanel);
PanelGetFontSize(FPanel);
PanelGetFontStyle(FPanel);
PanelGetHelpContext(FPanel);
PanelGetHint(FPanel);
PanelGetLocked(FPanel);
PanelGetParentBackground(FPanel);
PanelGetParentColor(FPanel);
PanelGetParentCtl3D(FPanel);
PanelGetParentFont(FPanel);
PanelGetParentShowHint(FPanel);
PanelGetPopupMenu(FPanel);
PanelGetShowHint(FPanel);
PanelGetTabOrder(FPanel);
PanelGetTabStop(FPanel);
PanelGetTag(FPanel);
PanelGetVisible(FPanel);
PanelGetLeft(FPanel);
PanelGetTop(FPanel);
PanelGetHeight(FPanel);
PanelGetWidth(FPanel);
PanelGetBounds(FPanel);




PanelSetParent(FPanel, WizardForm);
PanelSetAlign(FPanel, alNone);
PanelSetAlignment(FPanel, taCenter);
PanelSetBevelInner(FPanel, bvNone);
PanelSetBevelOuter(FPanel, bvRaised);
PanelSetBevelWidth(FPanel, 1);
PanelSetBorderStyle(FPanel, bsNone);
PanelSetBorderWidth(FPanel, 0);
PanelSetColor(FPanel, clBtnFace);
PanelSetCtl3D(FPanel, True);
PanelSetCursor(FPanel, crDefault);
PanelSetDoubleBuffered(FPanel, False);
PanelSetDragCursor(FPanel, crDrag);
PanelSetDragMode(FPanel, dmManual);
PanelSetEnabled(FPanel, True);
PanelSetFontColor(FPanel, clBlack);
PanelSetFontHeight(FPanel, 20);
PanelSetFontName(FPanel, 'Segoe UI');
PanelSetFontPitch(FPanel, fpDefault);
PanelSetFontSize(FPanel, 20);
PanelSetFontStyle(FPanel, []);
PanelSetFont(FPanel, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
PanelSetHelpContext(FPanel, 0);
PanelSetHint(FPanel, 'Panel Create Hint');
PanelSetLocked(FPanel, False);
PanelSetParentBackground(FPanel, True);
PanelSetParentColor(FPanel, False);
PanelSetParentCtl3D(FPanel, True);
PanelSetParentFont(FPanel, True);
PanelSetParentShowHint(FPanel, True);
PanelSetPopupMenu(FPanel, nil);
PanelSetShowHint(FPanel, False);
PanelSetTabOrder(FPanel, 0);
PanelSetTabStop(FPanel, True);
PanelSetTag(FPanel, 0);
PanelSetVisible(FPanel, True);
PanelSetLeft(FPanel, 20);
PanelSetTop(FPanel, 20);
PanelSetHeight(FPanel, 200);
PanelSetWidth(FPanel, 200);
PanelSetBounds(FPanel, 20, 20, 200, 200);



PanelSetEvent(FPanel, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
23-12-2022, 02:16
TPasswordEditCreate

FPasswordEdit:=PasswordEditCreate(WizardForm, True, True, bsSingle, ecNormal, clWindow, True, crDefault, crDrag, dmManual, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, True, 'PasswordEdit Create Hint', 0, False, False, True, True, True, True, nil, False, False, 0, True, 0, 'PasswordEdit Create', True, 20, 20, 200, 200, nil, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);



PasswordEditGetParent(FPasswordEdit);
PasswordEditGetAutoSelect(FPasswordEdit);
PasswordEditGetAutoSize(FPasswordEdit);
PasswordEditGetBorderStyle(FPasswordEdit);
PasswordEditGetCharCase(FPasswordEdit);
PasswordEditGetColor(FPasswordEdit);
PasswordEditGetCtl3D(FPasswordEdit);
PasswordEditGetCursor(FPasswordEdit);
PasswordEditGetDragCursor(FPasswordEdit);
PasswordEditGetDragMode(FPasswordEdit);
PasswordEditGetEnabled(FPasswordEdit);
PasswordEditGetFontColor(FPasswordEdit);
PasswordEditGetFontHeight(FPasswordEdit);
PasswordEditGetFontName(FPasswordEdit);
PasswordEditGetFontPitch(FPasswordEdit);
PasswordEditGetFontSize(FPasswordEdit);
PasswordEditGetFontStyle(FPasswordEdit);
PasswordEditGetHelpContext(FPasswordEdit);
PasswordEditGetHideSelection(FPasswordEdit);
PasswordEditGetHint(FPasswordEdit);
PasswordEditGetMaxLength(FPasswordEdit);
PasswordEditGetOEMConvert(FPasswordEdit);
PasswordEditGetParentColor(FPasswordEdit);
PasswordEditGetParentCtl3D(FPasswordEdit);
PasswordEditGetParentFont(FPasswordEdit);
PasswordEditGetParentShowHint(FPasswordEdit);
PasswordEditGetPassword(FPasswordEdit);
PasswordEditGetPopupMenu(FPasswordEdit);
PasswordEditGetReadOnly(FPasswordEdit);
PasswordEditGetShowHint(FPasswordEdit);
PasswordEditGetTabOrder(FPasswordEdit);
PasswordEditGetTabStop(FPasswordEdit);
PasswordEditGetTag(FPasswordEdit);
PasswordEditGetText(FPasswordEdit);
PasswordEditGetVisible(FPasswordEdit);
PasswordEditGetLeft(FPasswordEdit);
PasswordEditGetTop(FPasswordEdit);
PasswordEditGetHeight(FPasswordEdit);
PasswordEditGetWidth(FPasswordEdit);
PasswordEditGetBounds(FPasswordEdit);




PasswordEditSetParent(FPasswordEdit, WizardForm);
PasswordEditSetAutoSelect(FPasswordEdit, True);
PasswordEditSetAutoSize(FPasswordEdit, True);
PasswordEditSetBorderStyle(FPasswordEdit, bsSingle);
PasswordEditSetCharCase(FPasswordEdit, ecNormal);
PasswordEditSetColor(FPasswordEdit, clWindow);
PasswordEditSetCtl3D(FPasswordEdit, True);
PasswordEditSetCursor(FPasswordEdit, crDefault);
PasswordEditSetDragCursor(FPasswordEdit, crDrag);
PasswordEditSetDragMode(FPasswordEdit, dmManual);
PasswordEditSetEnabled(FPasswordEdit, True);
PasswordEditSetFontColor(FPasswordEdit, clBlack);
PasswordEditSetFontHeight(FPasswordEdit, 20);
PasswordEditSetFontName(FPasswordEdit, 'Segoe UI');
PasswordEditSetFontPitch(FPasswordEdit, fpDefault);
PasswordEditSetFontSize(FPasswordEdit, 20);
PasswordEditSetFontStyle(FPasswordEdit, []);
PasswordEditSetFont(FPasswordEdit, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
PasswordEditSetHelpContext(FPasswordEdit, 0);
PasswordEditSetHideSelection(FPasswordEdit, True);
PasswordEditSetHint(FPasswordEdit, 'PasswordEdit Create Hint');
PasswordEditSetMaxLength(FPasswordEdit, 0);
PasswordEditSetOEMConvert(FPasswordEdit, False);
PasswordEditSetParentColor(FPasswordEdit, False);
PasswordEditSetParentCtl3D(FPasswordEdit, True);
PasswordEditSetParentFont(FPasswordEdit, True);
PasswordEditSetParentShowHint(FPasswordEdit, True);
PasswordEditSetPassword(FPasswordEdit, True);
PasswordEditSetPopupMenu(FPasswordEdit, nil);
PasswordEditSetReadOnly(FPasswordEdit, False);
PasswordEditSetShowHint(FPasswordEdit, False);
PasswordEditSetTabOrder(FPasswordEdit, 0);
PasswordEditSetTabStop(FPasswordEdit, True);
PasswordEditSetTag(FPasswordEdit, 0);
PasswordEditSetText(FPasswordEdit, 'PasswordEdit Create');
PasswordEditSetVisible(FPasswordEdit, True);
PasswordEditSetLeft(FPasswordEdit, 20);
PasswordEditSetTop(FPasswordEdit, 20);
PasswordEditSetHeight(FPasswordEdit, 200);
PasswordEditSetWidth(FPasswordEdit, 200);
PasswordEditSetBounds(FPasswordEdit, 20, 20, 200, 200);



PasswordEditSetEvent(FPasswordEdit, nil, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
23-12-2022, 22:04
TBitmapImageCreate

FBitmapImage:=BitmapImageCreate(WizardForm, alNone, True, clBtnFace, 'BitmapImage.bmp', '{tmp}\BitmapImage.bmp', False, crDefault, crDrag, dmManual, True, 'BitmapImage Create Hint', True, nil, clNone, clNone, False, False, 0, True, 20, 20, 200, 200, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil);



BitmapImageGetParent(FBitmapImage);
BitmapImageGetAlign(FBitmapImage);
BitmapImageGetAutoSize(FBitmapImage);
BitmapImageGetBackColor(FBitmapImage);
BitmapImageGetBitmap(FBitmapImage);
BitmapImageGetCenter(FBitmapImage);
BitmapImageGetCursor(FBitmapImage);
BitmapImageGetDragCursor(FBitmapImage);
BitmapImageGetDragMode(FBitmapImage);
BitmapImageGetEnabled(FBitmapImage);
BitmapImageGetHint(FBitmapImage);
BitmapImageGetParentShowHint(FBitmapImage);
BitmapImageGetPopupMenu(FBitmapImage);
BitmapImageGetReplaceColor(FBitmapImage);
BitmapImageGetReplaceWithColor(FBitmapImage);
BitmapImageGetShowHint(FBitmapImage);
BitmapImageGetStretch(FBitmapImage);
BitmapImageGetTag(FBitmapImage);
BitmapImageGetVisible(FBitmapImage);
BitmapImageGetLeft(FBitmapImage);
BitmapImageGetTop(FBitmapImage);
BitmapImageGetHeight(FBitmapImage);
BitmapImageGetWidth(FBitmapImage);
BitmapImageGetBounds(FBitmapImage);




BitmapImageSetParent(FBitmapImage, WizardForm);
BitmapImageSetAlign(FBitmapImage, alNone);
BitmapImageSetAutoSize(FBitmapImage, True);
BitmapImageSetBackColor(FBitmapImage, clBtnFace);
ExtractTemporaryFile('BitmapImage.bmp');
BitmapImageSetBitmap(FBitmapImage, '{tmp}\BitmapImage.bmp');
BitmapImageSetCenter(FBitmapImage, False);
BitmapImageSetCursor(FBitmapImage, crDefault);
BitmapImageSetDragCursor(FBitmapImage, crDrag);
BitmapImageSetDragMode(FBitmapImage, dmManual);
BitmapImageSetEnabled(FBitmapImage, True);
BitmapImageSetHint(FBitmapImage, 'BitmapImage Create Hint');
BitmapImageSetParentShowHint(FBitmapImage, True);
BitmapImageSetPopupMenu(FBitmapImage, nil);
BitmapImageSetReplaceColor(FBitmapImage, clNone);
BitmapImageSetReplaceWithColor(FBitmapImage, clNone);
BitmapImageSetShowHint(FBitmapImage, False);
BitmapImageSetStretch(FBitmapImage, False);
BitmapImageSetTag(FBitmapImage, 0);
BitmapImageSetVisible(FBitmapImage, True);
BitmapImageSetLeft(FBitmapImage, 20);
BitmapImageSetTop(FBitmapImage, 20);
BitmapImageSetHeight(FBitmapImage, 200);
BitmapImageSetWidth(FBitmapImage, 200);
BitmapImageSetBounds(FBitmapImage, 20, 20, 200, 200);



BitmapImageSetEvent(FBitmapImage, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
23-12-2022, 22:28
TBevelCreate

FBevel:=BevelCreate(WizardForm, alNone, crDefault, 'Bevel Create Hint', True, bsBox, False, bsLowered, 0, True, 20, 20, 200, 200);



BevelGetParent(FBevel);
BevelGetAlign(FBevel);
BevelGetCursor(FBevel);
BevelGetHint(FBevel);
BevelGetParentShowHint(FBevel);
BevelGetShape(FBevel);
BevelGetShowHint(FBevel);
BevelGetStyle(FBevel);
BevelGetTag(FBevel);
BevelGetVisible(FBevel);
BevelGetLeft(FBevel);
BevelGetTop(FBevel);
BevelGetHeight(FBevel);
BevelGetWidth(FBevel);
BevelGetBounds(FBevel);




BevelSetParent(FBevel, WizardForm);
BevelSetAlign(FBevel, alNone);
BevelSetCursor(FBevel, crDefault);
BevelSetHint(FBevel, 'Bevel Create Hint');
BevelSetParentShowHint(FBevel, True);
BevelSetShape(FBevel, bsBox);
BevelSetShowHint(FBevel, False);
BevelSetStyle(FBevel, bsLowered);
BevelSetTag(FBevel, 0);
BevelSetVisible(FBevel, True);
BevelSetLeft(FBevel, 20);
BevelSetTop(FBevel, 20);
BevelSetHeight(FBevel, 200);
BevelSetWidth(FBevel, 200);
BevelSetBounds(FBevel, 20, 20, 200, 200);

DelphiBuilder
23-12-2022, 23:44
TCheckListBoxCreate

FCheckListBox:=CheckListBoxCreate(WizardForm, alNone, bsSingle, clWindow, True, crDefault, crDrag, dmManual, True, False, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, True, 'CheckListBox Create Hint', False, 16, 4, False, True, True, True, nil, False, True, True, 0, True, 0, False, True, False, 20, 20, 200, 200, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);



CheckListBoxGetParent(FCheckListBox);
CheckListBoxGetAlign(FCheckListBox);
CheckListBoxGetBorderStyle(FCheckListBox);
CheckListBoxGetColor(FCheckListBox);
CheckListBoxGetCtl3D(FCheckListBox);
CheckListBoxGetCursor(FCheckListBox);
CheckListBoxGetDragCursor(FCheckListBox);
CheckListBoxGetDragMode(FCheckListBox);
CheckListBoxGetEnabled(FCheckListBox);
CheckListBoxGetFlat(FCheckListBox);
CheckListBoxGetFontColor(FCheckListBox);
CheckListBoxGetFontHeight(FCheckListBox);
CheckListBoxGetFontName(FCheckListBox);
CheckListBoxGetFontPitch(FCheckListBox);
CheckListBoxGetFontSize(FCheckListBox);
CheckListBoxGetFontStyle(FCheckListBox);
CheckListBoxGetHelpContext(FCheckListBox);
CheckListBoxGetHideSelection(FCheckListBox);
CheckListBoxGetHint(FCheckListBox);
CheckListBoxGetItemHeightFixed(FCheckListBox);
CheckListBoxGetMinItemHeight(FCheckListBox);
CheckListBoxGetOffset(FCheckListBox);
CheckListBoxGetParentColor(FCheckListBox);
CheckListBoxGetParentCtl3D(FCheckListBox);
CheckListBoxGetParentFont(FCheckListBox);
CheckListBoxGetParentShowHint(FCheckListBox);
CheckListBoxGetPopupMenu(FCheckListBox);
CheckListBoxGetShowHint(FCheckListBox);
CheckListBoxGetShowLines(FCheckListBox);
CheckListBoxGetShowRoot(FCheckListBox);
CheckListBoxGetTabOrder(FCheckListBox);
CheckListBoxGetTabStop(FCheckListBox);
CheckListBoxGetTag(FCheckListBox);
CheckListBoxGetTreeViewStyle(FCheckListBox);
CheckListBoxGetVisible(FCheckListBox);
CheckListBoxGetWantTabs(FCheckListBox);
CheckListBoxGetLeft(FCheckListBox);
CheckListBoxGetTop(FCheckListBox);
CheckListBoxGetHeight(FCheckListBox);
CheckListBoxGetWidth(FCheckListBox);
CheckListBoxGetBounds(FCheckListBox);




CheckListBoxSetParent(FCheckListBox, WizardForm);
CheckListBoxSetAlign(FCheckListBox, alNone);
CheckListBoxSetBorderStyle(FCheckListBox, bsSingle);
CheckListBoxSetColor(FCheckListBox, clWindow);
CheckListBoxSetCtl3D(FCheckListBox, True);
CheckListBoxSetCursor(FCheckListBox, crDefault);
CheckListBoxSetDragCursor(FCheckListBox, crDrag);
CheckListBoxSetDragMode(FCheckListBox, dmManual);
CheckListBoxSetEnabled(FCheckListBox, True);
CheckListBoxSetFlat(FCheckListBox, False);
CheckListBoxSetFontColor(FCheckListBox, clBlack);
CheckListBoxSetFontHeight(FCheckListBox, 20);
CheckListBoxSetFontName(FCheckListBox, 'Segoe UI');
CheckListBoxSetFontPitch(FCheckListBox, fpDefault);
CheckListBoxSetFontSize(FCheckListBox, 20);
CheckListBoxSetFontStyle(FCheckListBox, []);
CheckListBoxSetFont(FCheckListBox, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
CheckListBoxSetHelpContext(FCheckListBox, 0);
CheckListBoxSetHideSelection(FCheckListBox, False);
CheckListBoxSetHint(FCheckListBox, 'CheckListBox Create Hint');
CheckListBoxSetItemHeightFixed(FCheckListBox, False);
CheckListBoxSetMinItemHeight(FCheckListBox, 16);
CheckListBoxSetOffset(FCheckListBox, 4);
CheckListBoxSetParentColor(FCheckListBox, False);
CheckListBoxSetParentCtl3D(FCheckListBox, True);
CheckListBoxSetParentFont(FCheckListBox, True);
CheckListBoxSetParentShowHint(FCheckListBox, True);
CheckListBoxSetPopupMenu(FCheckListBox, nil);
CheckListBoxSetShowHint(FCheckListBox, False);
CheckListBoxSetShowLines(FCheckListBox, True);
CheckListBoxSetShowRoot(FCheckListBox, True);
CheckListBoxSetTabOrder(FCheckListBox, 0);
CheckListBoxSetTabStop(FCheckListBox, True);
CheckListBoxSetTag(FCheckListBox, 0);
CheckListBoxSetTreeViewStyle(FCheckListBox, False);
CheckListBoxSetVisible(FCheckListBox, True);
CheckListBoxSetWantTabs(FCheckListBox, False);
CheckListBoxSetLeft(FCheckListBox, 20);
CheckListBoxSetTop(FCheckListBox, 20);
CheckListBoxSetHeight(FCheckListBox, 200);
CheckListBoxSetWidth(FCheckListBox, 200);
CheckListBoxSetBounds(FCheckListBox, 20, 20, 200, 200);



CheckListBoxSetEvent(FCheckListBox, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
24-12-2022, 08:27
TCheckListBoxCreate v2


CheckListBoxAddCheckBox(FCheckListBox, 'AddCheckBox', '', 0, False, False, False, True, nil);
CheckListBoxAddGroup(FCheckListBox, 'AddGroup', '', 4, nil);
CheckListBoxAddRadioButton(FCheckListBox, 'AddRadioButton (1)', '', 1, False, True, nil);
CheckListBoxAddRadioButton(FCheckListBox, 'AddRadioButton (2)', '', 1, False, True, nil);
CheckListBoxAddCheckBoxEx(FCheckListBox, 'AddCheckBoxEx', '', 0, False, False, False, True, nil, True);
CheckListBoxAddGroupEx(FCheckListBox, 'AddGroupEx', '', 4, nil, True);
CheckListBoxAddRadioButtonEx(FCheckListBox, 'AddRadioButtonEx (1)', '', 1, False, True, nil, True);
CheckListBoxAddRadioButtonEx(FCheckListBox, 'AddRadioButtonEx (2)', '', 1, False, True, nil, True);
CheckListBoxCheckItem(FCheckListBox, 1, coUncheck);
CheckListBoxCheckItem(FCheckListBox, 3, coCheck);
CheckListBoxCheckItem(FCheckListBox, 6, coCheckWithChildren);




CheckListBoxBtnFromBitmap(FCheckListBox, BtnImage.Bitmap);
CheckListBoxBtnFromFile(FCheckListBox,'BtnImage.bm p');
CheckListBoxBGFromBitmap(FCheckListBox, BGImage.Bitmap, CheckListBoxGetLeft(FCheckListBox)-20, CheckListBoxGetTop(FCheckListBox)-20);
CheckListBoxBGFromFile(FCheckListBox, 'BGImage.bmp', CheckListBoxGetLeft(FCheckListBox)-20, CheckListBoxGetTop(FCheckListBox)-20);

DelphiBuilder
24-12-2022, 11:03
TCheckListBoxCreate v3


CheckListBoxGetItemCount(FCheckListBox);
CheckListBoxGetAbsItemIndex(FCheckListBox);
CheckListBoxGetSubItemFontStyle(FCheckListBox, 0);
CheckListBoxGetItemFontStyle(FCheckListBox, 0);
CheckListBoxGetItemExpanded(FCheckListBox, 2);
CheckListBoxGetChecked(FCheckListBox, 2);
CheckListBoxGetState(FCheckListBox, 3);
CheckListBoxGetItemCaption(FCheckListBox, 3);
CheckListBoxGetItemEnabled(FCheckListBox, 5);
CheckListBoxGetItemLevel(FCheckListBox, 5);
CheckListBoxGetItemObject(FCheckListBox, 6);
CheckListBoxGetItemSubItem(FCheckListBox, 6);




CheckListBoxSetSubItemFontStyle(FCheckListBox, 0, [fsBold]);
CheckListBoxSetItemFontStyle(FCheckListBox, 0, [fsItalic]);
CheckListBoxSetItemExpanded(FCheckListBox, 3, True);
CheckListBoxSetChecked(FCheckListBox, 3, True);
CheckListBoxSetItemCaption(FCheckListBox, 5, 'ItemCaption');
CheckListBoxSetItemEnabled(FCheckListBox, 5, True);
CheckListBoxSetItemObject(FCheckListBox, 6, nil);
CheckListBoxSetItemSubItem(FCheckListBox, 6, 'ItemSubItem');




ExtractTemporaryFile('BtnImage.bmp');
ExtractTemporaryFile('BGImage.bmp');
CheckListBoxBtnFromFile(FCheckListBox, ExpandConstant('{tmp}\BtnImage.bmp'));
CheckListBoxBGFromFile(FCheckListBox, ExpandConstant('{tmp}\BGImage.bmp'), CheckListBoxGetLeft(FCheckListBox)-20, CheckListBoxGetTop(FCheckListBox)-20);

DelphiBuilder
24-12-2022, 12:21
TStaticTextCreate

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



StaticTextGetParent(FStaticText);
StaticTextGetAlign(FStaticText);
StaticTextGetAutoSize(FStaticText);
StaticTextGetCaption(FStaticText);
StaticTextGetColor(FStaticText);
StaticTextGetCursor(FStaticText);
StaticTextGetDragCursor(FStaticText);
StaticTextGetDragMode(FStaticText);
StaticTextGetEnabled(FStaticText);
StaticTextGetFocusControl(FStaticText);
StaticTextGetFontColor(FStaticText);
StaticTextGetFontHeight(FStaticText);
StaticTextGetFontName(FStaticText);
StaticTextGetFontPitch(FStaticText);
StaticTextGetFontSize(FStaticText);
StaticTextGetFontStyle(FStaticText);
StaticTextGetHelpContext(FStaticText);
StaticTextGetHint(FStaticText);
StaticTextGetParentColor(FStaticText);
StaticTextGetParentFont(FStaticText);
StaticTextGetParentShowHint(FStaticText);
StaticTextGetPopupMenu(FStaticText);
StaticTextGetShowAccelChar(FStaticText);
StaticTextGetShowHint(FStaticText);
StaticTextGetTabOrder(FStaticText);
StaticTextGetTabStop(FStaticText);
StaticTextGetTag(FStaticText);
StaticTextGetTransparent(FStaticText);
StaticTextGetVisible(FStaticText);
StaticTextGetWordWrap(FStaticText);
StaticTextGetLeft(FStaticText);
StaticTextGetTop(FStaticText);
StaticTextGetHeight(FStaticText);
StaticTextGetWidth(FStaticText);
StaticTextGetBounds(FStaticText);
StaticTextGetAdjustHeight(FStaticText);




StaticTextSetParent(FStaticText, WizardForm);
StaticTextSetAlign(FStaticText, alNone);
StaticTextSetAutoSize(FStaticText, True);
StaticTextSetCaption(FStaticText, 'StaticText Create');
StaticTextSetColor(FStaticText, clBtnFace);
StaticTextSetCursor(FStaticText, crDefault);
StaticTextSetDragCursor(FStaticText, crDrag);
StaticTextSetDragMode(FStaticText, dmManual);
StaticTextSetEnabled(FStaticText, True);
StaticTextSetFocusControl(FStaticText, nil);
StaticTextSetFontColor(FStaticText, clBlack);
StaticTextSetFontHeight(FStaticText, 20);
StaticTextSetFontName(FStaticText, 'Segoe UI');
StaticTextSetFontPitch(FStaticText, fpDefault);
StaticTextSetFontSize(FStaticText, 20);
StaticTextSetFontStyle(FStaticText, []);
StaticTextSetFont(FStaticText, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
StaticTextSetHelpContext(FStaticText, 0);
StaticTextSetHint(FStaticText, 'StaticText Create Hint');
StaticTextSetParentColor(FStaticText, True);
StaticTextSetParentFont(FStaticText, True);
StaticTextSetParentShowHint(FStaticText, True);
StaticTextSetPopupMenu(FStaticText, 0);
StaticTextSetShowAccelChar(FStaticText, True);
StaticTextSetShowHint(FStaticText, True);
StaticTextSetTabOrder(FStaticText, 0);
StaticTextSetTabStop(FStaticText, False);
StaticTextSetTag(FStaticText, 0);
StaticTextSetTransparent(FStaticText, True);
StaticTextSetVisible(FStaticText, True);
StaticTextSetWordWrap(FStaticText, True);
StaticTextSetLeft(FStaticText, 20);
StaticTextSetTop(FStaticText, 20);
StaticTextSetHeight(FStaticText, 200);
StaticTextSetWidth(FStaticText, 200);
StaticTextSetBounds(FStaticText, 20, 20, 200, 200);



StaticTextSetEvent(FStaticText, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
24-12-2022, 14:09
TFolderTreeViewCreate

FFolderTreeView:=FolderTreeViewCreate(WizardForm, crDefault, 'C:\Directory', 0, 'FolderTreeView Create Hint', True, 0, True, 0, True, 20, 20, 200, 200, @OnChange, nil);



FolderTreeViewGetParent(FFolderTreeView);
FolderTreeViewGetCursor(FFolderTreeView);
FolderTreeViewGetDirectory(FFolderTreeView);
FolderTreeViewGetHelpContext(FFolderTreeView);
FolderTreeViewGetHint(FFolderTreeView);
FolderTreeViewGetShowAllFolders(FFolderTreeView);
FolderTreeViewGetTabOrder(FFolderTreeView);
FolderTreeViewGetTabStop(FFolderTreeView);
FolderTreeViewGetTag(FFolderTreeView);
FolderTreeViewGetVisible(FFolderTreeView);
FolderTreeViewGetLeft(FFolderTreeView);
FolderTreeViewGetTop(FFolderTreeView);
FolderTreeViewGetHeight(FFolderTreeView);
FolderTreeViewGetWidth(FFolderTreeView);
FolderTreeViewGetBounds(FFolderTreeView);




FolderTreeViewSetParent(FFolderTreeView, WizardForm);
FolderTreeViewSetCursor(FFolderTreeView, crDefault);
FolderTreeViewSetDirectory(FFolderTreeView, 'C:\Directory');
FolderTreeViewSetHelpContext(FFolderTreeView, 0);
FolderTreeViewSetHint(FFolderTreeView, 'FolderTreeView Create Hint');
FolderTreeViewSetShowAllFolders(FFolderTreeView, True);
FolderTreeViewSetTabOrder(FFolderTreeView, 0);
FolderTreeViewSetTabStop(FFolderTreeView, True);
FolderTreeViewSetTag(FFolderTreeView, 0);
FolderTreeViewSetVisible(FFolderTreeView, True);
FolderTreeViewSetLeft(FFolderTreeView, 20);
FolderTreeViewSetTop(FFolderTreeView, 20);
FolderTreeViewSetHeight(FFolderTreeView, 200);
FolderTreeViewSetWidth(FFolderTreeView, 200);
FolderTreeViewSetBounds(FFolderTreeView, 20, 20, 200, 200);



FolderTreeViewSetEvent(FFolderTreeView, @OnChange, nil);



FolderTreeViewChangeDirectory(FFolderTreeView, 'C:\Windows', True);
FolderTreeViewCreateNewDirectory(FFolderTreeView, 'C:\CreateNewDirectory');

DelphiBuilder
24-12-2022, 14:57
TStartMenuTreeViewCreate

FStartMenuTreeView:=StartMenuTreeViewCreate(Wizard Form, crDefault, 0, 'StartMenuTreeView Create Hint', 0, True, 0, True, 20, 20, 200, 200, @OnChange, nil);



StartMenuTreeViewGetParent(FStartMenuTreeView);
StartMenuTreeViewGetCursor(FStartMenuTreeView);
StartMenuTreeViewGetHelpContext(FStartMenuTreeView );
StartMenuTreeViewGetHint(FStartMenuTreeView);
StartMenuTreeViewGetTabOrder(FStartMenuTreeView);
StartMenuTreeViewGetTabStop(FStartMenuTreeView);
StartMenuTreeViewGetTag(FStartMenuTreeView);
StartMenuTreeViewGetVisible(FStartMenuTreeView);
StartMenuTreeViewGetLeft(FStartMenuTreeView);
StartMenuTreeViewGetTop(FStartMenuTreeView);
StartMenuTreeViewGetHeight(FStartMenuTreeView);
StartMenuTreeViewGetWidth(FStartMenuTreeView);
StartMenuTreeViewGetBounds(FStartMenuTreeView);




StartMenuTreeViewSetParent(FStartMenuTreeView, WizardForm);
StartMenuTreeViewSetCursor(FStartMenuTreeView, crDefault);
StartMenuTreeViewSetHelpContext(FStartMenuTreeView , 0);
StartMenuTreeViewSetHint(FStartMenuTreeView, 'StartMenuTreeView Create Hint');
StartMenuTreeViewSetTabOrder(FStartMenuTreeView, 0);
StartMenuTreeViewSetTabStop(FStartMenuTreeView, True);
StartMenuTreeViewSetTag(FStartMenuTreeView, 0);
StartMenuTreeViewSetVisible(FStartMenuTreeView, True);
StartMenuTreeViewSetLeft(FStartMenuTreeView, 20);
StartMenuTreeViewSetTop(FStartMenuTreeView, 20);
StartMenuTreeViewSetHeight(FStartMenuTreeView, 200);
StartMenuTreeViewSetWidth(FStartMenuTreeView, 200);
StartMenuTreeViewSetBounds(FStartMenuTreeView, 20, 20, 200, 200);



StartMenuTreeViewSetEvent(FStartMenuTreeView, @OnChange, nil);


StartMenuTreeViewSetPaths(FStartMenuTreeView, '{userprograms}', '{commonprograms}', '{userstartup}', '{commonstartup}');

DelphiBuilder
25-12-2022, 01:34
TRichEditViewerCreate

FRichEditViewer:=RichEditViewerCreate(WizardForm, alNone, taLeftJustify, bsSingle, clWindow, True, crDefault, False, crDrag, dmManual, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, True, 'RichEditViewer Create Hint', 0, False, False, True, True, True, nil, False, 'RichEditViewer Create', ssVertical, False, 0, True, 0, True, True, True, True, False, True, 20, 20, 200, 200, nil, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);



RichEditViewerGetParent(FRichEditViewer);
RichEditViewerGetAlign(FRichEditViewer);
RichEditViewerGetAlignment(FRichEditViewer);
RichEditViewerGetBorderStyle(FRichEditViewer);
RichEditViewerGetColor(FRichEditViewer);
RichEditViewerGetCtl3D(FRichEditViewer);
RichEditViewerGetCursor(FRichEditViewer);
RichEditViewerGetDoubleBuffered(FRichEditViewer);
RichEditViewerGetDragCursor(FRichEditViewer);
RichEditViewerGetDragMode(FRichEditViewer);
RichEditViewerGetEnabled(FRichEditViewer);
RichEditViewerGetFontColor(FRichEditViewer);
RichEditViewerGetFontHeight(FRichEditViewer);
RichEditViewerGetFontName(FRichEditViewer);
RichEditViewerGetFontPitch(FRichEditViewer);
RichEditViewerGetFontSize(FRichEditViewer);
RichEditViewerGetFontStyle(FRichEditViewer);
RichEditViewerGetHelpContext(FRichEditViewer);
RichEditViewerGetHideSelection(FRichEditViewer);
RichEditViewerGetHint(FRichEditViewer);
RichEditViewerGetMaxLength(FRichEditViewer);
RichEditViewerGetOEMConvert(FRichEditViewer);
RichEditViewerGetParentColor(FRichEditViewer);
RichEditViewerGetParentCtl3D(FRichEditViewer);
RichEditViewerGetParentFont(FRichEditViewer);
RichEditViewerGetParentShowHint(FRichEditViewer);
RichEditViewerGetPopupMenu(FRichEditViewer);
RichEditViewerGetReadOnly(FRichEditViewer);
RichEditViewerGetScrollBars(FRichEditViewer);
RichEditViewerGetShowHint(FRichEditViewer);
RichEditViewerGetTabOrder(FRichEditViewer);
RichEditViewerGetTabStop(FRichEditViewer);
RichEditViewerGetTag(FRichEditViewer);
RichEditViewerGetThemeBorder(FRichEditViewer);
RichEditViewerGetUseRichEdit(FRichEditViewer);
RichEditViewerGetVisible(FRichEditViewer);
RichEditViewerGetWantReturns(FRichEditViewer);
RichEditViewerGetWantTabs(FRichEditViewer);
RichEditViewerGetWordWrap(FRichEditViewer);
RichEditViewerGetLeft(FRichEditViewer);
RichEditViewerGetTop(FRichEditViewer);
RichEditViewerGetHeight(FRichEditViewer);
RichEditViewerGetWidth(FRichEditViewer);
RichEditViewerGetBounds(FRichEditViewer);




RichEditViewerSetParent(FRichEditViewer, WizardForm);
RichEditViewerSetAlign(FRichEditViewer, alNone);
RichEditViewerSetAlignment(FRichEditViewer, taLeftJustify);
RichEditViewerSetBorderStyle(FRichEditViewer, bsSingle);
RichEditViewerSetColor(FRichEditViewer, clWindow);
RichEditViewerSetCtl3D(FRichEditViewer, True);
RichEditViewerSetCursor(FRichEditViewer, crDefault);
RichEditViewerSetDoubleBuffered(FRichEditViewer, False);
RichEditViewerSetDragCursor(FRichEditViewer, crDrag);
RichEditViewerSetDragMode(FRichEditViewer, dmManual);
RichEditViewerSetEnabled(FRichEditViewer, True);
RichEditViewerSetFontColor(FRichEditViewer, clBlack);
RichEditViewerSetFontHeight(FRichEditViewer, 20);
RichEditViewerSetFontName(FRichEditViewer, 'Segoe UI');
RichEditViewerSetFontPitch(FRichEditViewer, fpDefault);
RichEditViewerSetFontSize(FRichEditViewer, 20);
RichEditViewerSetFontStyle(FRichEditViewer, []);
RichEditViewerSetFont(FRichEditViewer, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
RichEditViewerSetHelpContext(FRichEditViewer, 0);
RichEditViewerSetHideSelection(FRichEditViewer, True);
RichEditViewerSetHint(FRichEditViewer, 'RichEditViewer Create Hint');
RichEditViewerSetMaxLength(FRichEditViewer, 0);
RichEditViewerSetOEMConvert(FRichEditViewer, False);
RichEditViewerSetParentColor(FRichEditViewer, False);
RichEditViewerSetParentCtl3D(FRichEditViewer, True);
RichEditViewerSetParentFont(FRichEditViewer, True);
RichEditViewerSetParentShowHint(FRichEditViewer, True);
RichEditViewerSetPopupMenu(FRichEditViewer, nil);
RichEditViewerSetReadOnly(FRichEditViewer, False);
RichEditViewerSetRTFText(FRichEditViewer, 'RichEditViewer Create');
RichEditViewerSetScrollBars(FRichEditViewer, ssVertical);
RichEditViewerSetShowHint(FRichEditViewer, False);
RichEditViewerSetTabOrder(FRichEditViewer, 0);
RichEditViewerSetTabStop(FRichEditViewer, True);
RichEditViewerSetTag(FRichEditViewer, 0);
RichEditViewerSetThemeBorder(FRichEditViewer, True);
RichEditViewerSetUseRichEdit(FRichEditViewer, True);
RichEditViewerSetVisible(FRichEditViewer, True);
RichEditViewerSetWantReturns(FRichEditViewer, True);
RichEditViewerSetWantTabs(FRichEditViewer, False);
RichEditViewerSetWordWrap(FRichEditViewer, True);
RichEditViewerSetLeft(FRichEditViewer, 20);
RichEditViewerSetTop(FRichEditViewer, 20);
RichEditViewerSetHeight(FRichEditViewer, 200);
RichEditViewerSetWidth(FRichEditViewer, 200);
RichEditViewerSetBounds(FRichEditViewer, 20, 20, 200, 200);



RichEditViewerSetEvent(FRichEditViewer, nil, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
25-12-2022, 02:28
TProgressBarCreate

FProgressBar:=ProgressBarCreate(WizardForm, crDefault, True, 0, 'ProgressBar Create Hint', 100, 0, 0, npbsNormal, npbstMarquee, 0, True, 20, 20, 20, 200);



ProgressBarGetParent(FProgressBar);
ProgressBarGetCursor(FProgressBar);
ProgressBarGetEnabled(FProgressBar);
ProgressBarGetHelpContext(FProgressBar);
ProgressBarGetHint(FProgressBar);
ProgressBarGetMax(FProgressBar);
ProgressBarGetMin(FProgressBar);
ProgressBarGetPosition(FProgressBar);
ProgressBarGetState(FProgressBar);
ProgressBarGetStyle(FProgressBar);
ProgressBarGetTag(FProgressBar);
ProgressBarGetVisible(FProgressBar);
ProgressBarGetLeft(FProgressBar);
ProgressBarGetTop(FProgressBar);
ProgressBarGetHeight(FProgressBar);
ProgressBarGetWidth(FProgressBar);
ProgressBarGetBounds(FProgressBar);




ProgressBarSetParent(FProgressBar, WizardForm);
ProgressBarSetCursor(FProgressBar, crDefault);
ProgressBarSetEnabled(FProgressBar, True);
ProgressBarSetHelpContext(FProgressBar, 0);
ProgressBarSetHint(FProgressBar, 'ProgressBar Create Hint');
ProgressBarSetMax(FProgressBar, 100);
ProgressBarSetMin(FProgressBar, 0);
ProgressBarSetPosition(FProgressBar, 0);
ProgressBarSetState(FProgressBar, npbsNormal);
ProgressBarSetStyle(FProgressBar, npbstMarquee);
ProgressBarSetTag(FProgressBar, 0);
ProgressBarSetVisible(FProgressBar, True);
ProgressBarSetLeft(FProgressBar, 20);
ProgressBarSetTop(FProgressBar, 20);
ProgressBarSetHeight(FProgressBar, 20);
ProgressBarSetWidth(FProgressBar, 200);
ProgressBarSetBounds(FProgressBar, 20, 20, 20, 200);

DelphiBuilder
25-12-2022, 10:10
TNotebookCreate / TNotebookPageCreate

FNotebookPage:=NotebookPageCreate(WizardForm, clWhite, nil, wpWelcome, crDefault, True, 0, 'Notebook Page Create Hint', True, False, 0, True, 0, 0, 200, 200);
FNotebook:=NotebookCreate(WizardForm, nil, alNone, crDefault, True, 0, 'Notebook Create Hint', True, False, 0, False, 0, True, 20, 20, 200, 200);



NotebookGetParent(FNotebook);
NotebookGetActivePage(FNotebook);
NotebookGetAlign(FNotebook);
NotebookGetCursor(FNotebook);
NotebookGetEnabled(FNotebook);
NotebookGetHelpContext(FNotebook);
NotebookGetHint(FNotebook);
NotebookGetParentShowHint(FNotebook);
NotebookGetShowHint(FNotebook);
NotebookGetTabOrder(FNotebook);
NotebookGetTabStop(FNotebook);
NotebookGetTag(FNotebook);
NotebookGetVisible(FNotebook);
NotebookGetLeft(FNotebook);
NotebookGetTop(FNotebook);
NotebookGetHeight(FNotebook);
NotebookGetWidth(FNotebook);
NotebookGetBounds(FNotebook);




NotebookSetParent(FNotebook, WizardForm);
NotebookSetActivePage(FNotebook, nil);
NotebookSetAlign(FNotebook, alNone);
NotebookSetCursor(FNotebook, crDefault);
NotebookSetEnabled(FNotebook, True);
NotebookSetHelpContext(FNotebook, 0);
NotebookSetHint(FNotebook, 'Notebook Create Hint');
NotebookSetParentShowHint(FNotebook, True);
NotebookSetShowHint(FNotebook, False);
NotebookSetTabOrder(FNotebook, 0);
NotebookSetTabStop(FNotebook, False);
NotebookSetTag(FNotebook, 0);
NotebookSetVisible(FNotebook, True);
NotebookSetLeft(FNotebook, 20);
NotebookSetTop(FNotebook, 20);
NotebookSetHeight(FNotebook, 200);
NotebookSetWidth(FNotebook, 200);
NotebookSetBounds(FNotebook, 20, 20, 200, 200);
NotebookPageCount(FNotebook);
//NotebookPages(FNotebook, wpWelcome);
NotebookFindNextPage(FNotebook, wpWelcome, True);

DelphiBuilder
27-12-2022, 02:01
TGroupBoxCreate

FGroupBox:=GroupBoxCreate(WizardForm, alNone, 'GroupBox Create', clBtnFace, True, crDefault, False, crDrag, dmManual, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, 'GroupBox 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);



GroupBoxGetParent(FGroupBox);
GroupBoxGetAlign(FGroupBox);
GroupBoxGetCaption(FGroupBox);
GroupBoxGetColor(FGroupBox);
GroupBoxGetCtl3D(FGroupBox);
GroupBoxGetCursor(FGroupBox);
GroupBoxGetDoubleBuffered(FGroupBox);
GroupBoxGetDragCursor(FGroupBox);
GroupBoxGetDragMode(FGroupBox);
GroupBoxGetEnabled(FGroupBox);
GroupBoxGetFontColor(FGroupBox);
GroupBoxGetFontHeight(FGroupBox);
GroupBoxGetFontName(FGroupBox);
GroupBoxGetFontPitch(FGroupBox);
GroupBoxGetFontSize(FGroupBox);
GroupBoxGetFontStyle(FGroupBox);
GroupBoxGetHelpContext(FGroupBox);
GroupBoxGetHint(FGroupBox);
GroupBoxGetParentBackground(FGroupBox);
GroupBoxGetParentColor(FGroupBox);
GroupBoxGetParentCtl3D(FGroupBox);
GroupBoxGetParentFont(FGroupBox);
GroupBoxGetParentShowHint(FGroupBox);
GroupBoxGetPopupMenu(FGroupBox);
GroupBoxGetShowHint(FGroupBox);
GroupBoxGetTabOrder(FGroupBox);
GroupBoxGetTabStop(FGroupBox);
GroupBoxGetTag(FGroupBox);
GroupBoxGetVisible(FGroupBox);
GroupBoxGetLeft(FGroupBox);
GroupBoxGetTop(FGroupBox);
GroupBoxGetHeight(FGroupBox);
GroupBoxGetWidth(FGroupBox);
GroupBoxGetBounds(FGroupBox);




GroupBoxSetParent(FGroupBox, WizardForm);
GroupBoxSetAlign(FGroupBox, alNone);
GroupBoxSetCaption(FGroupBox, 'GroupBox Create');
GroupBoxSetColor(FGroupBox, clWindow);
GroupBoxSetCtl3D(FGroupBox, True);
GroupBoxSetCursor(FGroupBox, crDefault);
GroupBoxSetDoubleBuffered(FGroupBox, False);
GroupBoxSetDragCursor(FGroupBox, crDrag);
GroupBoxSetDragMode(FGroupBox, dmManual);
GroupBoxSetEnabled(FGroupBox, True);
GroupBoxSetFontColor(FGroupBox, clBlack);
GroupBoxSetFontHeight(FGroupBox, 20);
GroupBoxSetFontName(FGroupBox, 'Segoe UI');
GroupBoxSetFontPitch(FGroupBox, fpDefault);
GroupBoxSetFontSize(FGroupBox, 20);
GroupBoxSetFontStyle(FGroupBox, []);
GroupBoxSetFont(FGroupBox, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
GroupBoxSetHelpContext(FGroupBox, 0);
GroupBoxSetHint(FGroupBox, 'GroupBox Create Hint');
GroupBoxSetParentBackground(FGroupBox, True);
GroupBoxSetParentColor(FGroupBox, False);
GroupBoxSetParentCtl3D(FGroupBox, True);
GroupBoxSetParentFont(FGroupBox, True);
GroupBoxSetParentShowHint(FGroupBox, True);
GroupBoxSetPopupMenu(FGroupBox, nil);
GroupBoxSetShowHint(FGroupBox, False);
GroupBoxSetTabOrder(FGroupBox, 0);
GroupBoxSetTabStop(FGroupBox, True);
GroupBoxSetTag(FGroupBox, 0);
GroupBoxSetVisible(FGroupBox, True);
GroupBoxSetLeft(FGroupBox, 20);
GroupBoxSetTop(FGroupBox, 20);
GroupBoxSetHeight(FGroupBox, 200);
GroupBoxSetWidth(FGroupBox, 200);
GroupBoxSetBounds(FGroupBox, 20, 20, 200, 200);



GroupBoxSetEvent(FGroupBox, @OnClick, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
27-12-2022, 02:52
THotKeyCreate

FHotKey:=HotKeyCreate(WizardForm, True, clBtnFace, crDefault, False, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, 'HotKey Create Hint', 32833, [hcNone,hcShift], [hkAlt], False, True, nil, False, 0, True, 0, True, 20, 20, 200, 200, nil, nil, nil, nil, nil, nil, nil);



HotKeyGetParent(FHotKey);
HotKeyGetAutoSize(FHotKey);
HotKeyGetColor(FHotKey);
HotKeyGetCursor(FHotKey);
HotKeyGetDoubleBuffered(FHotKey);
HotKeyGetEnabled(FHotKey);
HotKeyGetFontColor(FHotKey);
HotKeyGetFontHeight(FHotKey);
HotKeyGetFontName(FHotKey);
HotKeyGetFontPitch(FHotKey);
HotKeyGetFontSize(FHotKey);
HotKeyGetFontStyle(FHotKey);
HotKeyGetHelpContext(FHotKey);
HotKeyGetHint(FHotKey);
HotKeyGetHotKey(FHotKey);
HotKeyGetInvalidKeys(FHotKey);
HotKeyGetModifiers(FHotKey);
HotKeyGetParentColor(FHotKey);
HotKeyGetParentFont(FHotKey);
HotKeyGetPopupMenu(FHotKey);
HotKeyGetShowHint(FHotKey);
HotKeyGetTabOrder(FHotKey);
HotKeyGetTabStop(FHotKey);
HotKeyGetTag(FHotKey);
HotKeyGetVisible(FHotKey);
HotKeyGetLeft(FHotKey);
HotKeyGetTop(FHotKey);
HotKeyGetHeight(FHotKey);
HotKeyGetWidth(FHotKey);
HotKeyGetBounds(FHotKey);




HotKeySetParent(FHotKey, WizardForm);
HotKeySetAutoSize(FHotKey, True);
HotKeySetColor(FHotKey, clWindow);
HotKeySetCursor(FHotKey, crDefault);
HotKeySetDoubleBuffered(FHotKey, False);
HotKeySetEnabled(FHotKey, True);
HotKeySetFontColor(FHotKey, clBlack);
HotKeySetFontHeight(FHotKey, 20);
HotKeySetFontName(FHotKey, 'Segoe UI');
HotKeySetFontPitch(FHotKey, fpDefault);
HotKeySetFontSize(FHotKey, 20);
HotKeySetFontStyle(FHotKey, []);
HotKeySetFont(FHotKey, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
HotKeySetHelpContext(FHotKey, 0);
HotKeySetHint(FHotKey, 'HotKey Create Hint');
HotKeySetHotKey(FHotKey, 32833); //32833 = Alt+A
HotKeySetInvalidKeys(FHotKey, [hcNone,hcShift]);
HotKeySetModifiers(FHotKey, [hkAlt]);
HotKeySetParentColor(FHotKey, False);
HotKeySetParentFont(FHotKey, True);
HotKeySetPopupMenu(FHotKey, nil);
HotKeySetShowHint(FHotKey, False);
HotKeySetTabOrder(FHotKey, 0);
HotKeySetTabStop(FHotKey, True);
HotKeySetTag(FHotKey, 0);
HotKeySetVisible(FHotKey, True);
HotKeySetLeft(FHotKey, 20);
HotKeySetTop(FHotKey, 20);
HotKeySetHeight(FHotKey, 200);
HotKeySetWidth(FHotKey, 200);
HotKeySetBounds(FHotKey, 20, 20, 200, 200);



HotKeySetEvent(FHotKey, nil, nil, nil, nil, nil, nil, nil);

DelphiBuilder
27-12-2022, 07:45
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);

DelphiBuilder
28-12-2022, 03:37
TIPAddressEditCreate

FIPAddressEdit:=IPAddressEditCreate(WizardForm, clWindow, crDefault, True, 255, 0, 0, 255, 0, 0, 255, 0, 0, 255, 0, 0, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, 'IPAddressEdit Create Hint', True, 0, False, True, False, 0, True, 0, True, 20, 20, 200, 200, nil, nil, nil, nil);



IPAddressEditGetParent(FIPAddressEdit);
IPAddressEditGetColor(FIPAddressEdit);
IPAddressEditGetCursor(FIPAddressEdit);
IPAddressEditGetEnabled(FIPAddressEdit);
IPAddressEditGetField1Max(FIPAddressEdit);
IPAddressEditGetField1Min(FIPAddressEdit);
IPAddressEditGetField1Value(FIPAddressEdit);
IPAddressEditGetField2Max(FIPAddressEdit);
IPAddressEditGetField2Min(FIPAddressEdit);
IPAddressEditGetField2Value(FIPAddressEdit);
IPAddressEditGetField3Max(FIPAddressEdit);
IPAddressEditGetField3Min(FIPAddressEdit);
IPAddressEditGetField3Value(FIPAddressEdit);
IPAddressEditGetField4Max(FIPAddressEdit);
IPAddressEditGetField4Min(FIPAddressEdit);
IPAddressEditGetField4Value(FIPAddressEdit);
IPAddressEditGetFontColor(FIPAddressEdit);
IPAddressEditGetFontHeight(FIPAddressEdit);
IPAddressEditGetFontName(FIPAddressEdit);
IPAddressEditGetFontPitch(FIPAddressEdit);
IPAddressEditGetFontSize(FIPAddressEdit);
IPAddressEditGetFontStyle(FIPAddressEdit);
IPAddressEditGetHelpContext(FIPAddressEdit);
IPAddressEditGetHint(FIPAddressEdit);
IPAddressEditGetInitClear(FIPAddressEdit);
IPAddressEditGetIPValue(FIPAddressEdit);
IPAddressEditGetParentColor(FIPAddressEdit);
IPAddressEditGetParentFont(FIPAddressEdit);
IPAddressEditGetShowHint(FIPAddressEdit);
IPAddressEditGetTabOrder(FIPAddressEdit);
IPAddressEditGetTabStop(FIPAddressEdit);
IPAddressEditGetTag(FIPAddressEdit);
IPAddressEditGetVisible(FIPAddressEdit);
IPAddressEditGetLeft(FIPAddressEdit);
IPAddressEditGetTop(FIPAddressEdit);
IPAddressEditGetHeight(FIPAddressEdit);
IPAddressEditGetWidth(FIPAddressEdit);
IPAddressEditGetBounds(FIPAddressEdit);




IPAddressEditSetParent(FIPAddressEdit, WizardForm);
IPAddressEditSetColor(FIPAddressEdit, clWindow);
IPAddressEditSetCursor(FIPAddressEdit, crDefault);
IPAddressEditSetEnabled(FIPAddressEdit, True);
IPAddressEditSetField1Max(FIPAddressEdit, 255);
IPAddressEditSetField1Min(FIPAddressEdit, 0);
IPAddressEditSetField1Value(FIPAddressEdit, 0);
IPAddressEditSetField2Max(FIPAddressEdit, 255);
IPAddressEditSetField2Min(FIPAddressEdit, 0);
IPAddressEditSetField2Value(FIPAddressEdit, 0);
IPAddressEditSetField3Max(FIPAddressEdit, 255);
IPAddressEditSetField3Min(FIPAddressEdit, 0);
IPAddressEditSetField3Value(FIPAddressEdit, 0);
IPAddressEditSetField4Max(FIPAddressEdit, 255);
IPAddressEditSetField4Min(FIPAddressEdit, 0);
IPAddressEditSetField4Value(FIPAddressEdit, 0);
IPAddressEditSetFontColor(FIPAddressEdit, clBlack);
IPAddressEditSetFontHeight(FIPAddressEdit, 20);
IPAddressEditSetFontName(FIPAddressEdit, 'Segoe UI');
IPAddressEditSetFontPitch(FIPAddressEdit, fpDefault);
IPAddressEditSetFontSize(FIPAddressEdit, 20);
IPAddressEditSetFontStyle(FIPAddressEdit, []);
IPAddressEditSetFont(FIPAddressEdit, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
IPAddressEditSetHelpContext(FIPAddressEdit, 0);
IPAddressEditSetHint(FIPAddressEdit, 'IPAddressEdit Create Hint');
IPAddressEditSetInitClear(FIPAddressEdit, True);
IPAddressEditSetIPValue(FIPAddressEdit, 0);
IPAddressEditSetParentColor(FIPAddressEdit, False);
IPAddressEditSetParentFont(FIPAddressEdit, True);
IPAddressEditSetShowHint(FIPAddressEdit, False);
IPAddressEditSetTabOrder(FIPAddressEdit, 0);
IPAddressEditSetTabStop(FIPAddressEdit, True);
IPAddressEditSetTag(FIPAddressEdit, 0);
IPAddressEditSetVisible(FIPAddressEdit, True);
IPAddressEditSetLeft(FIPAddressEdit, 20);
IPAddressEditSetTop(FIPAddressEdit, 20);
IPAddressEditSetHeight(FIPAddressEdit, 200);
IPAddressEditSetWidth(FIPAddressEdit, 200);
IPAddressEditSetBounds(FIPAddressEdit, 20, 20, 200, 200);



IPAddressEditSetEvent(FIPAddressEdit, nil, nil, nil, nil);