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.