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

Designer: formatting

Browse Source 
git-svn-id: trunk@30323 -
This commit is contained in:
juha 2011-04-16 17:15:24 +00:00
parent a63a06a10c
commit 716bb3dc97
1 changed files with 8 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
designer/designer.pp
View File

@ -326,26 +326,20 @@ type
read FOnPropertiesChanged write FOnPropertiesChanged;
property OnRenameComponent: TOnRenameComponent
read FOnRenameComponent write FOnRenameComponent;
property OnSetDesigning: TOnSetDesigning
read FOnSetDesigning write FOnSetDesigning;
property OnComponentAdded: TNotifyEvent
read FOnComponentAdded
write FOnComponentAdded;
property OnShowOptions: TNotifyEvent
read FOnShowOptions write FOnShowOptions;
property OnSetDesigning: TOnSetDesigning read FOnSetDesigning write FOnSetDesigning;
property OnComponentAdded: TNotifyEvent read FOnComponentAdded
write FOnComponentAdded;
property OnShowOptions: TNotifyEvent read FOnShowOptions write FOnShowOptions;
property OnViewLFM: TNotifyEvent read FOnViewLFM write FOnViewLFM;
property OnSaveAsXML: TNotifyEvent read FOnSaveAsXML write FOnSaveAsXML;
property OnShowObjectInspector: TNotifyEvent read FOnShowObjectInspector write FOnShowObjectInspector;
property ShowGrid: boolean read GetShowGrid write SetShowGrid;
property ShowBorderSpacing: boolean read GetShowBorderSpacing write SetShowBorderSpacing;
property ShowEditorHints: boolean
read GetShowEditorHints write SetShowEditorHints;
property ShowComponentCaptions: boolean
read GetShowComponentCaptions
property ShowEditorHints: boolean read GetShowEditorHints write SetShowEditorHints;
property ShowComponentCaptions: boolean read GetShowComponentCaptions
write SetShowComponentCaptions;
property SnapToGrid: boolean read GetSnapToGrid write SetSnapToGrid;
property TheFormEditor: TCustomFormEditor
read FTheFormEditor write FTheFormEditor;
property TheFormEditor: TCustomFormEditor read FTheFormEditor write FTheFormEditor;
property DefaultFormBounds: TRect read FDefaultFormBounds write SetDefaultFormBounds;
property DefaultFormBoundsValid: boolean read FDefaultFormBoundsValid
write FDefaultFormBoundsValid;
@ -1259,8 +1253,7 @@ end;
procedure TDesigner.DoShowChangeClassDialog;
begin
if (ControlSelection.Count=1) and (not ControlSelection.LookupRootSelected)
then
if (ControlSelection.Count=1) and (not ControlSelection.LookupRootSelected) then
ShowChangeClassDialog(Self,ControlSelection[0].Persistent);
end;