diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-02-16 08:57:41 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-02-16 08:57:41 +0000 |
commit | 889ca9eaeef166823fbab9de6bed9a58aa38bd54 (patch) | |
tree | 13df500c5edffb98b529603a8a9639df11a61b1e /src/gui/gui_tab.pas | |
parent | 831cb67e19cfe06c390cc632d1d6e8446acfa57c (diff) | |
download | fpGUI-889ca9eaeef166823fbab9de6bed9a58aa38bd54.tar.xz |
* Fixed TfpgPageControl where the Left and Right buttons were visible at startup under Windows.
Diffstat (limited to 'src/gui/gui_tab.pas')
-rw-r--r-- | src/gui/gui_tab.pas | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/gui/gui_tab.pas b/src/gui/gui_tab.pas index aab78db8..f9f9a1c8 100644 --- a/src/gui/gui_tab.pas +++ b/src/gui/gui_tab.pas @@ -109,6 +109,7 @@ type procedure OrderSheets; // currently using bubblesort procedure RePaintTitles; virtual; procedure HandlePaint; override; + procedure HandleShow; override; procedure HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override; procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override; public @@ -564,6 +565,13 @@ begin Canvas.EndDraw; end; +procedure TfpgPageControl.HandleShow; +begin + inherited HandleShow; + FLeftButton.Visible := False; + FRightButton.Visible := False; +end; + procedure TfpgPageControl.HandleLMouseUp(x, y: integer; shiftstate: TShiftState); var h: TfpgTabSheet; @@ -687,13 +695,11 @@ begin FLeftButton := TfpgButton.Create(self); FLeftButton.Text := '<'; FLeftButton.Width := FLeftButton.Height; - FLeftButton.Visible := False; FLeftButton.OnClick := @LeftButtonClick; FRightButton := TfpgButton.Create(self); FRightButton.Text := '>'; FRightButton.Width := FRightButton.Height; - FRightButton.Visible := False; FRightButton.OnClick := @RightButtonClick; end; |