pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fix compilation after gkk1/2 split in LCL

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1233 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2010-06-13 14:08:05 +00:00
parent 2f4c394c01
commit 690aefcc74
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/virtualtreeview-new/branches/4.8/include/intf/gtk2/vtgraphicsi.inc
View File

@ -1,12 +1,12 @@
uses uses
gtkdef, gdk2, GTKProc, Cairo; gtk2def, gdk2, GTK2Proc, Cairo;
function gdk_cairo_create(drawable: PGdkDrawable): Pcairo_t cdecl external gdklib; 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); 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 begin
Result := nil; Result := nil;
if (GtkDC <> nil) and (GtkDC.Drawable <> nil) then if (GtkDC <> nil) and (GtkDC.Drawable <> nil) then
@ -14,8 +14,8 @@ procedure AlphaBlend(Source, Destination: HDC; const R: TRect; const Target: TPo
end; end;
var var
SrcDC: TGtkDeviceContext absolute Source; SrcDC: TGtk2DeviceContext absolute Source;
DestDC: TGtkDeviceContext absolute Destination; DestDC: TGtk2DeviceContext absolute Destination;
SrcContext, DestContext: Pcairo_t; SrcContext, DestContext: Pcairo_t;
begin begin
case Mode of case Mode of