diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-07-15 13:19:42 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-07-15 13:19:42 +0100 |
commit | 3b0c0ee0057f95bd09806c85a215a0ac5f0b1513 (patch) | |
tree | 5ec68b074d10d629c8dad559611f8659768a8c9b /src/gui | |
parent | 04a403cc6c172072fcc94b5241b0274565abb63d (diff) | |
download | fpGUI-3b0c0ee0057f95bd09806c85a215a0ac5f0b1513.tar.xz |
pagecontrol: tab height is not hard-coded any more.
Diffstat (limited to 'src/gui')
-rw-r--r-- | src/gui/fpg_tab.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/gui/fpg_tab.pas b/src/gui/fpg_tab.pas index 5ef82248..0837171f 100644 --- a/src/gui/fpg_tab.pas +++ b/src/gui/fpg_tab.pas @@ -797,7 +797,7 @@ end; procedure TfpgPageControl.RePaintTitles; const - TabHeight = 21; + TAB_HEIGHT = 21; var TabW, TabH: Integer; r2: TfpgRect; @@ -820,7 +820,7 @@ begin TabH:=FixedTabHeight; ActivePageVisible := false; If TabH = 0 then - TabH := TabHeight; + TabH := TAB_HEIGHT; h := TfpgTabSheet(FPages.First); if h = nil then Exit; //==> @@ -913,7 +913,7 @@ begin begin lTxtFlags += TextFlagsDflt; lp := 0; - r2.SetRect(2, Height - ButtonHeight-3, 50, 21); + r2.SetRect(2, Height - ButtonHeight-3, 50, TabH); while h <> nil do begin if h <> ActivePage then @@ -957,7 +957,7 @@ begin begin lTxtFlags += TextFlagsDflt; lp := 0; - r2.SetRect(2, 2, 50, 21); + r2.SetRect(2, 2, 50, TabH); while h <> nil do begin if h <> ActivePage then @@ -1003,7 +1003,7 @@ begin lTxtFlags += [txtVCenter, txtLeft]; lp := 0; TabW := MaxButtonWidth; - r2.SetRect(Width - 2 - TabW, 2, TabW, 21); + r2.SetRect(Width - 2 - TabW, 2, TabW, TabH); while h <> nil do begin if h <> ActivePage then @@ -1048,7 +1048,7 @@ begin lTxtFlags += [txtVCenter, txtLeft]; lp := 0; TabW := MaxButtonWidth; - r2.SetRect(2, 2, TabW, 21); + r2.SetRect(2, 2, TabW, TabH); while h <> nil do begin if h <> ActivePage then |