1//************************************************************************ 2//--- DFTypes.pkg 3// 4// Copyright (c) 1983-1997 Data Access Corporation, Miami Florida, 5// All rights reserved. 6// DataFlex is a registered trademark of Data Access Corporation. 7// 8//************************************************************************ 9// Description: 10// Common TYPEs used by the Windows' API from DataFlex. 11// 12// Author: Stuart W. Booth 13//************************************************************************ 14Use DLL.pkg 15 16TYPE tPOINT 17 Field tPOINT.x as DWORD 18 Field tPOINT.y as DWORD 19END_TYPE 20 21TYPE tRECT 22 Field tRECT.left as DWORD 23 Field tRECT.top as DWORD 24 Field tRECT.right as DWORD 25 Field tRECT.bottom as DWORD 26END_TYPE 27 28TYPE tPaintStruct 29 Field tPaintStruct.hdc as HANDLE 30 Field tPaintStruct.fErase as INTEGER 31 Field tPaintStruct.rcPaint.left as INTEGER 32 Field tPaintStruct.rcPaint.top as INTEGER 33 Field tPaintStruct.rcPaint.right as INTEGER 34 Field tPaintStruct.rcPaint.bottom as INTEGER 35 Field tPaintStruct.fRestore as INTEGER 36 Field tPaintStruct.fIncUpdate as INTEGER 37 Field tPaintStruct.rgbReserved as CHAR 32 38END_TYPE 39 40TYPE tNMHDR 41 Field tNMHDR.hWndFrom as HANDLE 42 Field tNMHDR.idFrom as DWORD 43 Field tNMHDR.code as DWORD 44END_TYPE 45 46TYPE tHANDLE 47 Field tHANDLE.handle As Handle 48END_TYPE 49 50TYPE tDWORD 51 Field tDWORD.dword As DWord 52END_TYPE 53 54TYPE tWindowPlacement 55 Field tWindowPlacement.length as DWORD 56 Field tWindowPlacement.flags as DWORD 57 Field tWindowPlacement.showCmd as DWORD 58 Field tWindowPlacement.ptMinPosition.x as DWORD 59 Field tWindowPlacement.ptMinPosition.y as DWORD 60 Field tWindowPlacement.ptMaxPosition.x as DWORD 61 Field tWindowPlacement.ptMaxPosition.y as DWORD 62 Field tWindowPlacement.rcNormalPosition.left as DWORD 63 Field tWindowPlacement.rcNormalPosition.top as DWORD 64 Field tWindowPlacement.rcNormalPosition.right as DWORD 65 Field tWindowPlacement.rcNormalPosition.bottom as DWORD 66END_TYPE 67 68Type tNmMouse 69 Field tNmMouse.hdr.hWndFrom as Handle 70 Field tNmMouse.hdr.idFrom as DWord 71 Field tNmMouse.hdr.code as DWord 72 Field tNmMouse.dwItemSpec as DWord 73 Field tNmMouse.dwItemData as DWord 74 Field tNmMouse.pt.x as DWord 75 Field tNmMouse.pt.y as DWord 76 Field tNmMouse.dwHitInfo as DWord 77End_Type 78