http://edn.embarcadero.com/article/22018 2013-06-19T16:37:34-07:00 murat maman http://threads.embarcadero.com/threads/threads.exe/userall?commentid=34876 http://threads.embarcadero.com/threads/threads.exe/view?commentid=34876 2003-06-30T23:57:42-07:00 2003-06-30T23:57:42-07:00

re: Printing a TImage

I solve other problem. Now working good.void __fastcall TfUserReport::Button1Click(TObject *Sender){/*-----------------------------------------------------------------------This function is the OnClick event of a TButton that is on a TForm. On the TForm is also a TImage named image.------------------------------------------------------------------------*/ TPrinter *p = Printer(); // create a memory dc for the image HDC h_dc = image->Picture->Bitmap->Canvas->Handle; int bmp_w = image->Picture->Bitmap->Width, bmp_h = image->Picture->Bitmap->Height; HDC h_mem_dc = ::CreateCompatibleDC (h_dc); HBITMAP h_mem_bmp = ::CreateCompatibleBitmap (h_dc, bmp_w, bmp_h); HBITMAP h_old_bmp = ::SelectObject (h_mem_dc, h_mem_bmp); // fix up bad video drivers bool is_pal_dev = false; LOGPALETTE *pal; HPALETTE h_pal, h_old_pal; if (::GetDeviceCaps (image->Canvas->Handle, RASTERCAPS) & RC_PALETTE) { pal = static_cast<LOGPALETTE *>( malloc (sizeof (LOGPALETTE) + (sizeof (PALETTEENTRY) * 256))); memset (pal, 0, sizeof (LOGPALETTE) + (sizeof (PALETTEENTRY) * 256)); pal->palVersion = 0x300; pal->palNumEntries = ::GetSystemPaletteEntries(image->Canvas->Handle, 0, 256, pal->palPalEntry); if (pal->palNumEntries != 0) { h_pal = ::CreatePalette (pal); h_old_pal = ::SelectPalette (h_mem_dc, h_pal, false); is_pal_dev = true; } else { free (pal); } } // copy the image on to the memory dc ::BitBlt (h_mem_dc, 0, 0, bmp_w, bmp_h, h_dc, 0, 0, SRCCOPY); if (is_pal_dev) { ::SelectPalette (h_mem_dc, h_old_pal, false); ::DeleteObject (h_pal); } // delete the mem dc ::SelectObject (h_mem_dc, h_old_bmp); ::DeleteDC (h_mem_dc); // get memory for a BITMAPIFO Structure HANDLE h_bmp_info = ::GlobalAlloc (GHND, sizeof (BITMA murat maman http://threads.embarcadero.com/threads/threads.exe/userall?commentid=34875 http://threads.embarcadero.com/threads/threads.exe/view?commentid=34875 2003-06-30T23:54:47-07:00 2003-06-30T23:54:47-07:00

re: Printing a TImage

I solve it pal = static_cast<LOGPALETTE *>(malloc (sizeof (LOGPALETTE) + (sizeof (PALETTEENTRY) * 256))); vozova hradba http://threads.embarcadero.com/threads/threads.exe/userall?commentid=34192 http://threads.embarcadero.com/threads/threads.exe/view?commentid=34192 2003-02-27T13:30:08-08:00 2003-02-27T13:30:08-08:00

re: Printing a TImage

I think that the solution is something like this:...pal = static_cast<LOGPALETTE *>(malloc (sizeof (LOGPALETTE) + (sizeof (PALETTEENTRY) * 256)));...(or <BITMAPINFO*> for the second error)Regards,C.W. Zacarias Occidente http://threads.embarcadero.com/threads/threads.exe/userall?commentid=33353 http://threads.embarcadero.com/threads/threads.exe/view?commentid=33353 2002-10-20T11:34:05-07:00 2002-10-20T11:34:05-07:00

Printing a TImage

I tried to used this method and failed me in some printers. I use Builder 5. ¿more solutions? Roel Slangen http://threads.embarcadero.com/threads/threads.exe/userall?commentid=29060 http://threads.embarcadero.com/threads/threads.exe/view?commentid=29060 2001-05-31T03:07:45-07:00 2001-05-31T03:07:45-07:00

Printing a TImage

How can I solve this ?I get an error on this line:pal = static_cast(malloc (sizeof (LOGPALETTE) + (sizeof (PALETTEENTRY) * 256)));Error code :E2274 < Expected