Memo-Feld nach unten hin ausblenden

[Der schöne Günther]

Ich glaube es war doch einfacher als gedacht, ich habe einfach den TeeChart zweckentfremdet

So ungefähr:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
   gradient: TTeeGradient;
begin
   textRectangle.Free();
   gradientRectangle.Free();

   textRectangle := TRectangleTool.Create(Chart1);
   try
      textRectangle.ParentChart := Chart1;

      textRectangle.Text := Memo1.Lines.Text;
      textRectangle.Bounds := textRectangle.ParentChart.ClientRect;
      textRectangle.Shape.Transparency := 0;

      Chart1.Tools.Add(textRectangle);
   except
      textRectangle.Destroy(); raise;
   end;

   gradientRectangle := TRectangleTool.Create(Chart1);
   try
      gradientRectangle.ParentChart := Chart1;
      gradientRectangle.Bounds := gradientRectangle.ParentChart.ClientRect;

      gradient := gradientRectangle.Shape.Gradient;
      gradient.Direction := TGradientDirection.gdBottomTop;
      gradient.Colors.Clear();
      gradient.Colors.Add(0.0, TColors.White, 75);
      gradient.Colors.Add(100.0, TColors.White, 0);
      gradient.Visible := True;

      gradientRectangle.Shape.Transparency := 00;

      Chart1.Tools.Add(gradientRectangle);
   except
      gradientRectangle.Destroy(); raise;
   end;
end;