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
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
Curtir tópico
+ 0
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]
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
Clique aqui para fazer login e interagir na Comunidade :)