Unir dois bitmaps em um só e mandar pro clipboard?

Delphi

14/12/2004

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];


Trimax-fhs

Trimax-fhs

Curtidas 0
POSTAR