paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 13:10:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: speedup loading of PNG images from FPC resources

Browse Source 
git-svn-id: trunk@43073 -
This commit is contained in:
paul 2013-10-04 15:43:45 +00:00
parent 51443f1cea
commit 7eca66bc47
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/picture.inc
View File

@ -42,16 +42,17 @@ type
constructor TPicFileFormatsList.Create;
begin
inherited Create;
Add(TBitmap.GetFileExtensions, rsBitmaps, TBitmap);
Add(TPixmap.GetFileExtensions, rsPixmap, TPixmap);
// add by priority of use in LCL/IDE
Add(TPortableNetworkGraphic.GetFileExtensions, rsPortableNetworkGraphic, TPortableNetworkGraphic);
Add(TPortableAnyMapGraphic.GetFileExtensions, rsPortablePixmap, TPortableAnyMapGraphic);
Add(TPixmap.GetFileExtensions, rsPixmap, TPixmap);
Add(TBitmap.GetFileExtensions, rsBitmaps, TBitmap);
Add(TCursorImage.GetFileExtensions, rsCursor, TCursorImage);
Add(TIcon.GetFileExtensions, rsIcon, TIcon);
Add(TIcnsIcon.GetFileExtensions, rsIcns, TIcnsIcon);
Add(TCursorImage.GetFileExtensions, rsCursor, TCursorImage);
Add(TJpegImage.GetFileExtensions, rsJpeg, TJpegImage);
Add(TTiffImage.GetFileExtensions, rsTiff, TTiffImage);
Add(TGIFImage.GetFileExtensions, rsGIF, TGIFImage);
Add(TPortableAnyMapGraphic.GetFileExtensions, rsPortablePixmap, TPortableAnyMapGraphic);
end;
procedure TPicFileFormatsList.Clear;
@ -154,7 +155,7 @@ function TPicFileFormatsList.FindByStreamFormat(Stream: TStream): TGraphicClass;
var
I: Integer;
begin
for I := Count - 1 downto 0 do
for I := 0 to Count - 1 do
begin
Result := GetFormats(I)^.GraphicClass;
if Result.IsStreamFormatSupported(Stream) then