|
help !
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
|