![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Objeto a Imagen
Hola foreros.... investigando encontre una herramienta en Visual Basic que combierte un objeto a Imagen..... también lo existe en Delphi??, pongo el código de conversión y el vinculo del dll por si alguien pudiera auxiliarme.
de antemano muchas gracias Código:
Call RefreshScale(sbScaleBar1, Map) Dim bmp2 As cDIBSection Set bmp2 = New cDIBSection Call bmp2.Create(401, 33) Call apiBitBlt(bmp2.hdc, 0, 0, 401, 33, sbScaleBar1.hdc, 0, 0, SRCCOPY) Call SaveJPG(bmp2, << FILENAME >> ) |
![]() |
|
|
![]() |
|