Module Dftypes.pkg

     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
    79