24-12-2022, 14:57
|
 |
Registered User
|
|
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
|
|
TStartMenuTreeViewCreate
TStartMenuTreeViewCreate
Code:
FStartMenuTreeView:=StartMenuTreeViewCreate(WizardForm, crDefault, 0, 'StartMenuTreeView Create Hint', 0, True, 0, True, 20, 20, 200, 200, @OnChange, nil);
Code:
- StartMenuTreeViewGetParent(FStartMenuTreeView);
- StartMenuTreeViewGetCursor(FStartMenuTreeView);
- StartMenuTreeViewGetHelpContext(FStartMenuTreeView);
- StartMenuTreeViewGetHint(FStartMenuTreeView);
- StartMenuTreeViewGetTabOrder(FStartMenuTreeView);
- StartMenuTreeViewGetTabStop(FStartMenuTreeView);
- StartMenuTreeViewGetTag(FStartMenuTreeView);
- StartMenuTreeViewGetVisible(FStartMenuTreeView);
- StartMenuTreeViewGetLeft(FStartMenuTreeView);
- StartMenuTreeViewGetTop(FStartMenuTreeView);
- StartMenuTreeViewGetHeight(FStartMenuTreeView);
- StartMenuTreeViewGetWidth(FStartMenuTreeView);
- StartMenuTreeViewGetBounds(FStartMenuTreeView);
Code:
- StartMenuTreeViewSetParent(FStartMenuTreeView, WizardForm);
- StartMenuTreeViewSetCursor(FStartMenuTreeView, crDefault);
- StartMenuTreeViewSetHelpContext(FStartMenuTreeView, 0);
- StartMenuTreeViewSetHint(FStartMenuTreeView, 'StartMenuTreeView Create Hint');
- StartMenuTreeViewSetTabOrder(FStartMenuTreeView, 0);
- StartMenuTreeViewSetTabStop(FStartMenuTreeView, True);
- StartMenuTreeViewSetTag(FStartMenuTreeView, 0);
- StartMenuTreeViewSetVisible(FStartMenuTreeView, True);
- StartMenuTreeViewSetLeft(FStartMenuTreeView, 20);
- StartMenuTreeViewSetTop(FStartMenuTreeView, 20);
- StartMenuTreeViewSetHeight(FStartMenuTreeView, 200);
- StartMenuTreeViewSetWidth(FStartMenuTreeView, 200);
- StartMenuTreeViewSetBounds(FStartMenuTreeView, 20, 20, 200, 200);
Code:
StartMenuTreeViewSetEvent(FStartMenuTreeView, @OnChange, nil);
Code:
StartMenuTreeViewSetPaths(FStartMenuTreeView, '{userprograms}', '{commonprograms}', '{userstartup}', '{commonstartup}');
Last edited by DelphiBuilder; 24-12-2022 at 15:00.
|