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

anchordocking: miniide: save/load to file

Browse Source 
git-svn-id: trunk@28102 -
This commit is contained in:
mattias 2010-11-05 19:45:24 +00:00
parent 27461c4823
commit 2df864d4b8
2 changed files with 70 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
examples/anchordocking/minide/unit1.lfm
View File

@ -3,16 +3,15 @@ object MainIDE: TMainIDE
Height = 85
Top = 199
Width = 505
ActiveControl = Page2
Caption = 'MainIDE'
ClientHeight = 85
ClientHeight = 60
ClientWidth = 505
Menu = MainMenu1
OnCreate = FormCreate
LCLVersion = '0.9.29'
object ComponentPalette: TPageControl
Left = 208
Height = 85
Height = 60
Top = 0
Width = 297
Align = alClient
@ -26,11 +25,11 @@ object MainIDE: TMainIDE
end
object BtnPanel: TPanel
Left = 0
Height = 85
Height = 60
Top = 0
Width = 208
Align = alLeft
ClientHeight = 85
ClientHeight = 60
ClientWidth = 208
TabOrder = 1
object ToolBar1: TToolBar
@ -46,72 +45,72 @@ object MainIDE: TMainIDE
Top = 2
Caption = 'ViewSrcEditor1ToolButton'
ImageIndex = 2
OnClick = ViewSrcEditor1ToolButtonClick
ParentShowHint = False
ShowHint = True
OnClick = ViewSrcEditor1ToolButtonClick
end
object ViewSrcEdit2ToolButton: TToolButton
Left = 24
Top = 2
Caption = 'ViewSrcEdit2ToolButton'
ImageIndex = 2
OnClick = ViewSrcEdit2ToolButtonClick
ParentShowHint = False
ShowHint = True
OnClick = ViewSrcEdit2ToolButtonClick
end
object ViewCodeExplToolButton: TToolButton
Left = 47
Top = 2
Caption = 'ViewCodeExplToolButton'
ImageIndex = 3
OnClick = ViewCodeExplToolButtonClick
ParentShowHint = False
ShowHint = True
OnClick = ViewCodeExplToolButtonClick
end
object ViewOIToolButton: TToolButton
Left = 70
Top = 2
Caption = 'ViewOIToolButton'
ImageIndex = 4
OnClick = ViewOIToolButtonClick
ParentShowHint = False
ShowHint = True
OnClick = ViewOIToolButtonClick
end
object ViewMessagesToolButton: TToolButton
Left = 93
Top = 2
Caption = 'ViewMessagesToolButton'
ImageIndex = 5
OnClick = ViewMessagesToolButtonClick
ParentShowHint = False
ShowHint = True
OnClick = ViewMessagesToolButtonClick
end
object ViewFPDocEditorToolButton: TToolButton
Left = 116
Top = 2
Caption = 'ViewFPDocEditorToolButton'
ImageIndex = 6
OnClick = ViewFPDocEditorToolButtonClick
ParentShowHint = False
ShowHint = True
OnClick = ViewFPDocEditorToolButtonClick
end
object ViewProjInspToolButton: TToolButton
Left = 139
Top = 2
Caption = 'ViewProjInspToolButton'
ImageIndex = 9
OnClick = ViewProjInspToolButtonClick
ParentShowHint = False
ShowHint = True
OnClick = ViewProjInspToolButtonClick
end
object ViewDbgOutToolButton: TToolButton
Left = 162
Top = 2
Caption = 'ViewDbgOutToolButton'
ImageIndex = 10
OnClick = ViewDbgOutToolButtonClick
ParentShowHint = False
ShowHint = True
OnClick = ViewDbgOutToolButtonClick
end
end
object ToolBar2: TToolBar
@ -127,18 +126,18 @@ object MainIDE: TMainIDE
Top = 2
Caption = 'SaveLayoutToolButton'
ImageIndex = 7
OnClick = SaveLayoutToolButtonClick
ParentShowHint = False
ShowHint = True
OnClick = SaveLayoutToolButtonClick
end
object LoadLayoutToolButton: TToolButton
Left = 24
Top = 2
Caption = 'LoadLayoutToolButton'
ImageIndex = 8
OnClick = LoadLayoutToolButtonClick
ParentShowHint = False
ShowHint = True
OnClick = LoadLayoutToolButtonClick
end
end
end
@ -153,6 +152,20 @@ object MainIDE: TMainIDE
object NewFileMenuItem: TMenuItem
Caption = 'New file'
end
object MenuItem1: TMenuItem
Caption = '-'
end
object SaveLayoutAsMenuItem: TMenuItem
Caption = 'Save layout as ...'
OnClick = SaveLayoutAsMenuItemClick
end
object LoadLayoutMenuItem: TMenuItem
Caption = 'Load layout ...'
OnClick = LoadLayoutMenuItemClick
end
object MenuItem2: TMenuItem
Caption = '-'
end
object QuitMenuItem: TMenuItem
Caption = 'Quit'
OnClick = QuitMenuItemClick

42
examples/anchordocking/minide/unit1.pas
View File

@ -17,6 +17,10 @@ type
ImageList1: TImageList;
MainMenu1: TMainMenu;
ComponentPalette: TPageControl;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
LoadLayoutMenuItem: TMenuItem;
SaveLayoutAsMenuItem: TMenuItem;
NewFileMenuItem: TMenuItem;
OpenFileMenuItem: TMenuItem;
Page1: TTabSheet;
@ -38,8 +42,10 @@ type
ViewSrcEditor1ToolButton: TToolButton;
procedure FileMenuItemClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure LoadLayoutMenuItemClick(Sender: TObject);
procedure LoadLayoutToolButtonClick(Sender: TObject);
procedure QuitMenuItemClick(Sender: TObject);
procedure SaveLayoutAsMenuItemClick(Sender: TObject);
procedure SaveLayoutToolButtonClick(Sender: TObject);
procedure ViewCodeExplToolButtonClick(Sender: TObject);
procedure ViewDbgOutToolButtonClick(Sender: TObject);
@ -134,6 +140,22 @@ begin
ViewFPDocEditorToolButtonClick(Self);
end;
procedure TMainIDE.LoadLayoutMenuItemClick(Sender: TObject);
var
Dlg: TOpenDialog;
begin
Dlg:=TOpenDialog.Create(nil);
try
Dlg.Title:='Open layout file ...';
Dlg.Filter:='*.xml|*.xml';
Dlg.Options:=Dlg.Options+[ofFileMustExist];
if not Dlg.Execute then exit;
LoadLayout(Dlg.FileName);
finally
Dlg.Free;
end;
end;
procedure TMainIDE.LoadLayoutToolButtonClick(Sender: TObject);
begin
LoadLayout('layout.xml');
@ -144,6 +166,26 @@ begin
Close;
end;
procedure TMainIDE.SaveLayoutAsMenuItemClick(Sender: TObject);
var
Dlg: TSaveDialog;
Filename: String;
begin
Dlg:=TSaveDialog.Create(nil);
try
Dlg.Title:='Save layout as ...';
Dlg.Filter:='*.xml|*.xml';
Dlg.Options:=Dlg.Options+[ofPathMustExist,ofHideReadOnly,ofOverwritePrompt];
if not Dlg.Execute then exit;
Filename:=Dlg.FileName;
if ExtractFileExt(Filename)='' then
Filename:=Filename+'.xml';
SaveLayout(FileName);
finally
Dlg.Free;
end;
end;
procedure TMainIDE.SaveLayoutToolButtonClick(Sender: TObject);
begin
SaveLayout('layout.xml');