View Single Post
  #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)