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

lazVirtualTreeView Qt5: applied transform in alpha blend selection

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

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

@ -789,6 +789,8 @@ var
AColor: QColorH;
ADst: TQtDeviceContext absolute Destination;
AFillColor: TQColor;
ATransform: QTransformH;
DX, DY: QReal;
{$ENDIF}
//BlendColor: TQColor;
@ -872,10 +874,15 @@ begin
{$IFDEF CPU64}
if ADst <> nil then
begin
ATransform := QPainter_transform(ADst.Widget);
DX := QTransform_dx(ATransform);
DY := QTransform_dy(ATransform);
ADst.translate(-DX, -DY);
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));
ADst.translate(DX, DY);
QColor_destroy(AColor);
end;
{$ELSE}