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