tabs: populate tabsheet.Text for UI Designer.

This only occurs in the UI Designer. tabsheet.text will be the same value
as the component Name property.

1 files changed, 14 insertions, 0 deletions

diff --git a/src/gui/fpg_tab.pas b/src/gui/fpg_tab.pas
index c79c5930..8f3e39af 100644
--- a/src/gui/fpg_tab.pas
+++ b/src/gui/fpg_tab.pas
@@ -60,6 +60,7 @@ type
     procedure   SetPageControl(APageControl: TfpgPageControl);
   protected
     procedure   HandlePaint; override;
+    procedure   SetName(const NewName: TComponentName); override;
   public
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
@@ -205,6 +206,19 @@ begin
   Canvas.Clear(FBackgroundColor);
 end;
 
+procedure TfpgTabSheet.SetName(const NewName: TComponentName);
+var
+  old: String;
+begin
+  old := NewName;
+  inherited SetName(NewName);
+  if (csDesigning in ComponentState) then
+  begin
+    if (Text = '') or (Text = old) then
+      Text := NewName;
+  end;
+end;
+
 constructor TfpgTabSheet.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);