1 files changed, 14 insertions, 0 deletions
diff --git a/src/gui/fpg_tab.pas b/src/gui/fpg_tab.pas
index 9df121f4..74c6e354 100644
--- a/src/gui/fpg_tab.pas
+++ b/src/gui/fpg_tab.pas
@@ -80,6 +80,7 @@ type
     FActivePage: TfpgTabSheet;
     FMargin: integer;
     FFixedTabWidth: integer;
+    FFixedTabHeight: Integer;
     FPages: TList;
     FActivePageIndex: integer;
     FOnChange: TTabSheetChange;
@@ -102,6 +103,7 @@ type
     function    ButtonHeight: integer;
     function    ButtonWidth(AText: string): integer;
     procedure   SetFixedTabWidth(const AValue: integer);
+    procedure   SetFixedTabHeight(const AValue: integer);
     function    GetTabText(AText: string): string;
     procedure   LeftButtonClick(Sender: TObject);
     procedure   RightButtonClick(Sender: TObject);
@@ -131,6 +133,7 @@ type
     property    ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex;
     property    BackgroundColor;
     property    FixedTabWidth: integer read FFixedTabWidth write SetFixedTabWidth default 0;
+    property    FixedTabHeight: integer read FFixedTabHeight write SetFixedTabHeight default 21;
     property    Hint;
     property    ParentShowHint;
     property    ShowHint;
@@ -375,6 +378,17 @@ begin
   end;
 end;
 
+procedure TfpgPageControl.SetFixedTabHeight(const AValue: integer);
+begin
+  if FFixedTabHeight = AValue then
+    Exit; //==>
+  if AValue > 5 then
+  begin
+    FFixedTabHeight := AValue;
+    RePaint;
+  end;
+end;
+
 function TfpgPageControl.GetTabText(AText: string): string;
 var
   s, s1: string;