paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 12:17:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Register more Delphi-only properties to skip when loading a project.

Browse Source 
git-svn-id: trunk@30787 -
This commit is contained in:
juha 2011-05-17 21:56:42 +00:00
parent 55581885e6
commit b01be5b936
5 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/controls.pp
View File

@ -3922,6 +3922,10 @@ initialization
RegisterPropertyToSkip(TControl, 'ParentCtl3D', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'IsControl', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'DesignSize', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ExplicitLeft', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ExplicitHeight', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ExplicitTop', 'VCL compatibility property', '');
RegisterPropertyToSkip(TControl, 'ExplicitWidth', 'VCL compatibility property', '');
Mouse := TMouse.Create;
DefaultDockManagerClass := TDockTree;
DragManager := TDragManagerDefault.Create(nil);

4
lcl/widgetset/wscomctrls.pp
View File

@ -586,6 +586,8 @@ begin
if Done then exit;
WSRegisterStatusBar;
RegisterPropertyToSkip(TStatusBar, 'Font', 'VCL compatibility property', '');
RegisterPropertyToSkip(TStatusBar, 'TabOrder', 'VCL compatibility property', '');
RegisterPropertyToSkip(TStatusBar, 'TabStop', 'VCL compatibility property', '');
RegisterPropertyToSkip(TStatusBar, 'UseSystemFont', 'VCL compatibility property', '');
// if not WSRegisterStatusBar then
// RegisterWSComponent(TStatusBar, TWSStatusBar);
@ -612,6 +614,8 @@ begin
RegisterPropertyToSkip(TPageControl, 'Style', 'VCL compatibility property', '');
RegisterPropertyToSkip(TPageControl, 'HotTrack', 'VCL compatibility property', '');
RegisterPropertyToSkip(TPageControl, 'MultiLine', 'VCL compatibility property', '');
RegisterPropertyToSkip(TPageControl, 'TabWidth', 'VCL compatibility property', '');
RegisterPropertyToSkip(TPageControl, 'TabHeight', 'VCL compatibility property', '');
// if not WSRegisterPageControl then
// RegisterWSComponent(TPageControl, TWSPageControl);
Done := True;

8
lcl/widgetset/wsextctrls.pp
View File

@ -44,7 +44,7 @@ uses
// To get as little as posible circles,
// uncomment only when needed for registration
////////////////////////////////////////////////////
LCLProc, Controls, ExtCtrls, Classes, ImgList, Graphics,
LCLProc, Controls, ExtCtrls, Classes, ImgList, Graphics, LResources,
////////////////////////////////////////////////////
WSLCLClasses, WSControls, WSStdCtrls, WSFactory;
@ -495,6 +495,12 @@ const
begin
if Done then exit;
WSRegisterCustomPanel;
RegisterPropertyToSkip(TCustomPanel, 'VerticalAlignment', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomPanel, 'ExplicitWidth', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomPanel, 'ShowCaption', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomPanel, 'ParentBackground', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomPanel, 'BevelEdges', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomPanel, 'BevelKind', 'VCL compatibility property', '');
// if not WSRegisterCustomPanel then
// RegisterWSComponent(TCustomPanel, TWSCustomPanel);
Done := True;

5
lcl/widgetset/wsspin.pp
View File

@ -44,7 +44,7 @@ uses
// To get as little as posible circles,
// uncomment only when needed for registration
////////////////////////////////////////////////////
Spin,
Spin, LResources,
////////////////////////////////////////////////////
WSLCLClasses, WSControls, WSStdCtrls, WSFactory;
@ -83,13 +83,14 @@ class procedure TWSCustomFloatSpinEdit.UpdateControl(const ACustomFloatSpinEdit:
begin
end;
{ WidgetSetRegistration }
{ WidgetSetRegistration }
procedure RegisterCustomFloatSpinEdit;
const
Done: Boolean = False;
begin
if Done then exit;
RegisterPropertyToSkip(TCustomFloatSpinEdit, 'MaxLength', 'VCL compatibility property', '');
if not WSRegisterCustomFloatSpinEdit then
RegisterWSComponent(TCustomFloatSpinEdit, TWSCustomFloatSpinEdit);
Done := True;

6
lcl/widgetset/wsstdctrls.pp
View File

@ -703,6 +703,11 @@ const
begin
if Done then exit;
WSRegisterCustomMemo;
RegisterPropertyToSkip(TCustomMemo, 'AlignWithMargins', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomMemo, 'BevelInner', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomMemo, 'BevelOuter', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomMemo, 'BevelEdges', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomMemo, 'Margins', 'VCL compatibility property', '');
// if not WSRegisterCustomMemo then
// RegisterWSComponent(TCustomMemo, TWSCustomMemo);
Done := True;
@ -740,6 +745,7 @@ begin
if Done then exit;
WSRegisterCustomCheckBox;
RegisterPropertyToSkip(TCustomCheckBox, 'Alignment', 'VCL compatibility property', '');
RegisterPropertyToSkip(TCustomCheckBox, 'WordWrap', 'VCL compatibility property', '');
// if not WSRegisterCustomCheckBox then
// RegisterWSComponent(TCustomCheckBox, TWSCustomCheckBox);
Done := True;