diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2015-04-22 16:00:18 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2015-04-22 16:00:18 +0100 |
commit | 2892de6d80cb8458eeb2860d1e722f80db5a155d (patch) | |
tree | 64fd664e45db23b3496d1f6d87359c8c9c0e5c50 /src/gui/fpg_tab.pas | |
parent | db31f06d5e7adf28fad60e36fd9e5d2cf0519e84 (diff) | |
parent | b7d9264751d18edefe2b4a86d72b480823fd47b9 (diff) | |
download | fpGUI-2892de6d80cb8458eeb2860d1e722f80db5a155d.tar.xz |
Clean up unused local variables
Diffstat (limited to 'src/gui/fpg_tab.pas')
-rw-r--r-- | src/gui/fpg_tab.pas | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/gui/fpg_tab.pas b/src/gui/fpg_tab.pas index 8846a7e1..414c89a2 100644 --- a/src/gui/fpg_tab.pas +++ b/src/gui/fpg_tab.pas @@ -183,11 +183,6 @@ implementation uses fpg_stringutils; -const - DFL_TAB_HEIGHT = 21; - DFL_TAB_WIDTH = 0; - - // compare function used by FPages.Sort function SortCompare(Item1, Item2: Pointer): integer; @@ -409,7 +404,6 @@ var wd: integer; { width delta } h: integer; hd: integer; { height delta } - msg: TfpgMessageParams; begin // PageControl has bevelled edges in some themes r := fpgStyle.GetControlFrameBorders; @@ -820,8 +814,6 @@ var h: TfpgTabSheet; lp: integer; toffset: integer; - TextLeft, TextTop: Integer; - dx: integer; lTxtFlags: TfpgTextFlags; ActivePageVisible: Boolean; begin |