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

CairoCanvas: fix GdkCairoCanvas ignored Controls coordinates, always paints on parent (0, 0) position, from Petr-K, issue #25485

Browse Source 
git-svn-id: trunk@44432 -
This commit is contained in:
jesus 2014-03-15 08:33:39 +00:00
parent 9f64f946ed
commit b6ea3d2753
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/cairocanvas/cairocanvas.pas
View File

@ -61,6 +61,7 @@ type
procedure DebugSys;
protected
ScaleX, ScaleY, FontScale: Double;
procedure SetLazClipRect(r: TRect);
procedure DoLineTo(X1,Y1: Integer); override;
function CreateCairoHandle: HDC; virtual; abstract;
procedure DestroyCairoHandle; virtual;
@ -411,6 +412,7 @@ end;
procedure TCairoPrinterCanvas.SetClipRect(const ARect: TRect);
begin
RequiredState([csHandleValid]);
if FUserClipRect=nil then
New(FUserClipRect);
@ -442,6 +444,7 @@ end;
procedure TCairoPrinterCanvas.SetClipping(const AValue: boolean);
begin
RequiredState([csHandleValid]);
cairo_reset_clip(cr);
if not AValue then begin
@ -500,6 +503,11 @@ begin
DebugLn('CurMatrix: xx=%f yx=%f xy=%f yy=%f x0=%f y0=%f',[xx,yx,xy,yy,x0,y0]);
end;
procedure TCairoPrinterCanvas.SetLazClipRect(r: TRect);
begin
FLazClipRect := r;
end;
constructor TCairoPrinterCanvas.Create(APrinter: TPrinter);
begin
inherited Create(APrinter);

10
components/cairocanvas/unix/gdkcairocanvas.pas
View File

@ -18,6 +18,10 @@ type
implementation
uses
Classes;
{ TGdkCairoCanvas }
function TGdkCairoCanvas.CreateCairoHandle: HDC;
@ -27,8 +31,10 @@ end;
procedure TGdkCairoCanvas.SetHandle(NewHandle: HDC);
begin
if NewHandle <> 0 then
NewHandle := {%H-}HDC(gdk_cairo_create(TGtk2DeviceContext(NewHandle).Drawable));
if NewHandle <> 0 then begin
NewHandle := {%H-}HDC(gdk_cairo_create(TGtkDeviceContext(NewHandle).Drawable));
SetLazClipRect(Rect(Control.Left, Control.Top, Control.Left + Control.Width, Control.Top + Control.Height));
end;
inherited SetHandle(NewHandle);
end;