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

added new ... dialog

Browse Source 
git-svn-id: trunk@2881 -
This commit is contained in:
mattias 2002-08-18 08:55:27 +00:00
parent 4ff03d4682
commit b0113dd83c
1 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
ide/main.pp
View File

@ -55,7 +55,7 @@ uses
BuildLazDialog, MiscOptions, EditDefineTree, CodeToolsOptions, TypInfo, BuildLazDialog, MiscOptions, EditDefineTree, CodeToolsOptions, TypInfo,
IDEOptionDefs, CodeToolsDefines, LocalsDlg, DebuggerDlg, InputHistory, IDEOptionDefs, CodeToolsDefines, LocalsDlg, DebuggerDlg, InputHistory,
DiskDiffsDialog, UnitDependencies, PublishProjectDlg, ClipBoardHistory, DiskDiffsDialog, UnitDependencies, PublishProjectDlg, ClipBoardHistory,
ProcessList, InitialSetupDlgs, ProcessList, InitialSetupDlgs, NewDialog,
// main ide // main ide
BaseDebugManager, DebugManager, MainBar; BaseDebugManager, DebugManager, MainBar;
@ -1356,6 +1356,7 @@ begin
inherited; inherited;
itmFileNewUnit.OnClick := @mnuNewUnitClicked; itmFileNewUnit.OnClick := @mnuNewUnitClicked;
itmFileNewForm.OnClick := @mnuNewFormClicked; itmFileNewForm.OnClick := @mnuNewFormClicked;
itmFileNewOther.OnClick := @mnuNewOtherClicked;
itmFileOpen.OnClick := @mnuOpenClicked; itmFileOpen.OnClick := @mnuOpenClicked;
itmFileRevert.OnClick := @mnuRevertClicked; itmFileRevert.OnClick := @mnuRevertClicked;
SetRecentFilesMenu; SetRecentFilesMenu;
@ -2063,7 +2064,7 @@ var
NewProjectType: TProjectType; NewProjectType: TProjectType;
Begin Begin
if ChooseNewProject(NewProjectType)=mrCancel then exit; if ChooseNewProject(NewProjectType)=mrCancel then exit;
DoNewProject(NewprojectType); DoNewProject(NewProjectType);
end; end;
procedure TMainIDE.mnuNewProjectFromFileClicked(Sender: TObject); procedure TMainIDE.mnuNewProjectFromFileClicked(Sender: TObject);
@ -3758,9 +3759,27 @@ begin
end; end;
function TMainIDE.DoNewOther: TModalResult; function TMainIDE.DoNewOther: TModalResult;
var
NewIDEItem: TNewIDEItem;
begin begin
Result:=mrCancel; Result:=ShowNewIDEItemDialog(NewIDEItem);
MessageDlg('Not implemented yet','Not implemented yet',mtInformation,[mbOk],0); try
if Result<>mrOk then exit;
case NewIDEItem.TheType of
niiText: Result:=DoNewEditorFile(nuText,'',[]);
niiUnit: Result:=DoNewEditorFile(nuUnit,'',[]);
niiForm: Result:=DoNewEditorFile(nuForm,'',[]);
niiApplication: DoNewProject(ptApplication);
niiFPCProject: DoNewProject(ptProgram);
niiCustomProject: DoNewProject(ptCustomProgram);
else
MessageDlg('Not implemented yet',
'Sorry, this type is not yet implemented',
mtInformation,[mbOk],0);
end;
finally
NewIDEItem.Free;
end;
end; end;
function TMainIDE.DoSaveEditorFile(PageIndex:integer; function TMainIDE.DoSaveEditorFile(PageIndex:integer;
@ -7787,6 +7806,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.472 2003/02/28 19:10:25 mattias
added new ... dialog
Revision 1.471 2003/02/28 15:38:00 mattias Revision 1.471 2003/02/28 15:38:00 mattias
bookmarks are now saved also for closed files and merged when possible bookmarks are now saved also for closed files and merged when possible