Power-Programmierung/CD1.mdf/fortran/mslang/prefor/user32.fd

Text File | 1993-10-13 | 13.9 KB | 535 lines

c*tagdcb
       structure /tagdcb/
          Integer*1 Id
          Integer*4 BaudRate
          Integer*1 ByteSize
          Integer*1 Parity
          Integer*1 StopBits
          Integer*4 RlsTimeout
          Integer*4 CtsTimeout
          Integer*4 DsrTimeout
          integer*4 flags
          Integer*1 XonChar
          Integer*1 XoffChar
          Integer*4 XonLim
          Integer*4 XoffLim
          Integer*1 PeChar
          Integer*1 EofChar
          Integer*1 EvtChar
          Integer*4 TxDelay
       End Structure
c*tagcomstat
       structure /tagCOMSTAT/
          Integer*1 status
          Integer*4 cbInQue
          Integer*4 cbOutQue
       End Structure
c*tagbitmapfileheader
       structure /tagBitMapFileHeader/
          Integer*2 bfType
          Integer*4 bfSize
          Integer*2 bfReserved1
          Integer*2 bfReserved2
          Integer*4 bfOffBits
       End Structure
c*tagbitmap
       structure /tagBitMap/
          Integer*2 bmType
          Integer*2 bmWidth
          Integer*2 bmHeight
          Integer*2 bmWidthBytes
          Integer*1 bmPlanes
          Integer*1 bmBitsPixel
          Integer*4 bmBits
       End Structure
c*tagbmphead
       structure /tagBMPHead/
          Character*1 id1
          Character*1 id2
          Integer*4 filesize
          Integer*2 reserved1
          Integer*2 reserved2
          Integer*4 headersize
          Integer*4 infosize
          Integer*4 width
          Integer*4 depth
          Integer*2 biPlanes
          Integer*2 bits
          Integer*4 biCompression
          Integer*4 biSizeImage
          Integer*4 biXPelsPerMeter
          Integer*4 biYPelsPerMeter
          Integer*4 biClrUsed
          Integer*4 biClrImportant
       End Structure
c*tagbitmapheader
       structure /tagbitmapheader/
          Character*1 id1
          Character*1 id2
          Integer*4 filesize
          Integer*2 reserved1
          Integer*2 reserved2
          Integer*4 headersize
          Integer*4 infosize
          Integer*4 width
          Integer*4 depth
          Integer*2 biPlanes
          Integer*2 bits
       End Structure
c*tagbitmapinfoheader
       structure /tagbitmapinfoheader/
          Integer*4 biSize
          Integer*4 biWidth
          Integer*4 biHeight
          Integer*2 biPlanes
          Integer*2 biBitCount
          Integer*4 biCompression
          Integer*4 biSizeImage
          Integer*4 biXPelsPerMeter
          Integer*4 biYPelsPerMeter
          Integer*4 biClrUsed
          Integer*4 biClrImportant
       End Structure
c*wndclass
       structure/wndclass/
        integer*4 style
        integer*4 lpfnWndProc
        integer*4 cbClsExtra
        integer*4 cbWndExtra
        integer*4 hInstance
        integer*4 hIcon
        integer*4 hCursor
        integer*4 hbrBackground
        integer*4 lpszMenuName
        integer*4 lpszClassName
      end structure
c*tagmsg
       structure /tagmsg/
          integer*4 hwnd
          integer*4 message
          integer*4 wParam
          Integer*4 lParam
          Integer*4 time
          integer*4 pt_x
          integer*4 pt_y
       End Structure
c*tagtextmetric
       structure /tagTextMetric/
          integer*4 tmHeight
          integer*4 tmAscent
          integer*4 tmDescent
          integer*4 tmInternalLeading
          integer*4 tmExternalLeading
          integer*4 tmAveCharWidth
          integer*4 tmMaxCharWidth
          integer*4 tmWeight
          INTEGER*1 tmItalic
          INTEGER*1 tmUnderlined
          INTEGER*1 tmStruckOut
          INTEGER*1 tmFirstChar
          INTEGER*1 tmLastChar
          INTEGER*1 tmDefaultChar
          INTEGER*1 tmBreakChar
          INTEGER*1 tmPitchAndFamily
          INTEGER*1 tmCharSet
          integer*4 tmOverhang
          integer*4 tmDigitizedAspectX
          integer*4 tmDigitizedAspectY
       end structure
c*tagrect
       structure /tagRect/
          integer*4 left
          integer*4 top
          integer*4 right
          integer*4 bottom
       end structure
