2 Farben auf einer Form mit weichen Übergängen

[Aurelius]

So, ich hab nochmal eine Frage zum Thema. Ich würde gerne per Befehl zur LAufzeit diesen Übergang schaffen.

Delphi-Quellcode:

procedure TfrmMain.FormPaint(Sender: TObject);
begin
 DrawGradientH(Canvas, clGreen, clTeal, Rect(0, 0, Width, Height));
end;

procedure TfrmMain.chkbHorizontalClick(Sender: TObject); //horizontaler Übergang
begin
  if chkbHorizontal.Checked then
  begin
    chkbVertikal.Checked := FALSE;
    DrawGradientH(Canvas, clbColor1.Selected, clbColor2.Selected, Rect(0, 0, Width, Height));
  end;
end;

procedure TfrmMain.chkbVertikalClick(Sender: TObject); //vertikaler Übergang
begin
  if chkbVertikal.Checked then
  begin
    chkbHorizontal.Checked := FALSE;
    DrawGradientV(Canvas, clbColor1.Selected, clbColor2.Selected, Rect(0, 0, Width, Height))
  end;
end;

Ich nutze ein XPManifest, dh. die ganzen Felder wie eine Combobox werden auch nach diesem Design gefärbt. Wenn ich das Ganze jetzt aber zur Laufzeit per Checkboxen ändere wird die Form richtig gefärbt, aber alle anderen Felder wie die Combobox bleiben in der ursprünglichen Farbe.

Kann man das irgendwie ändern so dass alles richtig gefärbt wird?