FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
cambiar el tamaño de los gráficos
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 |
|
|
|