Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 28-05-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Que tal algo así:

Código Delphi [-]
procedure SaveControlImage(Control: TWinControl; FileName: TFileName);
var
  DC: HDC;
  Bitmap: TBitmap;

begin
  Bitmap := TBitmap.Create;

  try
    Bitmap.Width := Control.Width;
    Bitmap.Height := Control.Height;

    DC := GetWindowDC(Control.Handle);
    BitBlt(Bitmap.Canvas.Handle, 0, 0, Control.Width, Control.Height, DC, 0, 0, SRCCOPY);
    ReleaseDC(Control.Handle, DC);

    Bitmap.SaveToFile(FileName);
  finally
    Bitmap.Free;
  end;
end;

// Saludos
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Borrar controles de mi form. Bill Varios 1 04-11-2006 01:25:35
convertir un form en un frame ercrizeporta Varios 6 04-07-2005 21:52:58
Convertir archivos de imagen. alfredosg19 Varios 4 15-06-2005 10:26:44
convertir una imagen CMYK a RGB User_baja1 Gráficos 0 23-03-2005 17:03:03
Contar controles en un form worf_argentino Varios 2 24-01-2005 05:56:36


La franja horaria es GMT +2. Ahora son las 15:01:37.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi