Oscurecer y aclarecer pantalla

[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.

[turminator]

Ok. Muchas gracias. Ahora ya me funciona perfectamente. Ahora voy a probar el truco que publicastes para aclarar una imagen. Gracias