diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-21 10:52:27 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-21 10:52:27 +0000 |
| commit | b7c71ad5b36302fd86bcf739983b012477e5459d (patch) | |
| tree | c6f9b2a98b4818487e7bb665bf92aeb1efe33be4 /src/gui/gui_progressbar.pas | |
| parent | 8d6f135f33471624a87f6864f0c0879f0bd0ee3f (diff) | |
| download | fpGUI-b7c71ad5b36302fd86bcf739983b012477e5459d.tar.xz | |
* Added more handy scripts for cleaning out directories (linux only).
* Fixed some compiler warnings.
* Fixed some units where they override functions in parent classes were they we not supposed to.
Diffstat (limited to 'src/gui/gui_progressbar.pas')
| -rw-r--r-- | src/gui/gui_progressbar.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/gui/gui_progressbar.pas b/src/gui/gui_progressbar.pas index ca987bad..f7203272 100644 --- a/src/gui/gui_progressbar.pas +++ b/src/gui/gui_progressbar.pas @@ -39,14 +39,14 @@ type FFont: TfpgFont; procedure SetMax(const AValue: longint); procedure SetMin(const AValue: longint); - procedure SetPosition(const AValue: longint); + procedure SetPBPosition(const AValue: longint); procedure SetShowCaption(const AValue: boolean); procedure SetStep(const AValue: longint); protected procedure HandlePaint; override; property Max: longint read FMax write SetMax default 100; property Min: longint read FMin write SetMin default 0; - property Position: longint read FPosition write SetPosition default 0; + property Position: longint read FPosition write SetPBPosition default 0; property Step: longint read FStep write SetStep; // property FontName: string read GetFontName write SetFontName; property ShowCaption: boolean read FShowCaption write SetShowCaption; @@ -104,7 +104,7 @@ begin RePaint; end; -procedure TfpgCustomProgressBar.SetPosition(const AValue: longint); +procedure TfpgCustomProgressBar.SetPBPosition(const AValue: longint); begin if FPosition = AValue then Exit; //==> |