|
@@ -1208,96 +1208,96 @@
|
|
|
Type
|
|
|
{$ifdef MESSAGESUNIT}
|
|
|
|
|
|
- MSG = Windows.MSG;
|
|
|
- TMessage = Windows.TMessage;
|
|
|
- TWMSize = Windows.TWMSize;
|
|
|
- TWMNoParams = Windows.TWMNoParams;
|
|
|
- TWMKey = Windows.TWMKey;
|
|
|
- TWMMenuChar = Windows.TWMMenuChar;
|
|
|
- TWMScroll = Windows.TWMScroll;
|
|
|
- TWMGetText = Windows.TWMGetText;
|
|
|
- TWMKillFocus = Windows.TWMKillFocus;
|
|
|
- TWMSetCursor = Windows.TWMSetCursor;
|
|
|
- TWMSetFocus = Windows.TWMSetFocus;
|
|
|
- TWMSetFont = Windows.TWMSetFont;
|
|
|
- TWMShowWindow = Windows.TWMShowWindow;
|
|
|
- TWMEraseBkgnd = Windows.TWMEraseBkgnd;
|
|
|
+ MSG = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.MSG;
|
|
|
+ TMessage = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TMessage;
|
|
|
+ TWMSize = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMSize;
|
|
|
+ TWMNoParams = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMNoParams;
|
|
|
+ TWMKey = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMKey;
|
|
|
+ TWMMenuChar = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMMenuChar;
|
|
|
+ TWMScroll = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMScroll;
|
|
|
+ TWMGetText = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMGetText;
|
|
|
+ TWMKillFocus = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMKillFocus;
|
|
|
+ TWMSetCursor = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMSetCursor;
|
|
|
+ TWMSetFocus = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMSetFocus;
|
|
|
+ TWMSetFont = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMSetFont;
|
|
|
+ TWMShowWindow = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMShowWindow;
|
|
|
+ TWMEraseBkgnd = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMEraseBkgnd;
|
|
|
TWMIconEraseBkgnd = TWMEraseBkgnd;
|
|
|
- LPMSG = ^Windows.MSG;
|
|
|
- tagMSG = Windows.tagMSG;
|
|
|
- TMSG = Windows.TMSG;
|
|
|
- PMSG = Windows.PMSG;
|
|
|
- PMessage = Windows.PMessage;
|
|
|
+ LPMSG = ^{$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.MSG;
|
|
|
+ tagMSG = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.tagMSG;
|
|
|
+ TMSG = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TMSG;
|
|
|
+ PMSG = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.PMSG;
|
|
|
+ PMessage = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.PMessage;
|
|
|
TWMGetDlgCode = TWMNoParams;
|
|
|
TWMFontChange = TWMNoParams;
|
|
|
TWMGetFont = TWMNoParams;
|
|
|
TWMHScroll = TWMScroll;
|
|
|
TWMVScroll = TWMScroll;
|
|
|
TWMGetTextLength = TWMNoParams;
|
|
|
- TWMUIState = Windows.TWMUIState;
|
|
|
- TWMNCHitTest = Windows.TWMNCHitTest;
|
|
|
- TWMMouse = Windows.TWMMouse;
|
|
|
- TWMMouseWheel = Windows.TWMMouseWheel;
|
|
|
- TWMNCHitMessage = Windows.TWMNCHitMessage;
|
|
|
- TWMPaint = Windows.TWMPaint;
|
|
|
- TWMCommand = Windows.TWMCommand;
|
|
|
- TWMNotify = Windows.TWMNotify;
|
|
|
- TWMPrint = Windows.TWMPrint;
|
|
|
- TWMWinIniChange = Windows.TWMWinIniChange;
|
|
|
- TWMContextMenu = Windows.TWMContextMenu;
|
|
|
- TWMNCCalcSize = Windows.TWMNCCalcSize;
|
|
|
- TWMCharToItem = Windows.TWMCharToItem;
|
|
|
- TWMParentNotify = Windows.TWMParentNotify;
|
|
|
- TWMSysCommand = Windows.TWMSysCommand;
|
|
|
- TWMMove = Windows.TWMMove;
|
|
|
- TWMWindowPosMsg = Windows.TWMWindowPosMsg;
|
|
|
- TWMCompareItem = Windows.TWMCompareItem;
|
|
|
- TWMDeleteItem = Windows.TWMDeleteItem;
|
|
|
- TWMDrawItem = Windows.TWMDrawItem;
|
|
|
- TWMMeasureItem = Windows.TWMMeasureItem;
|
|
|
- TWMNCCreate = Windows.TWMNCCreate;
|
|
|
- TWMInitMenuPopup = Windows.TWMInitMenuPopup;
|
|
|
- TWMMenuSelect = Windows.TWMMenuSelect;
|
|
|
- TWMActivate = Windows.TWMActivate;
|
|
|
- TWMQueryEndSession = Windows.TWMQueryEndSession;
|
|
|
- TWMMDIActivate = Windows.TWMMDIActivate;
|
|
|
- TWMNextDlgCtl = Windows.TWMNextDlgCtl;
|
|
|
- TWMHelp = Windows.TWMHelp;
|
|
|
- TWMGetMinMaxInfo = Windows.TWMGetMinMaxInfo;
|
|
|
- TWMSettingChange = Windows.TWMSettingChange;
|
|
|
- TWMCreate = Windows.TWMCreate;
|
|
|
- TWMCtlColor = Windows.TWMCtlColor;
|
|
|
- TWMInitDialog = Windows.TWMInitDialog;
|
|
|
- TWMNCPaint = Windows.TWMNCPaint;
|
|
|
- TWMSetText = Windows.TWMSetText;
|
|
|
- TWMSizeClipboard = Windows.TWMSizeClipboard;
|
|
|
- TWMSpoolerStatus = Windows.TWMSpoolerStatus;
|
|
|
- TWMStyleChange = Windows.TWMStyleChange;
|
|
|
- TWMSysDeadChar = Windows.TWMSysDeadChar;
|
|
|
- TWMSystemError = Windows.TWMSystemError;
|
|
|
- TWMTimer = Windows.TWMTimer;
|
|
|
- TWMVScrollClipboard = Windows.TWMVScrollClipboard;
|
|
|
- TWMDisplayChange = Windows.TWMDisplayChange;
|
|
|
- TWMDropFiles = Windows.TWMDropFiles;
|
|
|
- TWMEnable = Windows.TWMEnable;
|
|
|
- TWMMouseActivate = Windows.TWMMouseActivate;
|
|
|
- TWMEndSession = Windows.TWMEndSession;
|
|
|
- TWMActivateApp = Windows.TWMActivateApp;
|
|
|
- TWMCancelMode = Windows.TWMCancelMode;
|
|
|
- TWMNCDestroy = Windows.TWMNCDestroy;
|
|
|
- TWMDestroy = Windows.TWMDestroy;
|
|
|
- TWMClose = Windows.TWMClose;
|
|
|
- TWMQueryUIState = Windows.TWMQueryUIState;
|
|
|
- TWMSysColorChange = Windows.TWMSysColorChange;
|
|
|
- TWMQueryDragIcon = Windows.TWMQueryDragIcon;
|
|
|
- TWMTimeChange = Windows.TWMTimeChange;
|
|
|
- TWMUndo = Windows.TWMUndo;
|
|
|
+ TWMUIState = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMUIState;
|
|
|
+ TWMNCHitTest = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMNCHitTest;
|
|
|
+ TWMMouse = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMMouse;
|
|
|
+ TWMMouseWheel = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMMouseWheel;
|
|
|
+ TWMNCHitMessage = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMNCHitMessage;
|
|
|
+ TWMPaint = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMPaint;
|
|
|
+ TWMCommand = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMCommand;
|
|
|
+ TWMNotify = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMNotify;
|
|
|
+ TWMPrint = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMPrint;
|
|
|
+ TWMWinIniChange = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMWinIniChange;
|
|
|
+ TWMContextMenu = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMContextMenu;
|
|
|
+ TWMNCCalcSize = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMNCCalcSize;
|
|
|
+ TWMCharToItem = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMCharToItem;
|
|
|
+ TWMParentNotify = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMParentNotify;
|
|
|
+ TWMSysCommand = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMSysCommand;
|
|
|
+ TWMMove = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMMove;
|
|
|
+ TWMWindowPosMsg = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMWindowPosMsg;
|
|
|
+ TWMCompareItem = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMCompareItem;
|
|
|
+ TWMDeleteItem = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMDeleteItem;
|
|
|
+ TWMDrawItem = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMDrawItem;
|
|
|
+ TWMMeasureItem = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMMeasureItem;
|
|
|
+ TWMNCCreate = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMNCCreate;
|
|
|
+ TWMInitMenuPopup = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMInitMenuPopup;
|
|
|
+ TWMMenuSelect = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMMenuSelect;
|
|
|
+ TWMActivate = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMActivate;
|
|
|
+ TWMQueryEndSession = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMQueryEndSession;
|
|
|
+ TWMMDIActivate = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMMDIActivate;
|
|
|
+ TWMNextDlgCtl = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMNextDlgCtl;
|
|
|
+ TWMHelp = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMHelp;
|
|
|
+ TWMGetMinMaxInfo = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMGetMinMaxInfo;
|
|
|
+ TWMSettingChange = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMSettingChange;
|
|
|
+ TWMCreate = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMCreate;
|
|
|
+ TWMCtlColor = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMCtlColor;
|
|
|
+ TWMInitDialog = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMInitDialog;
|
|
|
+ TWMNCPaint = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMNCPaint;
|
|
|
+ TWMSetText = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMSetText;
|
|
|
+ TWMSizeClipboard = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMSizeClipboard;
|
|
|
+ TWMSpoolerStatus = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMSpoolerStatus;
|
|
|
+ TWMStyleChange = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMStyleChange;
|
|
|
+ TWMSysDeadChar = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMSysDeadChar;
|
|
|
+ TWMSystemError = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMSystemError;
|
|
|
+ TWMTimer = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMTimer;
|
|
|
+ TWMVScrollClipboard = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMVScrollClipboard;
|
|
|
+ TWMDisplayChange = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMDisplayChange;
|
|
|
+ TWMDropFiles = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMDropFiles;
|
|
|
+ TWMEnable = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMEnable;
|
|
|
+ TWMMouseActivate = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMMouseActivate;
|
|
|
+ TWMEndSession = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMEndSession;
|
|
|
+ TWMActivateApp = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMActivateApp;
|
|
|
+ TWMCancelMode = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMCancelMode;
|
|
|
+ TWMNCDestroy = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMNCDestroy;
|
|
|
+ TWMDestroy = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMDestroy;
|
|
|
+ TWMClose = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMClose;
|
|
|
+ TWMQueryUIState = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMQueryUIState;
|
|
|
+ TWMSysColorChange = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMSysColorChange;
|
|
|
+ TWMQueryDragIcon = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMQueryDragIcon;
|
|
|
+ TWMTimeChange = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMTimeChange;
|
|
|
+ TWMUndo = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMUndo;
|
|
|
TWMWindowPosChanged = TWMWindowPosMsg;
|
|
|
TWMWindowPosChanging= TWMWindowPosMsg;
|
|
|
|
|
|
- TWMPaste = Windows.TWMPaste;
|
|
|
- TWMCut = Windows.TWMCut;
|
|
|
- TWMCopy = Windows.TWMCopy;
|
|
|
+ TWMPaste = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMPaste;
|
|
|
+ TWMCut = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMCut;
|
|
|
+ TWMCopy = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.TWMCopy;
|
|
|
{$else}
|
|
|
|
|
|
HALFLRESULT = WORD; // in win64, these remain 16-bit. the extra room is unused.
|