Farbverlauf in Verbindung mit TLabel und/oder TBevel

[Bummi]

wie satty67 meinte

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
  begin
  invalidate;
//    Farbverlauf(Self);
//    Self.Repaint;
//    Application.ProcessMessages;
    end;