Add ';;' operator, more windows decls

programs/Windows.kl

@@ -3,15 +3,47 @@ LPCSTR :: *char
 HWND :: *void
 HMENU :: *void
 HINSTANCE :: *void
+HBITMAP :: *void
+HDC :: *void
 LPVOID :: *void
 SIZE_T :: U64
 BOOL :: int
 HANDLE :: *void
 VOID :: void
 LPDWORD :: *DWORD
+BYTE :: U8 // @todo? unsigned char
+WORD :: S16 // short
+LONG :: S32 // @todo long
+UINT :: U32 // @todo uint
 
+RBGQUAD :: struct
+  rgbBlue: BYTE
+  rgbGreen: BYTE
+  rgbRed: BYTE
+  rgbReserved: BYTE
+
+BITMAPINFOHEADER :: struct
+  biSize: DWORD
+  biWidth: LONG
+  biHeight: LONG
+  biPlanes: WORD
+  biBitCount: WORD
+  biCompression: DWORD
+  biSizeImage: DWORD
+  biXPelsPerMeter: LONG
+  biYPelsPerMeter: LONG
+  biClrUsed: DWORD
+  biClrImportant: DWORD
+
+BITMAPINFO :: struct
+  bmiHeader :: BITMAPINFOHEADER
+  bmiColors :: [1]RBGQUAD
+
+// #import #foreign "gdi32.lib" @todo
 CreateWindowA :: #foreign (dwExStyle: DWORD, lpClassName: *char, lpWindowName: *char, dwStyle: DWORD, X: int, Y: int, nWidth: int, nHeight: int, hWndParent: HWND, hMenu: HMENU, hInstance: HINSTANCE, lpParam: *void): HWND
-
+GetDC :: #foreign (hWnd: HWND): HDC
+CreateDIBSection :: #foreign (hdc: HDC, pbmi: *BITMAPINFO, usage: UINT, ppvBits: **VOID, hSection: HANDLE, offset: DWORD): HBITMAP
+CreateCompatibleDC :: (hdc: HDC): HDC
 
 MEM_COMMIT :: 0x00001000
 MEM_RESERVE :: 0x00002000