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

ide: load splash logo from FPC resource

Browse Source 
git-svn-id: trunk@42976 -
This commit is contained in:
paul 2013-09-27 08:51:41 +00:00
parent 5cffde6483
commit d0e5148925
4 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -5747,6 +5747,7 @@ images/sourceeditor/tsynsyncroedit.png -text
images/splash_logo.bat svneol=native#text/x-msdos-program
images/splash_logo.lrs svneol=native#text/pascal
images/splash_logo.png -text svneol=unset#image/png
images/splash_logo.res -text
images/splash_logo.xpm -text svneol=native#image/x-xpixmap
images/splash_source/cheetah.jpg -text svneol=unset#image/jpeg
images/splash_source/paw.png -text svneol=unset#image/png

6
ide/splash.pp
View File

@ -62,6 +62,7 @@ var
implementation
{$R *.lfm}
{$R ../images/splash_logo.res}
const
VersionPos: TPoint = (X:0; Y:281);
@ -86,7 +87,7 @@ constructor TSplashForm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Image.Picture.LoadFromLazarusResource('splash_logo');
Image.Picture.LoadFromResourceName(hInstance, 'splash_logo', TPortableNetworkGraphic);
Application.AddOnIdleHandler(@ApplicationOnIdle);
end;
@ -117,7 +118,4 @@ begin
Image.Canvas.TextRect(ATextRect, VersionPos.X, VersionPos.Y, LazarusVersionStr, VersionStyle);
end;
initialization
{$I ../images/splash_logo.lrs}
end.

2
images/splash_logo.bat
View File

@ -1 +1 @@
..\tools\lazres splash_logo.lrs splash_logo.png
..\tools\lazres splash_logo.rc splash_logo.png

BIN
images/splash_logo.res Normal file
View File

Binary file not shown.