diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-22 09:30:36 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-22 09:30:36 +0000 |
| commit | 88ee46de57e74eeb01ad6b1e8cf3da9ff60259c0 (patch) | |
| tree | 34ab69f343337cc9486511f68af2f109c02a3ffc /src/gui | |
| parent | 0830146bd2221d1ac5177c20b4b5e22ba48ad53c (diff) | |
| download | fpGUI-88ee46de57e74eeb01ad6b1e8cf3da9ff60259c0.tar.xz | |
* Minor update to the tiOPF generic edit mediators unit.
* Correctly set the default values for Form and PageControl components.
* Improved the UI Designer so only non-default values for Boolean and Enum types are written to file.
Diffstat (limited to 'src/gui')
| -rw-r--r-- | src/gui/gui_form.pas | 4 | ||||
| -rw-r--r-- | src/gui/gui_tab.pas | 10 |
2 files changed, 7 insertions, 7 deletions
diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas index 0efac32b..14291e15 100644 --- a/src/gui/gui_form.pas +++ b/src/gui/gui_form.pas @@ -74,8 +74,8 @@ type property ModalResult: integer read FModalResult write FModalResult; published {$Note Refactor this to a TfpgCustomForm and only surface it here } - property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor; - property WindowPosition: TWindowPosition read FWindowPosition write FWindowPosition; + property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor default clWindowBackground; + property WindowPosition: TWindowPosition read FWindowPosition write FWindowPosition default wpAuto; property WindowTitle: string read FWindowTitle write SetWindowTitle; property OnActivate: TNotifyEvent read FOnActivate write FOnActivate; property OnClose: TNotifyEvent read FOnClose write FOnClose; diff --git a/src/gui/gui_tab.pas b/src/gui/gui_tab.pas index d0b4640e..e33e0e97 100644 --- a/src/gui/gui_tab.pas +++ b/src/gui/gui_tab.pas @@ -126,11 +126,11 @@ type property OnChange: TTabSheetChange read FOnChange write FOnChange; published property ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex; - property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor; - property FixedTabWidth: integer read FFixedTabWidth write SetFixedTabWidth; - property SortPages: boolean read FSortPages write SetSortPages; - property Style: TfpgTabStyle read FStyle write SetStyle; - property TabPosition: TfpgTabPosition read FTabPosition write SetTabPosition; + property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor default clWindowBackground; + property FixedTabWidth: integer read FFixedTabWidth write SetFixedTabWidth default 0; + property SortPages: boolean read FSortPages write SetSortPages default False; + property Style: TfpgTabStyle read FStyle write SetStyle default tsTabs; + property TabPosition: TfpgTabPosition read FTabPosition write SetTabPosition default tpTop; end; |