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

LCL: Register some new Delphi properties to be skipped by form loader. Issue #20273

Browse Source 
git-svn-id: trunk@34800 -
This commit is contained in:
juha 2012-01-19 18:26:48 +00:00
parent ce2b09aa85
commit 9adcf1b232
8 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/buttons.inc
View File

@ -247,6 +247,15 @@ class procedure TCustomButton.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterCustomButton;
RegisterPropertyToSkip(TCustomButton, 'DoubleBuffered', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomButton, 'ElevationRequired', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomButton, 'ImageAlignment', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomButton, 'ImageMargins', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomButton, 'ImageIndex', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomButton, 'DisabledImageIndex', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomButton, 'HotImageIndex', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomButton, 'PressedImageIndex', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomButton, 'SelectedImageIndex', 'VCL compatibility property', '');
end;
function TCustomButton.ChildClassAllowed(ChildClass: TClass): boolean;

4
lcl/include/customcombobox.inc
View File

@ -454,6 +454,10 @@ class procedure TCustomComboBox.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterCustomComboBox;
RegisterPropertyToSkip(TCustomComboBox, 'BevelInner', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomComboBox, 'BevelKind', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomComboBox, 'BevelOuter', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomComboBox, 'ImeMode', 'VCL compatibility property', '');
end;
procedure TCustomComboBox.CreateParams(var Params: TCreateParams);

3
lcl/include/customedit.inc
View File

@ -369,8 +369,9 @@ begin
inherited WSRegisterClass;
RegisterCustomEdit;
RegisterPropertyToSkip(TCustomEdit, 'BevelInner', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomEdit, 'BevelKind', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomEdit, 'BevelKind', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomEdit, 'BevelOuter', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomEdit, 'OEMConvert', 'VCL compatibility property', '');
end;
{------------------------------------------------------------------------------

1
lcl/include/customlistbox.inc
View File

@ -352,6 +352,7 @@ class procedure TCustomListBox.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterCustomListBox;
RegisterPropertyToSkip(TCustomListBox, 'DoubleBuffered', 'VCL compatibility property', '');
end;
{------------------------------------------------------------------------------}

1
lcl/include/radiogroup.inc
View File

@ -506,6 +506,7 @@ class procedure TCustomRadioGroup.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterCustomRadioGroup;
RegisterPropertyToSkip(TCustomRadioGroup, 'DoubleBuffered', 'VCL compatibility property', '');
end;
procedure TCustomRadioGroup.SetAutoFill(const AValue: Boolean);

3
lcl/include/wincontrol.inc
View File

@ -6108,6 +6108,9 @@ class procedure TWinControl.WSRegisterClass;
begin
inherited WSRegisterClass;
RegisterWinControl;
RegisterPropertyToSkip(TWinControl, 'ParentDoubleBuffered', 'VCL compatibility property', '');
RegisterPropertyToSkip(TWinControl, 'ImeMode', 'VCL compatibility property', '');
RegisterPropertyToSkip(TWinControl, 'ImeName', 'VCL compatibility property', '');
end;
function TWinControl.IsClientHeightStored: boolean;

2
lcl/stdctrls.pp
View File

@ -476,7 +476,7 @@ type
{ TCustomListBox }
TListBoxStyle = (lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable);
TListBoxStyle = (lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable, lbVirtual);
TSelectionChangeEvent = procedure(Sender: TObject; User: boolean) of object;
{ TCustomListBox }

6
lcl/widgetset/wsstdctrls.pp
View File

@ -674,9 +674,6 @@ const
begin
if Done then exit;
WSRegisterCustomComboBox;
RegisterPropertyToSkip(TCustomComboBox, 'BevelInner', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomComboBox, 'BevelKind', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomComboBox, 'BevelOuter', 'VCL compatibility property', '');
// if not WSRegisterCustomComboBox then
// RegisterWSComponent(TCustomComboBox, TWSCustomComboBox);
Done := True;
@ -713,7 +710,8 @@ begin
RegisterPropertyToSkip(TCustomMemo, 'BevelInner', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomMemo, 'BevelOuter', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomMemo, 'BevelEdges', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomMemo, 'Margins', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomMemo, 'Margins', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomMemo, 'DoubleBuffered', 'VCL compatibility property', '');
// if not WSRegisterCustomMemo then
// RegisterWSComponent(TCustomMemo, TWSCustomMemo);
Done := True;