1// Message constants that are not defined in LCL
2
3  WM_APP  = $8000;
4
5// ExtTextOut Options
6
7  ETO_RTLREADING = 128;
8
9//DrawText options
10
11  DT_RTLREADING = 131072;
12
13// Clipboard constants
14
15  CF_BITMAP = 2;
16  CF_DIB = 8;
17  CF_PALETTE = 9;
18  CF_ENHMETAFILE = 14;
19  CF_METAFILEPICT = 3;
20  CF_OEMTEXT = 7;
21  CF_TEXT = 1;
22  CF_UNICODETEXT = 13;
23  CF_DIF = 5;
24  CF_DSPBITMAP = 130;
25  CF_DSPENHMETAFILE = 142;
26  CF_DSPMETAFILEPICT = 131;
27  CF_DSPTEXT = 129;
28  CF_GDIOBJFIRST = 768;
29  CF_GDIOBJLAST = 1023;
30  CF_HDROP = 15;
31  CF_LOCALE = 16;
32  CF_OWNERDISPLAY = 128;
33  CF_PENDATA = 10;
34  CF_PRIVATEFIRST = 512;
35  CF_PRIVATELAST = 767;
36  CF_RIFF = 11;
37  CF_SYLK = 4;
38  CF_WAVE = 12;
39  CF_TIFF = 6;
40  CF_MAX = 17;
41
42// Win32 colors
43  CLR_NONE = $ffffffff;
44  CLR_DEFAULT = $ff000000;
45
46//DrawFrameControl constants
47  DFCS_HOT = $1000;
48
49//Thread support
50  //This values is for win32, how about others??
51  INFINITE = $FFFFFFFF;
52
53//OLE Support
54  E_OUTOFMEMORY                                = HRESULT($8007000E);
55  E_INVALIDARG                                 = HRESULT($80070057);
56  E_NOINTERFACE                                = HRESULT($80004002);
57  E_POINTER                                    = HRESULT($80004003);
58  E_HANDLE                                     = HRESULT($80070006);
59  E_ABORT                                      = HRESULT($80004004);
60  E_FAIL                                       = HRESULT($80004005);
61  E_ACCESSDENIED                               = HRESULT($80070005);
62
63  DV_E_TYMED                                   = HRESULT($80040069);
64  DV_E_CLIPFORMAT                              = HRESULT($8004006A);
65  DV_E_LINDEX                                  = HRESULT($80040068);
66  DV_E_DVASPECT                                = HRESULT($8004006B);
67
68  OLE_E_ADVISENOTSUPPORTED                     = HRESULT($80040003);
69  OLE_S_USEREG                                 = HRESULT($00040000);
70
71  DATA_S_SAMEFORMATETC                         = HRESULT($00040130);
72
73  DRAGDROP_S_DROP                              = HRESULT($00040100);
74  DRAGDROP_S_CANCEL                            = HRESULT($00040101);
75  DRAGDROP_S_USEDEFAULTCURSORS                 = HRESULT($00040102);
76
77  NOERROR = 0;
78
79  SPI_GETDRAGFULLWINDOWS = 38;
80
81// windows management
82  SWP_HIDEWINDOW  = 128;
83  SWP_SHOWWINDOW = 64;
84
85//Imagelists
86  ILD_NORMAL = 0;
87
88// Set WindowPos
89  SWP_FRAMECHANGED = 32;
90  SWP_NOOWNERZORDER = 512;
91  SWP_NOSENDCHANGING = 1024;
92
93 { RedrawWindow  }
94  RDW_ERASE = 4;
95  RDW_FRAME = 1024;
96  RDW_INTERNALPAINT = 2;
97  RDW_INVALIDATE = 1;
98  RDW_NOERASE = 32;
99  RDW_NOFRAME = 2048;
100  RDW_NOINTERNALPAINT = 16;
101  RDW_VALIDATE = 8;
102  RDW_ERASENOW = 512;
103  RDW_UPDATENOW = 256;
104  RDW_ALLCHILDREN = 128;
105  RDW_NOCHILDREN = 64;
106
107//SetRedraw
108  WM_SETREDRAW = 11;
109
110//Dummy
111  CM_PARENTFONTCHANGED = 1999;
112
113//Wheel
114  WHEEL_DELTA = 120;
115  WHEEL_PAGESCROLL = High(DWord);
116  SPI_GETWHEELSCROLLLINES = 104;
117
118//MultiByte
119  MB_USEGLYPHCHARS = 4;
120  LOCALE_IDEFAULTANSICODEPAGE = 4100;
121
122//Image list
123  ILD_TRANSPARENT                = $00000001;
124  ILD_MASK                       = $00000010;
125  ILD_IMAGE                      = $00000020;
126
127  ILD_ROP                        = $00000040;
128
129  ILD_BLEND25                    = $00000002;
130  ILD_BLEND50                    = $00000004;
131  ILD_OVERLAYMASK                = $00000F00;
132
133  { GetDCEx  }
134  DCX_WINDOW = $1;
135  DCX_CACHE = $2;
136  DCX_PARENTCLIP = $20;
137  DCX_CLIPSIBLINGS = $10;
138  DCX_CLIPCHILDREN = $8;
139  DCX_NORESETATTRS = $4;
140  DCX_LOCKWINDOWUPDATE = $400;
141  DCX_EXCLUDERGN = $40;
142  DCX_INTERSECTRGN = $80;
143  DCX_VALIDATE = $200000;
144
145  SCantWriteResourceStreamError = 'CantWriteResourceStreamError';
146
147  //command
148  EN_UPDATE = 1024;
149
150  ES_AUTOHSCROLL = $80;
151  ES_AUTOVSCROLL = $40;
152  ES_CENTER = $1;
153  ES_LEFT = 0;
154  ES_LOWERCASE = $10;
155  ES_MULTILINE = $4;
156  ES_NOHIDESEL = $100;
157
158
159  EM_SETRECTNP = 180;
160
161  DT_END_ELLIPSIS = 32768;
162