1{%MainUnit winceint.pp}
2{ $Id: wincelclintfh.inc 7541 2005-08-22 12:30:03Z vincents $ }
3
4{******************************************************************************
5                 All WinCE interface communication implementations.
6
7  !! Keep alphabetical !!
8
9  Support routines go to gtkproc.pp
10
11 ******************************************************************************
12 Interface
13 ******************************************************************************
14
15 *****************************************************************************
16  This file is part of the Lazarus Component Library (LCL)
17
18  See the file COPYING.modifiedLGPL.txt, included in this distribution,
19  for details about the license.
20 *****************************************************************************
21}
22
23//##apiwiz##sps##   // Do not remove
24
25function AddEventHandler(AHandle: THandle; AFlags: dword;
26  AEventHandler: TWaitHandleEvent; AData: PtrInt): PEventHandler; override;
27function AddPipeEventHandler(AHandle: THandle;
28  AEventHandler: TPipeEvent; AData: PtrInt): PPipeEventHandler; override;
29function AddProcessEventHandler(AHandle: THandle;
30  AEventHandler: TChildExitEvent; AData: PtrInt): PProcessEventHandler; override;
31function AllocateHWnd(Method: TLCLWndMethod): HWND; override;
32
33function CreateStandardCursor(ACursor: SmallInt): hCursor; override;
34
35procedure DeallocateHWnd(Wnd: HWND); override;
36
37function GetAcceleratorString(const AVKey: Byte; const AShiftState: TShiftState): String; override;
38function GetControlConstraints(Constraints: TObject): boolean; override;
39function GetDeviceSize(DC: HDC; var p: TPoint): boolean; override;
40
41function RawImage_CreateBitmaps(const ARawImage: TRawImage; out ABitmap, AMask: HBitmap; ASkipMask: Boolean = False): Boolean; override;
42function RawImage_DescriptionFromBitmap(ABitmap: HBITMAP; out ADesc: TRawImageDescription): Boolean; override;
43function RawImage_DescriptionFromDevice(ADC: HDC; out ADesc: TRawImageDescription): Boolean; override;
44function RawImage_FromBitmap(out ARawImage: TRawImage; ABitmap, AMask: HBITMAP; ARect: PRect = nil): Boolean; override;
45function RawImage_FromDevice(out ARawImage: TRawImage; ADC: HDC; const ARect: TRect): Boolean; override;
46// override only when queried formats are different from screen description
47function RawImage_QueryDescription(AFlags: TRawImageQueryFlags; var ADesc: TRawImageDescription): Boolean; override;
48
49procedure RemoveEventHandler(var AHandler: PEventHandler); override;
50procedure RemovePipeEventHandler(var AHandler: PPipeEventHandler); override;
51procedure RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
52
53
54//##apiwiz##eps##   // Do not remove, no wizard declaration after this line
55