paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 01:42:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: register some VCL compatibility properties to skip them during lfm reading (issue #0016660)

Browse Source 
git-svn-id: trunk@26834 -
This commit is contained in:
paul 2010-07-26 06:12:24 +00:00
parent 013200586a
commit 1e68ee32f3
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -1944,6 +1944,7 @@ initialization
RegisterPropertyToSkip(TForm, 'OldCreateOrder', 'VCL compatibility property', ''); RegisterPropertyToSkip(TForm, 'OldCreateOrder', 'VCL compatibility property', '');
RegisterPropertyToSkip(TForm, 'TextHeight', 'VCL compatibility property', ''); RegisterPropertyToSkip(TForm, 'TextHeight', 'VCL compatibility property', '');
RegisterPropertyToSkip(TForm, 'Scaled', 'VCL compatibility property', ''); RegisterPropertyToSkip(TForm, 'Scaled', 'VCL compatibility property', '');
RegisterPropertyToSkip(TForm, 'TransparentColorValue', 'VCL compatibility property', '');
LCLProc.OwnerFormDesignerModifiedProc:=@IfOwnerIsFormThenDesignerModified; LCLProc.OwnerFormDesignerModifiedProc:=@IfOwnerIsFormThenDesignerModified;
Screen:=TScreen.Create(nil); Screen:=TScreen.Create(nil);
Application:=TApplication.Create(nil); Application:=TApplication.Create(nil);

2
lcl/include/treeview.inc
View File

@ -5031,6 +5031,8 @@ end;
class procedure TCustomTreeView.WSRegisterClass; class procedure TCustomTreeView.WSRegisterClass;
begin begin
inherited WSRegisterClass; inherited WSRegisterClass;
RegisterPropertyToSkip(TCustomTreeView, 'BevelInner', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomTreeView, 'MultiSelect', 'VCL compatibility property', '');
RegisterCustomTreeView; RegisterCustomTreeView;
end; end;