paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 05:20:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: added TFrame.LCLVersion

Browse Source 
git-svn-id: trunk@15035 -
This commit is contained in:
mattias 2008-05-03 11:20:40 +00:00
parent a42e97ccfc
commit ae532864a2
3 changed files with 33 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/propedits.pp
View File

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

30
lcl/forms.pp
View File

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

13
lcl/include/customframe.inc
View File

@ -102,4 +102,17 @@ begin
end; end;
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 // included by forms.pp