pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

lazmapviewer: Fix image format error on Linux (introduced by r6884).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6886 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-04-29 20:18:18 +00:00
parent 7cde99951d
commit 7ea250941e
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazmapviewer/source/mvmapviewer.pas
View File

@ -792,10 +792,10 @@ var
rawImg: TRawImage; rawImg: TRawImage;
begin begin
rawImg.Init; rawImg.Init;
{$IFDEF WINDOWS} {$IFDEF DARWIN}
rawImg.Description.Init_BPP32_B8G8R8_BIO_TTB(AWidth, AHeight);
{$ELSE}
rawImg.Description.Init_BPP32_A8R8G8B8_BIO_TTB(AWidth, AHeight); rawImg.Description.Init_BPP32_A8R8G8B8_BIO_TTB(AWidth, AHeight);
{$ELSE}
rawImg.Description.Init_BPP32_B8G8R8_BIO_TTB(AWidth, AHeight);
{$ENDIF} {$ENDIF}
rawImg.CreateData(True); rawImg.CreateData(True);
ABuffer := TLazIntfImage.Create(rawImg, true); ABuffer := TLazIntfImage.Create(rawImg, true);