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

MG: added close all menuitem

Browse Source 
git-svn-id: trunk@1463 -
This commit is contained in:
lazarus 2002-02-25 23:04:23 +00:00
parent b14c8d2507
commit 2b0990b47d
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/main.pp
View File

@ -99,6 +99,7 @@ type
itmFileSaveAs: TMenuItem; itmFileSaveAs: TMenuItem;
itmFileSaveAll: TMenuItem; itmFileSaveAll: TMenuItem;
itmFileClose: TMenuItem; itmFileClose: TMenuItem;
itmFileCloseAll: TMenuItem;
itmFileQuit: TMenuItem; itmFileQuit: TMenuItem;
itmEditUndo: TMenuItem; itmEditUndo: TMenuItem;
@ -186,6 +187,7 @@ type
procedure mnuSaveAsClicked(Sender : TObject); procedure mnuSaveAsClicked(Sender : TObject);
procedure mnuSaveAllClicked(Sender : TObject); procedure mnuSaveAllClicked(Sender : TObject);
procedure mnuCloseClicked(Sender : TObject); procedure mnuCloseClicked(Sender : TObject);
procedure mnuCloseAllClicked(Sender : TObject);
procedure mnuQuitClicked(Sender : TObject); procedure mnuQuitClicked(Sender : TObject);
// edit menu // edit menu
@ -1190,6 +1192,13 @@ begin
itmFileClose.OnClick := @mnuCloseClicked; itmFileClose.OnClick := @mnuCloseClicked;
mnuFile.Add(itmFileClose); mnuFile.Add(itmFileClose);
itmFileCloseAll := TMenuItem.Create(Self);
itmFileCloseAll.Name:='itmFileCloseAll';
itmFileCloseAll.Caption := 'Close All';
itmFileCloseAll.Enabled := False;
itmFileCloseAll.OnClick := @mnuCloseAllClicked;
mnuFile.Add(itmFileCloseAll);
mnuFile.Add(CreateSeperator); mnuFile.Add(CreateSeperator);
itmFileQuit := TMenuItem.Create(Self); itmFileQuit := TMenuItem.Create(Self);
@ -1725,6 +1734,12 @@ begin
DoCloseEditorUnit(SourceNoteBook.NoteBook.PageIndex,true); DoCloseEditorUnit(SourceNoteBook.NoteBook.PageIndex,true);
end; end;
procedure TMainIDE.mnuCloseAllClicked(Sender : TObject);
begin
while (SourceNoteBook.NoteBook<>nil)
and (DoCloseEditorUnit(SourceNoteBook.NoteBook.PageIndex,true)=mrOk) do ;
end;
Procedure TMainIDE.OnSrcNotebookFileNew(Sender : TObject); Procedure TMainIDE.OnSrcNotebookFileNew(Sender : TObject);
begin begin
mnuNewFormClicked(Sender); mnuNewFormClicked(Sender);
@ -6029,6 +6044,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.235 2002/02/25 23:04:23 lazarus
MG: added close all menuitem
Revision 1.234 2002/02/25 22:56:55 lazarus Revision 1.234 2002/02/25 22:56:55 lazarus
MG: fixed resetting error line before compiling MG: fixed resetting error line before compiling