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

Qt: mono QImage needs rgba color under darwin.

Browse Source 
git-svn-id: trunk@40779 -
This commit is contained in:
zeljko 2013-04-10 05:55:02 +00:00
parent 03ecd2e09a
commit 49ae53840a
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/qt/qtobjects.pas
View File

@ -1318,7 +1318,13 @@ begin
if format = QImageFormat_Mono then
begin
QImage_setNumColors(FHandle, 2);
{$IFDEF DARWIN}
//rgba
QImage_SetColor(FHandle, 0, $000000FF);
{$ELSE}
//argb
QImage_SetColor(FHandle, 0, $FF000000);
{$ENDIF}
QImage_SetColor(FHandle, 1, $FFFFFFFF);
end;
end;
@ -1339,7 +1345,13 @@ begin
if format = QImageFormat_Mono then
begin
QImage_setNumColors(FHandle, 2);
{$IFDEF DARWIN}
// rgba
QImage_SetColor(FHandle, 0, $000000FF);
{$ELSE}
// argb
QImage_SetColor(FHandle, 0, $FF000000);
{$ENDIF}
QImage_SetColor(FHandle, 1, $FFFFFFFF);
end;
end;