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

Merged revision(s) 47651 #83ce9e7c08 from trunk:

Browse Source 
LCL INTERFACES QT: removed wrong offset from Ellipse and RadialPie
files qtwinapi.inc and qtlclintf.inc
........

git-svn-id: branches/fixes_1_4@47696 -
This commit is contained in:
maxim 2015-02-10 22:56:31 +00:00
parent 8e3fc69d64
commit cc3bc27d0b
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;