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 | |
| 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')
| -rw-r--r-- | src/gui/gui_progressbar.pas | 6 | ||||
| -rw-r--r-- | src/gui/gui_trackbar.pas | 8 |
2 files changed, 7 insertions, 7 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; diff --git a/src/gui/gui_trackbar.pas b/src/gui/gui_trackbar.pas index 2117baca..d44a9f56 100644 --- a/src/gui/gui_trackbar.pas +++ b/src/gui/gui_trackbar.pas @@ -70,7 +70,7 @@ type public constructor Create(AOwner: TComponent); override; published - property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor; + property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor default clWindowBackground; property Min: integer read FMin write SetMin default 0; property Max: integer read FMax write SetMax default 10; property Position: integer read FPosition write SetPosition default 0; @@ -113,12 +113,12 @@ type constructor Create(AOwner: TComponent); override; destructor Destroy; override; published - property Position: integer read FPosition write SetPosition default 10; + property Position: integer read FPosition write SetPosition default 0; property ScrollStep: integer read FScrollStep write FScrollStep default 1; property Min: integer read FMin write SetMin default 0; property Max: integer read FMax write SetMax default 100; - property ShowPosition: boolean read FShowPosition write SetShowPosition; - property Orientation: TOrientation read FOrientation write FOrientation; + property ShowPosition: boolean read FShowPosition write SetShowPosition default False; + property Orientation: TOrientation read FOrientation write FOrientation default orHorizontal; property OnChange: TTrackBarChange read FOnChange write FOnChange; end; |