Oscurecer y aclarecer pantalla

[turminator]

llevo buscando por el foro y distintas webs, como podria hacer para que la pantalla de mi programa se fuera oscureciendo lentamente y llegado un punto medio, volver a aclarecerse. No sé si es que tenia que buscar por algun nombre distinto o alguna otra cosa. pero no he encontrado nada al respeto.

Se agradeceran las ayudas.

Saludos y gracias de antemano.

[dec]

Hola,

En este Hilo se trató algo similar a lo que dices, cuando no lo mismo. A ver si puede servirte de algo.

[turminator]

Gracias por la info. Me lo he estado mirando todo y aunque trata el tema no me acaba de ir bien. Pero gracias. Lo que encontré es un componente que se llama Proeffectimage y tiene una opción que se llama Darkness y es justo lo que necesito.

Lo que me sucede es que queria usar el effecto Darkness sobre un archivo jpeg (en vez de bmp.). Y cuando sustituyo los '1.bmp' por '2.jpeg' me da el siguiente error: Unknown picture extension JPEG

Cual es la solución al problema? Espero puedan ayudarme

El codigo del ejemplo es:

Código Delphi [-]
unit Main;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ProEffectImage, StdCtrls, ComCtrls;
type
  TForm1 = class(TForm)
    ProEffectImage: TProEffectImage;
    Bevel1: TBevel;
    EffectsList: TListBox;
    TrackBar: TTrackBar;
    Button_APPLY: TButton;
    AutoMatic: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure EffectsListClick(Sender: TObject);
    procedure Button_APPLYClick(Sender: TObject);
    procedure TrackBarChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
{ FORM CREATION }
//------------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
 ProEffectImage.Picture.LoadFromFile ('2.JPEG');
end;
//------------------------------------------------------------------------------
 
{ EFFECT LISTBOX ACTIONS }
//------------------------------------------------------------------------------
procedure TForm1.EffectsListClick(Sender: TObject);
begin
 {Start}
 ProEffectImage.Picture.LoadFromFile ('2.JPEG');
 Button_APPLY.Enabled := True;
 TrackBar.Enabled     := True;
 TrackBar.Position    := 1;
end;
//------------------------------------------------------------------------------
 
{ APPLY BUTTON ACTIONS }
//------------------------------------------------------------------------------
procedure TForm1.Button_APPLYClick(Sender: TObject);
Var i  : Integer; {For Loop}
begin
  Screen.Cursor := crHourGlass;
  ProEffectImage.Picture.LoadFromFile ('2.JPEG');
  Button_APPLY.Enabled := False;
  { E F F E C T S }
     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}

  Screen.Cursor := crDefault;
end;
//------------------------------------------------------------------------------
 
procedure TForm1.TrackBarChange(Sender: TObject);
begin
 If Not Button_APPLY.Enabled then Button_APPLY.Enabled := True;
 if AutoMatic.Checked        then Button_APPLY.Click;
end;

end.

[Sick boy]

Sin tener ni idea del componente que quieres usar, se me ocurre que puedes probar a cambiar la extension del archivo de 2.jpeg a 2.jpg

Es por si es un problema de la extension, aunque no creo....

Sino, solo te queda convertir el jpeg a bmp antes de asignarlo a tu componente.

[turminator]

Lo que me comentas tampoco me va. Investigando más, he descubierto que el ejemplo enlaza a otro archivo: ProEffectImage.pas En este archivo sale el codigo que se usa para los distintos efectos que hace el ejemplo y allí está el efecto Darkness con su codigo. Supongo que el problema esta en las primeras lineas del codigo, porque todas las demás son para hacer cada efecto.

unit ProEffectImage;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls,Math;
type
TProEffectImage = class(TImage)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
Procedure Effect_Invert;
Procedure Effect_AddColorNoise (Amount:Integer);
Procedure Effect_AddMonoNoise (Amount:Integer);
Procedure Effect_AntiAlias;
Procedure Effect_Contrast (Amount:Integer);
Procedure Effect_FishEye (Amount:Integer);
Procedure Effect_GrayScale;
Procedure Effect_Lightness (Amount:Integer);
Procedure Effect_Darkness (Amount:Integer);
Procedure Effect_Saturation (Amount:Integer);
Procedure Effect_SplitBlur (Amount:Integer);
Procedure Effect_GaussianBlur (Amount:Integer);
Procedure Effect_Mosaic (Size:Integer);
Procedure Effect_Twist (Amount:Integer);
procedure Effect_Splitlight (Amount:integer);
Procedure Effect_Tile (Amount: integer);
Procedure Effect_SpotLight (Amount: integer; Spot: TRect);
Procedure Effect_Trace (Amount: integer);
Procedure Effect_Emboss;
Procedure Effect_Solorize (Amount: integer);
Procedure Effect_Posterize (Amount: integer);

