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

LCL INTERFACES QT: removed wrong offset from Ellipse and RadialPie

Browse Source 
files qtwinapi.inc and qtlclintf.inc

git-svn-id: trunk@47651 -
This commit is contained in:
giuliano 2015-02-08 12:12:26 +00:00
parent cb26c9b482
commit 83ce9e7c08
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -443,8 +443,8 @@ var
begin
Result := IsValidDC(DC) and (x2 > x1) and (y2 > y1);
if Result then begin
theWidth := x2 - x1 + 1;
theHeight := y2 - y1 + 1;
theWidth := x2 - x1;
theHeight := y2 - y1;
QPainter_drawPie(TQtDeviceContext(DC).Widget, x1, y1, theWidth, theHeight, Angle1, Angle2);
end;
end;

2
lcl/interfaces/qt/qtwinapi.inc
View File

@ -1492,7 +1492,7 @@ begin
R := NormalizeRect(Rect(X1, Y1, X2, Y2));
if IsRectEmpty(R) then Exit(True);
TQtDeviceContext(DC).drawEllipse(R.Left, R.Top, R.Right - R.Left - 1, R.Bottom - R.Top - 1);
TQtDeviceContext(DC).drawEllipse(R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top{ - 1});
Result := True;
end;