ajustar tamanho da imagem.

04/01/2006

0

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


Eric.miranda

Eric.miranda

Responder

Posts

04/01/2006

Foxcyber

Por que vc nao coloca um scroll na imagem?


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar