34 respuestas en este tema

[Desart]

Hola Amigos es mi primer mensaje en esta web, aguno me conoceis del club, y os pido ayuda para ver si coneceis es el siguiente componente, creo que es un panel, pero no estoy seguro, s el de las pestañas verdes y rojas. Os dejo la imagen

http://s1.subirimage...950cappanel.jpg

Gracias y un saludo

[Caral]

Hola amigo Jose Luis
No conozco el componente pero tal vez si nos explicas mas podriamos ver si los maestros nos hacen algo similar.
Me alegra verte por aqui.
Saludos

[Desart]

Hola Caral encantado de charlar contigo, sobre el componente, creo que se trata de un panel, que nos permite tener borde y pestaña, la idea, es poder usarlo, para destacar partes del programa, lo vi en un programa de gestión medica y es muy impactante y apesar de tener muchos datos, gracias a este sistema, queda todo muy claro en sus apartados, incluso hay un apartado en que aparecen como carpetas con los expedientes por pacientes.

Repito la idea es que sea un panel un tab, etc, quede llamativo y me permita aclarar, opartes del programa de Formulación y R.D. que estoy preparando.

Un saludo desde Canarias

[Héctor Randolph]

Hola Desart

Hice un pequeño componente derivado de TPanel. Sobrescribí­ el método Paint para dibujar un borde de color y una pestaña con el Caption en la esquina superior izquierda.



Bueno, es solamente un ejemplo para que veas como se logra modificar la apariencia de un TPanel.

Te dejo los fuentes del componente.

Saludos

Archivos adjuntos

•  358_.zip   1,2KB   44 descargas

[Desart]

Muchas gracias Hector es perfecto para lo que Quiero.

[egostar]

Muy interesante amigo Hector, gracias por el aporte

Salud OS

[cHackAll]

Excelente Hector

Para qué usar componentes si podemos escribir nuestras propias clases!

[Rolphy Reyes]

Saludos.

También, si tienes mucho deseo de instalar componentes nuevos, tienes la opción de las JEDI y usar su PageControl que soporta colores en sus Tab's.

[Desart]

Hola Hector me gustarí­a, si lo permites hacerle algunas modificaciones al componente para poder usarlo.

[egostar]

Hola

He querido instalar este componente en mi Turbo Delphi pero no veo la opcion de Install Component que se tenia en otras versiones de Delphi, alguien sabe como hacer esto?

Salud OS

PD, es la versión de pago así­ que si puedo agregar componentes.

[Héctor Randolph]

Hola Hector me gustarí­a, si lo permites hacerle algunas modificaciones al componente para poder usarlo.

Claro que lo puedes modificar y utilizarlo . De hecho subí­ este ejemplo para mostrar que un panel puede cambiar su apariencia dibujando en el Canvas del Control. El resto depende de la imaginación y creatividad de cada uno.

Saludos

[egostar]

Hola

He querido instalar este componente en mi Turbo Delphi pero no veo la opcion de Install Component que se tenia en otras versiones de Delphi, alguien sabe como hacer esto?

Salud OS

PD, es la versión de pago así­ que si puedo agregar componentes.

Bueno, parece que era mi falta de cafeina, ya instale el componente , en las versiones nuevas de Delphi lo que se tiene que hacer es crear un paquete para poder instalar un componente.

• FILE ---> NEW ---> OTHER ---> PACKAGE
• Agregamos el código del componente
• En la sección Project Manager botón derecho del mouse sobre el paquete COMPILAR y después INSTALAR

Salud OS

[egostar]

Hola Hector me gustarí­a, si lo permites hacerle algunas modificaciones al componente para poder usarlo.

Claro que lo puedes modificar y utilizarlo . De hecho subí­ este ejemplo para mostrar que un panel puede cambiar su apariencia dibujando en el Canvas del Control. El resto depende de la imaginación y creatividad de cada uno.

Saludos

Y cuando lo termines, no olvides publicarlo

Salud OS

[Desart]

Sin problema se publicara

[Desart]

Lo prometido es deuda y aquí­ esta el componente, no se si el DCR esta correcto ya que no lo probé, pero el componente funciona yo creo que bien, se puede mejorar mucho, pero tiene bastantes opciones, agrego una demo para entenderlo mejor.

Me gustari apediros ahora si podeis explicarme como agrupar propiedades en eun componente sin editor de propiedades, es decir que todas las propiedades Shadow, esten en un grupo (simbolo +). Otro tema es como poder entrar en subpropiedades, es el caso del MAinmenu tiene una serie de propiedades y luego cada elemento del menu tiene otra serie de propiedades, me gustaria saber como crear nuevas sub propiedades y sobreescribir propiedades.

Probarlo, seguro que habrá  cosas que rectificar, ya comentareis

Archivos adjuntos

•  381_.zip   275,98KB   54 descargas

[egostar]

Hola amigo Desart,

Muchas gracias por el aporte, ya ejecute el demo que colocas y se ve muy bien, tiene muchos detalles muy interesantes, estoy seguro que nuestros maestros hacedores de componentes nos van a dar la respuesta a tu pregunta.

Salud OS

[Caral]

Hola
Gracias amigo por el regalo, lo veré y tratare de entenderlo.
Saludos

[JandoK]

orales  !!!!

se ve muy bueno ese componente...  muy interesante ...

algun dia  intentare hacer un componente 

mientras tanto, hacer uso de los que los compañeros publican ... 

salu2!!!!!!!

[Héctor Randolph]

Me gustari apediros ahora si podeis explicarme como agrupar propiedades en eun componente sin editor de propiedades, es decir que todas las propiedades Shadow, esten en un grupo (simbolo +). Otro tema es como poder entrar en subpropiedades

Hola Desart, creo que te refieres a esto:



Bueno, para esto debemos utilizar los editores de propiedades que brinda el IDE de Delphi. En principio suena algo complicado pero no lo es tanto.

A continuación voy a colocar cada uno de los pasos necesarios para lograr editar subpropiedades en un componente.

Primer paso, debes añadir en los uses las siguientes unidades:

delphi

   DesignEditors, DesignIntf;

Luego debes crear una clase de la cual deseas mostrar las subpropiedades, en este ejemplo simplemente heredo de la clase TPersisient para agrupar las propiedades de la sombra:

delphi

  TLapelShadow = class(TPersistent)
  private
    FColor: TColor;
    FVisible: Boolean;
    FDirection: TShadowDir;
    FSize: TShadowSize;
    procedure SetColor(const Value: TColor);
    published
      property Visible:Boolean read FVisible write FVisible;
      property Direction:TShadowDir read FDirection write FDirection;
      property Size: TShadowSize read FSize write FSize;
      property Color: TColor read FColor write SetColor;
  end;

Las propiedades que he puesto como published serán las que aparezcan en el inspector de objetos y a su vez el IDE buscará el editor de propiedades adecuado para cada propiedad publicada. (i)

EL siguiente paso es añadir esta clase como una propiedad de nuestro componente y lo publicamos:

delphi

  TLapelPanel = class(TPanel)
  private
    FLapelShadow: TLapelShadow;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy(); override;
  published
       property Shadow: TLapelShadow read FLapelShadow write FLapelShadow;
  end;
 
constructor TLapelPanel.Create(AOwner: TComponent);
begin
  inherited;
  FLapelShadow:=TLapelShadow.Create;
end;
 
destructor TLapelPanel.Destroy;
begin
  FLapelShadow.Free;
  inherited Destroy;
end;

Hasta el momento tenemos una nueva propiedad publicada en nuestro componente, sin embargo, esta propiedad es una clase del tipo TLapelShadow y el editor no sabrá cómo tratarla. El IDE tiene editores para tipos de datos conocidos, por ejemplo, sabe como tratar con TStringList, Strings, Integer, Boolean, TPicture, TColor, etc.

Apesar de que el IDE no reconocerá la nueva propiedad, tenemos la posibilidad de crear un editor de propiedades para para nuestra clase TLapelShadow (Por eso Delphi es una maravilla ). Para no entrar en muchos detalles y para los fines de este ejemplo basta con saber que existen diferentes tipos de editores de propiedades y el que a nosotros nos servirá se llama TClassProperty.

Necesitamos crear un editor heredando de esta clase y para hacerlo simple solamente vamos a sobrescribir la función GetAttributes:

delphi

TLapelShadowProperty = class(TClassProperty)
  public
    function GetAttributes : TPropertyAttributes; override;
  end;

Ahora colocamos el siguiente código en la función GetAttributes:

delphi

{ TLapelShadowProperty }
 
function TLapelShadowProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paReadOnly, paSubProperties];
end;

Le estamos indicando al IDE que nuestro editor nos deberá permitir ver las subpropiedades de la clase TLapelShadow. Es decir, tomará las propiedades publicadas de nuestra clase y las colocará identadas en el inspector de objetos.

EL paso final es registrar nuestro editor de propiedades para que al instalar el componente el IDE lo reconozca. para esto utilizamos el procedimiento register

delphi

procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(TLapelShadow),nil, '', TLapelShadowProperty);
  RegisterComponents('Samples', [TLapelPanel]);
end;

La instrucción RegisterPropertyEditor en su primer parámetro recibe el nombre de la propiedad para la cual estamos registrando el editor, en este caso TLapelShadow. El segundo parámetro se refiere al componente que contendrá la propiedad, si se enví­a nulo, entonces el editor se mostrará independientemente del componente que lo contenga. El tercer parámetro es el nombre de la propiedad, se deja como cadena vací­a para que pueda tomar distintos nombres en distintos componentes. El cuarto parámetro es el nombre de nuestro editor de propiedades, en este caso TLapelShadowProperty.

Solamente resta compilar e instalar nuestro componente. Para comprobar que todo funciona colocamos una instancia de nuestro componente y vamos a inspector de objetos para ver los resultados.

Bueno, quedo algo extensa la explicación pero espero que sea de utilidad.

Saludos

[Desart]

HEctor  probaré en los siguientes componentes, lo que has expuesto, Siento abusar, pero sabes como se puede crear subpropiedades de un menú, que es el caso que me interesa. Que te ha parecido el componente.

Un saludo desde Canarias