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

started package system (packager)

Browse Source 
git-svn-id: trunk@2879 -
This commit is contained in:
mattias 2002-08-18 08:55:25 +00:00
parent 47373ab7da
commit ad8d3ebf53
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/main.pp
View File

@ -80,6 +80,7 @@ type
// file menu
procedure mnuNewUnitClicked(Sender : TObject);
procedure mnuNewFormClicked(Sender : TObject);
procedure mnuNewOtherClicked(Sender : TObject);
procedure mnuOpenClicked(Sender : TObject);
procedure mnuOpenRecentClicked(Sender : TObject);
procedure mnuRevertClicked(Sender : TObject);
@ -405,7 +406,8 @@ type
// files/units
function DoNewEditorFile(NewUnitType:TNewUnitType;
NewFilename: string; NewFlags: TNewFlags):TModalResult;
NewFilename: string; NewFlags: TNewFlags): TModalResult;
function DoNewOther: TModalResult;
function DoSaveEditorFile(PageIndex:integer;
Flags: TSaveFlags): TModalResult;
function DoCloseEditorFile(PageIndex:integer;
@ -1562,6 +1564,11 @@ begin
DoNewEditorFile(nuForm,'',[]);
end;
procedure TMainIDE.mnuNewOtherClicked(Sender: TObject);
begin
DoNewOther;
end;
procedure TMainIDE.mnuOpenClicked(Sender : TObject);
procedure UpdateEnvironment;
@ -3745,6 +3752,12 @@ begin
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.DoNewUnit end');{$ENDIF}
end;
function TMainIDE.DoNewOther: TModalResult;
begin
Result:=mrCancel;
MessageDlg('Not implemented yet','Not implemented yet',mtInformation,[mbOk],0);
end;
function TMainIDE.DoSaveEditorFile(PageIndex:integer;
Flags: TSaveFlags):TModalResult;
var ActiveSrcEdit:TSourceEditor;
@ -7770,6 +7783,9 @@ end.
{ =============================================================================
$Log$
Revision 1.470 2003/02/28 10:14:28 mattias
started package system (packager)
Revision 1.469 2003/02/26 12:44:52 mattias
readonly flag is now only saved if user set