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

Qt: use LCL's RoundRect() instead of qt's, call QPainter_roundedRect() instead QPainter_roundRect() since roundedRect() is what LCL expects.

Browse Source 
git-svn-id: trunk@25571 -
This commit is contained in:
zeljko 2010-05-21 20:32:17 +00:00
parent 14a4447dff
commit 143400e6ce
2 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtobjects.pas
View File

@ -2314,7 +2314,7 @@ end;
procedure TQtDeviceContext.drawRoundRect(x, y, w, h, rx, ry: Integer); procedure TQtDeviceContext.drawRoundRect(x, y, w, h, rx, ry: Integer);
begin begin
QPainter_drawRoundRect(Widget, x, y, w, h, rx, ry); QPainter_drawRoundedRect(Widget, x, y, w, h, rx, ry);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------

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

@ -4329,12 +4329,7 @@ begin
{$Endif} {$Endif}
Exit; Exit;
end; end;
Result := inherited RoundRect(DC, X1, Y1, X2, Y2, RX, RY);
R := NormalizeRect(Rect(X1, Y1, X2, Y2));
if IsRectEmpty(R) then Exit(True);
TQtDeviceContext(Dc).drawRoundRect(R.Left, R.Top, R.Right - R.Left - 1, R.Bottom - R.Top - 1, RX, RY);
Result := True;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function: SaveDC: save DC state information to a stack Function: SaveDC: save DC state information to a stack