figura no Image para outro image...

Question

n�o sei se � por que estou quase 12 horas em frente ao micro...m�s me d� uma luz tenho um comp. image  em form e queria inserir o conte�do do mesmo em outro...EXEMPLO:* tenho form (Formcliente) com um...

Carlosestevam · Answer

use a propriedade assign do TImage.Image1.Picture.Assign(Image2.Picture);...

Gigatel · Answer

[quote:87d0af7dd1=�carlosestevam�]use a propriedade assign do TImage.Image1.Picture.Assign(Image2.Picture);[/quote:87d0af7dd1]N�o funcionou... ficaria assim ?_FormCliente.Image3.Picture.Assign(Image1.Picture);O image1 e que est� com a figura.......

Gigatel · Answer

S� um detalhe, Uso um componete para Scamer chamado ScanImage....
este componete � bem f� cil de trabalhar....da� resolv� mudar...analizem...
no componente existe uma op��o SCANEDIMAGE onde a �magem fica alojada ..s� que neste image onde quero visualizar foi adicionada uma fun��o de JPG... e n�o visualiza....olhe o c�digo...

procedure T_FormCliente.DataSource1DataChange(Sender: TObject;
Field: TField);
var
BlobStream : TBlobStream;
JpegImage : TJPEGImage;
begin
BlobStream := TBlobStream.Create(Table1Fig1, bmRead);
if BlobStream.Size <> 0 then
Begin
Image3.Visible := true;
JpegImage := TJPEGImage.Create;
Try
JpegImage.LoadFromStream(BlobStream);
Image3.Picture.Assign(JpegImage);
Finally
BlobStream.Free;
JpegImage.Free;
End;
End
Else
Image3.Visible := false;

F�rum figura no Image para outro image... #214297