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

MG: renamed main Project to Project1

Browse Source 
git-svn-id: trunk@1551 -
This commit is contained in:
lazarus 2002-03-27 09:25:32 +00:00
parent c476b4dddd
commit 1ac990f79a
2 changed files with 233 additions and 234 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/include/ide_debugger.inc
View File

@ -182,7 +182,7 @@ end;
procedure TMainIDE.OnDebuggerException(Sender: TObject; const AExceptionID: Integer; const AExceptionText: String); procedure TMainIDE.OnDebuggerException(Sender: TObject; const AExceptionID: Integer; const AExceptionText: String);
begin begin
MessageDlg('Error', MessageDlg('Error',
Format('Project %s raised exception class %d with message ''%s''.', [Project.Title, AExceptionID, AExceptionText]), Format('Project %s raised exception class %d with message ''%s''.', [Project1.Title, AExceptionID, AExceptionText]),
mtError,[mbOk],0); mtError,[mbOk],0);
end; end;
@ -323,7 +323,7 @@ begin
WriteLN('[TMainIDE.DoInitDebugger] A'); WriteLN('[TMainIDE.DoInitDebugger] A');
Result:=mrCancel; Result:=mrCancel;
if Project.MainUnit < 0 then Exit; if Project1.MainUnit < 0 then Exit;
OldBreakpoints := nil; OldBreakpoints := nil;

463
ide/main.pp
View File

File diff suppressed because it is too large Load Diff