FileForums
Page 1 of 2 1 2
Show 40 post(s) from this thread on one page

FileForums (https://fileforums.com/index.php)
-   Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)
-   -   Advanced Inno Setup Example (https://fileforums.com/showthread.php?t=105645)

DelphiBuilder 21-12-2022 02:57
TLabelCreate
 
2 Attachment(s)
TLabelCreate

Code:
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);
Code:
  • 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);

Code:
  • 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);

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

DelphiBuilder 21-12-2022 05:33
TEditCreate
 
2 Attachment(s)
TEditCreate

Code:
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);
Code:
  • 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);

Code:
  • 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);

Code:
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
 
2 Attachment(s)
TMemoCreate

Code:
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);
Code:
  • 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);

Code:
  • 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);

Code:
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
 
2 Attachment(s)
TButtonCreate

Code:
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);
Code:
  • 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);

Code:
  • 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);

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

DelphiBuilder 21-12-2022 22:32
TCheckBoxCreate
 
2 Attachment(s)
TCheckBoxCreate

Code:
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);
Code:
  • 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);

Code:
  • 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);

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

DelphiBuilder 21-12-2022 22:44
TRadioButtonCreate
 
2 Attachment(s)
TRadioButtonCreate

Code:
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);
Code:
  • 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);

Code:
  • 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);

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

DelphiBuilder 22-12-2022 23:49
TListBoxCreate
 
2 Attachment(s)
TListBoxCreate
Code:
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);
Code:
  • 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);

Code:
  • 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);

Code:
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
 
2 Attachment(s)
TComboBoxCreate

Code:
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);
Code:
  • 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);

Code:
  • 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);

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

DelphiBuilder 23-12-2022 01:35
TPanelCreate
 
2 Attachment(s)
TPanelCreate

Code:
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);
Code:
  • 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);

Code:
  • 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);

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

DelphiBuilder 23-12-2022 02:16
TPasswordEditCreate
 
2 Attachment(s)
TPasswordEditCreate

Code:
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);
Code:
  • 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);

Code:
  • 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);

Code:
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
 
2 Attachment(s)
TBitmapImageCreate

Code:
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);
Code:
  • 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);

Code:
  • 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);

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

DelphiBuilder 23-12-2022 22:28
TBevelCreate
 
2 Attachment(s)
TBevelCreate

Code:
FBevel:=BevelCreate(WizardForm, alNone, crDefault, 'Bevel Create Hint', True, bsBox, False, bsLowered, 0, True, 20, 20, 200, 200);
Code:
  • 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);

Code:
  • 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
 
2 Attachment(s)
TCheckListBoxCreate

Code:
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);
Code:
  • 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);

Code:
  • 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);

Code:
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
 
2 Attachment(s)
TCheckListBoxCreate v2

Code:
  • 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);

Code:
  • CheckListBoxBtnFromBitmap(FCheckListBox, BtnImage.Bitmap);

  • CheckListBoxBtnFromFile(FCheckListBox,'BtnImage.bmp');

  • 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
 
2 Attachment(s)
TCheckListBoxCreate v3

Code:
  • 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);

Code:
  • 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');

Code:
  • ExtractTemporaryFile('BtnImage.bmp');

  • ExtractTemporaryFile('BGImage.bmp');

  • CheckListBoxBtnFromFile(FCheckListBox, ExpandConstant('{tmp}\BtnImage.bmp'));

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


All times are GMT -7. The time now is 07:54.
Page 1 of 2 1 2
Show 40 post(s) from this thread on one page

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com