paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 10:39:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed crash of TPostscriptCanvas. issue #20354

Browse Source 
git-svn-id: trunk@32521 -
This commit is contained in:
zeljko 2011-09-27 06:12:53 +00:00
parent d551fda25d
commit 4049c78bd2
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtobject.inc
View File

@ -673,11 +673,17 @@ end;
procedure TQtWidgetSet.DCSetAntialiasing(CanvasHandle: HDC; AEnabled: Boolean); procedure TQtWidgetSet.DCSetAntialiasing(CanvasHandle: HDC; AEnabled: Boolean);
var var
DC: TQtDeviceContext absolute CanvasHandle; DC: TQtDeviceContext;
begin begin
if IsValidDC(CanvasHandle) then if IsValidDC(CanvasHandle) then
begin
if CanvasHandle = 1 then
DC := QtDefaultContext
else
DC := TQtDeviceContext(CanvasHandle);
DC.setRenderHint(QPainterAntialiasing, AEnabled); DC.setRenderHint(QPainterAntialiasing, AEnabled);
end; end;
end;
procedure TQtWidgetSet.SetDesigning(AComponent: TComponent); procedure TQtWidgetSet.SetDesigning(AComponent: TComponent);
begin begin