![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to showdib.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / mstools / samples / showdib|
Return to showdib.c CVS log | Up to [WindowsNT SDKs] / mstools / samples / showdib |
1.1 root 1: /*******************************************************************************
2: * *
3: * PROGRAM : ShowDIB.c *
4: * *
5: * PURPOSE : Application to illustrate the use of the GDI *
6: * DIB (Device Independent Bitmap) and Palette manager *
7: * functions. *
8: * *
9: * FUNCTIONS : WinMain () - Creates the app. window and enters *
10: * the message loop. *
11: * *
12: * WndProc() - Processes app. window messages. *
13: * *
14: * MenuCommand() - Processes menu commands. *
15: * *
16: * FreeDIB() - Frees currently active objects. *
17: * *
18: * InitDIB() - Reads DIB from a file and loads it.*
19: * *
20: *******************************************************************************/
21:
22: #include <windows.h>
23: #include <io.h>
24: #include <stdio.h>
25: #include "showdib.h"
26: #include <commdlg.h>
27:
28: DIBPARAMS DIBParams; /* params for the SETSCALING escape */
29: CHAR achFileName[128] = "";
30: DWORD dwOffset;
31: NPLOGPALETTE pLogPal;
32: HPALETTE hpalSave = NULL;
33: HANDLE hInst ;
34: RECT rcClip;
35: static HCURSOR hcurSave;
36:
37: BOOL fPalColors = FALSE; /* TRUE if the current DIB's color table */
38: /* contains palette indexes not rgb values */
39: UINT nAnimating = 0; /* Palette animation count */
40: WORD UpdateCount = 0;
41:
42: BOOL bUpdateColors = TRUE; /* Directly update screen colors */
43: BOOL bDIBToDevice = FALSE; /* Use SetDIBitsToDevice() to BLT data. */
44: BOOL bNoUgly = FALSE; /* Make window black on a WM_PALETTEISCHANGING */
45: BOOL bLegitDraw = FALSE; /* We have a valid bitmap to draw */
46:
47: CHAR szBitmapExt[] = "*.BMP; *.DIB; *.RLE"; /* possible file extensions */
48: WORD wTransparent = TRANSPARENT; /* Mode of DC */
49: CHAR szAppName[] = "ShowDIB" ; /* App. name */
50:
51: HPALETTE hpalCurrent = NULL; /* Handle to current palette */
52: HANDLE hdibCurrent = NULL; /* Handle to current memory DIB */
53: HBITMAP hbmCurrent = NULL; /* Handle to current memory BITMAP */
54: HANDLE hbiCurrent = NULL; /* Handle to current bitmap info struct */
55: HWND hWndApp; /* Handle to app. window */
56:
57: /* Styles of app. window */
58: DWORD dwStyle = WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU |
59: WS_MAXIMIZEBOX | WS_MINIMIZEBOX | WS_THICKFRAME;
60:
61: VOID PrintDIB (HWND hWnd, HDC hDC, INT x, INT y, INT dx, INT dy);
62: /****************************************************************************
63: * *
64: * FUNCTION : WinMain(HANDLE, HANDLE, LPSTR, int) *
65: * *
66: * PURPOSE : Creates the app. window and enters the message loop. *
67: * *
68: ****************************************************************************/
69: int APIENTRY WinMain(
70: HANDLE hInstance,
71: HANDLE hPrevInstance,
72: LPSTR lpCmdLine,
73: int nCmdShow
74: )
75: {
76: HWND hWnd ;
77: WNDCLASS wndclass ;
78: MSG msg ;
79: int xScreen, yScreen ;
80: CHAR ach[40];
81:
82: hInst = hInstance ;
83:
84: /* Initialize clip rectangle */
85: SetRectEmpty(&rcClip);
86:
87: if (!hPrevInstance) {
88: wndclass.style = CS_DBLCLKS;
89: wndclass.lpfnWndProc = (WNDPROC) WndProc ;
90: wndclass.cbClsExtra = 0 ;
91: wndclass.cbWndExtra = 0 ;
92: wndclass.hInstance = hInstance ;
93: wndclass.hIcon = LoadIcon(hInst, "SHOWICON");
94: wndclass.hCursor = LoadCursor (NULL, IDC_ARROW) ;
95: wndclass.hbrBackground = GetStockObject (BLACK_BRUSH) ;
96: wndclass.lpszMenuName = szAppName ;
97: wndclass.lpszClassName = szAppName ;
98:
99: if (!RegisterClass (&wndclass))
100: return FALSE ;
101: }
102:
103: if (!GetProfileString("extensions", "bmp", "", ach, sizeof(ach)))
104: WriteProfileString("extensions", "bmp", "showdib.exe ^.bmp");
105: if (!GetProfileString("extensions", "dib", "", ach, sizeof(ach)))
106: WriteProfileString("extensions", "dib", "showdib.exe ^.dib");
107:
108: /* Save the pointer to the command line */
109: lstrcpy(achFileName, lpCmdLine);
110:
111: xScreen = GetSystemMetrics (SM_CXSCREEN) ;
112: yScreen = GetSystemMetrics (SM_CYSCREEN) ;
113:
114: /* Create the app. window */
115: hWnd = CreateWindow( szAppName,
116: szAppName,
117: dwStyle,
118: CW_USEDEFAULT,
119: 0,
120: xScreen / 2,
121: yScreen / 2,
122: NULL,
123: NULL,
124: hInstance,
125: NULL) ;
126:
127: ShowWindow (hWndApp = hWnd, nCmdShow) ;
128:
129: /* Enter message loop */
130: while (GetMessage (&msg, NULL, 0, 0)) {
131: TranslateMessage (&msg) ;
132: DispatchMessage (&msg) ;
133: }
134:
135: return msg.wParam ;
136: }
137:
138: /****************************************************************************
139: * *
140: * FUNCTION : WndProc (hWnd, iMessage, wParam, lParam) *
141: * *
142: * PURPOSE : Processes window messages. *
143: * *
144: ****************************************************************************/
145: LONG APIENTRY WndProc (
146: HWND hWnd ,
147: UINT iMessage ,
148: UINT wParam ,
149: LONG lParam )
150:
151: {
152: PAINTSTRUCT ps;
153: HDC hDC;
154: HANDLE h;
155: INT i;
156: INT iMax;
157: INT iMin;
158: INT iPos;
159: INT dn;
160: RECT rc,Rect;
161: HPALETTE hOldPal;
162: HMENU hMenu;
163:
164: switch (iMessage) {
165: case WM_DESTROY:
166: /* Clean up and quit */
167: FreeDib();
168: PostQuitMessage(0);
169: break ;
170:
171: case WM_CREATE:
172: /* Allocate space for our logical palette */
173: pLogPal = (NPLOGPALETTE) LocalAlloc( LMEM_FIXED,
174: (sizeof(LOGPALETTE) +
175: (sizeof(PALETTEENTRY)*(MAXPALETTE))));
176: if(!pLogPal){
177: MessageBox(hWnd, "<WM_CREATE> Not enough memory for palette.", NULL, MB_OK | MB_ICONHAND);
178: PostQuitMessage (0) ;
179: break;
180: }
181:
182: // Temporary workaround. lpCmdLine points to exe name, not first parameter
183: /* If DIB initialization fails, quit */
184: // if (achFileName[0] && !InitDIB(hWnd))
185: // PostQuitMessage (3) ;
186:
187: /* fall through */
188:
189: case WM_WININICHANGE:
190:
191: hMenu = GetMenu(hWnd);
192:
193: /* If printer initialization succeeds, enable appropriate
194: * menu item and clean up.
195: */
196: if ( hDC = GetPrinterDC() ) {
197: EnableMenuItem( hMenu,
198: IDM_PRINT,
199: (RC_DIBTODEV &
200: GetDeviceCaps(hDC, RASTERCAPS)) ?
201: MF_ENABLED :
202: MF_GRAYED | MF_DISABLED);
203: DeleteDC(hDC);
204: }
205: break;
206:
207: case WM_PALETTEISCHANGING:
208: /* if SHOWDIB was not responsible for palette change and if
209: * ok to hide changes, paint app. window black.
210: */
211: if (wParam != (UINT)(hWnd && bNoUgly)) {
212: GetClientRect(hWnd, &Rect);
213:
214: hDC = GetDC(hWnd);
215: FillRect( hDC, (LPRECT) &Rect, GetStockObject(BLACK_BRUSH));
216: ReleaseDC(hWnd, hDC);
217: }
218: break;
219:
220: case WM_ACTIVATE:
221: if (!GET_WM_ACTIVATE_STATE(wParam, lParam)) /* app. is being de-activated */
222: break;
223: /* If the app. is moving to the foreground, fall through and
224: * redraw full client area with the newly realized palette,
225: * if the palette has changed.
226: */
227:
228: case WM_QUERYNEWPALETTE:
229: /* If palette realization causes a palette change,
230: * we need to do a full redraw.
231: */
232: if (bLegitDraw) {
233: hDC = GetDC (hWnd);
234: hOldPal = SelectPalette (hDC, hpalCurrent, 0);
235:
236: i = RealizePalette(hDC);
237:
238: SelectPalette (hDC, hOldPal, 0);
239: ReleaseDC (hWnd, hDC);
240:
241: if (i) {
242: InvalidateRect (hWnd, (LPRECT) (NULL), 1);
243: UpdateCount = 0;
244: return 1;
245: } else
246: return FALSE;
247: }
248: else
249: return FALSE;
250: break;
251:
252: case WM_PALETTECHANGED:
253: /* if SHOWDIB was not responsible for palette change and if
254: * palette realization causes a palette change, do a redraw.
255: */
256: if ((HWND)wParam != hWnd){
257: if (bLegitDraw){
258: hDC = GetDC (hWnd);
259: hOldPal = SelectPalette (hDC, hpalCurrent, 0);
260:
261: i = RealizePalette (hDC);
262:
263: if (i){
264: if (bUpdateColors){
265: UpdateColors (hDC);
266: UpdateCount++;
267: }
268: else
269: InvalidateRect (hWnd, (LPRECT) (NULL), 1);
270: }
271:
272: SelectPalette (hDC, hOldPal, 0);
273: ReleaseDC (hWnd, hDC);
274: }
275: }
276: break;
277:
278: case WM_RENDERALLFORMATS:
279: /* Ensure that clipboard data can be rendered even tho'
280: * app. is being destroyed.
281: */
282: SendMessage(hWnd,WM_RENDERFORMAT,CF_DIB,0L);
283: SendMessage(hWnd,WM_RENDERFORMAT,CF_BITMAP,0L);
284: SendMessage(hWnd,WM_RENDERFORMAT,CF_PALETTE,0L);
285: break;
286:
287: case WM_RENDERFORMAT:
288: /* Format data in manner specified and pass the data
289: * handle to clipboard.
290: */
291: if (h = RenderFormat(wParam))
292: SetClipboardData((WORD)wParam,h);
293: break;
294:
295: case WM_COMMAND:
296: /* Process menu commands */
297: return MenuCommand(hWnd, LOWORD(wParam));
298: break;
299:
300: case WM_TIMER:
301: /* Signal for palette animation */
302: hDC = GetDC(hWnd);
303: hOldPal = SelectPalette(hDC, hpalCurrent, 0);
304: {
305: PALETTEENTRY peTemp;
306:
307: /* Shift all palette entries left by one position and wrap
308: * around the first entry
309: */
310: peTemp = pLogPal->palPalEntry[0];
311: for (i = 0; i < (pLogPal->palNumEntries - 1); i++)
312: pLogPal->palPalEntry[i] = pLogPal->palPalEntry[i+1];
313: pLogPal->palPalEntry[i] = peTemp;
314: }
315: /* Replace entries in logical palette with new entries*/
316: AnimatePalette(hpalCurrent, 0, pLogPal->palNumEntries, pLogPal->palPalEntry);
317:
318: SelectPalette(hDC, hOldPal, 0);
319: ReleaseDC(hWnd, hDC);
320:
321: /* Decrement animation count and terminate animation
322: * if it reaches zero
323: */
324: if (!(--nAnimating))
325: PostMessage(hWnd,WM_COMMAND,IDM_ANIMATE0,0L);
326: break;
327:
328: case WM_PAINT:
329: /* If we have updated more than once, the rest of our
330: * window is not in some level of degradation worse than
331: * our redraw... we need to redraw the whole area
332: */
333: if (UpdateCount > 1) {
334: BeginPaint(hWnd, &ps);
335: EndPaint(hWnd, &ps);
336: UpdateCount = 0;
337: InvalidateRect(hWnd, (LPRECT) (NULL), 1);
338: break;
339: }
340:
341: hDC = BeginPaint(hWnd, &ps);
342: AppPaint(hWnd,
343: hDC,
344: GetScrollPos(hWnd,SB_HORZ),
345: GetScrollPos(hWnd,SB_VERT) );
346: EndPaint(hWnd, &ps);
347: break ;
348:
349: case WM_SIZE:
350: SetScrollRanges(hWnd);
351: break;
352:
353: case WM_KEYDOWN:
354: /* Translate keyboard messages to scroll commands */
355: switch (wParam) {
356: case VK_UP:
357: PostMessage (hWnd, WM_VSCROLL, SB_LINEUP, 0L);
358: break;
359:
360: case VK_DOWN:
361: PostMessage (hWnd, WM_VSCROLL, SB_LINEDOWN, 0L);
362: break;
363:
364: case VK_PRIOR:
365: PostMessage (hWnd, WM_VSCROLL, SB_PAGEUP, 0L);
366: break;
367:
368: case VK_NEXT:
369: PostMessage (hWnd, WM_VSCROLL, SB_PAGEDOWN, 0L);
370: break;
371:
372: case VK_HOME:
373: PostMessage (hWnd, WM_HSCROLL, SB_PAGEUP, 0L);
374: break;
375:
376: case VK_END:
377: PostMessage (hWnd, WM_HSCROLL, SB_PAGEDOWN, 0L);
378: break;
379:
380: case VK_LEFT:
381: PostMessage (hWnd, WM_HSCROLL, SB_LINEUP, 0L);
382: break;
383:
384: case VK_RIGHT:
385: PostMessage (hWnd, WM_HSCROLL, SB_LINEDOWN, 0L);
386: break;
387: }
388: break;
389:
390: case WM_KEYUP:
391: switch (wParam) {
392: case VK_UP:
393: case VK_DOWN:
394: case VK_PRIOR:
395: case VK_NEXT:
396: PostMessage (hWnd, WM_VSCROLL, SB_ENDSCROLL, 0L);
397: break;
398:
399: case VK_HOME:
400: case VK_END:
401: case VK_LEFT:
402: case VK_RIGHT:
403: PostMessage (hWnd, WM_HSCROLL, SB_ENDSCROLL, 0L);
404: break;
405: }
406: break;
407:
408: case WM_VSCROLL:
409: /* Calculate new vertical scroll position */
410: GetScrollRange (hWnd, SB_VERT, &iMin, &iMax);
411: iPos = GetScrollPos (hWnd, SB_VERT);
412: GetClientRect (hWnd, &rc);
413:
414: switch (GET_WM_VSCROLL_CODE(wParam, lParam)) {
415: case SB_LINEDOWN:
416: dn = rc.bottom / 16 + 1;
417: break;
418:
419: case SB_LINEUP:
420: dn = -rc.bottom / 16 + 1;
421: break;
422:
423: case SB_PAGEDOWN:
424: dn = rc.bottom / 2 + 1;
425: break;
426:
427: case SB_PAGEUP:
428: dn = -rc.bottom / 2 + 1;
429: break;
430:
431: case SB_THUMBTRACK:
432: case SB_THUMBPOSITION:
433: dn = GET_WM_VSCROLL_POS(wParam, lParam)-iPos;
434: break;
435:
436: default:
437: dn = 0;
438: break;
439: }
440: /* Limit scrolling to current scroll range */
441: if (dn = BOUND (iPos + dn, iMin, iMax) - iPos) {
442: ScrollWindow (hWnd, 0, -dn, NULL, NULL);
443: SetScrollPos (hWnd, SB_VERT, iPos + dn, TRUE);
444: }
445: break;
446:
447: case WM_HSCROLL:
448: /* Calculate new horizontal scroll position */
449: GetScrollRange (hWnd, SB_HORZ, &iMin, &iMax);
450: iPos = GetScrollPos (hWnd, SB_HORZ);
451: GetClientRect (hWnd, &rc);
452:
453: switch (GET_WM_HSCROLL_CODE(wParam, lParam)) {
454: case SB_LINEDOWN:
455: dn = rc.right / 16 + 1;
456: break;
457:
458: case SB_LINEUP:
459: dn = -rc.right / 16 + 1;
460: break;
461:
462: case SB_PAGEDOWN:
463: dn = rc.right / 2 + 1;
464: break;
465:
466: case SB_PAGEUP:
467: dn = -rc.right / 2 + 1;
468: break;
469:
470: case SB_THUMBTRACK:
471: case SB_THUMBPOSITION:
472: dn = GET_WM_HSCROLL_POS(wParam, lParam)-iPos;
473: break;
474:
475: default:
476: dn = 0;
477: break;
478: }
479: /* Limit scrolling to current scroll range */
480: if (dn = BOUND (iPos + dn, iMin, iMax) - iPos) {
481: ScrollWindow (hWnd, -dn, 0, NULL, NULL);
482: SetScrollPos (hWnd, SB_HORZ, iPos + dn, TRUE);
483: }
484: break;
485:
486: case WM_LBUTTONDOWN:
487: /* Start rubberbanding a rect. and track it's dimensions.
488: * set the clip rectangle to it's dimensions.
489: */
490: TrackMouse (hWnd, MAKEMPOINT(lParam));
491: break;
492:
493: case WM_LBUTTONDBLCLK:
494: break;
495:
496: case WM_INITMENU:
497: /* check/uncheck menu items depending on state of related
498: * flags
499: */
500: CheckMenuItem((HMENU)wParam, IDM_UPDATECOL,
501: (bUpdateColors ? MF_CHECKED : MF_UNCHECKED));
502: CheckMenuItem((HMENU)wParam, IDM_TRANSPARENT,
503: (wTransparent == TRANSPARENT ? MF_CHECKED : MF_UNCHECKED));
504: CheckMenuItem((HMENU)wParam, IDM_DIBSCREEN,
505: (bDIBToDevice ? MF_CHECKED : MF_UNCHECKED));
506: CheckMenuItem((HMENU)wParam, IDM_NOUGLY,
507: (bNoUgly ? MF_CHECKED : MF_UNCHECKED));
508: CheckMenuItem((HMENU)wParam, IDM_MEMORYDIB, MF_CHECKED);
509: EnableMenuItem((HMENU)wParam, IDM_PASTEDIB,
510: IsClipboardFormatAvailable(CF_DIB)?MF_ENABLED:MF_GRAYED);
511: EnableMenuItem((HMENU)wParam, IDM_PASTEDDB,
512: IsClipboardFormatAvailable(CF_BITMAP)?MF_ENABLED:MF_GRAYED);
513: EnableMenuItem((HMENU)wParam, IDM_PASTEPAL,
514: IsClipboardFormatAvailable(CF_PALETTE)?MF_ENABLED:MF_GRAYED);
515: EnableMenuItem((HMENU)wParam, IDM_PRINT,
516: bLegitDraw ? MF_ENABLED : MF_GRAYED);
517: EnableMenuItem((HMENU)wParam, IDM_SAVE,
518: bLegitDraw ? MF_ENABLED : MF_GRAYED);
519: EnableMenuItem((HMENU)wParam, IDM_COPY,
520: bLegitDraw ? MF_ENABLED : MF_GRAYED);
521:
522: EnableMenuItem((HMENU)wParam, IDM_ANIMATE0,
523: bLegitDraw ? MF_ENABLED : MF_GRAYED);
524: EnableMenuItem((HMENU)wParam, IDM_ANIMATE5,
525: bLegitDraw ? MF_ENABLED : MF_GRAYED);
526: EnableMenuItem((HMENU)wParam, IDM_ANIMATE50,
527: bLegitDraw ? MF_ENABLED : MF_GRAYED);
528: EnableMenuItem((HMENU)wParam, IDM_ANIMATE100,
529: bLegitDraw ? MF_ENABLED : MF_GRAYED);
530: EnableMenuItem((HMENU)wParam, IDM_ANIMATE200,
531: bLegitDraw ? MF_ENABLED : MF_GRAYED);
532: EnableMenuItem((HMENU)wParam, IDM_ANIMATE201,
533: bLegitDraw ? MF_ENABLED : MF_GRAYED);
534: EnableMenuItem((HMENU)wParam, IDM_STEALCOL,
535: bLegitDraw ? MF_ENABLED : MF_GRAYED);
536: break;
537:
538: default:
539: return DefWindowProc (hWnd, iMessage, wParam, lParam) ;
540:
541: }
542: return 0L ;
543:
544: }
545: /****************************************************************************
546: * *
547: * FUNCTION : MenuCommand ( HWND hWnd, WPARAM wParam) *
548: * *
549: * PURPOSE : Processes menu commands. *
550: * *
551: * RETURNS : TRUE - if command could be processed. *
552: * FALSE - otherwise *
553: * *
554: ****************************************************************************/
555: BOOL MenuCommand (
556: HWND hWnd,
557: UINT id)
558:
559: {
560: BITMAPINFOHEADER bi;
561: HDC hDC;
562: HANDLE h;
563: HBITMAP hbm;
564: HPALETTE hpal;
565: WORD i;
566: CHAR Name[40];
567: BOOL bSave;
568: INT xSize, ySize, xRes, yRes, dx, dy;
569: RECT Rect;
570: HFILE fh;
571: WORD fFileOptions;
572:
573: switch (id) {
574: case IDM_ABOUT:
575: /* Show About .. box */
576: fDialog ((INT)ABOUTBOX, hWnd,(FARPROC)AppAbout);
577: break;
578:
579: case IDM_COPY:
580: if (!bLegitDraw)
581: return 0L;
582:
583: /* Clean clipboard of contents */
584: if (OpenClipboard(hWnd)) {
585: EmptyClipboard ();
586: SetClipboardData (CF_DIB ,NULL);
587: SetClipboardData (CF_BITMAP ,NULL);
588: SetClipboardData (CF_PALETTE ,NULL);
589: CloseClipboard ();
590: }
591: break;
592:
593: case IDM_PASTEPAL:
594: if (OpenClipboard (hWnd)) {
595: if (h = GetClipboardData (CF_PALETTE)) {
596: /* Delete current palette and get the CF_PALETTE data
597: * from the clipboard
598: */
599: if (hpalCurrent)
600: DeleteObject (hpalCurrent);
601:
602: hpalCurrent = CopyPalette (h);
603:
604: /*
605: * If we have a bitmap realized against the old palette
606: * delete the bitmap and rebuild it using the new palette.
607: */
608: if (hbmCurrent){
609: DeleteObject (hbmCurrent);
610: hbmCurrent = NULL;
611:
612: if (hdibCurrent)
613: hbmCurrent = BitmapFromDib (hdibCurrent, hpalCurrent);
614: }
615: }
616: CloseClipboard();
617: }
618: break;
619:
620: case IDM_PASTEDIB:
621: if (OpenClipboard (hWnd)) {
622: if (h = GetClipboardData (CF_DIB)) {
623: /* Delete current DIB and get CF_DIB and
624: * CF_PALETTE format data from the clipboard
625: */
626: hpal = GetClipboardData (CF_PALETTE);
627:
628: FreeDib();
629: hdibCurrent = CopyHandle (h);
630: if (hdibCurrent) {
631: bLegitDraw = TRUE;
632: lstrcpy(achFileName,"<Clipboard>");
633: hbiCurrent = hdibCurrent;
634:
635: /* If there is a CF_PALETTE object in the
636: * clipboard, this is the palette to assume
637: * the DIB should be realized against, otherwise
638: * create a palette for it.
639: */
640: if (hpal)
641: hpalCurrent = CopyPalette (hpal);
642: else
643: hpalCurrent = CreateDibPalette (hdibCurrent);
644:
645: SizeWindow(hWnd);
646: }
647: else {
648: bLegitDraw = FALSE;
649: ErrMsg("No Memory Available!");
650: }
651: }
652: CloseClipboard();
653: }
654: break;
655:
656: case IDM_PASTEDDB:
657: if (OpenClipboard (hWnd)) {
658: if (hbm = GetClipboardData(CF_BITMAP)) {
659: hpal = GetClipboardData(CF_PALETTE);
660: FreeDib();
661:
662: /*
663: * If there is a CF_PALETTE object in the
664: * clipboard, this is the palette to assume
665: * the bitmap is realized against.
666: */
667: if (hpal)
668: hpalCurrent = CopyPalette(hpal);
669: else
670: hpalCurrent = GetStockObject(DEFAULT_PALETTE);
671:
672: hdibCurrent = DibFromBitmap(hbm,BI_RGB,0,hpalCurrent);
673:
674: if (hdibCurrent) {
675: bLegitDraw = TRUE;
676: lstrcpy(achFileName,"<Clipboard>");
677: hbiCurrent = hdibCurrent;
678:
679: hbmCurrent = BitmapFromDib(hdibCurrent,hpalCurrent);
680:
681: SizeWindow(hWnd);
682: }
683: else {
684: bLegitDraw = FALSE;
685: ErrMsg("No Memory Available!");
686: }
687: }
688: CloseClipboard ();
689: }
690: break;
691:
692: case IDM_PRINT:
693: GetWindowText(hWnd, Name, sizeof(Name));
694:
695: DibInfo(hbiCurrent, &bi);
696:
697: if (!IsRectEmpty(&rcClip))
698: {
699: bi.biWidth = rcClip.right - rcClip.left;
700: bi.biHeight = rcClip.bottom - rcClip.top;
701: }
702:
703: /* Initialise printer stuff */
704: if (!(hDC = GetPrinterDC()))
705: break;
706:
707: xSize = GetDeviceCaps(hDC, HORZRES);
708: ySize = GetDeviceCaps(hDC, VERTRES);
709: xRes = GetDeviceCaps(hDC, LOGPIXELSX);
710: yRes = GetDeviceCaps(hDC, LOGPIXELSY);
711:
712: /* Use half inch margins on left and right
713: * and one inch on top. Maintain the same aspect ratio.
714: */
715:
716: dx = xSize - xRes;
717: dy = (INT)((LONG)dx * bi.biHeight/bi.biWidth);
718:
719: /* Fix bounding rectangle for the picture .. */
720: Rect.top = yRes;
721: Rect.left = xRes / 2;
722: Rect.bottom = yRes + dy;
723: Rect.right = xRes / 2 + dx;
724:
725: /* ... and inform the driver */
726: Escape(hDC, SET_BOUNDS, sizeof(RECT), (LPSTR)&Rect, NULL);
727:
728: bSave = TRUE;
729:
730: if (InitPrinting(hDC, hWnd, hInst, Name)) {
731:
732: PrintDIB(hWnd, hDC, xRes/2, yRes, dx, dy);
733:
734: /* Signal to the driver to begin translating the drawing
735: * commands to printer output...
736: */
737: Escape (hDC, NEWFRAME, NULL, NULL, NULL);
738:
739: TermPrinting(hDC);
740: }
741:
742: DeleteDC(hDC);
743: break;
744:
745: case IDM_OPEN:
746: {
747:
748: /* Bring up File/Open ... dialog */
749: fh = DlgOpenFile (hWnd,
750: "Select a DIB to display",
751: (LONG)OF_EXIST | OF_MUSTEXIST | OF_NOOPTIONS,
752: szBitmapExt,
753: achFileName,
754: NULL
755: );
756: /* Load up the DIB if the user did not press cancel */
757: if (fh > 0) {
758: StartWait();
759: if (InitDIB (hWnd))
760: InvalidateRect (hWnd, NULL, FALSE);
761: else
762: bLegitDraw = FALSE;
763: EndWait();
764: }
765: break;
766: }
767: case IDM_SAVE:
768: DibInfo(hbiCurrent,&bi);
769: fFileOptions = 0;
770:
771: /* Depending on compression type for current DIB,
772: * set the appropriate bit in the fFileOptions flag
773: */
774: if (bi.biCompression == BI_RGB)
775: fFileOptions |= F_RGB;
776: else if (bi.biCompression == BI_RLE4)
777: fFileOptions |= F_RLE4;
778: else if (bi.biCompression == BI_RLE8)
779: fFileOptions |= F_RLE8;
780:
781: /* Depending on bits/pixel type for current DIB,
782: * set the appropriate bit in the fFileOptions flag
783: */
784: switch (bi.biBitCount){
785: case 1:
786: fFileOptions |= F_1BPP;
787: break;
788:
789: case 4:
790: fFileOptions |= F_4BPP;
791: break;
792:
793: case 8:
794: fFileOptions |= F_8BPP;
795: break;
796:
797: case 24:
798: fFileOptions |= F_24BPP;
799: }
800:
801: /* Bring up File/Save... dialog and get info. about filename,
802: * compression, and bits/pix. of DIB to be written.
803: */
804: fh = DlgOpenFile (hWnd,
805: "Select File to save DIB to",
806: (LONG)OF_EXIST | OF_SAVE | OF_NOSHOWSPEC,
807: szBitmapExt,
808: achFileName,
809: &fFileOptions);
810:
811: /* Extract DIB specs. if the user did not press cancel */
812: if (fh != 0){
813: if (fFileOptions & F_RGB)
814: bi.biCompression = BI_RGB;
815:
816: if (fFileOptions & F_RLE4)
817: bi.biCompression = BI_RLE4;
818:
819: if (fFileOptions & F_RLE8)
820: bi.biCompression = BI_RLE8;
821:
822: if (fFileOptions & F_1BPP)
823: bi.biBitCount = 1;
824:
825: if (fFileOptions & F_4BPP)
826: bi.biBitCount = 4;
827:
828: if (fFileOptions & F_8BPP)
829: bi.biBitCount = 8;
830:
831: if (fFileOptions & F_24BPP)
832: bi.biBitCount = 24;
833:
834: /* Realize a DIB in the specified format and obtain a
835: * handle to it.
836: */
837: hdibCurrent = RealizeDibFormat(bi.biCompression,bi.biBitCount);
838: if (!hdibCurrent){
839: ErrMsg("Unable to save the specified file");
840: return 0L;
841: }
842:
843: /* Write the DIB */
844: StartWait();
845: if (!WriteDIB(achFileName,hdibCurrent))
846: ErrMsg("Unable to save the specified file");
847: EndWait();
848: }
849: break;
850:
851: case IDM_EXIT:
852: PostMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, 0L);
853: break;
854:
855: case IDM_UPDATECOL:
856: /* Toggle state of "update screen colors" flag. If it is
857: * off, clear the "hide changes" flag
858: */
859: bUpdateColors = !bUpdateColors;
860: if (bUpdateColors)
861: bNoUgly = 0;
862: break;
863:
864: case IDM_DIBSCREEN:
865: bDIBToDevice = !bDIBToDevice;
866: InvalidateRect(hWnd, (LPRECT) (NULL), 1);
867: break;
868:
869: case IDM_MEMORYDIB:
870: break;
871:
872: case IDM_NOUGLY:
873: /* Toggle state of "hide changes" flag. If it is off, clear
874: * the "update screen colors" flag. This will tell SHOWDIB
875: * to paint itself black while the palette is changing.
876: */
877: bNoUgly = !bNoUgly;
878: if (bNoUgly)
879: bUpdateColors = 0;
880: break;
881:
882: case IDM_TRANSPARENT:
883: /* Toggle DC mode */
884: wTransparent = (WORD) (wTransparent == TRANSPARENT ?
885: OPAQUE : TRANSPARENT);
886: break;
887:
888: case IDM_ANIMATE0:
889: if (!hpalSave)
890: break;
891:
892: /* Reset animation count and stop timer */
893: KillTimer(hWnd, 1);
894: nAnimating = 0;
895:
896: /* Restore palette which existed before animation started */
897: DeleteObject(hpalCurrent);
898: hpalCurrent = hpalSave;
899:
900: /* Rebuild bitmap based on newly realized information */
901: hDC = GetDC (hWnd);
902: SelectPalette (hDC, hpalCurrent, 0);
903: RealizePalette (hDC);
904: ReleaseDC (hWnd, hDC);
905:
906: if (hbmCurrent){
907: DeleteObject (hbmCurrent);
908: hbmCurrent = NULL;
909:
910: if (hdibCurrent)
911: hbmCurrent = BitmapFromDib (hdibCurrent, hpalCurrent);
912: }
913: hpalSave = NULL;
914:
915: /* Force redraw with new palette for everyone */
916: InvalidateRect(hWnd, NULL, TRUE);
917: break;
918:
919: case IDM_STEALCOL:
920: case IDM_ANIMATE5:
921: case IDM_ANIMATE20:
922: case IDM_ANIMATE50:
923: case IDM_ANIMATE100:
924: case IDM_ANIMATE200:
925: case IDM_ANIMATE201:
926: /* Set animation count i.e number of times animation is to
927: * take place.
928: */
929: nAnimating = id;
930: if (id == IDM_STEALCOL)
931: nAnimating = 0;
932:
933: /* Save current palette */
934: hpalSave = CopyPalette(hpalCurrent);
935:
936: GetObject(hpalCurrent, sizeof(INT), (LPSTR)&pLogPal->palNumEntries);
937: GetPaletteEntries(hpalCurrent, 0, pLogPal->palNumEntries, pLogPal->palPalEntry);
938:
939: /* Reserve all entries in the palette otherwise AnimatePalette()
940: * will not modify them
941: */
942: for (i = 0; i < pLogPal->palNumEntries; i++) {
943: pLogPal->palPalEntry[i].peFlags = (BYTE)PC_RESERVED;
944: }
945:
946: SetPaletteEntries(hpalCurrent, 0, pLogPal->palNumEntries, pLogPal->palPalEntry);
947:
948: /* Rebuild bitmap based on newly realized information */
949: if (hbmCurrent){
950: DeleteObject (hbmCurrent);
951: hbmCurrent = NULL;
952:
953: if (hdibCurrent)
954: hbmCurrent = BitmapFromDib (hdibCurrent, hpalCurrent);
955: }
956:
957: /* Force redraw with new palette for everyone */
958: InvalidateRect(hWnd, NULL, TRUE);
959:
960: /* Initiate the timer so that palette can be animated in
961: * response to a WM_TIMER message
962: */
963: if (nAnimating && !SetTimer(hWnd, 1, 250, (WNDPROC)(LPSTR) NULL))
964: nAnimating = 0;
965:
966: default:
967: break;
968: }
969:
970: return TRUE;
971: }
972:
973: /****************************************************************************
974: * *
975: * FUNCTION : InitDIB(hWnd) *
976: * *
977: * PURPOSE : Reads a DIB from a file, obtains a handle to it's *
978: * BITMAPINFO struct., sets up the palette and loads the DIB. *
979: * *
980: * RETURNS : TRUE - DIB loads ok *
981: * FALSE - otherwise *
982: * *
983: ****************************************************************************/
984: INT InitDIB(HWND hWnd)
985: {
986: HFILE fh;
987: LPBITMAPINFOHEADER lpbi;
988: WORD FAR * pw;
989: INT i;
990: BITMAPINFOHEADER bi;
991: OFSTRUCT of;
992:
993: FreeDib();
994:
995: /* Open the file and get a handle to it's BITMAPINFO */
996:
997: fh = OpenFile(achFileName, (LPOFSTRUCT)&of, (UINT)OF_READ);
998: if (fh == -1) {
999: ErrMsg("Can't open file '%ls'", (LPSTR)achFileName);
1000: return FALSE;
1001: }
1002: hbiCurrent = ReadDibBitmapInfo(fh);
1003:
1004: dwOffset = _llseek(fh, 0L, (UINT)SEEK_CUR);
1005: _lclose(fh);
1006:
1007: if (hbiCurrent == NULL) {
1008: ErrMsg("%ls is not a Legitimate DIB File!", (LPSTR)achFileName);
1009: return FALSE;
1010: }
1011: DibInfo(hbiCurrent,&bi);
1012:
1013: /* Set up the palette */
1014: hpalCurrent = CreateDibPalette(hbiCurrent);
1015: if (hpalCurrent == NULL) {
1016: ErrMsg("CreatePalette() Failed");
1017: return FALSE;
1018: }
1019:
1020: /* Convert the DIB color table to palette relative indexes, so
1021: * SetDIBits() and SetDIBitsToDevice() can avoid color matching.
1022: * We can do this because the palette we realize is identical
1023: * to the color table of the bitmap, ie the indexes match 1 to 1
1024: *
1025: * Now that the DIB color table is palette indexes not RGB values
1026: * we must use DIB_PAL_COLORS as the wUsage parameter to SetDIBits()
1027: */
1028: lpbi = (VOID FAR *)GlobalLock(hbiCurrent);
1029: if (lpbi->biBitCount != 24) {
1030: fPalColors = TRUE;
1031:
1032: pw = (WORD FAR *)((LPSTR)lpbi + lpbi->biSize);
1033:
1034: for (i=0; i<(INT)lpbi->biClrUsed; i++)
1035: *pw++ = (WORD)i;
1036: }
1037: GlobalUnlock(hbiCurrent);
1038: bLegitDraw = TRUE;
1039:
1040: /* If the input bitmap is not in RGB FORMAT the banding code will
1041: * not work! we need to load the DIB bits into memory.
1042: * if memory DIB, load it all NOW! This will avoid calling the
1043: * banding code.
1044: */
1045: hdibCurrent = OpenDIB(achFileName);
1046:
1047: /* If the RLE could not be loaded all at once, exit gracefully NOW,
1048: * to avoid calling the banding code
1049: */
1050: if ((bi.biCompression != BI_RGB) && !hdibCurrent){
1051: ErrMsg ("Could not load RLE!");
1052: FreeDib();
1053: return FALSE;
1054: }
1055:
1056: if (hdibCurrent && !bDIBToDevice){
1057: hbmCurrent = BitmapFromDib(hdibCurrent,hpalCurrent);
1058: if (!hbmCurrent){
1059: ErrMsg ("Could not create bitmap!");
1060: FreeDib();
1061: return FALSE;
1062: }
1063: }
1064:
1065: SizeWindow(hWnd);
1066:
1067: return TRUE;
1068: }
1069: /****************************************************************************
1070: * *
1071: * FUNCTION : FreeDib(void) *
1072: * *
1073: * PURPOSE : Frees all currently active bitmap, DIB and palette objects *
1074: * and initializes their handles. *
1075: * *
1076: ****************************************************************************/
1077: VOID FreeDib()
1078: {
1079: if (hpalCurrent)
1080: DeleteObject(hpalCurrent);
1081:
1082: if (hbmCurrent)
1083: DeleteObject(hbmCurrent);
1084:
1085: if (hdibCurrent)
1086: GlobalFree(hdibCurrent);
1087:
1088: if (hbiCurrent && hbiCurrent != hdibCurrent)
1089: GlobalFree(hbiCurrent);
1090:
1091: fPalColors = FALSE;
1092: bLegitDraw = FALSE;
1093: hpalCurrent = NULL;
1094: hdibCurrent = NULL;
1095: hbmCurrent = NULL;
1096: hbiCurrent = NULL;
1097: SetRectEmpty (&rcClip);
1098: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.