Fórum Unir dois bitmaps em um só e mandar pro clipboard? #261967
14/12/2004
0
Como posso unir duas imagens bitmaps (lado a lado) em uma só?
Se o imGrafico estiver vazia preciso unir nela, a imGrafico1 e imGrafico2
pra mandar pro clipboard...
Fiz o sequinte mas não deu certo.
O que pode estar errado.
[b:d6372bdf9a]procedure[/b:d6372bdf9a] TfrmVisuGrafico.btAreaTransfClick(Sender: TObject);
[b:d6372bdf9a] begin[/b:d6372bdf9a]
[b:d6372bdf9a] if[/b:d6372bdf9a] imGrafico.Picture.Bitmap.Empty[b:d6372bdf9a] then[/b:d6372bdf9a]
[b:d6372bdf9a]begin[/b:d6372bdf9a]
imGrafico.Picture.Bitmap.Canvas.Draw(0,0,imGrafico1.Picture.Bitmap);
imGrafico.Picture.Bitmap.Canvas.Draw(478,0,imGrafico2.Picture.Bitmap);
imGrafico.Refresh;
[b:d6372bdf9a]end;[/b:d6372bdf9a]
Clipboard.Assign(imGrafico.Picture);
[b:d6372bdf9a] end[/b:d6372bdf9a];
Se o imGrafico estiver vazia preciso unir nela, a imGrafico1 e imGrafico2
pra mandar pro clipboard...
Fiz o sequinte mas não deu certo.
O que pode estar errado.
[b:d6372bdf9a]procedure[/b:d6372bdf9a] TfrmVisuGrafico.btAreaTransfClick(Sender: TObject);
[b:d6372bdf9a] begin[/b:d6372bdf9a]
[b:d6372bdf9a] if[/b:d6372bdf9a] imGrafico.Picture.Bitmap.Empty[b:d6372bdf9a] then[/b:d6372bdf9a]
[b:d6372bdf9a]begin[/b:d6372bdf9a]
imGrafico.Picture.Bitmap.Canvas.Draw(0,0,imGrafico1.Picture.Bitmap);
imGrafico.Picture.Bitmap.Canvas.Draw(478,0,imGrafico2.Picture.Bitmap);
imGrafico.Refresh;
[b:d6372bdf9a]end;[/b:d6372bdf9a]
Clipboard.Assign(imGrafico.Picture);
[b:d6372bdf9a] end[/b:d6372bdf9a];
Trimax-fhs
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)