paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 23:19:26 +01: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,
IDEOptionDefs, CodeToolsDefines, LocalsDlg, DebuggerDlg, InputHistory,
DiskDiffsDialog, UnitDependencies, PublishProjectDlg, ClipBoardHistory,
ProcessList, InitialSetupDlgs,
ProcessList, InitialSetupDlgs, NewDialog,
// main ide
BaseDebugManager, DebugManager, MainBar;
@ -1356,6 +1356,7 @@ begin
inherited;
itmFileNewUnit.OnClick := @mnuNewUnitClicked;
itmFileNewForm.OnClick := @mnuNewFormClicked;
itmFileNewOther.OnClick := @mnuNewOtherClicked;
itmFileOpen.OnClick := @mnuOpenClicked;
itmFileRevert.OnClick := @mnuRevertClicked;
SetRecentFilesMenu;
@ -2063,7 +2064,7 @@ var
NewProjectType: TProjectType;
Begin
if ChooseNewProject(NewProjectType)=mrCancel then exit;
DoNewProject(NewprojectType);
DoNewProject(NewProjectType);
end;
procedure TMainIDE.mnuNewProjectFromFileClicked(Sender: TObject);
@ -3758,9 +3759,27 @@ begin
end;
function TMainIDE.DoNewOther: TModalResult;
var
NewIDEItem: TNewIDEItem;
begin
Result:=mrCancel;
MessageDlg('Not implemented yet','Not implemented yet',mtInformation,[mbOk],0);
Result:=ShowNewIDEItemDialog(NewIDEItem);
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;
function TMainIDE.DoSaveEditorFile(PageIndex:integer;
@ -7787,6 +7806,9 @@ end.
{ =============================================================================
$Log$
Revision 1.472 2003/02/28 19:10:25 mattias
added new ... dialog
Revision 1.471 2003/02/28 15:38:00 mattias
bookmarks are now saved also for closed files and merged when possible