diff options
Diffstat (limited to 'src')
| -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; |