Fórum Copiar imagem de qualquer pasta e Colar no Timage tem como? #320342
02/05/2006
0
Agradeço desde já a quem puder me ajudar.
Exvasp
Curtir tópico
+ 0Posts
02/05/2006
Paullsoftware
Gostei + 0
02/05/2006
Exvasp
Dei uma pesquisa no help do Delphi 2005 e tem mesmo(LoadFromClipboardFormat) só que não entendo como colocar na prática.
Gostei + 0
02/05/2006
Edilcimar
The following code draws a bitmap image from the Clipboard when a button is pressed.
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap : TBitmap;
begin
Bitmap := TBitMap.create;
try
Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
Canvas.draw(0,0,Bitmap);
finally
Bitmap.free;
end;
end;
Gostei + 0
02/05/2006
Edilcimar
The following code draws a bitmap image from the Clipboard when a button is pressed.
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap : TBitmap;
begin
Bitmap := TBitMap.create;
try
Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
Canvas.draw(0,0,Bitmap);
finally
Bitmap.free;
end;
end;
Gostei + 0
02/05/2006
Exvasp
Mais uma vez muito Obrigado!
Gostei + 0
02/05/2006
Exvasp
Mais uma vez muito Obrigado![/quote:ed725f47cd]
Não consegui colar a imagem no Timage(só dá certo quando abro o paint e seleciono toda a imagem e copio, ai sim consigo colar), mas como copiar a imagem e colar direto Timage sem ter que abri-la em outro programa?
Coloquei na cláusula uses:Clipbrd;
e tambem coloquei o código da seguinte forma:
var
Bitmap : TBitmap;
begin
Bitmap := TBitMap.create;
try
Image1.Picture.Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
Canvas.draw(0,0,Bitmap);
finally
Bitmap.free;
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)