Komponente: noch grün hinter den Ohren

[SvenLittkowski]

Vielen Dank, Thomas. Ich habe nun diese Stelle des Codes so modifiziert:

Delphi-Quellcode:

...
    published
      property Color1_Original:       TColor read FColor1_Original       write SetColor1_Original       stored true default $00000000;
      property Color2_Added:          TColor read FColor2_Added          write SetColor2_Added          stored true default $00FFFFFF;
      property MixStrengthPercentage: Byte   read FMixStrengthPercentage write SetMixStrengthPercentage stored true default 50;
      property Color3_Result:         TColor read FColor3_Result                                        default $00888888;
    end;

  procedure Register;

//{$R ColorMixer.res}
//{$R ColorMixer.dcr}

implementation

  constructor TColorMixer.Create(AOwner: TComponent);
  var Filename, s: String;
  begin
   inherited Create(AOwner);
   FColor1_Original:=$00000000;
   FColor2_Added:=$00FFFFFF;
   FMixStrengthPercentage:=50;
//   Color3_Result:=$00888888;

   if  not (csDesigning in ComponentState) then
   begin
    if (Filename='')or(Filename='.') then
    begin
     s:=Application.ExeName;
     Filename:=ChangeFileExt(s,'.ini');
    end;
   end;
  end;

Nun gibt es zumindest keinen vorzeitigen Abbruch von Delphi wegen STACK OVERFLOW, wenn ich die Komponente auf das Formular ziehe. Aber irgendwo steckt noch immer ein Fehler, denn nun bekomme ich Besuch vom STACK OVERFLOW, sobald ich eine Farbe im Objekt Inspektor verändere. Ich meine, daß dies wahrscheinlich irgendwo bei den PUBLISHED Feldern liegt, muß ich dort auch noch etwas ändern?

Sobald ich diese Komponente zum Laufen gebracht habe, werde ich andere Komponenten viel besser entwickeln können, ohne all meine vielen Fragen.

Vielen Dank an Euch alle für all die Zeit und Mühe. Ich schätze Eure Unterstützung sehr.