ActiveDelphi

[wjuniordias]

Boa tarde pessoal.

Alguém sabe como fazer um recurso semelhante a "ferramenta de captura" do windows 7?
Onde o usuario define a área que ele quer capturar em forma de print.

Grato.
_________________
"O sábio nunca diz tudo o que pensa, mas pensa sempre tudo o que diz." (Aristóteles)

[strak2012]

Há pelo menos duas forma de ser feita.

1º - Ao capturar a tela completa em um bmp, você pode recortar apenas o que lhe é de interessante e descartar o resto.

2º - Na própria captura você pode fornecer o handle da janela ou objeto visual, neste caso você captura apenas a janela do handle informado.

Há uma 3º forma que é combinar a 1º forma com o auxilio HRGN, para este você pode capturar área não regular, por exemplos: polígonos irregulares, círculos, triângulos e outras formas.
_________________
Tudo podemos quando tudo sabemos!

[wjuniordias]

Tentei seguir os seguintes exemplos:

1:
https://pt.stackoverflow.com/questions/96843/recortar-um-pedaço-da-imagem-usando-mouse

2:
https://stackoverflow.com/questions/32427396/create-a-rectangle-hole-on-form-with-my-mouse

Porém, não consegui adaptá-los para que fique igual a ferramenta do Windows.
Eu gostaria que o usuário definisse de maneira livre, a área a ser recortada e jogada no componente "TImage".
_________________
"O sábio nunca diz tudo o que pensa, mas pensa sempre tudo o que diz." (Aristóteles)

[strak2012]

Nossa este tempo todo e só agora resolveu falar algo.
Se tivesse perguntado antes teria tirado qualquer duvida sua a mais tempo.

Bom segue um exemplo pratico e funcional do que necessita.

download aqui

Pode sempre melhorar algo no fonte.
Foi usado o CopyRect como copiador da região desejada, o ideal seria o BitBlt, mais ambos terão o efeito desejado.

o segundo só seria melhor que o primeiro na sua visualização no Timage pois é possível remover o efeito pixels da imagem


O código fonte foi compilado usando o delphi 10 Seattle
_________________
Tudo podemos quando tudo sabemos!

[wjuniordias]

Desculpe pela demora, é que estou tendo problemas com a minha internet.
Muito obrigado pelo exemplo, era exatamente o que eu estava procurando. Abraço.
_________________
"O sábio nunca diz tudo o que pensa, mas pensa sempre tudo o que diz." (Aristóteles)

[strak2012]

Seguem o link com uma pequena modificação para melhorar a visualização do recorte.

download aqui
_________________
Tudo podemos quando tudo sabemos!

[wjuniordias]

Perfeito.
Obrigado.
_________________
"O sábio nunca diz tudo o que pensa, mas pensa sempre tudo o que diz." (Aristóteles)

[strak2012]

Mais outras pequenas alterações

Segue o link:download aqui

Alterações:
Suporte a zoom + -
Possibilidade de capturar a região a ser exibida no Timagem em tempo real.


Só faltava mesmo era gerar um vídeo da região capturada em tempo real e ficaria show kkkkkk.
Se bem que é possível mais neste caso seria necessário trabalhar com o formato jpeg para ir montando os frames do vídeo é um pouco mais complicado e trabalhoso.
_________________
Tudo podemos quando tudo sabemos!

[wjuniordias]

Rapaz, isso ficou top demais. Esse recurso do zoom é perfeito.
Vlw msm kkkk
_________________
"O sábio nunca diz tudo o que pensa, mas pensa sempre tudo o que diz." (Aristóteles)