Componente que hay que activar en ejecucion, aunque se ve en fase diseño?

[[José Luis Garcí]]

Estoy trabajando en unos nuevos componentes, para el club y tengo el siguiente problema, en fase de diseño, el componente (no visual) cuando se incorpora al form hace lo que esperaba, ene el resto de los controles, pero no muestra cambios en los que se añada despues, ademas, cuando se ejecuta, desaparece el efecto del componente, y hay que volver a tocar alguna de las propiedades, para que vueva a funcionar.

[[maeyanes]]

Checa en la ayuda de Delphi por el método Notification de la clase TComponent...

Y ya de paso, también checa sobre el método Loaded...



Saludos...

[[José Luis Garcí]]

Gracias por la informacion Maeyanes, lo he intentado, pero sigo sin saber por que falla, es mas ahorame da un error de Access Violation al probar la demo, pongo el código completo del componente, para saber si me echan una mano.

Código Delphi [-]
unit UCCDShadow;

interface

uses
  Windows, Messages, SysUtils, Controls, ComCtrls,Classes, Forms, QGraphics, Graphics;

type
  TCCDShadow = class(TComponent)
  private
    { Private declarations }
  FDeph : Integer;
  FColor: Tcolor;
  ParentForm: TForm;
  protected
  { Protected declarations }
    procedure ShadowDraw;
    procedure Setdeph(value : Integer);
    procedure Setcolor(Value: TColor);
    //procedure Loaded; virtual;
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     
  public
    { Public declarations }
    constructor Create(aOwner: TComponent); override;
    destructor Destroy(); override;
  published
    { Published declarations }
    property Deph: Integer read FDeph write SetDeph default 3;
    property Color: Tcolor read FColor write SetColor default clAqua;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('CLub Delphi', [TCCDShadow]);
end;
constructor TCCDShadow.Create(aOwner: TComponent);
begin
    inherited Create(aOwner);
    ParentForm:=TForm(AOwner);
    Fcolor:=clAqua;
    Fdeph:=3;
    ShadowDraw;
end;

destructor TCCDShadow.Destroy();
begin
   inherited Destroy();
end;

Procedure TCCDShadow.SetColor(value : TColor);
begin
  if (FColor <> value) then FColor:= value;
  ShadowDraw;
end;

procedure TCCDShadow.SetDeph(value : Integer);
begin
  if (Fdeph <> value) then FDeph:= value;
  ShadowDraw;
end;

procedure TCCDShadow.ShadowDraw;
var
I: Integer;
rect: TRect;
old: TColor;
Component : TComponent;
begin
      ParentForm.Repaint;
      for I:= 0 to ParentForm.ControlCount -1 do
      begin
        with ParentForm do
        begin
          Component:=Components[i];
          if Component is TControl then
          begin
             rect := Controls[i].BoundsRect;
             canvas.fillrect(rect);
             rect.Left := rect.Left + FDeph;
             rect.Top := rect.Top + FDeph;
             rect.Right := rect.Right + FDeph;
         rect.Bottom := rect.Bottom + FDeph;
             old := Canvas.brush.color;
             canvas.brush.Color :=  Fcolor;
             canvas.fillrect(rect);

             canvas.brush.Color := old;
             Controls[i].Repaint
          end;
        end;
      end;
end;
procedure TCCDShadow.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited Notification(AComponent,Operation);
  if (Operation = opinsert) and (AComponent is TCCDShadow) then  ShadowDraw;
  TCCDShadow(AComponent).ShadowDraw;
 end;

end.

[[maeyanes]]

Hola...

Prueba este código y me dices que tal...

Código Delphi [-]
unit UCCDShadow;

interface

uses
  Windows, Messages, SysUtils, Controls, ComCtrls,Classes, Forms, Graphics;

type
  TCCDShadow = class(TComponent)
  private
    { Private declarations }
    FActive: Boolean;
    FDeph: Integer;
    FColor: Tcolor;
    ParentForm: TForm;
    procedure SetActive(Value: Boolean);
    procedure Setdeph(value : Integer);
    procedure Setcolor(Value: TColor);
  protected
    { Protected declarations }
    procedure ShadowDraw;
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
    property Active: Boolean read FActive write SetActive default True;
    property Deph: Integer read FDeph write SetDeph default 3;
    property Color: Tcolor read FColor write SetColor default clAqua;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('CLub Delphi', [TCCDShadow]);
