FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Gracias ecfisa, todo ok
|
#2
|
||||
|
||||
Hola DSK25.
Y ya que estamos, una idea para la miniatura. Agregá un TPanel del tamaño que desees la miniatura, dentro de él pone un TImage y proba este código: Código:
... /* Ajustar propiedades de Panel2 y Image1 */ void __fastcall TForm1::FormCreate(TObject *Sender) { Panel2->BevelInner = bsNone; Panel2->BevelOuter = bsNone; Panel2->Ctl3D = false; Panel2->BorderStyle = bsSingle; Image1->Align = alClient; Image1->Stretch = true; } void WinCtrlToImage(TWinControl *aWinCtrl, TImage *aImg) { Graphics::TBitmap *bm = new Graphics::TBitmap; HDC hDC; __try { bm->Width = aWinCtrl->Width; bm->Height = aWinCtrl->Height; hDC = GetWindowDC(aWinCtrl->Handle); __try { BitBlt(bm->Canvas->Handle, 0, 0, bm->Width, bm->Height, hDC, 0, 0, SRCCOPY); } __finally { ReleaseDC(aWinCtrl->Handle, hDC); } aImg->Picture->Bitmap->Canvas->Draw(0, 0, bm); aImg->Picture->Bitmap->Assign(bm); aImg->Stretch = true; } __finally { delete bm; } } Código:
void __fastcall TForm1::btnToImgClick(TObject *Sender) { WinCtrlToImage(Panel1, Image1); } Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 10-06-2013 a las 15:05:05. Razón: cambio del servidor de imagen |
#3
|
|||
|
|||
Excelente ecfisa, me funciono perfectamente, gracias
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
El programa se queda "colgado" mientras copia y luego "despierta" | NeWsP | OOP | 5 | 10-03-2010 22:05:40 |
"OBJECT OR CLASS TYPE REQUIRED" en "APPLICATION EXENAME" | Xavierator | Varios | 3 | 27-10-2008 09:09:50 |
Necesito llamar a métodos de clases "hija" desde su clase "padre" | Flecha | OOP | 17 | 20-04-2007 00:03:53 |
RFID Dispositivos miniatura permiten "espiar" tus movimientos | Magician^ | Debates | 2 | 07-04-2004 07:54:04 |
Error "Ya existe un componente con el nombre QRStandarPreview" | Jose Manuel | Impresión | 5 | 13-06-2003 07:55:26 |
|