paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 22:44:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Undo r59715 #4ae9277231

Browse Source 
git-svn-id: trunk@59757 -
This commit is contained in:
wp 2018-12-08 19:17:49 +00:00
parent 744b5bcb16
commit 1aedb34fdb
2 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/aboutfrm.pas
View File

@ -307,9 +307,20 @@ begin
end;
procedure TAboutForm.LoadLogo;
var
pic: TPicture;
W, H: Integer;
begin
LogoImage.Picture.LoadFromResourceName(hInstance, 'splash_logo', TPortableNetworkGraphic);
AntiAliasedStretchBitmap(LogoImage.Picture.Bitmap, LogoImage.Width, LogoImage.Height);
pic := TPicture.Create;
try
pic.LoadFromResourceName(hInstance, 'splash_logo', TPortableNetworkGraphic);
W := LogoImage.Width;
H := LogoImage.Height;
LogoImage.Picture.Bitmap.SetSize(W, H);
AntiAliasedStretchDrawBitmap(pic.Bitmap, LogoImage.Picture.Bitmap, W, H);
finally
pic.Free;
end;
end;

14
ide/splash.pp
View File

@ -124,10 +124,18 @@ begin
end;
procedure TSplashForm.LoadSplash;
var
pic: TPicture;
begin
Image.Picture.LoadFromResourceName(hInstance, 'splash_logo', TPortableNetworkGraphic);
Width := round(Height * Image.Picture.Width / Image.Picture.Height);
AntiAliasedStretchBitmap(Image.Picture.Bitmap, Width, Height);
pic := TPicture.Create;
try
pic.LoadFromResourceName(hInstance, 'splash_logo', TPortableNetworkGraphic);
Width := round(Height * pic.Width / pic.Height);
Image.Picture.Bitmap.SetSize(Width, Height);
AntiAliasedStretchDrawBitmap(pic.Bitmap, Image.Picture.Bitmap, Width, Height);
finally
pic.Free;
end;
end;
procedure TSplashForm.Show;