Thumbnail - salvar imagem gerada
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
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
Curtidas 0
Respostas
Alanporto
16/10/2009
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]
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]
GOSTEI 0