end;

constructor TCCDShadow.Create(AOwner: TComponent);
var
  I: Integer;
begin
  if not (AOwner is TForm) then
    raise Exception.Create('The owner must be a Form');
  ParentForm := TForm(AOwmer);
  for I := 0 to Pred(ParentForm.ComponentCount) do
    if ParentForm.Components[i] is TCCDShadow then
      raise Exception.Create('Only one TCCDShadow can exist in a Form');
  inherited Create(AOwner);
  Fcolor := clAqua;
  Fdeph := 3;
  FActive := True;
  ShadowDraw
end;

procedure TCCDShadow.SetActive(Value: Boolean);
begin
  if FActive <> Value then
  begin
    FActive := Value;
    ShadowDraw
  end
end;

Procedure TCCDShadow.SetColor(value : TColor);
begin
  if (FColor <> value) then
  begin
    FColor:= value;
    ShadowDraw
  end
end;

procedure TCCDShadow.SetDeph(value : Integer);
begin
  if (Fdeph <> value) then
  begin
    FDeph:= value;
    ShadowDraw
  end
end;

procedure TCCDShadow.ShadowDraw;
var
  I: Integer;
  rect: TRect;
  old: TColor;
  Component : TComponent;

begin
  if not FActive then
    Exit;
  ParentForm.Repaint;
  for I := 0 to ParentForm.ControlCount -1 do
    with ParentForm do
    begin
      Component:=Components[i];
      if Component is TControl then
      begin
       rect := Controls[i].BoundsRect;
       canvas.fillrect(rect);
       rect.Left := rect.Left + FDeph;
       rect.Top := rect.Top + FDeph;
       rect.Right := rect.Right + FDeph;
       rect.Bottom := rect.Bottom + FDeph;
       old := Canvas.brush.color;
       canvas.brush.Color :=  Fcolor;
       canvas.fillrect(rect);
       canvas.brush.Color := old;
       Controls[i].Repaint
      end
    end
end;

procedure TCCDShadow.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited Notification(AComponent,Operation);
  { Cada que agregamos un control o eliminamos un control de la forma,
    redibujamos las sombras }
  ShadowDraw;
end;

end.

Si te fijas, le agregué una propiedad llamada Active para especificar si quieres dibujar o no las sombras...

También, cada que eliminas o agregas un control en la forma, el componente redibuja las sombras...

Otro cambio que tiene es que si el owner del componente no es una forma, te salta un error y también solo puede existir un componente del tipo TCCDShadow en la forma.


Saludos...

[[José Luis Garcí]]

Maeyanes no e podido probar el codigo ya que me da un error en la linea

Código Delphi [-]
ParentForm := TForm(AOwmer);

ÇPero por lo que veo y lo que me comentas supongo tengas razón, perdona que tarde entre respuesta y respuesta pero es que donde programo no tiene enlace a internet. Gracias mil de todas manaeras por tu ayuda

[[maeyanes]]

Cual es el error que te da?


Saludos...

[[basti]]

No deberías llamar al procedimiento ShadowDraw desde el Create, es posible que no se hayan cargado todos los controles en el formulario, por eso no te muestra los cambios al ejecutar hasta que cambias una propiedad y vuelves a llamar a ShadowDraw. Además es posible que el error de Access Violation venga también de ahí.

Prueba a sobreescribir el procedimiento Loaded, que se ejecuta una vez se ha cargado el form.

Código Delphi [-]
  protected
    { Protected declarations }
    procedure Loaded; override;
.
.
.
  procedure TCCDShadow.Loaded;
  begin
     ShadowDraw;
  end;

[[maeyanes]]

Hola...

Empezado por basti

No deberías llamar al procedimiento ShadowDraw desde el Create, es posible que no se hayan cargado todos los controles en el formulario, por eso no te muestra los cambios al ejecutar hasta que cambias una propiedad y vuelves a llamar a ShadowDraw. Además es posible que el error de Access Violation venga también de ahí.

