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

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