Thema: Delphi Tcomponent descendant

Einzelnen Beitrag anzeigen

nebukadnezzar

Registriert seit: 18. Dez 2002
38 Beiträge
 
Delphi 6 Personal
 
#1

Tcomponent descendant

  Alt 29. Jan 2003, 14:20
Also ich hab ne Klasse von TComponent Abgeleitet.
Diese Klasse soll als "Einstellungs interface" zur Designtime dienen.
Daher besteht es eigentlich nur aus Properties (vorwiegend TColor).

Das Problem:
ich habe ungefähr 10 Tcolor Prpoerties nur merkt der sich da nicht die Farben und zeigt ClBlack an - auch wenn ich andere ind die *.dfm per hand reinschreibe.
Nach soeicher und laden sind im Objekt inspektor ebenfalls alle farben weg - das ist aber nur bei farben - bei den 2-3 anderen Properties tritt das problem nicht auf!

Die properties sehen ungefähr so aus:
Delphi-Quellcode:
type myclass=class(tcomponent)
 private
   F1,F2,F3,F4:Tcolor
 published
   property Farbe1:Tcolor read F1 write F1 default clgreen;
   property Farbe2:Tcolor read F2 write F2 default clred;
   property Farbe3:Tcolor read F3 write F3 default clyellow;
   property Farbe4:Tcolor read F4 write F4 default $b0b0b0b;
end;
(nur ein auszug)
  Mit Zitat antworten Zitat