paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 02:17:19 +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

21
designer/designer.pp
View File

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