Prueba a sobreescribir el procedimiento Loaded, que se ejecuta una vez se ha cargado el form.

Solo una pequeña corrección...

Código Delphi [-]
  protected
    { Protected declarations }
    procedure Loaded; override;
.
.
.
  procedure TCCDShadow.Loaded;
  begin
    inherited;
    ShadowDraw;
  end;

[[basti]]

Empezado por maeyanes

Solo una pequeña corrección...

Pequeña no, enorme...

[[Al González]]

¡Hola!

Agregaría que un método virtual redefinido que todo lo que hace es llamar a su versión heredada, es innecesario, como es el caso del destructor:

Código Delphi [-]
destructor TCCDShadow.Destroy();
begin
   inherited Destroy();
end;

Por otra parte, en el constructor, la sentencia

Código Delphi [-]
ParentForm:=TForm(AOwner);

asume que el parámetro AOwner es una forma (lo cual está bien para la mayoría de los casos, donde el objeto es agregado a una forma en tiempo de diseño), pero ¿qué tal si el objeto es instanciado en tiempo de ejecución enviándole como parámetro otro tipo de dueño, incluso un Nil? O bien, el objeto es insertado en tiempo de diseño en un módulo de datos.

Concuerdo en que no debe realizarse una operación de dibujo / despliegue desde el constructor. Es prematuro. Loaded se ejecuta cuando ya toda la forma y sus componentes han sido cargados y están listos para la acción (aunque tomando en cuenta que aún no están visibles).

Un abrazo compuesto.

Al González.

[[maeyanes]]

Lo del destructor Destroy se lo eliminé del código de ejemplo que le puse. Sobre el Loaded, lo pensé pero por alguna razón no lo puse xDDDD


Saludos...

[[José Luis Garcí]]

Siento la tardanza en responder, pero acabo de llegar a casa, vamos por parte Maeyes el error que me da, es

Código Delphi [-]
Undeclared identifier AOwner

en tiempo de compilación.

Voy a probar los cambios propuestos y notifico en lo que quede.

[[José Luis Garcí]]

Probado de nuevo, cmabiando la parte

Código Delphi [-]
ParentForm:=TForm(AOwner);

que me sigue dando el mismo error
por

Código Delphi [-]
ParentForm:=TForm(nil);

que es lo que entendi, que comentaba Al González, (disculpas si lo entendi mal), logro que se compile, pero la demo ya creada da un error de acces y si creo una nueva, cuando intento aportar el componente, no se arrastra hasta el formulario.

[[maeyanes]]

Ya vi cual es el error xDDDD

En donde dice:

