diff --git a/lcl/forms.pp b/lcl/forms.pp index 01e3d16656..9a88264861 100644 --- a/lcl/forms.pp +++ b/lcl/forms.pp @@ -1944,6 +1944,7 @@ initialization RegisterPropertyToSkip(TForm, 'OldCreateOrder', 'VCL compatibility property', ''); RegisterPropertyToSkip(TForm, 'TextHeight', 'VCL compatibility property', ''); RegisterPropertyToSkip(TForm, 'Scaled', 'VCL compatibility property', ''); + RegisterPropertyToSkip(TForm, 'TransparentColorValue', 'VCL compatibility property', ''); LCLProc.OwnerFormDesignerModifiedProc:=@IfOwnerIsFormThenDesignerModified; Screen:=TScreen.Create(nil); Application:=TApplication.Create(nil); diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc index 7e23c8b1c3..94363de100 100644 --- a/lcl/include/treeview.inc +++ b/lcl/include/treeview.inc @@ -5031,6 +5031,8 @@ end; class procedure TCustomTreeView.WSRegisterClass; begin inherited WSRegisterClass; + RegisterPropertyToSkip(TCustomTreeView, 'BevelInner', 'VCL compatibility property', ''); + RegisterPropertyToSkip(TCustomTreeView, 'MultiSelect', 'VCL compatibility property', ''); RegisterCustomTreeView; end;