mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-29 11:02:44 +02:00
30 lines
780 B
PHP
30 lines
780 B
PHP
{%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;
|
|
|
|
|
|
|