Clipboard (Resolvido)

[Paulo Nobre]

Prezados Colegas

A um tempo atrás estava querendo colar figuras num dbImage e o colega s3c forneceu o seguinte código:

uses ClipBoard;

procedure TForm1.DBImage1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #22) and Clipboard.HasFormat(CF_PICTURE) then
begin
DBImage1.Picture.Assign(Clipboard);
DBImage1.Stretch := true;
DBImage1.Refresh;
end;
end;

Obs: O picture será um TBitmap; se quiser modificá-lo p/ Jpeg(menor espaço), também é possível.

Atualmente tenho um programa que apresenta uma figura num Image1 e gostaria de que o usuário ao clicar na imagem e em seguida fizesse CTRL + C mandasse a figura (existem bmp e jpeg) para o clipboard para que com CTRL + V ele pudesse copiar, por exemplo no word.

Alguém poderia me dizer como fazer isto. Tentei adaptar o código, mas não consegui.

[Graymalkin]

Se o problema é copiar a imagem para a área de transferência, então basta fazer:

var formato : Word;
    dados : Cardinal;
    paleta : HPALETTE;
begin
  Image1.Picture.SaveToClipBoardFormat(formato, dados, paleta);
  ClipBoard.SetAsHandle(formato, dados);
end;

Trocando o "Image1" pelo nome do seu TImage é claro. Agora detectar o CTRL+C é que é mais complicadinho... (sem falar que a TImage não fica com foco, como outros controles).

Abraços,

Graymalkin

[Paulo Nobre]

Olá, Graymalkin

Valeu pela força.

Ao invés de pedir ao usuário para fazer CTRL + C, pedirei para clicar na figura e depois fazer CTRL + V onde quiser colar a figura. Neste caso coloco o seu código no ONCLICK da Image1.

O CTRL + C é porque o usuário está mais acostumado com este comando para copiar.

Abraços

[s3c]

Olá Paulo Nobre e Graymalkin. O componente é um TDBImage ou TImage ?

[Paulo Nobre]

Olá,s3c

O componente é um TImage.

[s3c]

Realmente o TImage não possui eventos de key mas você pode colocar o TImage dentro de um Listbox por exemplo:

1-Coloque um Listbox e ajuste o tamanho e posição relativos à imagem.

2-Retire suas bordas:

ListBox1.BevelInner := bvNone;

ListBox1.BevelOuter := bvNone;

ListBox1.BorderStyle := bsNone;

3-Deixe a propriedade Style := lbOwnerDrawVariable; p/ não aparecer o pontilhado da primeira linha.

4-No onCreate do Form execute:

Image1.Parent := ListBox1;

Image1.Align := alClient;

5-No onClick do TImage execute:

ListBox1.SetFocus;

6-No onKeyPress do Listbox cheque o ctrl+c (#3) e coloque o código que o Graymalkin sugeriu.

[Paulo Nobre]

Olá, s3c

Sensacional esta sua idéia, que servirá não só para este exemplo, mas para inúmeros outros.

Muito obrigado!