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

lcl: apply patch of Juha Manninen which registers more VCL compatibility properties which LCL should skip while reading

Browse Source 
git-svn-id: trunk@24327 -
This commit is contained in:
paul 2010-04-01 00:49:45 +00:00
parent 02e6a3fe48
commit 2dfb22d93e
8 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -1903,6 +1903,8 @@ end;
initialization
{$INCLUDE cursors.lrs}
RegisterPropertyToSkip(TForm, 'OldCreateOrder', 'VCL compatibility property', '');
RegisterPropertyToSkip(TForm, 'TextHeight', 'VCL compatibility property', '');
RegisterPropertyToSkip(TForm, 'Scaled', 'VCL compatibility property', '');
LCLProc.OwnerFormDesignerModifiedProc:=@IfOwnerIsFormThenDesignerModified;
Screen:=TScreen.Create(nil);
Application:=TApplication.Create(nil);

2
lcl/include/control.inc
View File

@ -3473,6 +3473,8 @@ end;
class procedure TControl.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterPropertyToSkip(TControl, 'IsControl', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'DesignSize', 'VCL compatibility property', '');
RegisterControl;
end;

1
lcl/include/customcheckbox.inc
View File

@ -67,6 +67,7 @@ end;
class procedure TCustomCheckBox.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterPropertyToSkip(TCustomCheckBox, 'Alignment', 'VCL compatibility property', '');
RegisterCustomCheckBox;
end;

3
lcl/include/customcombobox.inc
View File

@ -446,6 +446,9 @@ end;
class procedure TCustomComboBox.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterPropertyToSkip(TCustomComboBox, 'BevelInner', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomComboBox, 'BevelKind', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomComboBox, 'BevelOuter', 'VCL compatibility property', '');
RegisterCustomComboBox;
end;

1
lcl/include/customlistview.inc
View File

@ -417,6 +417,7 @@ end;
class procedure TCustomListView.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterPropertyToSkip(TListColumn, 'WidthType', 'VCL compatibility property', '');
RegisterCustomListView;
end;

3
lcl/include/pagecontrol.inc
View File

@ -74,6 +74,9 @@ end;
class procedure TPageControl.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterPropertyToSkip(TPageControl, 'Style', 'VCL compatibility property', '');
RegisterPropertyToSkip(TPageControl, 'HotTrack', 'VCL compatibility property', '');
RegisterPropertyToSkip(TPageControl, 'MultiLine', 'VCL compatibility property', '');
RegisterPageControl;
end;

2
lcl/include/statusbar.inc
View File

@ -69,6 +69,8 @@ end;
class procedure TStatusBar.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterPropertyToSkip(TStatusBar, 'Font', 'VCL compatibility property', '');
RegisterPropertyToSkip(TStatusBar, 'UseSystemFont', 'VCL compatibility property', '');
RegisterStatusBar;
end;

3
lcl/include/trackbar.inc
View File

@ -290,6 +290,9 @@ end;
class procedure TCustomTrackBar.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterPropertyToSkip(TCustomTrackBar, 'SelStart', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomTrackBar, 'SelEnd', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomTrackBar, 'ThumbLength', 'VCL compatibility property', '');
RegisterCustomTrackBar;
end;