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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
{ $Id: win32def.pp 41387 2013-05-24 18:30:06Z juha $
------------------------------
win32def.pp - Type definitions
------------------------------
@created(Wed Jan 24st WET 2001)
@lastmod($Date: 2013-05-24 20:30:06 +0200 (Fr, 24 Mai 2013) $)
@author(Marc Weustink <marc@@lazarus.dommelstein.net>)
This unit contains type definitions needed in the Windows <-> LCL interface
*****************************************************************************
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.
*****************************************************************************
}
unit Win32Def;
{$mode objfpc}{$H+}
interface
uses
Windows, Classes, LCLType, Interfacebase;
const
// it is not good to use WM_USER since many programs use it.
WM_LCL_SOCK_ASYNC = WM_USER + $500;
type
{ lazarus win32 Interface definition for additional timer data needed to find the callback}
PWin32TimerInfo = ^TWin32Timerinfo;
TWin32TimerInfo = record
TimerID: UINT_PTR; // the windows timer ID for this timer
TimerFunc: TWSTimerProc; // owner function to handle timer
end;
var
// FTimerData contains the currently running timers
FTimerData : TFpList; // list of PWin32Timerinfo
implementation
end.
|