Fórum Thumbnail - salvar imagem gerada #376071

16/10/2009

0

Bom dia! Tenho o seguinte código (sbIMG é um Scrollbox):

procedure TfrmMAIN.btnThumbClick(Sender: TObject);
var
Img: TImage;
wTop, wLeft, wSize: Word;
begin

wSize:= 200;
wLeft:= 0;
wTop:= 0;

Img := TImage.Create(sbIMG);
Img.Parent := sbIMG;
Img.Proportional := True;
Img.Center := True;
Img.Tag := 0;
Img.Picture.LoadFromFile(´C:\imagem.bmp´);
Img.SetBounds(wTop,wLeft,wSize,wSize);

end;

Como faço para salvar a imagem gerada (thumbnail que está aparecendo no scrollbox(sbIMG)) ?

Peu


Peununes

Peununes

Responder

Posts

16/10/2009

Alanporto

se eu entendi, vc cria o image com o Parent no ScrollBox, então na verdade o que vc quer salvar é a imagem que vc acabou de carregar.

pra salvar, o SaveToFile do TPicture resolve.

agora, se vc quer salvar miniaturizado (diminuindo o tamanho da imagem), vai ter que aplicar uma rotina de redimensionamento, pq que eu me lembre o TImage salvará sua imagem no mesmo tamanho da original.

[url=http://forum.devmedia.com.br/viewtopic.php?t=99414&highlight=redimensionar+imagem]Exemplo[/url]


Responder

Gostei + 0

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

Aceitar