paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lazmapviewer: Fix painting of maps on Mac.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6884 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2019-04-29 16:59:29 +00:00
parent f07562d3cb
commit 8cd3f5784d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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