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

IconFinder: Fix failure to display BMP icons.

Browse Source
This commit is contained in:
wp_xyz 2024-11-08 18:51:51 +01:00
parent a153126d5a
commit b5e2e98d35
2 changed files with 10 additions and 2 deletions
components/iconfinder/source
iconthumbnails.pas
lcl
intfgraphics.pas

11
components/iconfinder/source/iconthumbnails.pas
View File

@ -18,8 +18,8 @@ unit IconThumbNails;
interface
uses
Classes, SysUtils, fgl, contnrs, FPImage, StrUtils, LazLoggerBase,
laz2_dom, laz2_xmlread, laz2_xmlwrite,
Classes, SysUtils, fgl, contnrs, FPImage, FPReadBMP, StrUtils, LazLoggerBase,
laz2_dom, laz2_xmlread, laz2_xmlwrite, IntfGraphics,
FileUtil, LazFileUtils, Graphics, Controls, Dialogs, Menus, Forms,
IconFinderStrConsts, BasicThumbnails;
@ -267,6 +267,8 @@ begin
begin
x := (Viewer.ThumbnailWidth - pic.Width) div 2;
y := (Viewer.ThumbnailHeight - pic.Height) div 2;
if Assigned(pic.Bitmap) then
pic.Bitmap.Transparent := true;
ACanvas.Draw(ARect.Left + x, ARect.Top + y, pic.Bitmap);
end;
end;
@ -1149,6 +1151,11 @@ begin
reader := TFPCustomImage.FindReaderFromStream(stream);
if reader <> nil then
begin
{$if FPC_FullVersion < 30301}
// Workaround for FPReaderBMP not implementing "ImageSize"
if reader = TFPReaderBMP then
reader := TLazReaderBMP;
{$ifend}
stream.Position := 0;
with reader.ImageSize(stream) do
begin

1
lcl/intfgraphics.pas
View File

@ -5091,6 +5091,7 @@ begin
end;
{$IF FPC_FullVersion < 30301}
{ Workaround for TFPReaderBMP not implementing InternalSize in FPC before 3.3.1}
class function TLazReaderBMP.InternalSize (Stream: TStream): TPoint;
var
fileHdr: TBitmapFileHeader;