diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-10-19 16:44:32 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-10-19 16:44:32 +0100 |
| commit | 2f248c58e78afa78f831c62acb65edc81226a7ff (patch) | |
| tree | e9df2879e885b845d53b2b44e307b824f06af4de /src | |
| parent | d42ee7b780c3a4b5536e95a2bd2dc0a4221c9559 (diff) | |
| download | fpGUI-2f248c58e78afa78f831c62acb65edc81226a7ff.tar.xz | |
Code formatting fix: Replace tab character with spaces or fixing indentation levels.
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/fpg_tab.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/gui/fpg_tab.pas b/src/gui/fpg_tab.pas index 528b4685..5ef82248 100644 --- a/src/gui/fpg_tab.pas +++ b/src/gui/fpg_tab.pas @@ -901,7 +901,7 @@ begin h := TfpgTabSheet(FPages[FPages.IndexOf(h)+1]) else h := nil; - end; + end; r2.Left := 0; r2.Top := 0; r2.Width := Width; @@ -933,7 +933,7 @@ begin // paint text on non-active tabs if h <> ActivePage then Canvas.DrawText(lp + (ButtonWidth(h.Text) div 2) - FFont.TextWidth(GetTabText(h.Text)) div 2, - Height-r2.Height-toffset, GetTabText(h.Text), lTxtFlags); + Height-r2.Height-toffset, GetTabText(h.Text), lTxtFlags); r2.Left := r2.Left + r2.Width; lp := lp + ButtonWidth(h.Text); @@ -977,8 +977,8 @@ begin // paint text on non-active tabs if h <> ActivePage then - Canvas.DrawText(lp + (ButtonWidth(h.Text) div 2) - FFont.TextWidth(GetTabText(h.Text)) div 2, - FMargin+toffset, GetTabText(h.Text), lTxtFlags); + Canvas.DrawText(lp + (ButtonWidth(h.Text) div 2) - FFont.TextWidth(GetTabText(h.Text)) div 2, + FMargin+toffset, GetTabText(h.Text), lTxtFlags); r2.Left := r2.Left + r2.Width; lp := lp + ButtonWidth(h.Text); if h <> TfpgTabSheet(FPages.Last) then |