From 8cd3f5784d29d01b53d16a4a883f7f78e1bd9c71 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Mon, 29 Apr 2019 16:59:29 +0000 Subject: [PATCH] lazmapviewer: Fix painting of maps on Mac. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6884 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/lazmapviewer/source/mvmapviewer.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/components/lazmapviewer/source/mvmapviewer.pas b/components/lazmapviewer/source/mvmapviewer.pas index 33d4dbe36..a3ae0d572 100644 --- a/components/lazmapviewer/source/mvmapviewer.pas +++ b/components/lazmapviewer/source/mvmapviewer.pas @@ -792,8 +792,11 @@ var rawImg: TRawImage; begin rawImg.Init; - //rawImg.Description.Init_BPP24_B8G8R8_BIO_TTB(AWidth, AHeight); + {$IFDEF WINDOWS} rawImg.Description.Init_BPP32_B8G8R8_BIO_TTB(AWidth, AHeight); + {$ELSE} + rawImg.Description.Init_BPP32_A8R8G8B8_BIO_TTB(AWidth, AHeight); + {$ENDIF} rawImg.CreateData(True); ABuffer := TLazIntfImage.Create(rawImg, true); ACanvas := TFPImageCanvas.Create(ABuffer);