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);
Last edited by DelphiBuilder; 24-12-2022 at 13:17.
|