Oscurecer y aclarecer pantalla

[[seoane]]

En este truco explico como cambiar el color y el brillo de una imagen, la misma funcion nos sirve para aumentar y disminuir el brillo. Pero hay que tener en cuenta, que al aumentar el brillo en algunos puntos la imagen puede saturarse o al oscurecerse quedarse totalmente negra. Asi que si repetimos el proceso de oscurecer - aclarar varias veces la imagen puede terminar degradandose un poco. Podria resultarte mejor cargar el original en un bitmap y dibujarlo con distintos valores de brillo, pero ya depende de lo que quieras hacer tu.

[turminator]

Mi intención era oscurecer y aclarecerla una vez solamente. El truco que he probado tuyo, me sal el siguiente error cuando compilo: Expected ':'but'=' found.

Que he echo mal?

[[seoane]]

¿En que linea te da ese error? parece que falta un ';' en algun sitio. Se debio de perder al copiar y pegar

[turminator]

El error me lo da a esta linea 11:10

Triple = array[1..3]of Byte;

Pero no le veo nada raro.

Será que debo de meter algo primero al form?

Muchas gracias.

[[seoane]]

No deberia de dar ningun error. Lo estas colocando debajo de un Type ??? es decir, lo estas colocando asi:

Código Delphi [-]
type
  Triple = array[1..3]of Byte;

[turminator]

Si lo pongo así y todo el codigo restante debajo de implementation.

[[seoane]]

Me rindo, a mi me compila bien, tanto el ejemplo que te deje en este hilo, como el que esta en la seccion de trucos. Asi que no se donde puede estar el problema, revisa que copiaras todo tal cual debajo de implementation. Y si sigue sin compilarte, a lo mejor alguien acierta con lo que te esta pasando

[[kuan-yiu]]

Empezado por turminator

El error me lo da a esta linea 11:10

Triple = array[1..3]of Byte;

Pero no le veo nada raro.

Será que debo de meter algo primero al form?

Muchas gracias.

¿Que pone exactamente en la línea anterior?

[turminator]

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
  Triple = array[1..3]of Byte;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
 // Realiza la operacion (b * x) / 256
function Multiplicar(b: Byte; x: Integer): byte;
begin
  x:= (x * b);
  x:= x shr 8;
  if x > 255 then Result:= 255
    else Result:= x;
end;
procedure OscurecerTImage(Imagen: TImage; Brillo: Integer);
var
  Bitmap: TBitmap;
  P: ^Triple;
  i, j: Integer;
begin
  // Si no es un bitmap, lo convertimos en un bitmap
  if not (Imagen.Picture.Graphic is TBitmap) then
  begin
    Bitmap:= TBitmap.Create;
    try
      Bitmap.Assign(Imagen.Picture.Graphic);
      Imagen.Picture.Assign(Bitmap);
    finally
      Bitmap.Free;
    end;
  end;
  Imagen.Picture.Bitmap.PixelFormat:= pf24bit;
  for j:= 0 to Imagen.Picture.Bitmap.Height - 1 do
  begin
    P:= Imagen.Picture.Bitmap.ScanLine[j];
    for i:= 0 to Imagen.Picture.Bitmap.Width - 1 do
    begin
      P^[1]:= Multiplicar(P^[1],Brillo);
      P^[2]:= Multiplicar(P^[2],Brillo);
      P^[3]:= Multiplicar(P^[3],Brillo);
      inc(P);
    end;
  end;
  Imagen.Refresh;
end;
{$R *.dfm}
end.

Eso es lo que he copiado. Cuando pongo el debugger me sale el mensage: Expected ':'but'=' found.

Tengo la version 7 de Delphi, por si influyese.

[[seoane]]

Ahora si:

Donde pones:

Código Delphi [-]
type
  TForm1 = class(TForm)
  Triple = array[1..3]of Byte;
  private

Deberias poner:

Código Delphi [-]
type
  Triple = array[1..3]of Byte;
  TForm1 = class(TForm)  
  private

Date cuenta de que private,public, etc ... forman parte de la declaracion de TForm1, no puedes declarar un tipo en el medio de la declaracion de una clase.