Sonderbares Verhalten bei TFontDialog

[Popov]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Font.Color := $00404000;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FontDialog1.Font.Assign(Label1.Font);

  if FontDialog1.Execute then
  //Hir wird im FontDialog1 die Farbe Schwarz angezeigt
  begin
    Self.Color := FontDialog1.Font.Color;
  end;
end;

Die Farbe die ich übergebe ist ein dunkles Teal, aber das Dialogfenster TFontDialog zeigt Schwarz als Schriftfarbe an. Drücke ich ok, übergibt er wieder die Teal als Farbe.

[Popov]

Ok, jetzt habe ich zwei Stunden damit verbracht den Fehler in Quellcode zu suchen, und dann schriebt man das Problem auf und eine Minute späte fällt einem der Grund auf.

Im Code ist kein Fehler, TFontDialog kann die Farbe in der Farbbox nicht anzeigen, also zeigt er schwarz obwohl es kein schwarz ist. Auf das muss man erst kommen.