|
|
1.1 root 1: /*----------------------------------------------------
2: LOADBMP2.C -- Loads a Bitmap Resource and Draws it
3: ----------------------------------------------------*/
4:
5: #define INCL_WIN
6: #include <os2.h>
7: #include "loadbmp.h"
8:
9: MRESULT EXPENTRY ClientWndProc (HWND, USHORT, MPARAM, MPARAM) ;
10:
11: int main (void)
12: {
13: static CHAR szClientClass [] = "LoadBmp2" ;
14: static ULONG flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU |
15: FCF_SIZEBORDER | FCF_MINMAX |
16: FCF_SHELLPOSITION | FCF_TASKLIST ;
17: HAB hab ;
18: HMQ hmq ;
19: HWND hwndFrame, hwndClient ;
20: QMSG qmsg ;
21:
22: hab = WinInitialize (0) ;
23: hmq = WinCreateMsgQueue (hab, 0) ;
24:
25: WinRegisterClass (hab, szClientClass, ClientWndProc, CS_SIZEREDRAW, 0) ;
26:
27: hwndFrame = WinCreateStdWindow (HWND_DESKTOP, WS_VISIBLE,
28: &flFrameFlags, szClientClass, NULL,
29: 0L, NULL, 0, &hwndClient) ;
30:
31: while (WinGetMsg (hab, &qmsg, NULL, 0, 0))
32: WinDispatchMsg (hab, &qmsg) ;
33:
34: WinDestroyWindow (hwndFrame) ;
35: WinDestroyMsgQueue (hmq) ;
36: WinTerminate (hab) ;
37: return 0 ;
38: }
39:
40: MRESULT EXPENTRY ClientWndProc (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
41: {
42: static HBITMAP hbm ;
43: HPS hps ;
44: RECTL rcl ;
45:
46: switch (msg)
47: {
48: case WM_CREATE:
49: hps = WinGetPS (hwnd) ;
50: hbm = GpiLoadBitmap (hps, NULL, IDB_HELLO, 0L, 0L) ;
51: WinReleasePS (hps) ;
52: return 0 ;
53:
54: case WM_PAINT:
55: hps = WinBeginPaint (hwnd, NULL, NULL) ;
56: GpiErase (hps) ;
57:
58: WinQueryWindowRect (hwnd, &rcl) ;
59:
60: if (hbm)
61: WinDrawBitmap (hps, hbm, NULL, (PPOINTL) &rcl,
62: CLR_NEUTRAL, CLR_BACKGROUND, DBM_STRETCH) ;
63:
64: WinEndPaint (hps) ;
65: return 0 ;
66:
67: case WM_DESTROY:
68: if (hbm)
69: GpiDeleteBitmap (hbm) ;
70: return 0 ;
71: }
72: return WinDefWindowProc (hwnd, msg, mp1, mp2) ;
73: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.