Código Delphi [-]
ParentForm := TForm(AOwmer;

debe decir:

Código Delphi [-]
ParentForm := TForm(AOwner;

Si te fijas, puse una m en lugar de una n...


Saludos...

[[José Luis Garcí]]

Me di cuenta hace unos minutos y lo corregi, pero sigue pasando que , no se ve hasta que tocas alguna propiedad del componente, ni en diseño, ni en ejecucion, y ene ejecucion cuando sales da un error de

Exeption EAccessViolation in module demo,

Te agradesco la ayuda, ya que cada vez me doy más cuenta de que esta camisa me parece ir muy grande aún, pero no me gusta dejar as cosas amedias y nose si sera un componente, util, curioso, y vistoso, pero me gustaria terminarlo, ya que es base de aprendizaje, para otros que tengo en mente. Hace años que no programaba, y no megustaria dejarlo de nuevo, aunque he de confesar una cosa sigo acordando más de mis años de Dbase, Clipper y el poquito de turbo C.

[[maeyanes]]

Agregaste el método Loaded al componente?

[[José Luis Garcí]]

Si, te mado de nuevo el código completo, para ver si vez el fallo

Código Delphi [-]
unit UCCDShadow;

interface

uses
  Windows, Messages, SysUtils, Controls, ComCtrls,Classes, Forms, Graphics;

type
  TCCDShadow = class(TComponent)
  private
    { Private declarations }
    FActive: Boolean;
    FDeph: Integer;
    FColor: Tcolor;
    ParentForm: TForm;
    procedure SetActive(Value: Boolean);
    procedure Setdeph(value : Integer);
    procedure Setcolor(Value: TColor);
  protected
    { Protected declarations }
    procedure ShadowDraw;
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
    procedure loaded; override;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
    property Active: Boolean read FActive write SetActive default True;
    property Deph: Integer read FDeph write SetDeph default 3;
    property Color: Tcolor read FColor write SetColor default clAqua;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('CLub Delphi', [TCCDShadow]);
end;

constructor TCCDShadow.Create(AOwner: TComponent);
var
  I: Integer;
begin
  if not (AOwner is TForm) then
    raise Exception.Create('The owner must be a Form');
  ParentForm := TForm(AOwner);
  for I := 0 to Pred(ParentForm.ComponentCount) do
    if ParentForm.Components[i] is TCCDShadow then
      raise Exception.Create('Only one TCCDShadow can exist in a Form');
  inherited Create(AOwner);
  Fcolor := clAqua;
  Fdeph := 3;
  FActive := True;
end;

procedure TCCDShadow.SetActive(Value: Boolean);
begin
  if FActive <> Value then
  begin
    FActive := Value;
    ShadowDraw
  end
end;

Procedure TCCDShadow.SetColor(value : TColor);
begin
  if (FColor <> value) then
  begin
    FColor:= value;
    ShadowDraw
  end
end;

procedure TCCDShadow.SetDeph(value : Integer);
begin
  if (Fdeph <> value) then
  begin
    FDeph:= value;
    ShadowDraw
  end
end;

procedure TCCDShadow.ShadowDraw;
var
  I: Integer;
  rect: TRect;
  old: TColor;
  Component : TComponent;

begin
  if not FActive then
    Exit;
  ParentForm.Repaint;
  for I := 0 to ParentForm.ControlCount -1 do
    with ParentForm do
    begin
      Component:=Components[i];
      if Component is TControl then
      begin
       rect := Controls[i].BoundsRect;
       canvas.fillrect(rect);
       rect.Left := rect.Left + FDeph;
       rect.Top := rect.Top + FDeph;
       rect.Right := rect.Right + FDeph;
       rect.Bottom := rect.Bottom + FDeph;
       old := Canvas.brush.color;
       canvas.brush.Color :=  Fcolor;
       canvas.fillrect(rect);
       canvas.brush.Color := old;
       Controls[i].Repaint
      end
    end
end;

procedure TCCDShadow.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited Notification(AComponent,Operation);
  { Cada que agregamos un control o eliminamos un control de la forma,
    redibujamos las sombras }
  ShadowDraw;
end;

procedure TCCDshadow.loaded;
begin
  inherited;
  ShadowDraw;
end;

end.

[[maeyanes]]

A ver, cambia el cuerpo de Notification de esta forma:

Código Delphi [-]
procedure TCCDShadow.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited Notification(AComponent,Operation);
  { Cada que agregamos un control o eliminamos un control de la forma,
    redibujamos las sombras }
  if not (csLoading in ParentForm.ComponentState) or not (csDestroying in ParentForm.ComponentState) then
    ShadowDraw;
end;

Lo que haces ahí es que si la forma se está cargando o destruyendo, no se deben dibujar las sombras...

Saludos...

[[José Luis Garcí]]

Continua fallando, al ejecutarse, no se ve, y sigue dando el fallo al salir, unas preguntas, lo has probado?, te da fallo como ami?, que te parece?, ten encuenta que le falta, aun una propiedad boolean, para dar un borde a los controles, y el color para este nuevo borde, siento estar molestando, pero agradezco la ayuda prestada.

[[maeyanes]]

Acabo de crear una pequeña aplicación para probar... y creo que ya se cual es tu problema...

Tu componente solo dibuja las sombras, pero si la ventana se redibuja, las sombras ya no lo hacen, así que estas desaparecen...

Ahora, sería cosa de capturar el mensaje WM_PAINT para que tu componente redibuje las sombras cada vez que reciba ese mensaje...


Saludos...