cambiar diseño de filelistbox

[Jorghino reyes]

siguiendo con esto

creo un componente como lo explico previamente, y lo guardo como
colorFileListBox.pas que contiene lo siguiente:


unit colorFileListBox;
interface
uses
SysUtils, Classes;
type
TcolorFileListBox1 = class(TFileListBox)
private
{ Private declarations }
protected
procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState); override;
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;

implementation

procedure TBicolorFileListBox.DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
if odSelected in State then
Canvas.Brush.Color := clGray // color para la selección
else if Odd(Index) then
Canvas.Brush.Color := clRed // color para ítems impares
else
Canvas.Brush.Color := clYellow; // color para ítems pares
inherited;
end;

procedure Register;
begin
RegisterComponents('Samples', [TcolorFileListBox1]);
end;
end.

------------
segun me indicaron.
luego creo un "new package" le digo "add " selecciono la unit.pas
y posteriormente le digo instalar, pero me manda error en Tfilelistbox que no esta declarado.

que estoy haciendo mal?, ando muy perdido?

saludos

[vtdeleon]

Saludos

Jorghino reyes , el post 7 de este hilo lo habia modificado para agregar las etiquetas pertinentes a tu codigo, para hacerlo mas legible. Creí que si le dabas una miradita a tu propio mensaje, y percatandote del cambio que este tiene, habrias captado el mensaje.

Aun asi te invito a leer: (Not) Guía de Estilo, Etiquetas vB:=Delphi-SQL
Muy interesantes

[Jorghino reyes]

Una disculpa, en lo sucesivo asi lo haré.

[roman]

Empezado por Jorghino reyes

pero me manda error en Tfilelistbox que no esta declarado.

que estoy haciendo mal?, ando muy perdido?

No. No andas muy perdido, sólo un poco despistado. Siempre que Delphi te marque un error de esos al compilar es por que no encuentra el identificador que te indica en el mensaje. Recuerda que Delphi sólo puede compilar lo que ve en el archivo actual y lo que esté en los archivos listados en la cláusula uses.

Debes entonces agregar al uses la unidad donde se declare TFileListBox. ¿Que cómo sabes cuál es ésta? Muy fácil, pasa el cursor del ratón sobre el icono de la componente en la paleta de componentes y el hint amarillo te dirá el nombre de la unidad. ¿Que porqué antes no fue necesario? Porque Delphi, cuando insertas una componente al un formulario, automáticamente agreaga la unidad.

// Saludos

[Jorghino reyes]

Parece que ya lo logre. gracias.

Por último, exsite alguna manera de que en determinado momento ( un click de boton) el color de la seleccion cambie por 2 segundos ?

ya sea útilizando la clase derivada o la sobrepuesta,

gracias