Memo-Feld nach unten hin ausblenden

[Der schöne Günther]

Vorweg: VCL, nicht FireMonkey.

Der Benutzer kann, auf einem Kiosk-System, ein paar Zeilen eingeben. Ich möchte die ersten Zeilen als Vorschau anzeigen und beim Drauftippen soll er einen Dialog zum Eingeben bekommen. Es soll in etwa so aussehen:


Wie sollte man das am besten angehen?

1. Ein transparentes TWinControl mit diesem Farbverlauf über ein Memo legen
2. Den Text auf ein Bild rendern und einen Farbverlauf drübermalen
3. Etwas anderes?

Ich freue mich über viele schlaue Ideen

[TiGü]

Ich würde 2. versuchen!

[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;

[TiGü]

Manchmal geht's schneller als gedacht!
Wann hast du dir eigentlich angewöhnt, Destroy anstatt Free aufzurufen?

[Sir Rufo]

Zitat von TiGü:

Manchmal geht's schneller als gedacht!
Wann hast du dir eigentlich angewöhnt, Destroy anstatt Free aufzurufen?

Oder diese kreative try ... finally ... end Ersetzung durch try ... except ... raise; end

(Die vor allem nur dann greift, wenn es eine Exception gab)

Na gut, auf den zweiten Blick, kann man das schon so machen ... aber ob ich das so machen würde ...

[Der schöne Günther]

Zitat von TiGü:

Destroy anstatt Free aufzurufen?

In dem Block (nach Konstruktor) ist es doch eindeutig dass die Referenz nicht nil sein kann, deshalb kann man sich das sparen.

Zitat von Sir Rufo:

Na gut, auf den zweiten Blick, kann man das schon so machen

Ich glaube eher das sollte man so machen, denn meine schönen Tools will ich doch im Normalfall gar nicht zerstören. Nur im Fehlerfall, denn wer Fehler macht wird gnadenlos zerstört.

[Sir Rufo]

Zitat von Der schöne Günther:

Zitat von Sir Rufo:

Na gut, auf den zweiten Blick, kann man das schon so machen

Ich glaube eher das sollte man so machen, denn meine schönen Tools will ich doch im Normalfall gar nicht zerstören. Nur im Fehlerfall, denn wer Fehler macht wird gnadenlos zerstört.

Nun ja, dann solltest du aber keine dangeling pointer hinterlassen ... sonst hast du immer noch die A-Karte ...