mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-26 04:22:43 +02:00
36 lines
562 B
ObjectPascal
36 lines
562 B
ObjectPascal
unit Win32CairoCanvas;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
LCLType, Cairo, CairoWin32, CairoGraphics;
|
|
|
|
type
|
|
{ TWin32CairoCanvas }
|
|
|
|
TWin32CairoCanvas = class(TCairoControlCanvas)
|
|
protected
|
|
procedure CreateCairoHandle(BaseHandle: HDC); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
{ TWin32CairoCanvas }
|
|
|
|
procedure TWin32CairoCanvas.CreateCairoHandle(BaseHandle: HDC);
|
|
begin
|
|
inherited;
|
|
sf := cairo_win32_surface_create(BaseHandle);
|
|
cr := cairo_create(sf);
|
|
end;
|
|
|
|
initialization
|
|
CairoGraphicControlCanvasClass := TWin32CairoCanvas;
|
|
|
|
end.
|