2 Farben auf einer Form mit weichen Übergängen

[Aurelius]

Wenn ich das Ganze so mache funktioniert es leider nicht...

Delphi-Quellcode:

procedure TfrmMain.chkbHorizontalClick(Sender: TObject);
begin
  if chkbHorizontal.Checked then
  begin
    chkbVertikal.Checked := FALSE;
    frmMain.Repaint;
    MyRepaint;
  end;
end;

procedure TfrmMain.chkbVertikalClick(Sender: TObject);
begin
  if chkbVertikal.Checked then
  begin
    chkbHorizontal.Checked := FALSE;
    frmMain.Repaint;
    MyRepaint;
  end;
end;