Array
(
)

ajustar tamanho da imagem.

Eric.miranda
   - 04 jan 2006

boa tarde galera, tenho que fazer o seguinte..
tenho uma imagem e estou usando o stretch para a imagem se ajustar ao tamanho do image..

estou usando a seguinte rotina para por algumas tarjas na imagem

procedure TForm1.Button1Click(Sender: TObject);
var foto,nome: string;
tam:integer;
x:integer;
texto,texto1:string;
BitMap:TBitMap;
MyJPEG:TJpegImage;
CP01,CP02,CP03,CP04,CP05,CP06,CP07,CP08:String;
begin
foto := ´\IMGTEMP\1.JPG´;
image1.Picture.LoadFromFile(foto);
BitMap:=TBitMap.Create;
BitMap:=TBitmap(Image1.Picture);
Clipboard.Assign(bitmap);
Image1.Picture.Assign(ClipBoard);
CP01:= ´AVENIDA SANTO AMARO X RUA QUATA´;
CP02:= ´12/12/2005´;
CP03:= ´07:50:25´;
CP04:= ´SEGUNDA-FEIRA´;
CP05:= ´07525´;
CP06:= ´25236´;
CP07:= ´IMG1122334455.JPG´;
CP08:= ´12345´;
texto:= ´Local: ´+CP01+´ Data: ´+CP02+´ Hora: ´+CP03+´ ´+CP04;
tam:=(370 - length(texto));
for x:=0 to tam do
begin
texto:=texto+´ ´;
end;

texto1:= ´Agente: ´+CP05+´ Enquadramento: ´+CP06+´ Imagem: ´+CP07+´ Equipamento: ´+CP08;
tam:=(370 - length(texto1));
for x:=0 to tam do
begin
texto1:=texto1+´ ´;
end;

Image1.Canvas.TextOut(2,255,texto);
Image1.Canvas.TextOut(2,270,texto1);
MyJPEG := TJpegImage.Create;
MyJpeg.Assign(Image1.Picture.BitMap);
MyJpeg.SaveToFile(´\IMGTEMP\1.JPG´);
MyJpeg.Free;
end;


o que acontece é que a imagem é maior do que está no image..
o meu image tem height 373 e width 521, mas a imagem é maior por isso a tarja fica ilegível no image, e ela tem que ficar legível..

tem como arrumar isso??

obrigado pessoal


Foxcyber
   - 04 jan 2006

Por que vc nao coloca um scroll na imagem?