diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-03-24 00:24:23 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-03-24 00:24:23 +0200 |
commit | 3e68b791cae208fb50c21042cb385c77e77593d2 (patch) | |
tree | 4ca4172140a8905e91617516fbcef337fddb54a3 /src/gui/fpg_tab.pas | |
parent | 8c0542e5f8e51380e4d712b0a8942227664490dd (diff) | |
download | fpGUI-3e68b791cae208fb50c21042cb385c77e77593d2.tar.xz |
tabs: Text Formatting Flags are now set per tab position.
This is getting ready for new tab positions which will follow shortly.
Diffstat (limited to 'src/gui/fpg_tab.pas')
-rw-r--r-- | src/gui/fpg_tab.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/gui/fpg_tab.pas b/src/gui/fpg_tab.pas index f7a1af2c..a2d5c086 100644 --- a/src/gui/fpg_tab.pas +++ b/src/gui/fpg_tab.pas @@ -613,7 +613,7 @@ begin Canvas.BeginDraw; Canvas.SetTextColor(TextColor); - lTxtFlags := TextFlagsDflt; + lTxtFlags := []; if not Enabled then Include(lTxtFlags, txtDisabled); @@ -641,6 +641,7 @@ begin tpBottom: begin + lTxtFlags += TextFlagsDflt; if MaxButtonWidthSum > (Width-(FMargin*2)) then begin if FFirstTabButton = nil then @@ -700,6 +701,7 @@ begin tpTop: begin + lTxtFlags += TextFlagsDflt; if MaxButtonWidthSum > (Width-(FMargin*2)) then begin if FFirstTabButton = nil then |