From 690aefcc74c737d0cc26b9ad0930720af81e6bcc Mon Sep 17 00:00:00 2001 From: blikblum Date: Sun, 13 Jun 2010 14:08:05 +0000 Subject: [PATCH] * Fix compilation after gkk1/2 split in LCL git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1233 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../branches/4.8/include/intf/gtk2/vtgraphicsi.inc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/components/virtualtreeview-new/branches/4.8/include/intf/gtk2/vtgraphicsi.inc b/components/virtualtreeview-new/branches/4.8/include/intf/gtk2/vtgraphicsi.inc index 848eef732..e675e37db 100644 --- a/components/virtualtreeview-new/branches/4.8/include/intf/gtk2/vtgraphicsi.inc +++ b/components/virtualtreeview-new/branches/4.8/include/intf/gtk2/vtgraphicsi.inc @@ -1,12 +1,12 @@ uses - gtkdef, gdk2, GTKProc, Cairo; + gtk2def, gdk2, GTK2Proc, Cairo; function gdk_cairo_create(drawable: PGdkDrawable): Pcairo_t cdecl external gdklib; procedure AlphaBlend(Source, Destination: HDC; const R: TRect; const Target: TPoint; Mode: TBlendMode; ConstantAlpha, Bias: Integer); - function GetContext(GtkDC: TGtkDeviceContext): Pcairo_t; + function GetContext(GtkDC: TGtk2DeviceContext): Pcairo_t; begin Result := nil; if (GtkDC <> nil) and (GtkDC.Drawable <> nil) then @@ -14,8 +14,8 @@ procedure AlphaBlend(Source, Destination: HDC; const R: TRect; const Target: TPo end; var - SrcDC: TGtkDeviceContext absolute Source; - DestDC: TGtkDeviceContext absolute Destination; + SrcDC: TGtk2DeviceContext absolute Source; + DestDC: TGtk2DeviceContext absolute Destination; SrcContext, DestContext: Pcairo_t; begin case Mode of