25-12-2022, 02:28
|
 |
Registered User
|
|
Join Date: Dec 2022
Location: From Nowhere
Posts: 25
Thanks: 6
Thanked 41 Times in 19 Posts
|
|
TProgressBarCreate
TProgressBarCreate
Code:
FProgressBar:=ProgressBarCreate(WizardForm, crDefault, True, 0, 'ProgressBar Create Hint', 100, 0, 0, npbsNormal, npbstMarquee, 0, True, 20, 20, 20, 200);
Code:
- ProgressBarGetParent(FProgressBar);
- ProgressBarGetCursor(FProgressBar);
- ProgressBarGetEnabled(FProgressBar);
- ProgressBarGetHelpContext(FProgressBar);
- ProgressBarGetHint(FProgressBar);
- ProgressBarGetMax(FProgressBar);
- ProgressBarGetMin(FProgressBar);
- ProgressBarGetPosition(FProgressBar);
- ProgressBarGetState(FProgressBar);
- ProgressBarGetStyle(FProgressBar);
- ProgressBarGetTag(FProgressBar);
- ProgressBarGetVisible(FProgressBar);
- ProgressBarGetLeft(FProgressBar);
- ProgressBarGetTop(FProgressBar);
- ProgressBarGetHeight(FProgressBar);
- ProgressBarGetWidth(FProgressBar);
- ProgressBarGetBounds(FProgressBar);
Code:
- ProgressBarSetParent(FProgressBar, WizardForm);
- ProgressBarSetCursor(FProgressBar, crDefault);
- ProgressBarSetEnabled(FProgressBar, True);
- ProgressBarSetHelpContext(FProgressBar, 0);
- ProgressBarSetHint(FProgressBar, 'ProgressBar Create Hint');
- ProgressBarSetMax(FProgressBar, 100);
- ProgressBarSetMin(FProgressBar, 0);
- ProgressBarSetPosition(FProgressBar, 0);
- ProgressBarSetState(FProgressBar, npbsNormal);
- ProgressBarSetStyle(FProgressBar, npbstMarquee);
- ProgressBarSetTag(FProgressBar, 0);
- ProgressBarSetVisible(FProgressBar, True);
- ProgressBarSetLeft(FProgressBar, 20);
- ProgressBarSetTop(FProgressBar, 20);
- ProgressBarSetHeight(FProgressBar, 20);
- ProgressBarSetWidth(FProgressBar, 200);
- ProgressBarSetBounds(FProgressBar, 20, 20, 20, 200);
Last edited by DelphiBuilder; 25-12-2022 at 02:35.
|