c*tagpaintstruct
       structure /tagPAINTSTRUCT/
          integer*4 hdc
          integer*4 fErase
          record /tagRect/ rcPaint
          integer*4 fRestore
          integer*4 fIncUpdate
          integer*1 rgbReserved(16)
       end structure
c*taglogpen
       structure /tagLOGPEN/
          integer*4 style
          integer*4 x
          integer*4 y
          INTEGER*4 color
       end structure
c*idc_arrow
      integer*4 idc_arrow
      parameter (idc_arrow=32512)
c*srccopy
      integer*4 SRCCOPY
      Parameter (SRCCOPY=#00CC0020)
c*null
      integer*4 null
      Parameter (null=0)
c*cbm_init
      integer*4 cbm_init
      Parameter (CBM_INIT=4)
c*dib_rgb_colors
      integer*4 dib_rgb_colors
      Parameter (DIB_RGB_COLORS=0)
c*dib_pal_colors
      integer*4 dib_pal_colors
      Parameter (DIB_PAL_COLORS=1)
c*sw_shownormal
      integer*4 sw_shownormal
      Parameter (sw_shownormal=1)
c*ws_overlappedwindow
      integer*4 ws_overlappedwindow
      Parameter (ws_overlappedwindow=#00cc4000)
c*cw_usedefault
      integer*4 cw_usedefault
      Parameter (cw_usedefault=#8000)
c*idok
      integer*4 idok
      Parameter (IDOK=1)
c*idcancel
      integer*4 idcancel
      Parameter (IDCANCEL=2)
c*wm_initdialog
      integer*4 wm_initdialog
      Parameter (WM_INITDIALOG=#0110)
c*wm_command
      integer*4 wm_command
      Parameter (WM_COMMAND=#0111)
c*wm_create
      integer*4 wm_create
      Parameter (WM_CREATE=1)
c*wm_size
      integer*4 wm_size
      Parameter (WM_SIZE=5)
c*wm_setfocus
      integer*4 wm_setfocus
      Parameter (WM_SETFOCUS=7)
c*wm_destroy
      integer*4 wm_destroy
      Parameter (WM_DESTROY=2)
c*wm_close
      integer*4 wm_close
      Parameter (WM_CLOSE=#10)
c*wm_paint
      integer*4 wm_paint
      Parameter (WM_PAINT=#f)
c*wm_keydown
      integer*4 wm_keydown
      Parameter (WM_KEYDOWN=#100)
c*wm_keyup
      integer*4 wm_keyup
      Parameter (WM_KEYUP=#101)
c*wm_char
      integer*4 wm_char
      Parameter (WM_CHAR=#102)
c*wm_commnotify
      integer*4 wm_commnotify
      Parameter (WM_COMMNOTIFY=#44)
c*true
      integer*4 true
      Parameter (true=1)
c*false
      integer*4 false
      Parameter (false=0)
c*system_fixed_font
      integer*4 system_fixed_font
      Parameter (SYSTEM_FIXED_FONT=16)
c*bn_clicked
      integer*4 bn_clicked
      Parameter (BN_CLICKED=0)
c*color_window
      integer*4 color_window
      Parameter (COLOR_WINDOW=5)
c*color_windowtext
      integer*4 color_windowtext
      Parameter (COLOR_WINDOWTEXT=8)
c*transparent
      integer*4 transparent
      Parameter (TRANSPARENT=1)
c*opaque
      integer*4 opaque
      Parameter (OPAQUE=2)
c*cb_geteditsel
      integer*4 cb_geteditsel
      Parameter (CB_GETEDITSEL=#140+0)
c*cb_selectstring
      integer*4 cb_selectstring
      Parameter (CB_SELECTSTRING=#140+13)
c*cb_seteditsel
      integer*4 cb_seteditsel
      Parameter (CB_SETEDITSEL=#140+2)
c*cb_setitemdata
      integer*4 cb_setitemdata
      Parameter (CB_SETITEMDATA=#140+17)
c*cb_setcursel
      integer*4 cb_setcursel
      Parameter (CB_SETCURSEL=#140+14)
c*cb_getcursel
      integer*4 cb_getcursel
      Parameter (CB_GETCURSEL=#140+7)
c*cb_getitemdata
      integer*4 cb_getitemdata
      Parameter (CB_GETITEMDATA=#140+16)
c*cb_okay
      integer*4 cb_okay
      Parameter (CB_OKAY=0)
c*cb_err
      integer*4 cb_err
      Parameter (CB_ERR=-1)
c*cb_errspace
      integer*4 cb_errspace
      Parameter (CB_ERRSPACE=-2)
c*cb_addstring
      integer*4 cb_addstring
      Parameter (CB_ADDSTRING=#140+3)
c*lb_addstring
      integer*4 lb_addstring
      Parameter (LB_ADDSTRING=#140+1)
c*ps_solid
      integer*4 ps_solid
      Parameter (PS_SOLID=0)
c*ps_dash
      integer*4 ps_dash
      Parameter (PS_DASH=1)
c*ps_dot
      integer*4 ps_dot
      Parameter (PS_DOT=2)
c*ps_dashdot
      integer*4 ps_dashdot
      Parameter (PS_DASHDOT=3)
c*ps_dashdotdot
      integer*4 ps_dashdotdot
      Parameter (PS_DASHDOTDOT=4)
c*r2_copypen
      integer*4 r2_copypen
      Parameter (R2_COPYPEN=13)
c*r2_not
      integer*4 r2_not
      Parameter (R2_NOT=6)
c*wm_lbuttondown
      integer*4 wm_lbuttondown
      Parameter (WM_LBUTTONDOWN=#201)
c*wm_lbuttonup
      integer*4 wm_lbuttonup
      Parameter (WM_LBUTTONUP=#202)
c*wm_mousemove
      integer*4 wm_mousemove
      Parameter (WM_MOUSEMOVE=#200)
c*wm_rbuttondown
      integer*4 wm_rbuttondown
      Parameter (WM_RBUTTONDOWN=#204)
c*wm_rbuttonup
      integer*4 wm_rbuttonup
      Parameter (WM_RBUTTONUP=#205)
c*wm_timer
      integer*4 wm_timer
      Parameter (WM_TIMER=#113)
c*horzres
      integer*4 horzres
      Parameter (HorzRes=8)
c*vertres
      integer*4 vertres
      Parameter (VertRes=10)
c*newframe
      integer*4 newframe
      Parameter (NewFrame=1)
c*startdoc
      integer*4 startdoc
      Parameter (StartDoc=10)
c*enddoc
      integer*4 enddoc
      Parameter (EndDoc=11)
c*out_default_precis
      integer*1 out_default_precis
      Parameter (OUT_DEFAULT_PRECIS=0)
c*ansi_charset
      integer*1 ansi_charset
      Parameter (ANSI_CHARSET=0)
c*oem_charset
      integer*1 oem_charset
      Parameter (OEM_CHARSET=#FF)
c*out_default_precision
      integer*1 out_default_precision
      Parameter (OUT_DEFAULT_PRECISION=0)
c*OUT_TT_PRECISION
      integer*1 out_tt_precision
      Parameter (OUT_TT_PRECISION=4)
c*out_tt_only_precision
      integer*1 out_tt_only_precision
      Parameter (OUT_TT_ONLY_PRECISION=7)
c*CLIP_DEFAULT_PRECISION
      integer*1 CLIP_DEFAULT_PRECISION
      Parameter (CLIP_DEFAULT_PRECISION=0)
c*CLIP_DEFAULT_PRECIS
      integer*1 CLIP_DEFAULT_PRECIS
      Parameter (CLIP_DEFAULT_PRECIS=0)
c*default_palette
      integer*1 default_palette
      Parameter (DEFAULT_PALETTE=15)
c*default_quality
      integer*1 default_quality
      Parameter (DEFAULT_QUALITY=0)
c*draft_quality
      integer*1 draft_quality
      Parameter (DRAFT_QUALITY=1)
c*PROOF_QUALITY
      integer*1 PROOF_QUALITY
      Parameter (PROOF_QUALITY=2)
c*variable_pitch
      integer*1 VARIABLE_PITCH
      Parameter (VARIABLE_PITCH=2)
c*FF_SCRIPT
      integer*1 FF_SCRIPT
      Parameter (FF_SCRIPT=#40)
c*ff_roman
      integer*1 FF_ROMAN
      Parameter (FF_ROMAN=#10)
c*DEFAULT_PITCH
      integer*1 DEFAULT_PITCH
      Parameter (DEFAULT_PITCH=0)
c*ff_dontcare
      integer*1 ff_dontcare
      Parameter (FF_DONTCARE=0)
c*FF_MODERN
      integer*1 FF_MODERN
      Parameter (FF_MODERN=#30)
c*fixed_pitch
      integer*1 fixed_pitch
      Parameter (FIXED_PITCH=1)
c*snd_SYNC
      integer*4 snd_sync
      Parameter (SND_SYNC=0)
c*snd_async
      integer*4 snd_async
      Parameter (SND_ASYNC=1)
c*snd_NODEFAULT
      integer*4 snd_NODEFAULT
      Parameter (SND_NODEFAULT=2)
c*snd_memory
      integer*4 snd_MEMORY
      Parameter (SND_MEMORY=4)
c*snd_LOOP
      integer*4 snd_loop
      Parameter (SND_LOOP=8)
c*snd_nostop
      integer*4 snd_NOSTOP
      Parameter (SND_NOSTOP=#10)
c*NOparity
      integer*1 noparity
      Parameter (NOPARITY=0)
c*ODDparity
      integer*1 ODDparity
      Parameter (ODDPARITY=1)
c*EVENparity
      integer*1 evenparity
      Parameter (EVENPARITY=2)
c*markparity
      integer*1 MARKparity
      Parameter (MARKPARITY=3)
c*spaceparity
      integer*1 spaceparity
      Parameter (SPACEPARITY=4)
c*cn_RECEIVE
      integer*4 cn_RECEIVE
      Parameter (CN_RECEIVE=1)
c*cn_transmit
      integer*4 cn_TRANSMIT
      Parameter (CN_TRANSMIT=2)
c*cn_EVENT
      integer*4 cn_EVENT
      Parameter (CN_EVENT=4)
c*cbr_300
      integer*4 CBR_300
      Parameter (CBR_300=#FF11)
c*cbr_1200
      integer*4 CBR_1200
      Parameter (CBR_1200=#FF13)
c*cbr_2400
      integer*4 CBR_2400
      Parameter (CBR_2400=#FF14)
c*cbr_4800
      integer*4 CBR_4800
      Parameter (CBR_4800=#FF15)
c*cbr_9600
      integer*4 CBR_9600
      Parameter (CBR_9600=#FF16)
c*BLACKONWHITE
      integer*4 blackonwhite
      Parameter (BLACKONWHITE=1)
c*whiteonblack
      integer*4 WHITEONBLACK
      Parameter (WHITEONBLACK=2)
c*coloroncolor
      integer*4 COLORONCOLOR
      Parameter (COLORONCOLOR=3)
c*CB_SetItemHeight
      integer*4 cB_setitemheight
      parameter (cb_setitemheight=#140+19)
c*onestopbit
      Integer*1 ONESTOPBIT
      Parameter (ONESTOPBIT=0)
c*ONE5STOPBITS
      Integer*1 ONE5STOPBITS
      Parameter (ONE5STOPBITS=1)
c*TWOSTOPBITS
      Integer*1 TWOSTOPBITS
      Parameter (TWOSTOPBITS=2)
c*EV_RXCHAR
      integer*4 EV_RXCHAR
      Parameter (EV_RXCHAR=1)
c*EV_PERR
      integer*4 EV_PERR
      Parameter (EV_PERR=#200)
c*EV_ERR
      integer*4 EV_ERR
      Parameter (EV_ERR=#80)
c*DCBfbinary
      integer*2 DCBfbinary
      Parameter (DCBfbinary=0)
c*DCBfRtsDisable
      integer*2 DCBfRtsDisable
      Parameter (DCBfRtsDisable=1)
c*DCBfParity
      integer*2 DCBfParity
      Parameter (DCBfParity=2)
c*DCBfOutxctsFlow
      integer*2 DCBfOutxctsFlow
      Parameter (DCBfOutxctsFlow=3)
c*DCBfOutxdsrflow
      integer*2 DCBfOutxdsrflow
      Parameter (DCBfOutxdsrflow=4)
c*DCBfDummy
      integer*2 DCBfDummy
      Parameter (DCBfdummy=5)
c*DCBfdtrdisable
      integer*2 DCBfdtrdisable
      Parameter (DCBfdtrdisable=7)
c*DCBfOutx
      integer*2 DCBfOutx
      Parameter (DCBfoutx=8)
c*DCBfInx
      integer*2 DCBfInx
      Parameter (DCBfinx=9)
c*DCBfPeChar
      integer*2 DCBfPeChar
      Parameter (DCBfpechar=10)
c*DCBfNull
      integer*2 DCBfNull
      Parameter (DCBfnull=11)
c*DCBfChevt
      integer*2 DCBfChevt
      Parameter (DCBfchevt=12)
c*DCBfDTRflow
      integer*2 DCBfDTRflow
      Parameter (DCBfdtrflow=13)
c*DCBfRTSFLOW
      integer*2 DCBfRTSFLOW
      Parameter (DCBfrtsflow=14)
c*DCBfDummy2
      integer*2 DCBfDummy2
      Parameter (DCBfDummy2=15)
c*BarrysEnd