paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 00:00:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Add and move some properties to be skipped by form loader.

Browse Source 
git-svn-id: trunk@34798 -
This commit is contained in:
juha 2012-01-19 16:32:56 +00:00
parent d5279b31a9
commit a0912487d5
5 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/controls.pp
View File

@ -4033,14 +4033,15 @@ end;
initialization
//DebugLn('controls.pp - initialization');
RegisterPropertyToSkip(TControl, 'Ctl3D', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ParentCtl3D', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'IsControl', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'DesignSize', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ExplicitLeft', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ExplicitHeight', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ExplicitTop', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ExplicitWidth', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'AlignWithMargins', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'Ctl3D', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ParentCtl3D', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'IsControl', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'DesignSize', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ExplicitLeft', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ExplicitHeight', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ExplicitTop', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ExplicitWidth', 'VCL compatibility property', '');
Mouse := TMouse.Create;
DefaultDockManagerClass := TDockTree;
DragManager := TDragManagerDefault.Create(nil);

3
lcl/include/customedit.inc
View File

@ -368,6 +368,9 @@ class procedure TCustomEdit.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterCustomEdit;
RegisterPropertyToSkip(TCustomEdit, 'BevelInner', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomEdit, 'BevelKind', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomEdit, 'BevelOuter', 'VCL compatibility property', '');
end;
{------------------------------------------------------------------------------

1
lcl/include/customlabel.inc
View File

@ -494,6 +494,7 @@ class procedure TCustomLabel.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterCustomLabel;
RegisterPropertyToSkip(TCustomLabel, 'EllipsisPosition', 'VCL compatibility property', '');
end;
// included by stdctrls.pp

1
lcl/include/customlistview.inc
View File

@ -476,7 +476,6 @@ end;
class procedure TCustomListView.WSRegisterClass;
begin
RegisterPropertyToSkip(Self, 'ItemIndex', 'Property streamed in older Lazarus revision', '');
RegisterPropertyToSkip(Self, 'AlignWithMargins', 'VCL compatibility property', '');
RegisterPropertyToSkip(Self, 'BevelKind', 'VCL compatibility property', '');
RegisterPropertyToSkip(TListItem, 'OverlayIndex', 'VCL compatibility property', '');
inherited WSRegisterClass;

1
lcl/widgetset/wsstdctrls.pp
View File

@ -710,7 +710,6 @@ const
begin
if Done then exit;
WSRegisterCustomMemo;
RegisterPropertyToSkip(TCustomMemo, 'AlignWithMargins', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomMemo, 'BevelInner', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomMemo, 'BevelOuter', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomMemo, 'BevelEdges', 'VCL compatibility property', '');