paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 21:39:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: designer: added menu item Center form

Browse Source 
git-svn-id: trunk@21614 -
This commit is contained in:
mattias 2009-09-08 10:22:48 +00:00
parent 8ad516451b
commit c4b9231706
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
designer/designer.pp
View File

@ -215,6 +215,7 @@ type
procedure OnSnapToGuideLinesOptionMenuClick(Sender: TObject); procedure OnSnapToGuideLinesOptionMenuClick(Sender: TObject);
procedure OnViewLFMMenuClick(Sender: TObject); procedure OnViewLFMMenuClick(Sender: TObject);
procedure OnSaveAsXMLMenuClick(Sender: TObject); procedure OnSaveAsXMLMenuClick(Sender: TObject);
procedure OnCenterFormMenuClick(Sender: TObject);
// hook // hook
function GetPropertyEditorHook: TPropertyEditorHook; override; function GetPropertyEditorHook: TPropertyEditorHook; override;
@ -353,6 +354,7 @@ var
DesignerMenuChangeParent: TIDEMenuSection; DesignerMenuChangeParent: TIDEMenuSection;
DesignerMenuViewLFM: TIDEMenuCommand; DesignerMenuViewLFM: TIDEMenuCommand;
DesignerMenuSaveAsXML: TIDEMenuCommand; DesignerMenuSaveAsXML: TIDEMenuCommand;
DesignerMenuCenterForm: TIDEMenuCommand;
DesignerMenuSnapToGridOption: TIDEMenuCommand; DesignerMenuSnapToGridOption: TIDEMenuCommand;
DesignerMenuSnapToGuideLinesOption: TIDEMenuCommand; DesignerMenuSnapToGuideLinesOption: TIDEMenuCommand;
@ -443,6 +445,8 @@ begin
'View LFM',lisViewSourceLfm); 'View LFM',lisViewSourceLfm);
DesignerMenuSaveAsXML:=RegisterIDEMenuCommand(DesignerMenuSectionMisc, DesignerMenuSaveAsXML:=RegisterIDEMenuCommand(DesignerMenuSectionMisc,
'Save as XML',fdmSaveFormAsXML); 'Save as XML',fdmSaveFormAsXML);
DesignerMenuCenterForm:=RegisterIDEMenuCommand(DesignerMenuSectionMisc,
'Center form', lisCenterForm);
// register options section // register options section
DesignerMenuSectionOptions:=RegisterIDEMenuSection(DesignerMenuRoot, DesignerMenuSectionOptions:=RegisterIDEMenuSection(DesignerMenuRoot,
@ -2403,6 +2407,17 @@ begin
if Assigned(OnSaveAsXML) then OnSaveAsXML(Self); if Assigned(OnSaveAsXML) then OnSaveAsXML(Self);
end; end;
procedure TDesigner.OnCenterFormMenuClick(Sender: TObject);
var
NewLeft: Integer;
NewTop: Integer;
begin
if Form=nil then exit;
NewLeft:=Max(30,(Screen.Width-Form.Width) div 2);
NewTop:=Max(30,(Screen.Height-Form.Height) div 2);
Form.SetBounds(NewLeft,NewTop,Form.Width,Form.Height);
end;
procedure TDesigner.OnCopyMenuClick(Sender: TObject); procedure TDesigner.OnCopyMenuClick(Sender: TObject);
begin begin
CopySelection; CopySelection;
@ -2883,6 +2898,7 @@ begin
DesignerMenuChangeClass.OnClick:=@OnChangeClassMenuClick; DesignerMenuChangeClass.OnClick:=@OnChangeClassMenuClick;
DesignerMenuViewLFM.OnClick:=@OnViewLFMMenuClick; DesignerMenuViewLFM.OnClick:=@OnViewLFMMenuClick;
DesignerMenuSaveAsXML.OnClick:=@OnSaveAsXMLMenuClick; DesignerMenuSaveAsXML.OnClick:=@OnSaveAsXMLMenuClick;
DesignerMenuCenterForm.OnClick:=@OnCenterFormMenuClick;
DesignerMenuSnapToGridOption.OnClick:=@OnSnapToGridOptionMenuClick; DesignerMenuSnapToGridOption.OnClick:=@OnSnapToGridOptionMenuClick;
DesignerMenuSnapToGridOption.ShowAlwaysCheckable:=true; DesignerMenuSnapToGridOption.ShowAlwaysCheckable:=true;

1
ide/lazarusidestrconsts.pas
View File

@ -4476,6 +4476,7 @@ resourcestring
lisUsePackageInProject2 = 'Use package in project'; lisUsePackageInProject2 = 'Use package in project';
lisUseIdentifier = 'Use identifier'; lisUseIdentifier = 'Use identifier';
lisUsePackageInPackage2 = 'Use package in package'; lisUsePackageInPackage2 = 'Use package in package';
lisCenterForm = 'Center form';
implementation implementation