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