1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{%MainUnit gtk1def.pp}
{******************************************************************************
TGtk1DeviceContext
******************************************************************************
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
{$IFOPT C-}
// Uncomment for local trace
// {$C+}
// {$DEFINE ASSERT_IS_ON}
{$ENDIF}
{ TGtk1DeviceContext }
function TGtk1DeviceContext.GetFunction: TGdkFunction;
begin
Result := GCValues.thefunction;
end;
|
