Thread: Advanced Inno Setup Example
View Single Post
  #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)