paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 11:19:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: invert pixels on mask when image is without alpha channel and RGB32.

Browse Source 
git-svn-id: trunk@31486 -
This commit is contained in:
zeljko 2011-07-01 10:33:43 +00:00
parent 32de941260
commit c70a70c09e
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/interfaces/qt/qtlclintf.inc
View File

@ -634,6 +634,7 @@ var
WorkImage, WorkMask: TQtImage;
R: TRect;
Width, Height: Integer;
InvertPixels: Boolean;
begin
Result := False;
@ -681,15 +682,34 @@ begin
if ARawImage.DataSize > 0 then
Move(WorkImage.bits^, ARawImage.Data^, ARawImage.DataSize);
if WorkMask <> nil
then begin
if WorkMask <> nil then
begin
Desc.MaskLineEnd := rileDWordBoundary;
Desc.MaskBitOrder := riboReversedBits;
Desc.MaskBitsPerPixel := 1;
ARawImage.MaskSize := WorkMask.numBytes;
ReAllocMem(ARawImage.Mask, ARawImage.MaskSize);
if ARawImage.MaskSize > 0 then
begin
InvertPixels := False;
if WorkImage <> nil then
begin
InvertPixels :=
(
not QImage_hasAlphaChannel(WorkMask.Handle) and
not QImage_hasAlphaChannel(WorkImage.Handle) and
// invert only if WorkImage is RGB32 fmt
(WorkImage.getFormat = QImageFormat_RGB32) and
// both are 32b imgs
(QImage_numColors(WorkImage.Handle) = 0) and
(QImage_numColors(WorkMask.Handle) = 0));
end;
if InvertPixels then
WorkMask.invertPixels(QImageInvertRGB);
Move(WorkMask.bits^, ARawImage.Mask^, ARawImage.MaskSize);
if InvertPixels then
WorkMask.invertPixels(QImageInvertRGB);
end;
end;
if WorkImage <> Image then