mam taki komponent:
TZestawKolorow = class(TComponent)
private
fstOK: TColor;
fstOstrzeznie: TColor;
fstAlarm: TColor;
fstError: TColor;
fstTimeout: TColor;
fGlowny1: TColor;
fGlowny2: TColor;
fGlowny3: TColor;
fGlowny4: TColor;
public
function StatusColor(status: TStatus): TColor;
procedure ZapiszKolory;
procedure WczytajKolory;
published
property stOK: TColor read fstOK write fstOK default clLime;
property stOstrzeznie: TColor read fstOstrzeznie write fstOstrzeznie default clLime;
property stAlarm: TColor read fstAlarm write fstAlarm default clLime;
property stError: TColor read fstError write fstError default clLime;
property stTimeout: TColor read fstTimeout write fstTimeout default clLime;
property Glowny1: TColor read fGlowny1 write fGlowny1 default clLime;
property Glowny2: TColor read fGlowny2 write fGlowny2 default clLime;
property Glowny3: TColor read fGlowny3 write fGlowny3 default clLime;
property Glowny4: TColor read fGlowny4 write fGlowny4 default clLime;
end;
No i pieknie sie instaluje i wszystko gra...
ALE
po dodaniu komponentu na formularz w OI wszystkie kolorki sa czarne
Spodziewalem sie ze dzieki slowu default uda sie ustawic na stale jakis kolor...