LCL: added TFrame.LCLVersion

git-svn-id: trunk@15035 -

ideintf/propedits.pp

@@ -6188,6 +6188,8 @@ begin
     TControl, 'ClientHeight', THiddenPropertyEditor);
   RegisterPropertyEditor(DummyClassForPropTypes.PTypeInfos('AnsiString'),
     TForm, 'LCLVersion', THiddenPropertyEditor);
+  RegisterPropertyEditor(DummyClassForPropTypes.PTypeInfos('AnsiString'),
+    TFrame, 'LCLVersion', THiddenPropertyEditor);
 end;
 
 procedure FinalPropEdits;

lcl/forms.pp

@@ -263,31 +263,28 @@ type
   { TFrame - not implemented yet }
 
   TFrame = class(TCustomFrame)
+  private
+    FLCLVersion: string;
+    function LCLVersionIsStored: boolean;
+  public
+    constructor Create(TheOwner: TComponent); override;
   published
     property Align;
     property Anchors;
     property AutoScroll;
     property AutoSize;
-    property ClientWidth;
     property ClientHeight;
+    property ClientWidth;
+    property Color nodefault;
     property Constraints;
+    property Ctl3D;
     property DockSite;
     property DragCursor;
     property DragKind;
     property DragMode;
     property Enabled;
-    property Color nodefault;
-    property Ctl3D;
     property Font;
-    property ParentColor;
-    property ParentCtl3D;
-    property ParentFont;
-    property ParentShowHint;
-    property PopupMenu;
-    property ShowHint;
-    property TabOrder;
-    property TabStop;
-    property Visible;
+    property LCLVersion: string read FLCLVersion write FLCLVersion stored LCLVersionIsStored;
     property OnClick;
     property OnConstrainedResize;
     property OnContextPopup;
@@ -311,6 +308,15 @@ type
     property OnStartDock;
     property OnStartDrag;
     property OnUnDock;
+    property ParentColor;
+    property ParentCtl3D;
+    property ParentFont;
+    property ParentShowHint;
+    property PopupMenu;
+    property ShowHint;
+    property TabOrder;
+    property TabStop;
+    property Visible;
   end;
 
 

lcl/include/customframe.inc

@@ -102,4 +102,17 @@ begin
   end;
 end;
 
+{ TFrame }
+
+function TFrame.LCLVersionIsStored: boolean;
+begin
+  Result:=Parent=nil;
+end;
+
+constructor TFrame.Create(TheOwner: TComponent);
+begin
+  FLCLVersion:=lcl_version;
+  inherited Create(TheOwner);
+end;
+
 // included by forms.pp