Vamos usar o framework Firemonkey do Delphi para \"brincarmos\" um pouco com a aplicação de alguns efeitos em figuras. Aqui, vou utilizar o XE2, mas você pode obter os mesmos resultados utilizando versões posteriores. Crie uma nova aplicação, escolhendo o menu File > New > FireMonkey HD Application . Isso criará um formulário para que possamos iniciar um novo projeto para a plataforma Windows.

A paleta Effects traz vários efeitos que podemos adicionar aos componentes colocados no form. Portanto, não somente figuras podem ser modificadas. A maioria dos componentes aqui são descendentes da classe TEffect, enquanto outros descendem de TImageFXEffect (que, por sua vez, também é descendente de TEffect). Vamos testar duas delas. Para isso, você pode usar o mesmo projeto já existente e comentar as linhas que dizem respeito à rotação da imagem. Você pode fazer isso colocando as linhas existentes entre chaves:

 

 { ImageControl1.RotationAngle := TrackBar1.Value ;

   Label1.Text := FormatFloat('#,##0.00',TrackBar1.Value ) + 'º';

 }

 

Agora, coloque um componente BlurEffect sobre o componente ImageControl. Aparentemente, nada acontece e nenhum objeto novo é visto no form. Este é um componente não visual. Componentes não visuais no Delphi geralmente são vistos em tempo de design, mas não em tempo de execução. Essa regra, no entanto, não se aplica ao FireMonkey, onde componentes não visuais, de fato, ficam totalmente invisíveis. Mas você pode perceber que ele está subordinado ao ImageControl, se observar a janela Structure View (Figura 1).

 

Figura 1 – BlurEffect sob ImageControl

Figura 2 - Mostrando o efeito na imagem

O efeito desejado é “borrar” a imagem. Selecione o componente através da janela Sturcture e modifique a propriedade Softness para 0. Selecione também False para a propriedade Enabled. Na TrackBar, deixe Max com 9. Para borrar a imagem, em código, habilitaremos a propriedade Enabled para True e iremos incrementar o valor de Softness. Então, no evento OnChange da TrackBar, coloque isso:

 

 BlurEffect1.Softness := TrackBar1.Value ;

 Label1.Text := FloatToStr(BlurEffect1.Softness);

 

Também no evento OnCreate do Form precisamos habilitar o recurso:

 

 BlurEffect1.Enabled := True;

 

Pressione F9 e arraste a TrackBar para ver o efeito (Figura 2). Ressalto então que os objetos descendentes de TEffect são todos não-visuais. Você pode aplicar estes efeitos a qualquer componente visual do FireMonkey. Para usar um componente descendente de TEffect em tempo de design, tenha certeza de que ele será um “filho” (child) do componente desejado, isto é, estará subordinado ao componente cujo efeito se quer aplicar. Por exemplo, para aplicar um efeito num Edit, tenha certeza de que o efeito será um componete-filho deste Edit. Para que isso aconteça, o componente da paleta Effects deve ser arrastado e solto sobre o objeto desejado. Caso você erre o alvo, não há problema: usando o Structure View, mova-o para baixo do objeto-alvo. Isso tornará o descendente da classe TEffect hierarquicamente subordinado a ele. Para remover um efeito, clique nele também usando a Structure View e pressione Delete no teclado.

 

Façamos, agora, um novo projeto para testar o efeito BloodTransitionEffect. Para isso, em um novo projeto FireMonkey HD, adicione um ImageControl, um OpenDialog (paleta Dialogs), dois Buttons e, novamente, uma TrackBar. Ajuste o ImageControl para que ocupe boa parte do form e coloque o botão e a TrackBar na parte inferior da janela. Mude o texto do primeiro botão para “Abrir fig 1” e o do segundo para “Abrir fig 2”. Da paleta Effects, coloque um BloodTransitionEffect sobre o componente ImageControl. Ajuste sua propriedade Enabled para False e Progress para 0.

 

 

 

No evento OnClick do primeiro botão, coloque o seguinte:

 

 if OpenDialog1.Execute  then 

   ImageControl1.Bitmap.LoadFromFile(OpenDialog1.FileName );

 

No segundo botão, coloque o seguinte no evento OnClick:

 

 if OpenDialog1.Execute  then 

   BloodTransitionEffect1.Target.LoadFromFile(OpenDialog1.FileName );

 

 

