From 70b731c254559cd4c0a4c198417241f6dd784804 Mon Sep 17 00:00:00 2001 From: ondrej Date: Sun, 3 Jun 2018 20:36:08 +0000 Subject: [PATCH] LCL: publish DoubleBuffered & ParentDoubleBuffered git-svn-id: trunk@58099 - --- lcl/calendar.pp | 2 ++ lcl/dbctrls.pp | 22 ++++++++++++++++++++++ lcl/dbgrids.pas | 2 ++ lcl/extctrls.pp | 13 +++++++++++++ lcl/grids.pas | 4 ++++ lcl/include/buttons.inc | 1 - lcl/include/customlistbox.inc | 1 - lcl/include/radiogroup.inc | 1 - lcl/stdctrls.pp | 22 ++++++++++++++++++++++ lcl/widgetset/wsstdctrls.pp | 1 - 10 files changed, 65 insertions(+), 4 deletions(-) diff --git a/lcl/calendar.pp b/lcl/calendar.pp index be4e002109..c68fc2aa17 100644 --- a/lcl/calendar.pp +++ b/lcl/calendar.pp @@ -122,6 +122,7 @@ type property Constraints; property DateTime; property DisplaySettings; + property DoubleBuffered; property Hint; property OnChange; property OnChangeBounds; @@ -145,6 +146,7 @@ type property OnResize; property OnUTF8KeyPress; property OnYearChanged; + property ParentDoubleBuffered; property PopupMenu; property ShowHint; property TabOrder; diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp index a64a8e3728..b7b64be011 100644 --- a/lcl/dbctrls.pp +++ b/lcl/dbctrls.pp @@ -218,6 +218,7 @@ Type property CharCase; property Color; property Constraints; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -227,6 +228,7 @@ Type property MaxLength; property ParentBiDiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PasswordChar; @@ -387,6 +389,7 @@ Type property Constraints; property DataField; property DataSource; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -420,6 +423,7 @@ Type property OnUTF8KeyPress; property Options; property ParentBiDiMode; + property ParentDoubleBuffered; property ParentShowHint; property PopupMenu; property ReadOnly; @@ -476,6 +480,7 @@ Type property Constraints; property DataField; property DataSource; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -515,6 +520,7 @@ Type property OnUTF8KeyPress; property Options; property ParentBiDiMode; + property ParentDoubleBuffered; property ParentShowHint; property PopupMenu; property ReadOnly; @@ -581,6 +587,7 @@ Type property Constraints; property DataField: string read GetDataField write SetDataField; property DataSource: TDataSource read GetDataSource write SetDataSource; + property DoubleBuffered; property DragCursor; property DragMode; property Enabled; @@ -604,6 +611,7 @@ Type property OnStartDrag; property ParentBiDiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -660,6 +668,7 @@ Type property Color; property DataField: string read GetDataField write SetDataField; property DataSource: TDataSource read GetDataSource write SetDataSource; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -684,6 +693,7 @@ Type property OnStartDrag; property ParentBiDiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -758,6 +768,7 @@ Type property Color; property DataField; property DataSource; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -797,6 +808,7 @@ Type property OnUTF8KeyPress; property ParentBiDiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -862,6 +874,7 @@ Type property Constraints; property DataField; property DataSource; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -906,6 +919,7 @@ Type property OnUTF8KeyPress; property ParentBiDiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -966,6 +980,7 @@ Type property Constraints; property DataField: string read GetDataField write SetDataField; property DataSource: TDataSource read GetDataSource write SetDataSource; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -996,6 +1011,7 @@ Type property OnStartDrag; property OnUTF8KeyPress; property ParentBiDiMode; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -1044,6 +1060,7 @@ Type property Cursor; property DataField: string read GetDataField write SetDataField; property DataSource: TDataSource read GetDataSource write SetDataSource; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -1072,6 +1089,7 @@ Type property OnUTF8KeyPress; property ParentBiDiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -1206,8 +1224,10 @@ Type property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False; property DisplaySettings stored False; + property DoubleBuffered; property DragCursor; property DragMode; + property ParentDoubleBuffered; property Visible; property OnClick; property OnDragDrop; @@ -1394,6 +1414,7 @@ type property ConfirmDelete; property DataSource; property Direction; + property DoubleBuffered; property DragCursor; property DragMode; property Enabled; @@ -1420,6 +1441,7 @@ type property Options; property ParentBidiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas index 76d5ba67a2..dcc8f08c48 100644 --- a/lcl/dbgrids.pas +++ b/lcl/dbgrids.pas @@ -600,6 +600,7 @@ type property DataSource; property DefaultDrawing; property DefaultRowHeight; + property DoubleBuffered; property DragCursor; //property DragKind; property DragMode; @@ -618,6 +619,7 @@ type property OptionsExtra; property ParentBiDiMode; property ParentColor default false; + property ParentDoubleBuffered; property ParentFont; //property ParentShowHint; property PopupMenu; diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp index de0f4bdefc..aae604cc25 100644 --- a/lcl/extctrls.pp +++ b/lcl/extctrls.pp @@ -414,6 +414,7 @@ type property Color; property Constraints; property Cursor; + property DoubleBuffered; property Height; property MinSize; property OnCanOffset; @@ -425,6 +426,7 @@ type property OnMouseWheelUp; property OnPaint; property ParentColor; + property ParentDoubleBuffered; property ParentShowHint; property PopupMenu; property ResizeAnchor; @@ -732,6 +734,7 @@ type property ColumnLayout; property Columns; property Constraints; + property DoubleBuffered; property DragCursor; property DragMode; property Enabled; @@ -764,6 +767,7 @@ type property ParentBidiMode; property ParentFont; property ParentColor; + property ParentDoubleBuffered; property ParentShowHint; property PopupMenu; property ShowHint; @@ -847,6 +851,7 @@ type property ColumnLayout; property Columns; property Constraints; + property DoubleBuffered; property DragCursor; property DragMode; property Enabled; @@ -878,6 +883,7 @@ type property ParentBiDiMode; property ParentFont; property ParentColor; + property ParentDoubleBuffered; property ParentShowHint; property PopupMenu; property ShowHint; @@ -974,6 +980,7 @@ type property CharCase; property Color; property Constraints; + property DoubleBuffered; property DragCursor; property DragMode; property EchoMode; @@ -985,6 +992,7 @@ type property MaxLength; property ParentBidiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PasswordChar; @@ -1092,6 +1100,7 @@ type property Color; property Constraints; property DockSite; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -1101,6 +1110,7 @@ type property ParentBackground; property ParentBidiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -1249,6 +1259,7 @@ type property Font; property ParentBiDiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -1577,6 +1588,7 @@ type property Color; property Constraints; property DockSite; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -1586,6 +1598,7 @@ type property GradientEndColor; property GradientStartColor; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property Picture; diff --git a/lcl/grids.pas b/lcl/grids.pas index 7b7d5f8213..35e1531fb8 100644 --- a/lcl/grids.pas +++ b/lcl/grids.pas @@ -1534,6 +1534,7 @@ type property DefaultColWidth; property DefaultDrawing; property DefaultRowHeight; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -1554,6 +1555,7 @@ type property Options2; //property ParentBiDiMode; property ParentColor default false; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -1765,6 +1767,7 @@ type property DefaultColWidth; property DefaultDrawing; property DefaultRowHeight; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -1785,6 +1788,7 @@ type property Options2; property ParentBiDiMode; property ParentColor default false; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; diff --git a/lcl/include/buttons.inc b/lcl/include/buttons.inc index 6f1ae727c8..d4fd66a4b4 100644 --- a/lcl/include/buttons.inc +++ b/lcl/include/buttons.inc @@ -242,7 +242,6 @@ 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', ''); diff --git a/lcl/include/customlistbox.inc b/lcl/include/customlistbox.inc index 3ea66ff5cc..57b58cc5df 100644 --- a/lcl/include/customlistbox.inc +++ b/lcl/include/customlistbox.inc @@ -339,7 +339,6 @@ class procedure TCustomListBox.WSRegisterClass; begin inherited WSRegisterClass; RegisterCustomListBox; - RegisterPropertyToSkip(TCustomListBox, 'DoubleBuffered', 'VCL compatibility property', ''); end; {------------------------------------------------------------------------------} diff --git a/lcl/include/radiogroup.inc b/lcl/include/radiogroup.inc index 4f52156c9b..cafdfe1a2f 100644 --- a/lcl/include/radiogroup.inc +++ b/lcl/include/radiogroup.inc @@ -527,7 +527,6 @@ class procedure TCustomRadioGroup.WSRegisterClass; begin inherited WSRegisterClass; RegisterCustomRadioGroup; - RegisterPropertyToSkip(TCustomRadioGroup, 'DoubleBuffered', 'VCL compatibility property', ''); end; procedure TCustomRadioGroup.UpdateInternalObjectList; diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp index 53ad4a2985..8dab2c5dfc 100644 --- a/lcl/stdctrls.pp +++ b/lcl/stdctrls.pp @@ -123,6 +123,7 @@ type property BidiMode; property BorderSpacing; property Constraints; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -133,6 +134,7 @@ type property Min; property PageSize; property ParentBidiMode; + property ParentDoubleBuffered; property ParentShowHint; property PopupMenu; property Position; @@ -185,6 +187,7 @@ type property Color; property Constraints; property DockSite; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -192,6 +195,7 @@ type property Font; property ParentBidiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -427,6 +431,7 @@ type property CharCase; property Color; property Constraints; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -470,6 +475,7 @@ type property OnUTF8KeyPress; property ParentBidiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -655,6 +661,7 @@ type property Color; property Columns; property Constraints; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -696,6 +703,7 @@ type property Options; property ParentBidiMode; property ParentColor; + property ParentDoubleBuffered; property ParentShowHint; property ParentFont; property PopupMenu; @@ -918,6 +926,7 @@ type property CharCase; property Color; property Constraints; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -954,6 +963,7 @@ type property OnStartDrag; property OnUTF8KeyPress; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PasswordChar; @@ -981,6 +991,7 @@ type property CharCase; property Color; property Constraints; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -1014,6 +1025,7 @@ type property OnUTF8KeyPress; property ParentBidiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property PopupMenu; property ParentShowHint; @@ -1077,6 +1089,7 @@ type property Caption; property Color nodefault; property Constraints; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -1103,6 +1116,7 @@ type property ParentBidiMode; property ParentFont; property ParentColor; + property ParentDoubleBuffered; property ParentShowHint; property PopupMenu; property ShowAccelChar; @@ -1219,6 +1233,7 @@ type property Color; property Constraints; property Default; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -1248,6 +1263,7 @@ type property OnResize; property OnStartDrag; property OnUTF8KeyPress; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -1323,6 +1339,7 @@ type property Checked; property Color nodefault; property Constraints; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -1354,6 +1371,7 @@ type property OnStartDrag; property OnUTF8KeyPress; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property ParentBidiMode; @@ -1386,6 +1404,7 @@ type property Checked; property Color; property Constraints; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -1409,6 +1428,7 @@ type property OnMouseWheelUp; property OnStartDrag; property ParentBidiMode; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; @@ -1443,6 +1463,7 @@ type property Checked; property Color; property Constraints; + property DoubleBuffered; property DragCursor; property DragKind; property DragMode; @@ -1473,6 +1494,7 @@ type property OnStartDrag; property ParentBidiMode; property ParentColor; + property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; diff --git a/lcl/widgetset/wsstdctrls.pp b/lcl/widgetset/wsstdctrls.pp index e4cc69d2cc..61b446bf53 100644 --- a/lcl/widgetset/wsstdctrls.pp +++ b/lcl/widgetset/wsstdctrls.pp @@ -785,7 +785,6 @@ begin RegisterPropertyToSkip(TCustomMemo, 'BevelOuter', 'VCL compatibility property', ''); RegisterPropertyToSkip(TCustomMemo, 'BevelEdges', 'VCL compatibility property', ''); RegisterPropertyToSkip(TCustomMemo, 'Margins', 'VCL compatibility property', ''); - RegisterPropertyToSkip(TCustomMemo, 'DoubleBuffered', 'VCL compatibility property', ''); // if not WSRegisterCustomMemo then // RegisterWSComponent(TCustomMemo, TWSCustomMemo); Done := True;