freepascal.compiler/rtl/os2/pmstddlg.pas

unit pmstddlg;

  interface
  
    uses
       os2def,bsedos,pmwin,pmgpi;

    const
       FDS_CENTER = $00000001;
       FDS_CUSTOM = $00000002;
       FDS_FILTERUNION = $00000004;
       FDS_HELPBUTTON = $00000008;
       FDS_APPLYBUTTON = $00000010;
       FDS_PRELOAD_VOLINFO = $00000020;
       FDS_MODELESS = $00000040;
       FDS_INCLUDE_EAS = $00000080;
       FDS_OPEN_DIALOG = $00000100;
       FDS_SAVEAS_DIALOG = $00000200;
       FDS_MULTIPLESEL = $00000400;
       FDS_ENABLEFILELB = $00000800;
       FDS_EFSELECTION = 0;
       FDS_LBSELECTION = 1;
       FDS_SUCCESSFUL = 0;
       FDS_ERR_DEALLOCATE_MEMORY = 1;
       FDS_ERR_FILTER_TRUNC = 2;
       FDS_ERR_INVALID_DIALOG = 3;
       FDS_ERR_INVALID_DRIVE = 4;
       FDS_ERR_INVALID_FILTER = 5;
       FDS_ERR_INVALID_PATHFILE = 6;
       FDS_ERR_OUT_OF_MEMORY = 7;
       FDS_ERR_PATH_TOO_LONG = 8;
       FDS_ERR_TOO_MANY_FILE_TYPES = 9;
       FDS_ERR_INVALID_VERSION = 10;
       FDS_ERR_INVALID_CUSTOM_HANDLE = 11;
       FDS_ERR_DIALOG_LOAD_ERROR = 12;
       FDS_ERR_DRIVE_ERROR = 13;
       FDM_FILTER = WM_USER+40;
       FDM_VALIDATE = WM_USER+41;
       FDM_ERROR = WM_USER+42;

    type
       APSZ = array[0..0] of PSZ;

       PAPSZ = ^APSZ;

       FILEDLG = record
          cbSize : ULONG;
          fl : ULONG;
          ulUser : ULONG;
          lReturn : LONG;
          lSRC : LONG;
          pszTitle : PSZ;
          pszOKButton : PSZ;
          pfnDlgProc : PFNWP;
          pszIType : PSZ;
          papszITypeList : PAPSZ;
          pszIDrive : PSZ;
          papszIDriveList : PAPSZ;
          hMod : HMODULE;
          szFullFile : array[0..CCHMAXPATH-1] of CHAR;
          papszFQFilename : PAPSZ;
          ulFQFCount : ULONG;
          usDlgId : USHORT;
          x : SHORT;
          y : SHORT;
          sEAType : SHORT;
       end;

       PFILEDLG = ^FILEDLG;


    function WinFileDlg(hwndP : HWND;hwndO : HWND;pfild : PFILEDLG) : HWND;

    function WinDefFileDlgProc(hwnd : HWND;msg : ULONG;mp1 : MPARAM;mp2 : MPARAM) : MRESULT;

    function WinFreeFileDlgList(papszFQFilename : PAPSZ) : BOOL;

    const
       DID_FILE_DIALOG = 256;
       DID_FILENAME_TXT = 257;
       DID_FILENAME_ED = 258;
       DID_DRIVE_TXT = 259;
       DID_DRIVE_CB = 260;
       DID_FILTER_TXT = 261;
       DID_FILTER_CB = 262;
       DID_DIRECTORY_TXT = 263;
       DID_DIRECTORY_LB = 264;
       DID_FILES_TXT = 265;
       DID_FILES_LB = 266;
       DID_HELP_PB = 267;
       DID_APPLY_PB = 268;
       DID_OK_PB = DID_OK;
       DID_CANCEL_PB = DID_CANCEL;
       IDS_FILE_ALL_FILES_SELECTOR = 1000;
       IDS_FILE_BACK_CUR_PATH = 1001;
       IDS_FILE_BACK_PREV_PATH = 1002;
       IDS_FILE_BACK_SLASH = 1003;
       IDS_FILE_BASE_FILTER = 1004;
       IDS_FILE_BLANK = 1005;
       IDS_FILE_COLON = 1006;
       IDS_FILE_DOT = 1007;
       IDS_FILE_DRIVE_LETTERS = 1008;
       IDS_FILE_FWD_CUR_PATH = 1009;
       IDS_FILE_FWD_PREV_PATH = 1010;
       IDS_FILE_FORWARD_SLASH = 1011;
       IDS_FILE_PARENT_DIR = 1012;
       IDS_FILE_Q_MARK = 1013;
       IDS_FILE_SPLAT = 1014;
       IDS_FILE_SPLAT_DOT = 1015;
       IDS_FILE_SAVEAS_TITLE = 1016;
       IDS_FILE_SAVEAS_FILTER_TXT = 1017;
       IDS_FILE_SAVEAS_FILENM_TXT = 1018;
       IDS_FILE_DUMMY_FILE_NAME = 1019;
       IDS_FILE_DUMMY_FILE_EXT = 1020;
       IDS_FILE_DUMMY_DRIVE = 1021;
       IDS_FILE_DUMMY_ROOT_DIR = 1022;
       IDS_FILE_PATH_PTR = 1023;
       IDS_FILE_VOLUME_PREFIX = 1024;
       IDS_FILE_VOLUME_SUFFIX = 1025;
       IDS_FILE_PATH_PTR2 = 1026;
       IDS_FILE_INVALID_CHARS = 1027;
       IDS_FILE_BAD_DRIVE_NAME = 1100;
       IDS_FILE_BAD_DRIVE_OR_PATH_NAME = 1101;
       IDS_FILE_BAD_FILE_NAME = 1102;
       IDS_FILE_BAD_FQF = 1103;
       IDS_FILE_BAD_NETWORK_NAME = 1104;
       IDS_FILE_BAD_SUB_DIR_NAME = 1105;
       IDS_FILE_DRIVE_NOT_AVAILABLE = 1106;
       IDS_FILE_FQFNAME_TOO_LONG = 1107;
       IDS_FILE_OPEN_DIALOG_NOTE = 1108;
       IDS_FILE_PATH_TOO_LONG = 1109;
       IDS_FILE_SAVEAS_DIALOG_NOTE = 1110;
       IDS_FILE_DRIVE_DISK_CHANGE = 1120;
       IDS_FILE_DRIVE_NOT_READY = 1122;
       IDS_FILE_DRIVE_LOCKED = 1123;
       IDS_FILE_DRIVE_NO_SECTOR = 1124;
       IDS_FILE_DRIVE_SOME_ERROR = 1125;
       IDS_FILE_DRIVE_INVALID = 1126;
       IDS_FILE_INSERT_DISK_NOTE = 1127;
       IDS_FILE_OK_WHEN_READY = 1128;

    type
       FONTDLG = record
          cbSize : ULONG;
          hpsScreen : HPS;
          hpsPrinter : HPS;
          pszTitle : PSZ;
          pszPreview : PSZ;
          pszPtSizeList : PSZ;
          pfnDlgProc : PFNWP;
          pszFamilyname : PSZ;
          fxPointSize : FIXED;
          fl : ULONG;
          flFlags : ULONG;
          flType : ULONG;
          flTypeMask : ULONG;
          flStyle : ULONG;
          flStyleMask : ULONG;
          clrFore : LONG;
          clrBack : LONG;
          ulUser : ULONG;
          lReturn : LONG;
          lSRC : LONG;
          lEmHeight : LONG;
          lXHeight : LONG;
          lExternalLeading : LONG;
          hMod : HMODULE;
          fAttrs : FATTRS;
          sNominalPointSize : SHORT;
          usWeight : USHORT;
          usWidth : USHORT;
          x : SHORT;
          y : SHORT;
          usDlgId : USHORT;
          usFamilyBufLen : USHORT;
          usReserved : USHORT;
       end;

       PFONTDLG = ^FONTDLG;

    const
       FNTS_CENTER = $00000001;
       FNTS_CUSTOM = $00000002;
       FNTS_OWNERDRAWPREVIEW = $00000004;
       FNTS_HELPBUTTON = $00000008;
       FNTS_APPLYBUTTON = $00000010;
       FNTS_RESETBUTTON = $00000020;
       FNTS_MODELESS = $00000040;
       FNTS_INITFROMFATTRS = $00000080;
       FNTS_BITMAPONLY = $00000100;
       FNTS_VECTORONLY = $00000200;
       FNTS_FIXEDWIDTHONLY = $00000400;
       FNTS_PROPORTIONALONLY = $00000800;
       FNTS_NOSYNTHESIZEDFONTS = $00001000;
       FNTF_NOVIEWSCREENFONTS = 1;
       FNTF_NOVIEWPRINTERFONTS = 2;
       FNTF_SCREENFONTSELECTED = 4;
       FNTF_PRINTERFONTSELECTED = 8;
       CLRC_FOREGROUND = 1;
       CLRC_BACKGROUND = 2;
       FNTI_BITMAPFONT = $0001;
       FNTI_VECTORFONT = $0002;
       FNTI_FIXEDWIDTHFONT = $0004;
       FNTI_PROPORTIONALFONT = $0008;
       FNTI_SYNTHESIZED = $0010;
       FNTI_DEFAULTLIST = $0020;
       FNTI_FAMILYNAME = $0100;
       FNTI_STYLENAME = $0200;
       FNTI_POINTSIZE = $0400;
       FNTS_SUCCESSFUL = 0;
       FNTS_ERR_INVALID_DIALOG = 3;
       FNTS_ERR_ALLOC_SHARED_MEM = 4;
       FNTS_ERR_INVALID_PARM = 5;
       FNTS_ERR_OUT_OF_MEMORY = 7;
       FNTS_ERR_INVALID_VERSION = 10;
       FNTS_ERR_DIALOG_LOAD_ERROR = 12;
       FNTM_FACENAMECHANGED = WM_USER+50;
       FNTM_POINTSIZECHANGED = WM_USER+51;
       FNTM_STYLECHANGED = WM_USER+52;
       FNTM_COLORCHANGED = WM_USER+53;
       FNTM_UPDATEPREVIEW = WM_USER+54;
       FNTM_FILTERLIST = WM_USER+55;

    type
       STYLECHANGE = record
          usWeight : USHORT;
          usWeightOld : USHORT;
          usWidth : USHORT;
          usWidthOld : USHORT;
          flType : ULONG;
          flTypeOld : ULONG;
          flTypeMask : ULONG;
          flTypeMaskOld : ULONG;
          flStyle : ULONG;
          flStyleOld : ULONG;
          flStyleMask : ULONG;
          flStyleMaskOld : ULONG;
       end;

       PSTYLECHANGE = ^STYLECHANGE;


    function WinFontDlg(hwndP : HWND;hwndO : HWND;pfntd : PFONTDLG) : HWND;

    function WinDefFontDlgProc(hwnd : HWND;msg : ULONG;mp1 : MPARAM;mp2 : MPARAM) : MRESULT;

    const
       DID_FONT_DIALOG = 300;
       DID_NAME = 301;
       DID_STYLE = 302;
       DID_DISPLAY_FILTER = 303;
       DID_PRINTER_FILTER = 304;
       DID_SIZE = 305;
       DID_SAMPLE = 306;
       DID_OUTLINE = 307;
       DID_UNDERSCORE = 308;
       DID_STRIKEOUT = 309;
       DID_HELP_BUTTON = 310;
       DID_APPLY_BUTTON = 311;
       DID_RESET_BUTTON = 312;
       DID_OK_BUTTON = DID_OK;
       DID_CANCEL_BUTTON = DID_CANCEL;
       DID_NAME_PREFIX = 313;
       DID_STYLE_PREFIX = 314;
       DID_SIZE_PREFIX = 315;
       DID_SAMPLE_GROUPBOX = 316;
       DID_EMPHASIS_GROUPBOX = 317;
       IDS_FONT_SAMPLE = 350;
       IDS_FONT_BLANK = 351;
       IDS_FONT_KEY_0 = 352;
       IDS_FONT_KEY_9 = 353;
       IDS_FONT_KEY_SEP = 354;
       IDS_FONT_DISP_ONLY = 355;
       IDS_FONT_PRINTER_ONLY = 356;
       IDS_FONT_COMBINED = 357;
       IDS_FONT_WEIGHT1 = 358;
       IDS_FONT_WEIGHT2 = 359;
       IDS_FONT_WEIGHT3 = 360;
       IDS_FONT_WEIGHT4 = 361;
       IDS_FONT_WEIGHT5 = 362;
       IDS_FONT_WEIGHT6 = 363;
       IDS_FONT_WEIGHT7 = 364;
       IDS_FONT_WEIGHT8 = 365;
       IDS_FONT_WEIGHT9 = 366;
       IDS_FONT_WIDTH1 = 367;
       IDS_FONT_WIDTH2 = 368;
       IDS_FONT_WIDTH3 = 369;
       IDS_FONT_WIDTH4 = 370;
       IDS_FONT_WIDTH5 = 371;
       IDS_FONT_WIDTH6 = 372;
       IDS_FONT_WIDTH7 = 373;
       IDS_FONT_WIDTH8 = 374;
       IDS_FONT_WIDTH9 = 375;
       IDS_FONT_OPTION0 = 376;
       IDS_FONT_OPTION1 = 377;
       IDS_FONT_OPTION2 = 378;
       IDS_FONT_OPTION3 = 379;
       IDS_FONT_POINT_SIZE_LIST = 380;
       SPBS_ALLCHARACTERS = $00000000;
       SPBS_NUMERICONLY = $00000001;
       SPBS_READONLY = $00000002;
       SPBS_MASTER = $00000010;
       SPBS_SERVANT = $00000000;
       SPBS_JUSTDEFAULT = $00000000;
       SPBS_JUSTLEFT = $00000008;
       SPBS_JUSTRIGHT = $00000004;
       SPBS_JUSTCENTER = $0000000C;
       SPBS_NOBORDER = $00000020;
       SPBS_FASTSPIN = $00000100;
       SPBS_PADWITHZEROS = $00000080;
       SPBN_UPARROW = $20A;
       SPBN_DOWNARROW = $20B;
       SPBN_ENDSPIN = $20C;
       SPBN_CHANGE = $20D;
       SPBN_SETFOCUS = $20E;
       SPBN_KILLFOCUS = $20F;
       SPBM_OVERRIDESETLIMITS = $200;
       SPBM_QUERYLIMITS = $201;
       SPBM_SETTEXTLIMIT = $202;
       SPBM_SPINUP = $203;
       SPBM_SPINDOWN = $204;
       SPBM_QUERYVALUE = $205;
       SPBQ_UPDATEIFVALID = 0;
       SPBQ_ALWAYSUPDATE = 1;
       SPBQ_DONOTUPDATE = 3;
       SPBM_SETARRAY = $206;
       SPBM_SETLIMITS = $207;
       SPBM_SETCURRENTVALUE = $208;
       SPBM_SETMASTER = $209;
       PMERR_NOT_DRAGGING = $1f00;
       PMERR_ALREADY_DRAGGING = $1f01;
       MSGF_DRAG = $0010;
       WM_DRAGFIRST = $0310;
       WM_DRAGLAST = $032f;
       DM_DROP = $032f;
       DM_DRAGOVER = $032e;
       DM_DRAGLEAVE = $032d;
       DM_DROPHELP = $032c;
       DM_ENDCONVERSATION = $032b;
       DM_PRINT = $032a;
       DM_RENDER = $0329;
       DM_RENDERCOMPLETE = $0328;
       DM_RENDERPREPARE = $0327;
       DM_DRAGFILECOMPLETE = $0326;
       DM_EMPHASIZETARGET = $0325;
       DM_DRAGERROR = $0324;
       DM_FILERENDERED = $0323;
       DM_RENDERFILE = $0322;
       DM_DRAGOVERNOTIFY = $0321;
       DM_PRINTOBJECT = $0320;
       DM_DISCARDOBJECT = $031f;
       DRT_ASM = 'Assembler Code';
       DRT_BASIC = 'BASIC Code';
       DRT_BINDATA = 'Binary Data';
       DRT_BITMAP = 'Bitmap';
       DRT_C = 'C Code';
       DRT_COBOL = 'COBOL Code';
       DRT_DLL = 'Dynamic Link Library';
       DRT_DOSCMD = 'DOS Command File';
       DRT_EXE = 'Executable';
       DRT_FORTRAN = 'FORTRAN Code';
       DRT_ICON = 'Icon';
       DRT_LIB = 'Library';
       DRT_METAFILE = 'Metafile';
       DRT_OS2CMD = 'OS/2 Command File';
       DRT_PASCAL = 'Pascal Code';
       DRT_RESOURCE = 'Resource File';
       DRT_TEXT = 'Plain Text';
       DRT_UNKNOWN = 'Unknown';
       DOR_NODROP = $0000;
       DOR_DROP = $0001;
       DOR_NODROPOP = $0002;
       DOR_NEVERDROP = $0003;
       DO_COPYABLE = $0001;
       DO_MOVEABLE = $0002;
       DO_LINKABLE = $0004;
       DC_OPEN = $0001;
       DC_REF = $0002;
       DC_GROUP = $0004;
       DC_CONTAINER = $0008;
       DC_PREPARE = $0010;
       DC_REMOVEABLEMEDIA = $0020;
       DO_DEFAULT = $BFFE;
       DO_UNKNOWN = $BFFF;
       DO_COPY = $0010;
       DO_MOVE = $0020;
       DO_LINK = $0018;
       DO_CREATE = $0040;
       DMFL_TARGETSUCCESSFUL = $0001;
       DMFL_TARGETFAIL = $0002;
       DMFL_NATIVERENDER = $0004;
       DMFL_RENDERRETRY = $0008;
       DMFL_RENDEROK = $0010;
       DMFL_RENDERFAIL = $0020;
       DRG_ICON = $00000001;
       DRG_BITMAP = $00000002;
       DRG_POLYGON = $00000004;
       DRG_STRETCH = $00000008;
       DRG_TRANSPARENT = $00000010;
       DRG_CLOSED = $00000020;
       DME_IGNOREABORT = 1;
       DME_IGNORECONTINUE = 2;
       DME_REPLACE = 3;
       DME_RETRY = 4;
       DF_MOVE = $0001;
       DF_SOURCE = $0002;
       DF_SUCCESSFUL = $0004;
       DRR_SOURCE = 1;
       DRR_TARGET = 2;
       DRR_ABORT = 3;
       DFF_MOVE = 1;
       DFF_COPY = 2;
       DFF_DELETE = 3;

    type
       HSTR = LHANDLE;

       DRAGITEM = record
          hwndItem : HWND;
          ulItemID : ULONG;
          hstrType : HSTR;
          hstrRMF : HSTR;
          hstrContainerName : HSTR;
          hstrSourceName : HSTR;
          hstrTargetName : HSTR;
          cxOffset : SHORT;
          cyOffset : SHORT;
          fsControl : USHORT;
          fsSupportedOps : USHORT;
       end;

       PDRAGITEM = ^DRAGITEM;

       DRAGINFO = record
          cbDraginfo : ULONG;
          cbDragitem : USHORT;
          usOperation : USHORT;
          hwndSource : HWND;
          xDrop : SHORT;
          yDrop : SHORT;
          cditem : USHORT;
          usReserved : USHORT;
       end;

       PDRAGINFO = ^DRAGINFO;

       DRAGIMAGE = record
          cb : USHORT;
          cptl : USHORT;
          hImage : LHANDLE;
          sizlStretch : SIZEL;
          fl : ULONG;
          cxOffset : SHORT;
          cyOffset : SHORT;
       end;

       PDRAGIMAGE = ^DRAGIMAGE;

       DRAGTRANSFER = record
          cb : ULONG;
          hwndClient : HWND;
          pditem : PDRAGITEM;
          hstrSelectedRMF : HSTR;
          hstrRenderToName : HSTR;
          ulTargetInfo : ULONG;
          usOperation : USHORT;
          fsReply : USHORT;
       end;

       PDRAGTRANSFER = ^DRAGTRANSFER;

       RENDERFILE = record
          hwndDragFiles : HWND;
          hstrSource : HSTR;
          hstrTarget : HSTR;
          fMove : USHORT;
          usRsvd : USHORT;
       end;

       PRENDERFILE = ^RENDERFILE;


    function DrgAcceptDroppedFiles(hwnd : HWND;pszPath : PSZ;pszTypes : PSZ;ulDefaultOp : ULONG;ulRsvd : ULONG) : BOOL;

    function DrgAllocDraginfo(cditem : ULONG) : PDRAGINFO;

    function DrgAllocDragtransfer(cdxfer : ULONG) : PDRAGTRANSFER;

    function DrgDrag(hwndSource : HWND;pdinfo : PDRAGINFO;pdimg : PDRAGIMAGE;cdimg : ULONG;vkTerminate : LONG;pRsvd : PVOID) : HWND;

    type
       PPSZ = ^PSZ;


    function DrgDragFiles(hwnd : HWND;apszFiles : PPSZ;apszTypes : PPSZ;apszTargets : PPSZ;cFiles : ULONG;hptrDrag : HPOINTER;vkTerm : ULONG;fSourceRender : BOOL;ulRsvd : ULONG) : BOOL;

    function DrgPostTransferMsg(hwnd : HWND;msg : ULONG;pdxfer : PDRAGTRANSFER;fl : ULONG;ulRsvd : ULONG;fRetry : BOOL) : BOOL;

    function DrgQueryDragitem(pdinfo : PDRAGINFO;cbBuffer : ULONG;pditem : PDRAGITEM;iItem : ULONG) : BOOL;

    function DrgQueryDragitemCount(pdinfo : PDRAGINFO) : ULONG;

    function DrgQueryDragitemPtr(pdinfo : PDRAGINFO;i : ULONG) : PDRAGITEM;

    function DrgQueryNativeRMF(pditem : PDRAGITEM;cbBuffer : ULONG;pBuffer : PCHAR) : BOOL;

    function DrgQueryNativeRMFLen(pditem : PDRAGITEM) : ULONG;

    function DrgQueryStrName(hstr : HSTR;cbBuffer : ULONG;pBuffer : PSZ) : ULONG;

    function DrgQueryStrNameLen(hstr : HSTR) : ULONG;

    function DrgQueryTrueType(pditem : PDRAGITEM;cbBuffer : ULONG;pBuffer : PSZ) : BOOL;

    function DrgQueryTrueTypeLen(pditem : PDRAGITEM) : ULONG;

    function DrgSendTransferMsg(hwnd : HWND;msg : ULONG;mp1 : MPARAM;mp2 : MPARAM) : MRESULT;

    function DrgSetDragitem(pdinfo : PDRAGINFO;pditem : PDRAGITEM;cbBuffer : ULONG;iItem : ULONG) : BOOL;

    function DrgSetDragImage(pdinfo : PDRAGINFO;pdimg : PDRAGIMAGE;cdimg : ULONG;pRsvd : PVOID) : BOOL;

    function DrgVerifyTypeSet(pditem : PDRAGITEM;pszType : PSZ;cbMatch : ULONG;pszMatch : PSZ) : BOOL;

    function DrgAccessDraginfo(pdinfo : PDRAGINFO) : BOOL;

    function DrgAddStrHandle(psz : PSZ) : HSTR;

    function DrgDeleteDraginfoStrHandles(pdinfo : PDRAGINFO) : BOOL;

    function DrgDeleteStrHandle(hstr : HSTR) : BOOL;

    function DrgFreeDraginfo(pdinfo : PDRAGINFO) : BOOL;

    function DrgFreeDragtransfer(pdxfer : PDRAGTRANSFER) : BOOL;

    function DrgGetPS(hwnd : HWND) : HPS;

    function DrgPushDraginfo(pdinfo : PDRAGINFO;hwndDest : HWND) : BOOL;

    function DrgReleasePS(hps : HPS) : BOOL;

    function DrgSetDragPointer(pdinfo : PDRAGINFO;hptr : HPOINTER) : BOOL;

    function DrgVerifyNativeRMF(pditem : PDRAGITEM;pszRMF : PSZ) : BOOL;

    function DrgVerifyRMF(pditem : PDRAGITEM;pszMech : PSZ;pszFmt : PSZ) : BOOL;

    function DrgVerifyTrueType(pditem : PDRAGITEM;pszType : PSZ) : BOOL;

    function DrgVerifyType(pditem : PDRAGITEM;pszType : PSZ) : BOOL;

    const
       PMERR_NOFILTERED_ITEMS = $1f02;
       PMERR_COMPARISON_FAILED = $1f03;
       PMERR_RECORD_CURRENTLY_INSERTED = $1f04;
       PMERR_FI_CURRENTLY_INSERTED = $1f05;
       CCS_EXTENDSEL = $00000001;
       CCS_MULTIPLESEL = $00000002;
       CCS_SINGLESEL = $00000004;
       CCS_AUTOPOSITION = $00000008;
       CCS_VERIFYPOINTERS = $00000010;
       CCS_READONLY = $00000020;
       CCS_MINIRECORDCORE = $00000040;
       CV_TEXT = $00000001;
       CV_NAME = $00000002;
       CV_ICON = $00000004;
       CV_DETAIL = $00000008;
       CV_FLOW = $00000010;
       CV_MINI = $00000020;
       CV_TREE = $00000040;
       CA_CONTAINERTITLE = $00000200;
       CA_TITLESEPARATOR = $00000400;
       CA_TITLELEFT = $00000800;
       CA_TITLERIGHT = $00001000;
       CA_TITLECENTER = $00002000;
       CA_OWNERDRAW = $00004000;
       CA_DETAILSVIEWTITLES = $00008000;
       CA_ORDEREDTARGETEMPH = $00010000;
       CA_DRAWBITMAP = $00020000;
       CA_DRAWICON = $00040000;
       CA_TITLEREADONLY = $00080000;
       CA_OWNERPAINTBACKGROUND = $00100000;
       CA_MIXEDTARGETEMPH = $00200000;
       CA_TREELINE = $00400000;
       CID_LEFTCOLTITLEWND = $7FF0;
       CID_RIGHTCOLTITLEWND = $7FF1;
       CID_BLANKBOX = $7FF2;
       CID_HSCROLL = $7FF3;
       CID_RIGHTHSCROLL = $7FF4;
       CID_CNRTITLEWND = $7FF5;
       CID_LEFTDVWND = $7FF7;
       CID_RIGHTDVWND = $7FF8;
       CID_VSCROLL = $7FF9;
       CID_MLE = $7FFA;

    type
       TREEITEMDESC = record
          hbmExpanded : HBITMAP;
          hbmCollapsed : HBITMAP;
          hptrExpanded : HPOINTER;
          hptrCollapsed : HPOINTER;
       end;

       PTREEITEMDESC = ^TREEITEMDESC;

       PFIELDINFO = ^FIELDINFO;

       FIELDINFO = record
          cb : ULONG;
          flData : ULONG;
          flTitle : ULONG;
          pTitleData : PVOID;
          offStruct : ULONG;
          pUserData : PVOID;
          pNextFieldInfo : PFIELDINFO;
          cxWidth : ULONG;
       end;

       PRECORDCORE = ^RECORDCORE;

       RECORDCORE = record
          cb : ULONG;
          flRecordAttr : ULONG;
          ptlIcon : POINTL;
          preccNextRecord : PRECORDCORE;
          pszIcon : PSZ;
          hptrIcon : HPOINTER;
          hptrMiniIcon : HPOINTER;
          hbmBitmap : HBITMAP;
          hbmMiniBitmap : HBITMAP;
          pTreeItemDesc : PTREEITEMDESC;
          pszText : PSZ;
          pszName : PSZ;
          pszTree : PSZ;
       end;

       PMINIRECORDCORE = ^MINIRECORDCORE;

       MINIRECORDCORE = record
          cb : ULONG;
          flRecordAttr : ULONG;
          ptlIcon : POINTL;
          preccNextRecord : PMINIRECORDCORE;
          pszIcon : PSZ;
          hptrIcon : HPOINTER;
       end;

       CNRINFO = record
          cb : ULONG;
          pSortRecord : PVOID;
          pFieldInfoLast : PFIELDINFO;
          pFieldInfoObject : PFIELDINFO;
          pszCnrTitle : PSZ;
          flWindowAttr : ULONG;
          ptlOrigin : POINTL;
          cDelta : ULONG;
          cRecords : ULONG;
          slBitmapOrIcon : SIZEL;
          slTreeBitmapOrIcon : SIZEL;
          hbmExpanded : HBITMAP;
          hbmCollapsed : HBITMAP;
          hptrExpanded : HPOINTER;
          hptrCollapsed : HPOINTER;
          cyLineSpacing : LONG;
          cxTreeIndent : LONG;
          cxTreeLine : LONG;
          cFields : ULONG;
          xVertSplitbar : LONG;
       end;

       PCNRINFO = ^CNRINFO;

       CDATE = record
          day : UCHAR;
          month : UCHAR;
          year : USHORT;
       end;

       PCDATE = ^CDATE;

       CTIME = record
          hours : UCHAR;
          minutes : UCHAR;
          seconds : UCHAR;
          ucReserved : UCHAR;
       end;

       PCTIME = ^CTIME;

    const
       CFA_LEFT = $00000001;
       CFA_RIGHT = $00000002;
       CFA_CENTER = $00000004;
       CFA_TOP = $00000008;
       CFA_VCENTER = $00000010;
       CFA_BOTTOM = $00000020;
       CFA_INVISIBLE = $00000040;
       CFA_BITMAPORICON = $00000100;
       CFA_SEPARATOR = $00000200;
       CFA_HORZSEPARATOR = $00000400;
       CFA_STRING = $00000800;
       CFA_OWNER = $00001000;
       CFA_DATE = $00002000;
       CFA_TIME = $00004000;
       CFA_FIREADONLY = $00008000;
       CFA_FITITLEREADONLY = $00010000;
       CFA_ULONG = $00020000;
       CRA_SELECTED = $00000001;
       CRA_TARGET = $00000002;
       CRA_CURSORED = $00000004;
       CRA_INUSE = $00000008;
       CRA_FILTERED = $00000010;
       CRA_DROPONABLE = $00000020;
       CRA_RECORDREADONLY = $00000040;
       CRA_EXPANDED = $00000080;
       CRA_COLLAPSED = $00000100;
       CM_ALLOCDETAILFIELDINFO = $0330;
       CM_ALLOCRECORD = $0331;
       CM_ARRANGE = $0332;
       CM_ERASERECORD = $0333;
       CM_FILTER = $0334;
       CM_FREEDETAILFIELDINFO = $0335;
       CM_FREERECORD = $0336;
       CM_HORZSCROLLSPLITWINDOW = $0337;
       CM_INSERTDETAILFIELDINFO = $0338;
       CM_INSERTRECORD = $0339;
       CM_INVALIDATEDETAILFIELDINFO = $033a;
       CM_INVALIDATERECORD = $033b;
       CM_PAINTBACKGROUND = $033c;
       CM_QUERYCNRINFO = $033d;
       CM_QUERYDETAILFIELDINFO = $033e;
       CM_QUERYDRAGIMAGE = $033f;
       CM_QUERYRECORD = $0340;
       CM_QUERYRECORDEMPHASIS = $0341;
       CM_QUERYRECORDFROMRECT = $0342;
       CM_QUERYRECORDRECT = $0343;
       CM_QUERYVIEWPORTRECT = $0344;
       CM_REMOVEDETAILFIELDINFO = $0345;
       CM_REMOVERECORD = $0346;
       CM_SCROLLWINDOW = $0347;
       CM_SEARCHSTRING = $0348;
       CM_SETCNRINFO = $0349;
       CM_SETRECORDEMPHASIS = $034a;
       CM_SORTRECORD = $034b;
       CM_OPENEDIT = $034c;
       CM_CLOSEEDIT = $034d;
       CM_COLLAPSETREE = $034e;
       CM_EXPANDTREE = $034f;
       CM_QUERYRECORDINFO = $0350;
       CN_DRAGAFTER = 101;
       CN_DRAGLEAVE = 102;
       CN_DRAGOVER = 103;
       CN_DROP = 104;
       CN_DROPHELP = 105;
       CN_ENTER = 106;
       CN_INITDRAG = 107;
       CN_EMPHASIS = 108;
       CN_KILLFOCUS = 109;
       CN_SCROLL = 110;
       CN_QUERYDELTA = 111;
       CN_SETFOCUS = 112;
       CN_REALLOCPSZ = 113;
       CN_BEGINEDIT = 114;
       CN_ENDEDIT = 115;
       CN_COLLAPSETREE = 116;
       CN_EXPANDTREE = 117;
       CN_HELP = 118;
       CN_CONTEXTMENU = 119;

    type
       CNRDRAGINIT = record
          hwndCnr : HWND;
          pRecord : PRECORDCORE;
          x : LONG;
          y : LONG;
          cx : LONG;
          cy : LONG;
       end;

       PCNRDRAGINIT = ^CNRDRAGINIT;

       FIELDINFOINSERT = record
          cb : ULONG;
          pFieldInfoOrder : PFIELDINFO;
          fInvalidateFieldInfo : ULONG;
          cFieldInfoInsert : ULONG;
       end;

       PFIELDINFOINSERT = ^FIELDINFOINSERT;

       RECORDINSERT = record
          cb : ULONG;
          pRecordOrder : PRECORDCORE;
          pRecordParent : PRECORDCORE;
          fInvalidateRecord : ULONG;
          zOrder : ULONG;
          cRecordsInsert : ULONG;
       end;

       PRECORDINSERT = ^RECORDINSERT;

       QUERYRECFROMRECT = record
          cb : ULONG;
          rect : RECTL;
          fsSearch : ULONG;
       end;

       PQUERYRECFROMRECT = ^QUERYRECFROMRECT;

       QUERYRECORDRECT = record
          cb : ULONG;
          pRecord : PRECORDCORE;
          fRightSplitWindow : ULONG;
          fsExtent : ULONG;
       end;

       PQUERYRECORDRECT = ^QUERYRECORDRECT;

       SEARCHSTRING = record
          cb : ULONG;
          pszSearch : PSZ;
          fsPrefix : ULONG;
          fsCaseSensitive : ULONG;
          usView : ULONG;
       end;

       PSEARCHSTRING = ^SEARCHSTRING;

       CNRDRAGINFO = record
          pDragInfo : PDRAGINFO;
          pRecord : PRECORDCORE;
       end;

       PCNRDRAGINFO = ^CNRDRAGINFO;

       NOTIFYRECORDEMPHASIS = record
          hwndCnr : HWND;
          pRecord : PRECORDCORE;
          fEmphasisMask : ULONG;
       end;

       PNOTIFYRECORDEMPHASIS = ^NOTIFYRECORDEMPHASIS;

       NOTIFYRECORDENTER = record
          hwndCnr : HWND;
          fKey : ULONG;
          pRecord : PRECORDCORE;
       end;

       PNOTIFYRECORDENTER = ^NOTIFYRECORDENTER;

       NOTIFYDELTA = record
          hwndCnr : HWND;
          fDelta : ULONG;
       end;

       PNOTIFYDELTA = ^NOTIFYDELTA;

       NOTIFYSCROLL = record
          hwndCnr : HWND;
          lScrollInc : LONG;
          fScroll : ULONG;
       end;

       PNOTIFYSCROLL = ^NOTIFYSCROLL;

       CNREDITDATA = record
          cb : ULONG;
          hwndCnr : HWND;
          pRecord : PRECORDCORE;
          pFieldInfo : PFIELDINFO;
          ppszText : PPSZ;
          cbText : ULONG;
          id : ULONG;
       end;

       PCNREDITDATA = ^CNREDITDATA;

       OWNERBACKGROUND = record
          hwnd : HWND;
          hps : HPS;
          rclBackground : RECTL;
          idWindow : LONG;
       end;

       POWNERBACKGROUND = ^OWNERBACKGROUND;

       CNRDRAWITEMINFO = record
          pRecord : PRECORDCORE;
          pFieldInfo : PFIELDINFO;
       end;

       PCNRDRAWITEMINFO = ^CNRDRAWITEMINFO;

    const
       CMA_TOP = $0001;
       CMA_BOTTOM = $0002;
       CMA_LEFT = $0004;
       CMA_RIGHT = $0008;
       CMA_FIRST = $0010;
       CMA_LAST = $0020;
       CMA_END = $0040;
       CMA_PREV = $0080;
       CMA_NEXT = $0100;
       CMA_HORIZONTAL = $0200;
       CMA_VERTICAL = $0400;
       CMA_ICON = $0800;
       CMA_TEXT = $1000;
       CMA_PARTIAL = $2000;
       CMA_COMPLETE = $4000;
       CMA_PARENT = $0001;
       CMA_FIRSTCHILD = $0002;
       CMA_LASTCHILD = $0004;
       CMA_CNRTITLE = $0001;
       CMA_DELTA = $0002;
       CMA_FLWINDOWATTR = $0004;
       CMA_LINESPACING = $0008;
       CMA_PFIELDINFOLAST = $0010;
       CMA_PSORTRECORD = $0020;
       CMA_PTLORIGIN = $0040;
       CMA_SLBITMAPORICON = $0080;
       CMA_XVERTSPLITBAR = $0100;
       CMA_PFIELDINFOOBJECT = $0200;
       CMA_TREEICON = $0400;
       CMA_TREEBITMAP = $0800;
       CMA_CXTREEINDENT = $1000;
       CMA_CXTREELINE = $2000;
       CMA_SLTREEBITMAPORICON = $4000;
       CMA_ITEMORDER = $0001;
       CMA_WINDOW = $0002;
       CMA_WORKSPACE = $0004;
       CMA_ZORDER = $0008;
       CMA_DELTATOP = $0001;
       CMA_DELTABOT = $0002;
       CMA_DELTAHOME = $0004;
       CMA_DELTAEND = $0008;
       CMA_NOREPOSITION = $0001;
       CMA_REPOSITION = $0002;
       CMA_TEXTCHANGED = $0004;
       CMA_ERASE = $0008;
       CMA_FREE = $0001;
       CMA_INVALIDATE = $0002;
       SLM_ADDDETENT = $0369;
       SLM_QUERYDETENTPOS = $036a;
       SLM_QUERYSCALETEXT = $036b;
       SLM_QUERYSLIDERINFO = $036c;
       SLM_QUERYTICKPOS = $036d;
       SLM_QUERYTICKSIZE = $036e;
       SLM_REMOVEDETENT = $036f;
       SLM_SETSCALETEXT = $0370;
       SLM_SETSLIDERINFO = $0371;
       SLM_SETTICKSIZE = $0372;
       SLN_CHANGE = 1;
       SLN_SLIDERTRACK = 2;
       SLN_SETFOCUS = 3;
       SLN_KILLFOCUS = 4;

    type
       SLDCDATA = record
          cbSize : ULONG;
          usScale1Increments : USHORT;
          usScale1Spacing : USHORT;
          usScale2Increments : USHORT;
          usScale2Spacing : USHORT;
       end;

       PSLDCDATA = ^SLDCDATA;

    const
       SLS_HORIZONTAL = $00000000;
       SLS_VERTICAL = $00000001;
       SLS_CENTER = $00000000;
       SLS_BOTTOM = $00000002;
       SLS_TOP = $00000004;
       SLS_LEFT = $00000002;
       SLS_RIGHT = $00000004;
       SLS_SNAPTOINCREMENT = $00000008;
       SLS_BUTTONSBOTTOM = $00000010;
       SLS_BUTTONSTOP = $00000020;
       SLS_BUTTONSLEFT = $00000010;
       SLS_BUTTONSRIGHT = $00000020;
       SLS_OWNERDRAW = $00000040;
       SLS_READONLY = $00000080;
       SLS_RIBBONSTRIP = $00000100;
       SLS_HOMEBOTTOM = $00000000;
       SLS_HOMETOP = $00000200;
       SLS_HOMELEFT = $00000000;
       SLS_HOMERIGHT = $00000200;
       SLS_PRIMARYSCALE1 = $00000000;
       SLS_PRIMARYSCALE2 = $00000400;
       SMA_SCALE1 = $0001;
       SMA_SCALE2 = $0002;
       SMA_SHAFTDIMENSIONS = $0000;
       SMA_SHAFTPOSITION = $0001;
       SMA_SLIDERARMDIMENSIONS = $0002;
       SMA_SLIDERARMPOSITION = $0003;
       SMA_RANGEVALUE = $0000;
       SMA_INCREMENTVALUE = $0001;
       SMA_SETALLTICKS = $FFFF;
       SDA_RIBBONSTRIP = $0001;
       SDA_SLIDERSHAFT = $0002;
       SDA_BACKGROUND = $0003;
       SDA_SLIDERARM = $0004;
       PMERR_UPDATE_IN_PROGRESS = $1f06;
       SLDERR_INVALID_PARAMETERS = -1;
       VM_QUERYITEM = $0375;
       VM_QUERYITEMATTR = $0376;
       VM_QUERYMETRICS = $0377;
       VM_QUERYSELECTEDITEM = $0378;
       VM_SELECTITEM = $0379;
       VM_SETITEM = $037a;
       VM_SETITEMATTR = $037b;
       VM_SETMETRICS = $037c;
       VN_SELECT = 120;
       VN_ENTER = 121;
       VN_DRAGLEAVE = 122;
       VN_DRAGOVER = 123;
       VN_DROP = 124;
       VN_DROPHELP = 125;
       VN_INITDRAG = 126;
       VN_SETFOCUS = 127;
       VN_KILLFOCUS = 128;
       VN_HELP = 129;

    type
       VSCDATA = record
          cbSize : ULONG;
          usRowCount : USHORT;
          usColumnCount : USHORT;
       end;

       PVSCDATA = ^VSCDATA;

       VSDRAGINIT = record
          hwnd : HWND;
          x : LONG;
          y : LONG;
          cx : LONG;
          cy : LONG;
          usRow : USHORT;
          usColumn : USHORT;
       end;

       PVSDRAGINIT = ^VSDRAGINIT;

       VSDRAGINFO = record
          pDragInfo : PDRAGINFO;
          usRow : USHORT;
          usColumn : USHORT;
       end;

       PVSDRAGINFO = ^VSDRAGINFO;

       VSTEXT = record
          pszItemText : PSZ;
          ulBufLen : ULONG;
       end;

       PVSTEXT = ^VSTEXT;

    const
       VS_BITMAP = $0001;
       VS_ICON = $0002;
       VS_TEXT = $0004;
       VS_RGB = $0008;
       VS_COLORINDEX = $0010;
       VS_BORDER = $0020;
       VS_ITEMBORDER = $0040;
       VS_SCALEBITMAPS = $0080;
       VS_RIGHTTOLEFT = $0100;
       VS_OWNERDRAW = $0200;
       VIA_BITMAP = $0001;
       VIA_ICON = $0002;
       VIA_TEXT = $0004;
       VIA_RGB = $0008;
       VIA_COLORINDEX = $0010;
       VIA_OWNERDRAW = $0020;
       VIA_DISABLED = $0040;
       VIA_DRAGGABLE = $0080;
       VIA_DROPONABLE = $0100;
       VMA_ITEMSIZE = $0001;
       VMA_ITEMSPACING = $0002;
       VDA_ITEM = $0001;
       VDA_ITEMBACKGROUND = $0002;
       VDA_SURROUNDING = $0003;
       VDA_BACKGROUND = $0004;
       VSERR_INVALID_PARAMETERS = -1;
       BKM_CALCPAGERECT = $0353;
       BKM_DELETEPAGE = $0354;
       BKM_INSERTPAGE = $0355;
       BKM_INVALIDATETABS = $0356;
       BKM_TURNTOPAGE = $0357;
       BKM_QUERYPAGECOUNT = $0358;
       BKM_QUERYPAGEID = $0359;
       BKM_QUERYPAGEDATA = $035a;
       BKM_QUERYPAGEWINDOWHWND = $035b;
       BKM_QUERYTABBITMAP = $035c;
       BKM_QUERYTABTEXT = $035d;
       BKM_SETDIMENSIONS = $035e;
       BKM_SETPAGEDATA = $035f;
       BKM_SETPAGEWINDOWHWND = $0360;
       BKM_SETSTATUSLINETEXT = $0361;
       BKM_SETTABBITMAP = $0362;
       BKM_SETTABTEXT = $0363;
       BKM_SETNOTEBOOKCOLORS = $0364;
       BKM_QUERYPAGESTYLE = $0365;
       BKM_QUERYSTATUSLINETEXT = $0366;
       BKN_PAGESELECTED = 130;
       BKN_NEWPAGESIZE = 131;
       BKN_HELP = 132;
       BKN_PAGEDELETED = 133;
       BKA_ALL = $0001;
       BKA_SINGLE = $0002;
       BKA_TAB = $0004;
       BKA_LAST = $0002;
       BKA_FIRST = $0004;
       BKA_NEXT = $0008;
       BKA_PREV = $0010;
       BKA_TOP = $0020;
       BKA_MAJORTAB = $0001;
       BKA_MINORTAB = $0002;
       BKA_PAGEBUTTON = $0100;
       BKA_STATUSTEXTON = $0001;
       BKA_MAJOR = $0040;
       BKA_MINOR = $0080;
       BKA_AUTOPAGESIZE = $0100;
       BKA_END = $0200;
       BKA_TEXT = $0400;
       BKA_BITMAP = $0800;
       BKS_BACKPAGESBR = $00000001;
       BKS_BACKPAGESBL = $00000002;
       BKS_BACKPAGESTR = $00000004;
       BKS_BACKPAGESTL = $00000008;
       BKS_MAJORTABRIGHT = $00000010;
       BKS_MAJORTABLEFT = $00000020;
       BKS_MAJORTABTOP = $00000040;
       BKS_MAJORTABBOTTOM = $00000080;
       BKS_SQUARETABS = $00000000;
       BKS_ROUNDEDTABS = $00000100;
       BKS_POLYGONTABS = $00000200;
       BKS_SOLIDBIND = $00000000;
       BKS_SPIRALBIND = $00000400;
       BKS_STATUSTEXTLEFT = $00000000;
       BKS_STATUSTEXTRIGHT = $00001000;
       BKS_STATUSTEXTCENTER = $00002000;
       BKS_TABTEXTLEFT = $00000000;
       BKS_TABTEXTRIGHT = $00004000;
       BKS_TABTEXTCENTER = $00008000;
       BKA_BACKGROUNDPAGECOLORINDEX = $0001;
       BKA_BACKGROUNDPAGECOLOR = $0002;
       BKA_BACKGROUNDMAJORCOLORINDEX = $0003;
       BKA_BACKGROUNDMAJORCOLOR = $0004;
       BKA_BACKGROUNDMINORCOLORINDEX = $0005;
       BKA_BACKGROUNDMINORCOLOR = $0006;
       BKA_FOREGROUNDMAJORCOLORINDEX = $0007;
       BKA_FOREGROUNDMAJORCOLOR = $0008;
       BKA_FOREGROUNDMINORCOLORINDEX = $0009;
       BKA_FOREGROUNDMINORCOLOR = $000A;
       BOOKERR_INVALID_PARAMETERS = -1;

    type
       BOOKTEXT = record
          pString : PSZ;
          textLen : ULONG;
       end;

       PBOOKTEXT = ^BOOKTEXT;

       DELETENOTIFY = record
          hwndBook : HWND;
          hwndPage : HWND;
          ulAppPageData : ULONG;
          hbmTab : HBITMAP;
       end;

       PDELETENOTIFY = ^DELETENOTIFY;

       PAGESELECTNOTIFY = record
          hwndBook : HWND;
          ulPageIdCur : ULONG;
          ulPageIdNew : ULONG;
       end;

       PPAGESELECTNOTIFY = ^PAGESELECTNOTIFY;

  implementation
  
    function WinFileDlg(hwndP : HWND;hwndO : HWND;pfild : PFILEDLG) : HWND;[SYSTEM];
    function WinDefFileDlgProc(hwnd : HWND;msg : ULONG;mp1 : MPARAM;mp2 : MPARAM) : MRESULT;[SYSTEM];
    function WinFreeFileDlgList(papszFQFilename : PAPSZ) : BOOL;[SYSTEM];
    function WinFontDlg(hwndP : HWND;hwndO : HWND;pfntd : PFONTDLG) : HWND;[SYSTEM];
    function WinDefFontDlgProc(hwnd : HWND;msg : ULONG;mp1 : MPARAM;mp2 : MPARAM) : MRESULT;[SYSTEM];
    function DrgAcceptDroppedFiles(hwnd : HWND;pszPath : PSZ;pszTypes : PSZ;ulDefaultOp : ULONG;ulRsvd : ULONG) : BOOL;[SYSTEM];
    function DrgAllocDraginfo(cditem : ULONG) : PDRAGINFO;[SYSTEM];
    function DrgAllocDragtransfer(cdxfer : ULONG) : PDRAGTRANSFER;[SYSTEM];
    function DrgDrag(hwndSource : HWND;pdinfo : PDRAGINFO;pdimg : PDRAGIMAGE;cdimg : ULONG;vkTerminate : LONG;pRsvd : PVOID) : HWND;[SYSTEM];
    function DrgDragFiles(hwnd : HWND;apszFiles : PPSZ;apszTypes : PPSZ;apszTargets : PPSZ;cFiles : ULONG;hptrDrag : HPOINTER;vkTerm : ULONG;fSourceRender : BOOL;ulRsvd : ULONG) : BOOL;[SYSTEM];
    function DrgPostTransferMsg(hwnd : HWND;msg : ULONG;pdxfer : PDRAGTRANSFER;fl : ULONG;ulRsvd : ULONG;fRetry : BOOL) : BOOL;[SYSTEM];
    function DrgQueryDragitem(pdinfo : PDRAGINFO;cbBuffer : ULONG;pditem : PDRAGITEM;iItem : ULONG) : BOOL;[SYSTEM];
    function DrgQueryDragitemCount(pdinfo : PDRAGINFO) : ULONG;[SYSTEM];
    function DrgQueryDragitemPtr(pdinfo : PDRAGINFO;i : ULONG) : PDRAGITEM;[SYSTEM];
    function DrgQueryNativeRMF(pditem : PDRAGITEM;cbBuffer : ULONG;pBuffer : PCHAR) : BOOL;[SYSTEM];
    function DrgQueryNativeRMFLen(pditem : PDRAGITEM) : ULONG;[SYSTEM];
    function DrgQueryStrName(hstr : HSTR;cbBuffer : ULONG;pBuffer : PSZ) : ULONG;[SYSTEM];
    function DrgQueryStrNameLen(hstr : HSTR) : ULONG;[SYSTEM];
    function DrgQueryTrueType(pditem : PDRAGITEM;cbBuffer : ULONG;pBuffer : PSZ) : BOOL;[SYSTEM];
    function DrgQueryTrueTypeLen(pditem : PDRAGITEM) : ULONG;[SYSTEM];
    function DrgSendTransferMsg(hwnd : HWND;msg : ULONG;mp1 : MPARAM;mp2 : MPARAM) : MRESULT;[SYSTEM];
    function DrgSetDragitem(pdinfo : PDRAGINFO;pditem : PDRAGITEM;cbBuffer : ULONG;iItem : ULONG) : BOOL;[SYSTEM];
    function DrgSetDragImage(pdinfo : PDRAGINFO;pdimg : PDRAGIMAGE;cdimg : ULONG;pRsvd : PVOID) : BOOL;[SYSTEM];
    function DrgVerifyTypeSet(pditem : PDRAGITEM;pszType : PSZ;cbMatch : ULONG;pszMatch : PSZ) : BOOL;[SYSTEM];
    function DrgAccessDraginfo(pdinfo : PDRAGINFO) : BOOL;[SYSTEM];
    function DrgAddStrHandle(psz : PSZ) : HSTR;[SYSTEM];
    function DrgDeleteDraginfoStrHandles(pdinfo : PDRAGINFO) : BOOL;[SYSTEM];
    function DrgDeleteStrHandle(hstr : HSTR) : BOOL;[SYSTEM];
    function DrgFreeDraginfo(pdinfo : PDRAGINFO) : BOOL;[SYSTEM];
    function DrgFreeDragtransfer(pdxfer : PDRAGTRANSFER) : BOOL;[SYSTEM];
    function DrgGetPS(hwnd : HWND) : HPS;[SYSTEM];
    function DrgPushDraginfo(pdinfo : PDRAGINFO;hwndDest : HWND) : BOOL;[SYSTEM];
    function DrgReleasePS(hps : HPS) : BOOL;[SYSTEM];
    function DrgSetDragPointer(pdinfo : PDRAGINFO;hptr : HPOINTER) : BOOL;[SYSTEM];
    function DrgVerifyNativeRMF(pditem : PDRAGITEM;pszRMF : PSZ) : BOOL;[SYSTEM];
    function DrgVerifyRMF(pditem : PDRAGITEM;pszMech : PSZ;pszFmt : PSZ) : BOOL;[SYSTEM];
    function DrgVerifyTrueType(pditem : PDRAGITEM;pszType : PSZ) : BOOL;[SYSTEM];
    function DrgVerifyType(pditem : PDRAGITEM;pszType : PSZ) : BOOL;[SYSTEM];
  
end.