Isso permitirá que você escolha duas figuras: uma “sangrará” até se transformar na outra, durante a transição do efeito. Target é uma propriedade do objeto TBlodTransitionEffect, que nada mais é do que um objeto da classe TBitmap (por isso, ele também tem o método LoadFromFile( )). Você pode até não escolher uma segunda figura, mas neste caso, o efeito da transição será da figura 1 para ela mesma (embora seja possível perceber a mudança mesmo assim).

 

No evento OnChange da TrackBar, digite:

 

  BloodTransitionEffect1.Progress := TrackBar1.Value ;

 

Finalmente, no evento OnCreate do form, digite:

 

 BloodTransitionEffect1.Progress := 0; [1]
 BloodTransitionEffect1.Enabled := True;

 

Ao executar, escolha duas figuras e, depois, arraste a TrackBar. O efeito obtido deve ser semelhante ao mostrado na Figura 3. As figuras usadas foram duas das que podemos encontrar na pasta Amostra de Imagens, do Windows: Crisântemo.jpg e Deserto.jpg, mas você poderá usar qualquer figura que desejar.

 

Outro efeito interessante para aproveitar os recursos da GPU é o de onda.

 

 

 

 

Num projeto separado, insira o controle ImageControl e, através da propriedade Bitmap, carregue uma figura qualquer (aqui, usei uma figura originalmente obtida em http://pensenao.wordpress.com/tag/amizade-animal/). Coloque também um Button e mude a propriedade Text para “>”. Depois, adicione à imagem um componente WaveEffect. A propriedade WaveSize configura o tamanho da onda e Time controla as oscilações através do tempo. Deixe Time com o valor 1 e, através de um Timer, vamos seguir modificando seu valor. Podemos conseguir isso facilmente, usando um componente Timer. Em seu evento OnChange, coloque o código a seguir:

 

with WaveEffect1 do Begin

  Enabled := True ;

  Time := Time + 1;

End;

 

Aqui, estamos habilitando o efeito desejado, tornando sua propriedade Enabled para True. Ao mesmo tempo, Time vai sendo incrementado em uma unidade cada vez que o código é executado. O evento OnChange do Timer ocorrerá a cada intervalo de tempo definido em sua propriedade Interval. Configure-a para 100 (o que significa 100 milissegundos), para que o efeito de onda não fique muito devagar, mas também não excessivamente rápido (você pode alterá-lo para outro valor, se quiser). No evento OnClick to botão, coloque o código que ativará o timer e mudará o texto do borão para “X”:

 

 if NOT Timer1.Enabled then begin

  Button1.Text := ‘X’;

  Timer1.Enabled := True;

 end

   Else begin

     Button1.Text := ‘>’

     Timer1.Enabled := False;

     WaveEffect1.Time := 0;

   End;

 

 

Se o Timer já estiver ativado, então ele será desativado, fazendo a propriedade Time do WaveEffect voltar a zero. Se você quiser testar o projeto também alterando o tamanho da onde, pode colocar uma TrackBar e configurar seus valores Min e Max para 32 e 256, respectivamente (este é o intervalo permitido para o tamanho da onda). No evento OnChange da TrackBar, atribua seu valor à WaveSize:

 

 WaveEffect1.WaveSize := TrackBar1.Value ;

 

 

Agora, uma questão estética: você pode desejar maximizar o aplicativo e, ao fazer isso, perceberá que as dimensões da figura não irão acompanhar o layout do form. Para que os componentes se ajustem na tela adequadamente, devemos ter certeza de que o botão e a TrackBar continuarão próximos ao rodapé e que a figura não irá sobrepô-los. Para ajustar o botão e a TrackBar, configure a propriedade Anchor de ambos de modo que akBottom e akLeft fiquem como True, desmarcando akTop. Isso faz o alinhamento padrão destes componentes ter como referencia as distâncias da esquerda para a direita e de baixo para cima.

 

No ImageControl, como ele deve estender-se pela maior parte do form, deixe todos os valores de Anchors como True. Além disso, volte à propriedade Bitmap, clique em  ...  e, depois,  no botão Fit. Isso fará com que a figura dentro do componente se ajuste ao tamanho do ImageControl – do contrário, o componente acompanharia o tamanho do form, mas não seu conteúdo.