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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
{
/***************************************************************************
Messages.pp
-----------
Initial Revision : Tue Oct 19 CST 1999
***************************************************************************/
*****************************************************************************
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.
*****************************************************************************
This unit defines some of the most common definitions of Delphi's messages.pas
to make porting easy.
It is not used by the LCL itself.
}
{$ifdef WINDOWS}
{$Error This unit is not for MS Windows. Windows has unit windows for that. }
{$ENDIF}
unit Messages;
{$mode objfpc}{$H+}
interface
uses
Classes, LCLType, LMessages;
const
WM_DROPFILES = LM_DROPFILES;
WM_ERASEBKGND = LM_ERASEBKGND;
WM_GETDLGCODE = LM_GETDLGCODE;
WM_HSCROLL = LM_HSCROLL;
WM_KILLFOCUS = LM_KILLFOCUS;
WM_LBUTTONUP = LM_LBUTTONUP;
WM_LBUTTONDBLCLK = LM_LBUTTONDBLCLK;
WM_MOUSEMOVE = LM_MOUSEMOVE;
WM_MOUSEENTER = LM_MOUSEENTER;
WM_MOUSELEAVE = LM_MOUSELEAVE;
WM_NCHITTEST = LM_NCHITTEST;
WM_QUIT = LM_QUIT;
WM_SETFOCUS = LM_SETFOCUS;
WM_SIZE = LM_SIZE;
WM_SYSCHAR = LM_SYSCHAR;
WM_SYSKEYDOWN = LM_SYSKEYDOWN;
WM_SYSKEYUP = LM_SYSKEYUP;
WM_VSCROLL = LM_VSCROLL;
WM_NCPAINT = LM_NCPAINT;
WM_CAPTURECHANGED = LM_CAPTURECHANGED;
WM_KEYDOWN = LM_KEYDOWN;
WM_KEYUP = LM_KEYUP;
WM_WINDOWPOSCHANGED = LM_WINDOWPOSCHANGED;
WM_CUT = LM_CUT;
WM_COPY = LM_COPY;
WM_PASTE = LM_PASTE;
WM_SETCURSOR = LM_SETCURSOR;
WM_PAINT = LM_PAINT;
WM_LBUTTONDOWN = LM_LBUTTONDOWN;
WM_CHAR = LM_CHAR;
WM_COMMAND = LM_COMMAND;
WM_CANCELMODE = LM_CANCELMODE;
WM_NOTIFY = LM_NOTIFY;
WM_CREATE = LM_CREATE;
WM_ACTIVATE = LM_ACTIVATE;
type
TMessage = TLMessage;
// under Windows in unit windows
TWMEraseBkgnd = TLMEraseBkgnd;
TWMKillFocus = TLMKillFocus;
TWMMouse = TLMMouse;
TWMNCHITTEST = TLMNCHITTEST;
TWMSCROLL = TLMSCROLL;
TWMSetFocus = TLMSetFocus;
TWMSIZE = TLMSIZE;
TWMHScroll = TLMHScroll;
TWMVScroll = TLMVScroll;
TWMKeyDown = TLMKeyDown;
TWMKeyUp = TLMKeyUp;
TWMWindowPosChanged = TLMWindowPosChanged;
TWMPaint = TLMPaint;
TWMLButtonDown = TLMLButtonDown;
TWMLButtonUp = TLMLButtonUp;
TWMLButtonDblClk = TLMLButtonDblClk;
TWMKey = TLMKey;
TWMCommand = TLMCommand;
TWMChar = TLMChar;
TWMNotify = TLMNotify;
TWMCut = TLMCut;
TWMCopy = TLMCopy;
TWMPaste = TLMPaste;
TWMSetCursor = TLMSetCursor;
TWMNoParams = TLMNoParams;
TWMGetDlgCode = TLMNoParams;
TWMMouseMove = TLMMouseMove;
TWMActivate = TLMActivate;
implementation
end.
|
