From 2f248c58e78afa78f831c62acb65edc81226a7ff Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Fri, 19 Oct 2012 16:44:32 +0100 Subject: Code formatting fix: Replace tab character with spaces or fixing indentation levels. --- src/gui/fpg_tab.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') 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 -- cgit v1.2.3-70-g09d2