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

startlazarus: moved showing splash screen out of lazarusmanager constructor to get better backtrace for bug #7966

Browse Source 
git-svn-id: trunk@10333 -
This commit is contained in:
vincents 2006-12-15 08:25:06 +00:00
parent 3a1836c830
commit ec287d82c2
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/lazarusmanager.pas
View File

@ -118,22 +118,14 @@ type
procedure LazarusProcessStart(Sender: TObject);
procedure WaitForLazarus;
public
constructor Create; reintroduce;
destructor Destroy; override;
procedure Initialize;
procedure Run;
procedure ShowSplash;
end;
implementation
constructor TLazarusManager.Create;
begin
inherited Create(nil);
SplashForm := nil;
ShowSplash;
ParseCommandLine;
end;
destructor TLazarusManager.Destroy;
begin
FreeAndNil(FCmdLineParams);
@ -260,6 +252,13 @@ begin
WaitForPID(FLazarusPID);
end;
procedure TLazarusManager.Initialize;
begin
SplashForm := nil;
ShowSplash;
ParseCommandLine;
end;
procedure TLazarusManager.Run;
var
Restart: boolean;

3
ide/startlazarus.lpr
View File

@ -44,7 +44,8 @@ var
begin
Application.Initialize;
ALazarusManager := TLazarusManager.Create;
ALazarusManager := TLazarusManager.Create(nil);
ALazarusManager.Initialize;
ALazarusManager.Run;
FreeAndNil(ALazarusManager);
end.