modules/win95.painting-drawing.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module win95.painting-drawing :win95.painting-drawing)
   5
   6 (cl:in-package cl-w32api.module.win95.painting-drawing)
   7
   8 (require-and-inherit-module "win95.~")
   9
  10 (defcstructex-exported (PAINTSTRUCT :size 64)
  11         (hdc     HDC)
  12         (fErase  BOOL)
  13         (rcPaint (:inline RECT))
  14         (fRestore BOOL)
  15         (fIncUpdate BOOL)
  16         (rgbReserved :pointer))
  17 #|
  18 (defcstruct PAINTSTRUCT
  19         (a :pointer)
  20         (b :pointer)
  21         (c :pointer)
  22         (d :pointer)
  23         (e :pointer)
  24         (f :pointer)
  25         (g :pointer)
  26         (h :pointer)
  27         (i :pointer)
  28         (j :pointer)
  29         (k :pointer)
  30         (l :pointer)
  31         (m :pointer)
  32         (n :pointer))
  33 |#
  34 (export 'PAINTSTRUCT)
  35
  36 (defcfunex-exported ("BeginPaint" BeginPaint :convention :stdcall) HDC
  37   (|hWnd| HWND)
  38   (|lpPaint| PAINTSTRUCT))
  39
  40 (defcfunex-exported ("DrawAnimatedRects" DrawAnimatedRects :convention :stdcall) :int
  41   (arg0 :pointer)
  42   (arg1 :int)
  43   (arg2 :pointer)
  44   (arg3 :pointer))
  45
  46 (defcfunex-exported ("DrawCaption" DrawCaption :convention :stdcall) :int
  47   (arg0 :pointer)
  48   (arg1 :pointer)
  49   (arg2 :pointer)
  50   (arg3 :unsigned-int))
  51
  52 (defcfunex-exported ("DrawEdge" DrawEdge :convention :stdcall) :int
  53   (arg0 :pointer)
  54   (arg1 :pointer)
  55   (arg2 :unsigned-int)
  56   (arg3 :unsigned-int))
  57
  58 (defcfunex-exported ("DrawFocusRect" DrawFocusRect :convention :stdcall) :int
  59   (arg0 :pointer)
  60   (arg1 :pointer))
  61
  62 (defcfunex-exported ("DrawFrameControl" DrawFrameControl :convention :stdcall) :int
  63   (arg0 :pointer)
  64   (arg1 :pointer)
  65   (arg2 :unsigned-int)
  66   (arg3 :unsigned-int))
  67
  68 (defcfunex-exported ("DrawStateA" DrawStateA :convention :stdcall) :int
  69   (arg0 :pointer)
  70   (arg1 :pointer)
  71   (arg2 :pointer)
  72   (arg3 :int32)
  73   (arg4 :unsigned-int)
  74   (arg5 :int)
  75   (arg6 :int)
  76   (arg7 :int)
  77   (arg8 :int)
  78   (arg9 :unsigned-int))
  79
  80 (defcfunex-exported ("DrawStateW" DrawStateW :convention :stdcall) :int
  81   (arg0 :pointer)
  82   (arg1 :pointer)
  83   (arg2 :pointer)
  84   (arg3 :int32)
  85   (arg4 :unsigned-int)
  86   (arg5 :int)
  87   (arg6 :int)
  88   (arg7 :int)
  89   (arg8 :int)
  90   (arg9 :unsigned-int))
  91
  92 (defcfunex-exported ("EndPaint" EndPaint :convention :stdcall) BOOL
  93   (|hWnd|    HWND)
  94   (|lpPaint| PAINTSTRUCT))
  95
  96 (defcfunex-exported ("ExcludeUpdateRgn" ExcludeUpdateRgn :convention :stdcall) :int
  97   (arg0 :pointer)
  98   (arg1 :pointer))
  99
 100 (defcfunex-exported ("GdiFlush" GdiFlush :convention :stdcall) :int)
 101
 102 (defcfunex-exported ("GdiGetBatchLimit" GdiGetBatchLimit :convention :stdcall) :unsigned-long)
 103
 104 (defcfunex-exported ("GdiSetBatchLimit" GdiSetBatchLimit :convention :stdcall) :unsigned-long
 105   (arg0 :unsigned-long))
 106
 107 (defcfunex-exported ("GetBkColor" GetBkColor :convention :stdcall) :unsigned-long
 108   (arg0 :pointer))
 109
 110 (defcfunex-exported ("GetBkMode" GetBkMode :convention :stdcall) :int
 111   (arg0 :pointer))
 112
 113 (defcfunex-exported ("GetBoundsRect" GetBoundsRect :convention :stdcall) :unsigned-int
 114   (arg0 :pointer)
 115   (arg1 :pointer)
 116   (arg2 :unsigned-int))
 117
 118 (defcfunex-exported ("GetROP2" GetROP2 :convention :stdcall) :int
 119   (arg0 :pointer))
 120
 121 (defcfunex-exported ("GetUpdateRect" GetUpdateRect :convention :stdcall) :int
 122   (arg0 :pointer)
 123   (arg1 :pointer)
 124   (arg2 :int))
 125
 126 (defcfunex-exported ("GetUpdateRgn" GetUpdateRgn :convention :stdcall) :int
 127   (arg0 :pointer)
 128   (arg1 :pointer)
 129   (arg2 :int))
 130
 131 (defcfunex-exported ("GetWindowDC" GetWindowDC :convention :stdcall) :pointer
 132   (arg0 :pointer))
 133
 134 (defcfunex-exported ("GetWindowRgn" GetWindowRgn :convention :stdcall) :int
 135   (arg0 :pointer)
 136   (arg1 :pointer))
 137
 138 (defcfunex-exported ("GrayStringA" GrayStringA :convention :stdcall) :int
 139   (arg0 :pointer)
 140   (arg1 :pointer)
 141   (arg2 :pointer)
 142   (arg3 :int32)
 143   (arg4 :int)
 144   (arg5 :int)
 145   (arg6 :int)
 146   (arg7 :int)
 147   (arg8 :int))
 148
 149 (defcfunex-exported ("GrayStringW" GrayStringW :convention :stdcall) :int
 150   (arg0 :pointer)
 151   (arg1 :pointer)
 152   (arg2 :pointer)
 153   (arg3 :int32)
 154   (arg4 :int)
 155   (arg5 :int)
 156   (arg6 :int)
 157   (arg7 :int)
 158   (arg8 :int))
 159
 160 (defcfunex-exported ("InvalidateRect" InvalidateRect :convention :stdcall) :int
 161   (arg0 :pointer)
 162   (arg1 :pointer)
 163   (arg2 :int))
 164
 165 (defcfunex-exported ("InvalidateRgn" InvalidateRgn :convention :stdcall) :int
 166   (arg0 :pointer)
 167   (arg1 :pointer)
 168   (arg2 :int))
 169
 170 (defcfunex-exported ("LockWindowUpdate" LockWindowUpdate :convention :stdcall) :int
 171   (arg0 :pointer))
 172
 173 (defcfunex-exported ("PaintDesktop" PaintDesktop :convention :stdcall) :int
 174   (arg0 :pointer))
 175
 176 (defcfunex-exported ("RedrawWindow" RedrawWindow :convention :stdcall) :int
 177   (arg0 :pointer)
 178   (arg1 :pointer)
 179   (arg2 :pointer)
 180   (arg3 :unsigned-int))
 181
 182 (defcfunex-exported ("SetBkColor" SetBkColor :convention :stdcall) :unsigned-long
 183   (arg0 :pointer)
 184   (arg1 :unsigned-long))
 185
 186 (defcfunex-exported ("SetBkMode" SetBkMode :convention :stdcall) :int
 187   (arg0 :pointer)
 188   (arg1 :int))
 189
 190 (defcfunex-exported ("SetBoundsRect" SetBoundsRect :convention :stdcall) :unsigned-int
 191   (arg0 :pointer)
 192   (arg1 :pointer)
 193   (arg2 :unsigned-int))
 194
 195 (defcfunex-exported ("SetRectRgn" SetRectRgn :convention :stdcall) :int
 196   (arg0 :pointer)
 197   (arg1 :int)
 198   (arg2 :int)
 199   (arg3 :int)
 200   (arg4 :int))
 201
 202 (defcfunex-exported ("SetROP2" SetROP2 :convention :stdcall) :int
 203   (arg0 :pointer)
 204   (arg1 :int))
 205
 206 (defcfunex-exported ("SetWindowRgn" SetWindowRgn :convention :stdcall) :int
 207   (arg0 :pointer)
 208   (arg1 :pointer)
 209   (arg2 :int))
 210
 211 (defcfunex-exported ("UpdateWindow" UpdateWindow :convention :stdcall) BOOL
 212   (|hWnd| HWND))
 213
 214 (defcfunex-exported ("ValidateRect" ValidateRect :convention :stdcall) :int
 215   (arg0 :pointer)
 216   (arg1 :pointer))
 217
 218 (defcfunex-exported ("ValidateRgn" ValidateRgn :convention :stdcall) :int
 219   (arg0 :pointer)
 220   (arg1 :pointer))
 221
 222 (defcfunex-exported ("WindowFromDC" WindowFromDC :convention :stdcall) :pointer
 223   (hDC :pointer))
 224