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

LCL: Initialize image description in widgetsets where not done already. Issue #36955, patch from Michal Gawrycki.

Browse Source 
git-svn-id: trunk@63131 -
This commit is contained in:
juha 2020-05-09 22:28:29 +00:00
parent 8946cd3dd1
commit e0156207ac
4 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/customdrawn/customdrawn_winproc.pas
View File

@ -612,9 +612,7 @@ end;
procedure FillRawImageDescription(const ABitmapInfo: Windows.TBitmap; out ADesc: TRawImageDescription);
begin
ADesc.Init;
ADesc.Format := ricfRGBA;
ADesc.Depth := ABitmapInfo.bmBitsPixel; // used bits per pixel
ADesc.Width := ABitmapInfo.bmWidth;
ADesc.Height := ABitmapInfo.bmHeight;

3
lcl/interfaces/fpgui/fpguiobject.inc
View File

@ -398,8 +398,8 @@ end;
procedure FillRawImageDescription(const ABitmapInfo: TfpgImage; out ADesc: TRawImageDescription);
begin
ADesc.Init;
ADesc.Format := ricfRGBA;
ADesc.Depth := 32; // used bits per pixel
ADesc.Width := ABitmapInfo.Width;
ADesc.Height := ABitmapInfo.Height;
@ -417,7 +417,6 @@ begin
end
else ADesc.PaletteColorCount := 0;
FillRawImageDescriptionColors(ADesc);
ADesc.MaskBitsPerPixel := 8;

3
lcl/interfaces/win32/win32proc.pp
View File

@ -1127,8 +1127,8 @@ end;
procedure FillRawImageDescription(const ABitmapInfo: Windows.TBitmap; out ADesc: TRawImageDescription);
begin
ADesc.Init;
ADesc.Format := ricfRGBA;
ADesc.Depth := ABitmapInfo.bmBitsPixel; // used bits per pixel
ADesc.Width := ABitmapInfo.bmWidth;
ADesc.Height := ABitmapInfo.bmHeight;
@ -1146,7 +1146,6 @@ begin
end
else ADesc.PaletteColorCount := 0;
FillRawImageDescriptionColors(ADesc);
ADesc.MaskBitsPerPixel := 1;

2
lcl/interfaces/wince/winceproc.pp
View File

@ -560,9 +560,7 @@ end;
procedure FillRawImageDescription(const ABitmapInfo: Windows.TBitmap; out ADesc: TRawImageDescription);
begin
ADesc.Init;
ADesc.Format := ricfRGBA;
ADesc.Depth := ABitmapInfo.bmBitsPixel; // used bits per pixel
ADesc.Width := ABitmapInfo.bmWidth;
ADesc.Height := ABitmapInfo.bmHeight;