coders/clipboard.c - platform/external/ImageMagick - Gitiles

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %        CCCC  L      IIIII  PPPP   BBBB    OOO    AAA   RRRR   DDDD          %
 %       C      L        I    P   P  B   B  O   O  A   A  R   R  D   D         %
 %       C      L        I    PPP    BBBB   O   O  AAAAA  RRRR   D   D         %
 %       C      L        I    P      B   B  O   O  A   A  R R    D   D         %
 %        CCCC  LLLLL  IIIII  P      BBBB    OOO   A   A  R  R   DDDD          %
 %                                                                             %
 %                                                                             %
 %                        Read/Write Windows Clipboard.                        %
 %                                                                             %
 %                              Software Design                                %
 %                             Leonard Rosenthol                               %
 %                                 May 2002                                    %
 %                                                                             %
 %                                                                             %
 %  Copyright 1999-2012 ImageMagick Studio LLC, a non-profit organization      %
 %  dedicated to making software imaging solutions freely available.           %
 %                                                                             %
 %  You may not use this file except in compliance with the License.  You may  %
 %  obtain a copy of the License at                                            %
 %                                                                             %
 %    http://www.imagemagick.org/script/license.php                            %
 %                                                                             %
 %  Unless required by applicable law or agreed to in writing, software        %
 %  distributed under the License is distributed on an "AS IS" BASIS,          %
 %  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   %
 %  See the License for the specific language governing permissions and        %
 %  limitations under the License.                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %
 */

 /*
   Include declarations.
 */
 #include "MagickCore/studio.h"
 #if defined(MAGICKCORE_WINGDI32_DELEGATE)
 #  if defined(__CYGWIN__)
 #    include <windows.h>
 #  else
      /* All MinGW needs ... */
 #    include <wingdi.h>
 #  endif
 #endif
 #include "MagickCore/blob.h"
 #include "MagickCore/blob-private.h"
 #include "MagickCore/cache.h"
 #include "MagickCore/exception.h"
 #include "MagickCore/exception-private.h"
 #include "MagickCore/image.h"
 #include "MagickCore/image-private.h"
 #include "MagickCore/list.h"
 #include "MagickCore/magick.h"
 #include "MagickCore/memory_.h"
 #include "MagickCore/nt-base-private.h"
 #include "MagickCore/nt-feature.h"
 #include "MagickCore/pixel-accessor.h"
 #include "MagickCore/quantum-private.h"
 #include "MagickCore/static.h"
 #include "MagickCore/string_.h"
 #include "MagickCore/module.h"

 /*
   Forward declarations.
 */
 #if defined(MAGICKCORE_WINGDI32_DELEGATE)
 static MagickBooleanType
   WriteCLIPBOARDImage(const ImageInfo *,Image *,ExceptionInfo *);
 #endif

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   R e a d C L I P B O A R D I m a g e                                       %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  ReadCLIPBOARDImage() reads an image from the system clipboard and returns
 %  it.  It allocates the memory necessary for the new Image structure and
 %  returns a pointer to the new image.
 %
 %  The format of the ReadCLIPBOARDImage method is:
 %
 %      Image *ReadCLIPBOARDImage(const ImageInfo *image_info,
 %        ExceptionInfo exception)
 %
 %  A description of each parameter follows:
 %
 %    o image_info: the image info.
 %
 %    o exception: return any errors or warnings in this structure.
 %
 */
 #if defined(MAGICKCORE_WINGDI32_DELEGATE)
 static Image *ReadCLIPBOARDImage(const ImageInfo *image_info,
   ExceptionInfo *exception)
 {
   Image
     *image;

   register ssize_t
     x;

   register Quantum
     *q;

   ssize_t
     y;

   assert(image_info != (const ImageInfo *) NULL);
   assert(image_info->signature == MagickSignature);
   if (image_info->debug != MagickFalse)
     (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
       image_info->filename);
   assert(exception != (ExceptionInfo *) NULL);
   assert(exception->signature == MagickSignature);
   image=AcquireImage(image_info,exception);
   {
     HBITMAP
       bitmapH;

     HPALETTE
       hPal;

     OpenClipboard(NULL);
     bitmapH=(HBITMAP) GetClipboardData(CF_BITMAP);
     hPal=(HPALETTE) GetClipboardData(CF_PALETTE);
     CloseClipboard();
     if ( bitmapH == NULL )
       ThrowReaderException(CoderError,"NoBitmapOnClipboard");
     {
       BITMAPINFO
         DIBinfo;

       BITMAP
         bitmap;

       HBITMAP
         hBitmap,
         hOldBitmap;

       HDC
         hDC,
         hMemDC;

       RGBQUAD
         *pBits,
         *ppBits;

       /* create an offscreen DC for the source */
       hMemDC=CreateCompatibleDC(NULL);
       hOldBitmap=(HBITMAP) SelectObject(hMemDC,bitmapH);
       GetObject(bitmapH,sizeof(BITMAP),(LPSTR) &bitmap);
       if ((image->columns == 0) || (image->rows == 0))
         {
           image->rows=bitmap.bmHeight;
           image->columns=bitmap.bmWidth;
         }
       /*
         Initialize the bitmap header info.
       */
       (void) ResetMagickMemory(&DIBinfo,0,sizeof(BITMAPINFO));
       DIBinfo.bmiHeader.biSize=sizeof(BITMAPINFOHEADER);
       DIBinfo.bmiHeader.biWidth=(LONG) image->columns;
       DIBinfo.bmiHeader.biHeight=(-1)*(LONG) image->rows;
       DIBinfo.bmiHeader.biPlanes=1;
       DIBinfo.bmiHeader.biBitCount=32;
       DIBinfo.bmiHeader.biCompression=BI_RGB;
       hDC=GetDC(NULL);
       if (hDC == 0)
         ThrowReaderException(CoderError,"UnableToCreateADC");
       hBitmap=CreateDIBSection(hDC,&DIBinfo,DIB_RGB_COLORS,(void **) &ppBits,
         NULL,0);
       ReleaseDC(NULL,hDC);
       if (hBitmap == 0)
         ThrowReaderException(CoderError,"UnableToCreateBitmap");
       /* create an offscreen DC */
       hDC=CreateCompatibleDC(NULL);
       if (hDC == 0)
         {
           DeleteObject(hBitmap);
           ThrowReaderException(CoderError,"UnableToCreateADC");
         }
       hOldBitmap=(HBITMAP) SelectObject(hDC,hBitmap);
       if (hOldBitmap == 0)
         {
           DeleteDC(hDC);
           DeleteObject(hBitmap);
           ThrowReaderException(CoderError,"UnableToCreateBitmap");
         }
       if (hPal != NULL)
       {
         /* Kenichi Masuko says this needed */
         SelectPalette(hDC, hPal, FALSE);
         RealizePalette(hDC);
       }
       /* bitblt from the memory to the DIB-based one */
       BitBlt(hDC,0,0,(int) image->columns,(int) image->rows,hMemDC,0,0,SRCCOPY);
       /* finally copy the pixels! */
       pBits=ppBits;
       for (y=0; y < (ssize_t) image->rows; y++)
       {
         q=QueueAuthenticPixels(image,0,y,image->columns,1,exception);
         if (q == (Quantum *) NULL)
           break;
         for (x=0; x < (ssize_t) image->columns; x++)
         {
           SetPixelRed(image,ScaleCharToQuantum(pBits->rgbRed),q);
           SetPixelGreen(image,ScaleCharToQuantum(pBits->rgbGreen),q);
           SetPixelBlue(image,ScaleCharToQuantum(pBits->rgbBlue),q);
           SetPixelAlpha(image,OpaqueAlpha,q);
           pBits++;
           q+=GetPixelChannels(image);
         }
         if (SyncAuthenticPixels(image,exception) == MagickFalse)
           break;
       }
       DeleteDC(hDC);
       DeleteObject(hBitmap);
     }
   }
   (void) CloseBlob(image);
   return(GetFirstImageInList(image));
 }
 #endif /* MAGICKCORE_WINGDI32_DELEGATE */

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   R e g i s t e r C L I P B O A R D I m a g e                               %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  RegisterCLIPBOARDImage() adds attributes for the clipboard "image format" to
 %  the list of supported formats.  The attributes include the image format
 %  tag, a method to read and/or write the format, whether the format
 %  supports the saving of more than one frame to the same file or blob,
 %  whether the format supports native in-memory I/O, and a brief
 %  description of the format.
 %
 %  The format of the RegisterCLIPBOARDImage method is:
 %
 %      size_t RegisterCLIPBOARDImage(void)
 %
 */
 ModuleExport size_t RegisterCLIPBOARDImage(void)
 {
   MagickInfo
     *entry;

   entry=SetMagickInfo("CLIPBOARD");
 #if defined(MAGICKCORE_WINGDI32_DELEGATE)
   entry->decoder=(DecodeImageHandler *) ReadCLIPBOARDImage;
   entry->encoder=(EncodeImageHandler *) WriteCLIPBOARDImage;
 #endif
   entry->adjoin=MagickFalse;
   entry->format_type=ImplicitFormatType;
   entry->description=ConstantString("The system clipboard");
   entry->module=ConstantString("CLIPBOARD");
   (void) RegisterMagickInfo(entry);
   return(MagickImageCoderSignature);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   U n r e g i s t e r C L I P B O A R D I m a g e                           %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  UnregisterCLIPBOARDImage() removes format registrations made by the
 %  RGB module from the list of supported formats.
 %
 %  The format of the UnregisterCLIPBOARDImage method is:
 %
 %      UnregisterCLIPBOARDImage(void)
 %
 */
 ModuleExport void UnregisterCLIPBOARDImage(void)
 {
   (void) UnregisterMagickInfo("CLIPBOARD");
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   W r i t e C L I P B O A R D I m a g e                                     %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  WriteCLIPBOARDImage() writes an image to the system clipboard.
 %
 %  The format of the WriteCLIPBOARDImage method is:
 %
 %      MagickBooleanType WriteCLIPBOARDImage(const ImageInfo *image_info,
 %        Image *image,ExceptionInfo *exception)
 %
 %  A description of each parameter follows.
 %
 %    o image_info: the image info.
 %
 %    o image:  The image.
 %
 %    o exception: return any errors or warnings in this structure.
 %
 */
 #if defined(MAGICKCORE_WINGDI32_DELEGATE)
 static MagickBooleanType WriteCLIPBOARDImage(const ImageInfo *image_info,
   Image *image,ExceptionInfo *exception)
 {
   /*
     Allocate memory for pixels.
   */
   assert(image_info != (const ImageInfo *) NULL);
   assert(image_info->signature == MagickSignature);
   assert(image != (Image *) NULL);
   assert(image->signature == MagickSignature);
   if (image->debug != MagickFalse)
     (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
   {
     HBITMAP
       bitmapH;

     OpenClipboard(NULL);
     EmptyClipboard();
     bitmapH=(HBITMAP) ImageToHBITMAP(image,exception);
     SetClipboardData(CF_BITMAP,bitmapH);
     CloseClipboard();
   }
   return(MagickTrue);
 }
 #endif /* MAGICKCORE_WINGDI32_DELEGATE */
	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% CCCC L IIIII PPPP BBBB OOO AAA RRRR DDDD %
	% C L I P P B B O O A A R R D D %
	% C L I PPP BBBB O O AAAAA RRRR D D %
	% C L I P B B O O A A R R D D %
	% CCCC LLLLL IIIII P BBBB OOO A A R R DDDD %
	% %
	% %
	% Read/Write Windows Clipboard. %
	% %
	% Software Design %
	% Leonard Rosenthol %
	% May 2002 %
	% %
	% %
	% Copyright 1999-2012 ImageMagick Studio LLC, a non-profit organization %
	% dedicated to making software imaging solutions freely available. %
	% %
	% You may not use this file except in compliance with the License. You may %
	% obtain a copy of the License at %
	% %
	% http://www.imagemagick.org/script/license.php %
	% %
	% Unless required by applicable law or agreed to in writing, software %
	% distributed under the License is distributed on an "AS IS" BASIS, %
	% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. %
	% See the License for the specific language governing permissions and %
	% limitations under the License. %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	%
	*/

	/*
	Include declarations.
	*/
	#include "MagickCore/studio.h"
	#if defined(MAGICKCORE_WINGDI32_DELEGATE)
	# if defined(__CYGWIN__)
	# include <windows.h>
	# else
	/* All MinGW needs ... */
	# include <wingdi.h>
	# endif
	#endif
	#include "MagickCore/blob.h"
	#include "MagickCore/blob-private.h"
	#include "MagickCore/cache.h"
	#include "MagickCore/exception.h"
	#include "MagickCore/exception-private.h"
	#include "MagickCore/image.h"
	#include "MagickCore/image-private.h"
	#include "MagickCore/list.h"
	#include "MagickCore/magick.h"
	#include "MagickCore/memory_.h"
	#include "MagickCore/nt-base-private.h"
	#include "MagickCore/nt-feature.h"
	#include "MagickCore/pixel-accessor.h"
	#include "MagickCore/quantum-private.h"
	#include "MagickCore/static.h"
	#include "MagickCore/string_.h"
	#include "MagickCore/module.h"

	/*
	Forward declarations.
	*/
	#if defined(MAGICKCORE_WINGDI32_DELEGATE)
	static MagickBooleanType
	WriteCLIPBOARDImage(const ImageInfo ,Image ,ExceptionInfo *);
	#endif

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% R e a d C L I P B O A R D I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% ReadCLIPBOARDImage() reads an image from the system clipboard and returns
	% it. It allocates the memory necessary for the new Image structure and
	% returns a pointer to the new image.
	%
	% The format of the ReadCLIPBOARDImage method is:
	%
	% Image ReadCLIPBOARDImage(const ImageInfo image_info,
	% ExceptionInfo exception)
	%
	% A description of each parameter follows:
	%
	% o image_info: the image info.
	%
	% o exception: return any errors or warnings in this structure.
	%
	*/
	#if defined(MAGICKCORE_WINGDI32_DELEGATE)
	static Image ReadCLIPBOARDImage(const ImageInfo image_info,
	ExceptionInfo *exception)
	{
	Image
	*image;

	register ssize_t
	x;

	register Quantum
	*q;

	ssize_t
	y;

	assert(image_info != (const ImageInfo *) NULL);
	assert(image_info->signature == MagickSignature);
	if (image_info->debug != MagickFalse)
	(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
	image_info->filename);
	assert(exception != (ExceptionInfo *) NULL);
	assert(exception->signature == MagickSignature);
	image=AcquireImage(image_info,exception);
	{
	HBITMAP
	bitmapH;

	HPALETTE
	hPal;

	OpenClipboard(NULL);
	bitmapH=(HBITMAP) GetClipboardData(CF_BITMAP);
	hPal=(HPALETTE) GetClipboardData(CF_PALETTE);
	CloseClipboard();
	if ( bitmapH == NULL )
	ThrowReaderException(CoderError,"NoBitmapOnClipboard");
	{
	BITMAPINFO
	DIBinfo;

	BITMAP
	bitmap;

	HBITMAP
	hBitmap,
	hOldBitmap;

	HDC
	hDC,
	hMemDC;

	RGBQUAD
	*pBits,
	*ppBits;

	/* create an offscreen DC for the source */
	hMemDC=CreateCompatibleDC(NULL);
	hOldBitmap=(HBITMAP) SelectObject(hMemDC,bitmapH);
	GetObject(bitmapH,sizeof(BITMAP),(LPSTR) &bitmap);
	if ((image->columns == 0) \|\| (image->rows == 0))
	{
	image->rows=bitmap.bmHeight;
	image->columns=bitmap.bmWidth;
	}
	/*
	Initialize the bitmap header info.
	*/
	(void) ResetMagickMemory(&DIBinfo,0,sizeof(BITMAPINFO));
	DIBinfo.bmiHeader.biSize=sizeof(BITMAPINFOHEADER);
	DIBinfo.bmiHeader.biWidth=(LONG) image->columns;
	DIBinfo.bmiHeader.biHeight=(-1)*(LONG) image->rows;
	DIBinfo.bmiHeader.biPlanes=1;
	DIBinfo.bmiHeader.biBitCount=32;
	DIBinfo.bmiHeader.biCompression=BI_RGB;
	hDC=GetDC(NULL);
	if (hDC == 0)
	ThrowReaderException(CoderError,"UnableToCreateADC");
	hBitmap=CreateDIBSection(hDC,&DIBinfo,DIB_RGB_COLORS,(void **) &ppBits,
	NULL,0);
	ReleaseDC(NULL,hDC);
	if (hBitmap == 0)
	ThrowReaderException(CoderError,"UnableToCreateBitmap");
	/* create an offscreen DC */
	hDC=CreateCompatibleDC(NULL);
	if (hDC == 0)
	{
	DeleteObject(hBitmap);
	ThrowReaderException(CoderError,"UnableToCreateADC");
	}
	hOldBitmap=(HBITMAP) SelectObject(hDC,hBitmap);
	if (hOldBitmap == 0)
	{
	DeleteDC(hDC);
	DeleteObject(hBitmap);
	ThrowReaderException(CoderError,"UnableToCreateBitmap");
	}
	if (hPal != NULL)
	{
	/* Kenichi Masuko says this needed */
	SelectPalette(hDC, hPal, FALSE);
	RealizePalette(hDC);
	}
	/* bitblt from the memory to the DIB-based one */
	BitBlt(hDC,0,0,(int) image->columns,(int) image->rows,hMemDC,0,0,SRCCOPY);
	/* finally copy the pixels! */
	pBits=ppBits;
	for (y=0; y < (ssize_t) image->rows; y++)
	{
	q=QueueAuthenticPixels(image,0,y,image->columns,1,exception);
	if (q == (Quantum *) NULL)
	break;
	for (x=0; x < (ssize_t) image->columns; x++)
	{
	SetPixelRed(image,ScaleCharToQuantum(pBits->rgbRed),q);
	SetPixelGreen(image,ScaleCharToQuantum(pBits->rgbGreen),q);
	SetPixelBlue(image,ScaleCharToQuantum(pBits->rgbBlue),q);
	SetPixelAlpha(image,OpaqueAlpha,q);
	pBits++;
	q+=GetPixelChannels(image);
	}
	if (SyncAuthenticPixels(image,exception) == MagickFalse)
	break;
	}
	DeleteDC(hDC);
	DeleteObject(hBitmap);
	}
	}
	(void) CloseBlob(image);
	return(GetFirstImageInList(image));
	}
	#endif /* MAGICKCORE_WINGDI32_DELEGATE */

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% R e g i s t e r C L I P B O A R D I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% RegisterCLIPBOARDImage() adds attributes for the clipboard "image format" to
	% the list of supported formats. The attributes include the image format
	% tag, a method to read and/or write the format, whether the format
	% supports the saving of more than one frame to the same file or blob,
	% whether the format supports native in-memory I/O, and a brief
	% description of the format.
	%
	% The format of the RegisterCLIPBOARDImage method is:
	%
	% size_t RegisterCLIPBOARDImage(void)
	%
	*/
	ModuleExport size_t RegisterCLIPBOARDImage(void)
	{
	MagickInfo
	*entry;

	entry=SetMagickInfo("CLIPBOARD");
	#if defined(MAGICKCORE_WINGDI32_DELEGATE)
	entry->decoder=(DecodeImageHandler *) ReadCLIPBOARDImage;
	entry->encoder=(EncodeImageHandler *) WriteCLIPBOARDImage;
	#endif
	entry->adjoin=MagickFalse;
	entry->format_type=ImplicitFormatType;
	entry->description=ConstantString("The system clipboard");
	entry->module=ConstantString("CLIPBOARD");
	(void) RegisterMagickInfo(entry);
	return(MagickImageCoderSignature);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% U n r e g i s t e r C L I P B O A R D I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% UnregisterCLIPBOARDImage() removes format registrations made by the
	% RGB module from the list of supported formats.
	%
	% The format of the UnregisterCLIPBOARDImage method is:
	%
	% UnregisterCLIPBOARDImage(void)
	%
	*/
	ModuleExport void UnregisterCLIPBOARDImage(void)
	{
	(void) UnregisterMagickInfo("CLIPBOARD");
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% W r i t e C L I P B O A R D I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% WriteCLIPBOARDImage() writes an image to the system clipboard.
	%
	% The format of the WriteCLIPBOARDImage method is:
	%
	% MagickBooleanType WriteCLIPBOARDImage(const ImageInfo *image_info,
	% Image image,ExceptionInfo exception)
	%
	% A description of each parameter follows.
	%
	% o image_info: the image info.
	%
	% o image: The image.
	%
	% o exception: return any errors or warnings in this structure.
	%
	*/
	#if defined(MAGICKCORE_WINGDI32_DELEGATE)
	static MagickBooleanType WriteCLIPBOARDImage(const ImageInfo *image_info,
	Image image,ExceptionInfo exception)
	{
	/*
	Allocate memory for pixels.
	*/
	assert(image_info != (const ImageInfo *) NULL);
	assert(image_info->signature == MagickSignature);
	assert(image != (Image *) NULL);
	assert(image->signature == MagickSignature);
	if (image->debug != MagickFalse)
	(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
	{
	HBITMAP
	bitmapH;

	OpenClipboard(NULL);
	EmptyClipboard();
	bitmapH=(HBITMAP) ImageToHBITMAP(image,exception);
	SetClipboardData(CF_BITMAP,bitmapH);
	CloseClipboard();
	}
	return(MagickTrue);
	}
	#endif /* MAGICKCORE_WINGDI32_DELEGATE */