Category : Files from Magazines
Archive   : VOL9N17.ZIP
Filename : METACLIP.C

/*----------------------------------------------------------------
METACLIP.C -- Replacement ClientWndProc for METAFILE.C.
Demonstrates using the clipboard with metafiles.
(Remember to define INCL_WIN in METAFILE.C!)

(c) Ziff Communications Co, 1990
PC Magazine * Charles Petzold, 6/90
----------------------------------------------------------------*/

MRESULT EXPENTRY ClientWndProc (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
{
HMF hmf ;
HPS hps ;

switch (msg)
{
case WM_CREATE:
hmf = CreateMetaFile () ;

WinOpenClipbrd (hab) ;
WinEmptyClipbrd (hab) ;
WinSetClipbrdData (hab, (ULONG) hmf, CF_METAFILE, CFI_HANDLE) ;
WinCloseClipbrd (hab) ;

return 0 ;

case WM_PAINT:
hps = WinBeginPaint (hwnd, NULL, NULL) ;
GpiErase (hps) ;

WinOpenClipbrd (hab) ;
hmf = (HMF) WinQueryClipbrdData (hab, CF_METAFILE) ;

if (hmf != NULL)
GpiPlayMetaFile (hps, hmf, 0L, NULL, NULL, 0L, NULL) ;

WinCloseClipbrd (hab) ;

WinEndPaint (hps) ;
return 0 ;
}
return WinDefWindowProc (hwnd, msg, mp1, mp2) ;
}