paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-29 15:56:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: splasform use CreateForm

Browse Source
This commit is contained in:
mattias 2023-09-06 16:45:26 +02:00
parent 872608c382
commit 4ffb33a0bc
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/lazarus.pp
View File

@ -137,11 +137,8 @@ begin
if Application.Terminated then exit;
// Show splashform
if ShowSplashScreen then begin
SplashForm := TSplashForm.Create(nil);
SplashForm.Show;
Application.ProcessMessages; // process splash paint message
end;
if ShowSplashScreen then
Application.CreateForm(TSplashForm,SplashForm);
TMainIDE.Create(Application);
if not Application.Terminated then

11
ide/splash.pp
View File

@ -51,6 +51,8 @@ type
procedure ImagePaint(Sender: TObject);
private
procedure LoadSplash;
protected
procedure DoFirstShow; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -103,6 +105,11 @@ begin
SplashForm := nil;
end;
procedure TSplashForm.Show;
begin
end;
procedure TSplashForm.ApplicationOnIdle(Sender: TObject; var Done: boolean);
begin
Hide;
@ -127,9 +134,9 @@ begin
Image.Picture.LoadFromResourceName(hInstance, 'splash_logo', TPortableNetworkGraphic);
end;
procedure TSplashForm.Show;
procedure TSplashForm.DoFirstShow;
begin
inherited;
inherited DoFirstShow;
LoadSplash;
ScaleImg(Image.Picture.Bitmap, Width, Height);