Go Back   FileForums > Game Backup > PC Games > PC Games - CD/DVD Conversions > Conversion Tutorials
Register FAQ Community Calendar Today's Posts Search

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 21-12-2022, 02:57
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TLabelCreate

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);
Attached Images
File Type: png Label Create.png (3.2 KB, 187 views)
Attached Files
File Type: 7z Label Create.7z (537.4 KB, 31 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:12.
Reply With Quote
The Following 5 Users Say Thank You to DelphiBuilder For This Useful Post:
ADMIRAL (21-12-2022), audiofeel (21-12-2022), Gehrman (21-12-2022), KaktoR (23-12-2022), Razor12911 (21-12-2022)
Sponsored Links
  #2  
Old 21-12-2022, 05:33
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TEditCreate

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);
Attached Images
File Type: png Edit Create.png (3.3 KB, 179 views)
Attached Files
File Type: 7z Edit Create.7z (538.4 KB, 13 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:13.
Reply With Quote
The Following 4 Users Say Thank You to DelphiBuilder For This Useful Post:
ADMIRAL (21-12-2022), audiofeel (21-12-2022), Gehrman (21-12-2022), Razor12911 (23-12-2022)
  #3  
Old 21-12-2022, 08:29
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TMemoCreate

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);
Attached Images
File Type: png Memo Create.png (3.4 KB, 171 views)
Attached Files
File Type: 7z Memo Create.7z (538.7 KB, 12 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:13.
Reply With Quote
The Following 4 Users Say Thank You to DelphiBuilder For This Useful Post:
ADMIRAL (21-12-2022), audiofeel (21-12-2022), Gehrman (21-12-2022), Razor12911 (23-12-2022)
  #4  
Old 21-12-2022, 10:25
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TButtonCreate

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);
Attached Images
File Type: png Button Create.png (3.5 KB, 175 views)
Attached Files
File Type: 7z Button Create.7z (537.8 KB, 17 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:14.
Reply With Quote
The Following 4 Users Say Thank You to DelphiBuilder For This Useful Post:
ADMIRAL (23-12-2022), Gehrman (21-12-2022), Razor12911 (23-12-2022), ScOOt3r (21-12-2022)
  #5  
Old 21-12-2022, 22:32
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TCheckBoxCreate

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);
Attached Images
File Type: png CheckBox Create.png (3.6 KB, 168 views)
Attached Files
File Type: 7z CheckBox Create.7z (538.4 KB, 5 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:15.
Reply With Quote
The Following 3 Users Say Thank You to DelphiBuilder For This Useful Post:
ADMIRAL (23-12-2022), Lord.Freddy (21-12-2022), Razor12911 (23-12-2022)
  #6  
Old 21-12-2022, 22:44
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TRadioButtonCreate

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);
Attached Images
File Type: png RadioButton Create.png (3.7 KB, 167 views)
Attached Files
File Type: 7z RadioButton Create.7z (538.4 KB, 9 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:15.
Reply With Quote
The Following 2 Users Say Thank You to DelphiBuilder For This Useful Post:
ADMIRAL (22-12-2022), Razor12911 (23-12-2022)
  #7  
Old 22-12-2022, 23:49
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TListBoxCreate

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);
Attached Images
File Type: png ListBox Create.png (3.5 KB, 145 views)
Attached Files
File Type: 7z ListBox Create.7z (539.0 KB, 8 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:15.
Reply With Quote
The Following User Says Thank You to DelphiBuilder For This Useful Post:
Razor12911 (23-12-2022)
  #8  
Old 23-12-2022, 00:43
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TComboBoxCreate

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);
Attached Images
File Type: png ComboBox Create.png (3.5 KB, 143 views)
Attached Files
File Type: 7z ComboBox Create.7z (538.5 KB, 8 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:16.
Reply With Quote
The Following 2 Users Say Thank You to DelphiBuilder For This Useful Post:
ADMIRAL (23-12-2022), Razor12911 (23-12-2022)
  #9  
Old 23-12-2022, 01:35
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TPanelCreate

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);
Attached Images
File Type: png Panel Create.png (3.3 KB, 141 views)
Attached Files
File Type: 7z Panel Create.7z (538.2 KB, 4 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:17.
Reply With Quote
The Following 3 Users Say Thank You to DelphiBuilder For This Useful Post:
ADMIRAL (23-12-2022), Gehrman (23-12-2022), Razor12911 (23-12-2022)
  #10  
Old 23-12-2022, 02:16
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TPasswordEditCreate

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);
Attached Images
File Type: png PasswordEdit Create.png (3.0 KB, 140 views)
Attached Files
File Type: 7z PasswordEdit Create.7z (538.2 KB, 9 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:17.
Reply With Quote
The Following 3 Users Say Thank You to DelphiBuilder For This Useful Post:
ADMIRAL (23-12-2022), Gehrman (23-12-2022), Razor12911 (23-12-2022)
  #11  
Old 23-12-2022, 22:04
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TBitmapImageCreate

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);
Attached Images
File Type: png BitmapImage Create.png (32.7 KB, 131 views)
Attached Files
File Type: 7z BitmapImage Create.7z (616.6 KB, 5 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:18.
Reply With Quote
The Following User Says Thank You to DelphiBuilder For This Useful Post:
Gehrman (23-12-2022)
  #12  
Old 23-12-2022, 22:28
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TBevelCreate

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);
Attached Images
File Type: png Bevel Create.png (2.9 KB, 129 views)
Attached Files
File Type: 7z Bevel Create.7z (534.7 KB, 7 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:18.
Reply With Quote
The Following User Says Thank You to DelphiBuilder For This Useful Post:
Gehrman (23-12-2022)
  #13  
Old 23-12-2022, 23:44
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TCheckListBoxCreate

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);
Attached Images
File Type: png CheckListBox Create.png (2.9 KB, 130 views)
Attached Files
File Type: 7z CheckListBox Create.7z (538.2 KB, 7 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:19.
Reply With Quote
The Following User Says Thank You to DelphiBuilder For This Useful Post:
Gehrman (23-12-2022)
  #14  
Old 24-12-2022, 08:27
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TCheckListBoxCreate v2

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);
Attached Images
File Type: png CheckListBox Create v2.png (33.8 KB, 115 views)
Attached Files
File Type: 7z CheckListBox Create v2.7z (619.2 KB, 8 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:19.
Reply With Quote
  #15  
Old 24-12-2022, 11:03
DelphiBuilder's Avatar
DelphiBuilder DelphiBuilder is offline
Registered User
 
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
DelphiBuilder is on a distinguished road
Post TCheckListBoxCreate v3

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);
Attached Images
File Type: png CheckListBox Create v3.png (34.2 KB, 115 views)
Attached Files
File Type: 7z CheckListBox Create v3.7z (620.5 KB, 7 views)

Last edited by DelphiBuilder; 24-12-2022 at 13:20.
Reply With Quote
Reply


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
BlackBox v2 y_thelastknight Conversion Tutorials 567 11-03-2025 07:16
INNO TROUBLESHOOT - Tutorials and Answers about INNO Setup REV0 Conversion Tutorials 129 21-05-2021 05:51
Useful Dll for Inno Setup users peterf1999 Conversion Tutorials 88 01-12-2017 16:00
Inno Setup Advanced Splash Library Razor12911 Conversion Tutorials 6 18-11-2015 13:33
INNO TUTORIAL - Using Unicode and ANSI Versions of INNO Setup REV0 Conversion Tutorials 51 26-03-2015 06:57



All times are GMT -7. The time now is 23:03.


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