![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
![]() Hola. Tengo que realizar la siguente tarea:
A partir de unos ficheros .bmp de los que no sé su medida, y pueden ser diferentes entre sí, debo traspasarlos a un componente TBitmap, pero este componente tiene unas medidas fijas (1122 de alto por 794 de alto) y quisiera que el gráfico no me quedara cortado tal como me pasa ahoroa, sino que mantuviera toda su imagen. Lo mismo que hace la propiedad Stretch del componente TImage. Gracias. |
#2
|
|||
|
|||
Código:
procedure PegaImagenAjustada (BitmapFijo: TBitmap; FileName: String); var ABitmap : TBitmap; begin ABitmap := TBitmap.Create; try ABitmap.LoadFromFile (FileName); with BitmapFijo do Canvas.StrechtDraw (Rect (0, 0, Width, Height), ABitmap); finally ABitmap.Free; end; end;
__________________
Guía de Estilo |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|