{ Published declarations }
end;
procedure Register;
implementation
{$R DATA.RES}
procedure Register;
begin
RegisterComponents('Samples', [TProEffectImage]);
end;

[...]

procedure Darkness(var src: tbitmap; Amount: integer);
var
p0bytearray;
r,g,b,x,y: Integer;
begin
src.pixelformat:=pf24bit;
for y:=0 to src.Height-1 do begin
p0:=src.scanline[y];
for x:=0 to src.Width-1 do
begin
r:=p0[x*3];
g:=p0[x*3+1];
b:=p0[x*3+2];
p0[x*3]:=IntToByte(r-((r)*Amount)div 255);
p0[x*3+1]:=IntToByte(g-((g)*Amount)div 255);
p0[x*3+2]:=IntToByte(b-((b)*Amount)div 255);
end;
end;
end;

[...]

//----------------------
//-------------------------
//----------------------

Procedure TProEffectImage.Effect_Darkness (Amount:Integer);
Var BB:TBitmap;
Begin
BB := TBitmap.Create;
BB.PixelFormat := pf24bit;
BB.Assign (Picture.Bitmap);
Darkness (BB,Amount);
Picture.Bitmap.Assign (BB);
BB.Free;
end;

Que deberia de cambiar para que me aceptara jpeg?

Gracias y siento ser tan pesado.

[Sick boy]

Primero, usar las etiquetas para codigo delphi. Si te fijas, el moderador ya te edito el primer mensaje.

Sino, solo te queda convertir el jpeg a bmp antes de asignarlo a tu componente.

Esto no te va?? por que??

El procedure Darkness(var src: tbitmap; Amount: integer); recibe un Tbitmap, asi que si le envias un bitmap funcionará sin problemas.

Que te acepte jpg me parece que va a ser imposible. Hay que trabajar un poco más, y convertir el jpg a bmp ANTES de asignarlo a tu componente.

Busca por el foro pasar de bmp a jpg, veras como encuentras lo que necesitas.

[yeison Cristman]

Tengo mi aplicacion para un colegio y quiero cargar la foto de cada estudiante tengo en mi tabla de sql llamada estudiante un campo llamado foto pero no se como hacer que se grabe la foto del estudiante. en mi formulario de delphi atraves del Query llame el campo foto y lo coloque en el formulario y le introduje el siguiente codigo. en el evento Onclik.

procedure TF_Estudiantes.DBImageClick(Sender: TObject);
begin
if OpenDialog_Estudiante.Execute then
begin
dbImage_Estudiante.Picture.LoadFromFile(OpenDialog_Estudiante.Filename);
Caption := OpenDialog_Estudiante.Filename;
end;

yo cargo la foto pero no se graba en la tabla de sql el campo foto es tipo image. donde esta el problema tengo poco tiempo por favor ayudeme alguien de foro.........!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!111

[turminator]

Hola de nuevo!

Despues de un tiempo de uso de delphi he vuelto a mirarme el tema que dejé sobre como hacer oscurecer un TImage.

He visto que este http://www.torry.net/vcl/graphics/ef...ffectimage.zip componente tiene el efecto de oscurecer y aclarecer (Darkness & Lightness). Lo que he pensado a sido en sacar ambos procedimientos e implementarlos en mi nuevo proyecto.

A la hora de hacerlo, ahora tengo los procedimientos pero no puedo seguir adelante. Alguien se le ocurre en qué debo fijarme?

Muchas gracias.

PD: Todo esto lo hago a raíz del codigo de seoane, que a pesar de serme muy util, a medida que lo uso me va perdiendo mucha calidad en la imagen, cosa que no pasa con proeffectimage.