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

LCL: Register some properties to skip for Delphi compatibility.

Browse Source 
git-svn-id: trunk@32389 -
This commit is contained in:
juha 2011-09-17 16:32:48 +00:00
parent 4b91967012
commit 7e8d161edb
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/bevel.inc
View File

@ -59,6 +59,7 @@ end;
class procedure TBevel.WSRegisterClass;
begin
RegisterPropertyToSkip(Self, 'ParentCustomHint', 'VCL compatibility property', '');
inherited WSRegisterClass;
RegisterBevel;
end;

5
lcl/include/customlistview.inc
View File

@ -475,8 +475,9 @@ end;
class procedure TCustomListView.WSRegisterClass;
begin
RegisterPropertyToSkip(Self, 'ItemIndex',
'Property streamed in older Lazarus revision', '');
RegisterPropertyToSkip(Self, 'ItemIndex', 'Property streamed in older Lazarus revision', '');
RegisterPropertyToSkip(Self, 'AlignWithMargins', 'VCL compatibility property', '');
RegisterPropertyToSkip(Self, 'BevelKind', 'VCL compatibility property', '');
inherited WSRegisterClass;
RegisterCustomListView;
end;