FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Imagen de portapapeles a QRImage
Tengo este código:
Código:
void __fastcall TfPersona::PerFicClick(TObject *Sender) { Graphics::TBitmap *pBitmap = new Graphics::TBitmap(); HDC hdcSrc = GetWindowDC(this->Handle); pBitmap->Width = this->Width; pBitmap->Height = this->Height; BitBlt(pBitmap->Canvas->Handle, 0, 0, pBitmap->Width, pBitmap->Height, hdcSrc, 0, 0, SRCCOPY); Clipboard()->Assign(pBitmap); ReleaseDC(this->Handle, hdcSrc); if (Clipboard()->HasFormat(CF_BITMAP)) { Application->CreateForm(__classid(TfFicPer), &fFicPer); Clipboard()->Open(); pBitmap->LoadFromClipboardFormat(CF_BITMAP, Clipboard()->GetAsHandle(CF_BITMAP), 0); Clipboard()->Close(); fFicPer->QRImage2->Picture->Assign(pBitmap); cReportTitle = "FICHA PERSONAL " + Nombre->Text + " " + Apellidos->Text; fFicPer->qFicPer->Preview(); delete fFicPer; } delete pBitmap; this->SetFocus(); } |
#2
|
||||
|
||||
Hola.
Probe tu código y funciona de forma correcta, solo lo modifiqué un poco para darle reusabilidad: Código PHP:
Código PHP:
Preview: Declaré el parámetro de modo que la función pueda recibir cualquier descendiente de TWinControl, de modo que las siguientes llamadas tambien son correctas: Código PHP:
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 31-12-2016 a las 01:51:43. Razón: Desglosar función WinCtrlToClipboard |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Imagen en QRImage no se muestra completa | Mechita | Impresión | 13 | 13-12-2013 19:08:24 |
Pegar imagen desde el Portapapeles (Clipboard) | gluglu | Gráficos | 8 | 20-10-2010 15:09:55 |
Poner imagen en Timage desde portapapeles | gabyzava | Gráficos | 3 | 24-09-2010 18:01:44 |
Qrimage, la imagen se imprime negra si muevo el heigth de un qrstringband | CarlosHernandez | Impresión | 0 | 26-05-2007 00:20:48 |
Cargar la misma imagen en varios QRImage | molina669 | Gráficos | 0 | 03-11-2006 11:50:17 |
|