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

Qt5: reduced compiler warnings

Browse Source 
git-svn-id: trunk@62900 -
This commit is contained in:
zeljko 2020-04-06 12:42:28 +00:00
parent f49d5ee891
commit 046a3365f5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt5/qtobjects.pas
View File

@ -1806,7 +1806,7 @@ end;
constructor TQtBrush.CreateWithRadialGradient(ALogBrush: TLogRadialGradient);
var
i: Integer;
lColor: PQColor;
lColor: TQColor;
lR, lG, lB, lA: Double;
begin
FRadialGradient := QRadialGradient_create(
@ -1818,8 +1818,8 @@ begin
lG := ALogBrush.radStops[i].radColorG / $FFFF;
lB := ALogBrush.radStops[i].radColorB / $FFFF;
lA := ALogBrush.radStops[i].radColorA / $FFFF;
QColor_fromRgbF(lColor, lR, lG, lB, lA);
QGradient_setColorAt(FRadialGradient, ALogBrush.radStops[i].radPosition, lColor);
QColor_fromRgbF(@lColor, lR, lG, lB, lA);
QGradient_setColorAt(FRadialGradient, ALogBrush.radStops[i].radPosition, @lColor);
end;
FHandle := QBrush_create(FRadialGradient);