diff options
| -rw-r--r-- | src/gui/fpg_tab.pas | 14 |
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; |