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

gtk3: implemented TWinControl.PaintTo()

Browse Source 
git-svn-id: trunk@62921 -
This commit is contained in:
zeljko 2020-04-09 12:54:46 +00:00
parent e7fe8688e3
commit 35e0a7ae4a
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/gtk3/gtk3wscontrols.pp
View File

@ -42,7 +42,7 @@ uses
Controls, Graphics, LCLType, Types, LCLProc,
////////////////////////////////////////////////////
WSLCLClasses, WSControls, WSProc, LazGtk3, LazGdk3, LazGlib2, LazGObject2,
gtk3widgets, LazPango1,
gtk3widgets, LazPango1, LazCairo1, LazGdkPixbuf2,
{ TODO: remove when CreateHandle/Component code moved }
InterfaceBase;
@ -321,12 +321,18 @@ end;
class procedure TGtk3WSWinControl.PaintTo(const AWinControl: TWinControl; ADC: HDC;
X, Y: Integer);
var
AWidget: TGtk3Widget;
cr: Pcairo_t;
begin
if not WSCheckHandleAllocated(AWincontrol, 'PaintTo') or (ADC = 0) then
Exit;
{.$IFDEF GTK3DEBUGCORE}
DebugLn('WARNING: TGtk3WSWinControl.PaintTo not implemented');
{.$ENDIF}
AWidget := TGtk3Widget(AWinControl.Handle);
cr := TGtk3DeviceContext(ADC).Widget;
cairo_save(cr);
cairo_translate(cr, X, Y);
gtk_widget_draw(AWidget.Widget, cr);
cairo_restore(cr);
end;
class procedure TGtk3WSWinControl.SetBounds(const AWinControl: TWinControl; const ALeft, ATop, AWidth, AHeight: Integer);