Con el componente freeware tProeffectimage escrito por Babak Sateli podrán generar alucinantes efectos gráficos en sus programas, además de una manera muy sencilla ya que lo único que hay que hacer es añadir un trackbar para obtener el parámetro asociado a cada una de las funciones ( está probado en Delphi 7 y Delphi 2009) :
El siguiente código viene en el ejemplo que acompaña a la instalación:
Case EffectsList.ItemIndex of
0: ProEffectImage.Effect_GaussianBlur (TrackBar.Position);
1: ProEffectImage.Effect_SplitBlur (TrackBar.Position);
2: ProEffectImage.Effect_AddColorNoise (TrackBar.Position * 3);
3: ProEffectImage.Effect_AddMonoNoise (TrackBar.Position * 3);
4: For i:=1 to TrackBar.Position do
ProEffectImage.Effect_AntiAlias;
5: ProEffectImage.Effect_Contrast (TrackBar.Position * 3);
6: ProEffectImage.Effect_FishEye (TrackBar.Position div 10+1);
7: ProEffectImage.Effect_Lightness (TrackBar.Position * 2);
8: ProEffectImage.Effect_Darkness (TrackBar.Position * 2);
9: ProEffectImage.Effect_Saturation (255-((TrackBar.Position * 255) div 100));
10: ProEffectImage.Effect_Mosaic (TrackBar.Position div 2);
11: ProEffectImage.Effect_Twist (200-(TrackBar.Position * 2)+1);
12: ProEffectImage.Effect_Splitlight (TrackBar.Position div 20);
13: ProEffectImage.Effect_Tile (TrackBar.Position div 10);
14: ProEffectImage.Effect_SpotLight (TrackBar.Position ,
Rect (TrackBar.Position ,
TrackBar.Position ,
TrackBar.Position +TrackBar.Position*2,
TrackBar.Position +TrackBar.Position*2));
15: ProEffectImage.Effect_Trace (TrackBar.Position div 10);
16: For i:=1 to TrackBar.Position do
ProEffectImage.Effect_Emboss;
17: ProEffectImage.Effect_Solorize (255-((TrackBar.Position * 255) div 100));
18: ProEffectImage.Effect_Posterize (((TrackBar.Position * 255) div 100)+1);
19: ProEffectImage.Effect_Grayscale;
20: ProEffectImage.Effect_Invert;
end;{Case}
Fuente:
babak_sateli@yahoo.com
http://raveland.netfirms.com
Descargar codigo
No hay comentarios:
Publicar un comentario