diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-21 22:08:43 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-21 22:08:43 +0000 |
| commit | 0830146bd2221d1ac5177c20b4b5e22ba48ad53c (patch) | |
| tree | e6aa0c7d6dd5c52b79ccb2f397eefe6e00056a74 /src/gui/gui_progressbar.pas | |
| parent | e756eaa248c07ea390980d445471c88bdc42990c (diff) | |
| download | fpGUI-0830146bd2221d1ac5177c20b4b5e22ba48ad53c.tar.xz | |
* GUI: Set correct default values for published properties of ProgressBar and TrackBar components.
* UI Designer: Only non-default integer property values get written to units when saved. Before all values where written even if they where the defaults.
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 b2f69d4f..eab57685 100644 --- a/src/gui/gui_progressbar.pas +++ b/src/gui/gui_progressbar.pas @@ -46,9 +46,9 @@ type procedure SetStep(const AValue: longint); protected procedure HandlePaint; override; - property Max: longint read FMax write SetMax; - property Min: longint read FMin write SetMin; - property Position: longint read FPosition write SetPosition; + 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 Step: longint read FStep write SetStep; // property FontName: string read GetFontName write SetFontName; property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor; |