paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 04:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazVirtualTreeView Qt5: fixed alpha blend selection on 64bit.

Browse Source 
git-svn-id: trunk@63053 -
This commit is contained in:
zeljko 2020-04-24 10:21:10 +00:00
parent d6fe30b43c
commit 0ed209bd81
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/virtualtreeview/include/intf/qt5/laz.vtgraphicsi.inc
View File

@ -785,6 +785,11 @@ var
SourceHeight,
DestWidth,
DestHeight: Integer;
{$IFDEF CPU64}
AColor: QColorH;
ADst: TQtDeviceContext absolute Destination;
AFillColor: TQColor;
{$ENDIF}
//BlendColor: TQColor;
begin
@ -864,7 +869,16 @@ begin
R.Right - R.Left, R.Bottom - R.Top, @BlendColor);
}
// Source is ignored since there is a constant color value.
{$IFDEF CPU64}
if ADst <> nil then
begin
AColor := QColor_create((Bias and $000000FF), ((Bias shr 8) and $000000FF), ((Bias shr 16) and $000000FF), ConstantAlpha);
QColor_convertTo(AColor, @AFillColor, QColorRgb);
QPainter_fillRect(ADst.Widget, R.Left + Target.x, R.Top + Target.y,
R.Right - R.Left, R.Bottom - R.Top, PQColor(@AFillColor));
QColor_destroy(AColor);
end;
{$ELSE}
DestBits := GetBitmapBitsFromDeviceContext(Destination, DestWidth, DestHeight);
if Assigned(DestBits) then
begin
@ -876,6 +890,7 @@ begin
end;
end;
EMMS;
{$ENDIF}
end;
end;
end;