Text auf einer Form löschen?

[smart]

Hallo!

Wie kann ich Text den ich auf einer Form mit
Form1.Canvas.TextOut(0, 200, 'Test'); geschrieben habe, löschen. Aber nicht mit Repaint.

Gruß
Heike

[Neutral General]

Delphi-Quellcode:

Form1.Canvas.Brush.Color := Form1.Color;
Form1.Canvas.Rectangle(-1, 199,Canvas.TextWidth('Test') + 0 + 1, Canvas.TextHeight('Test') + 200 + 1);

Da bin ich wieder

Gruß
Neutral General

[SirThornberry]

oder den Text einfach nochmal mit der gleichen Farbe hinmalen. Aber das wäre alles kein löschen. Löschen geht nur in dem du den Bereich zum neuzeischnen kennzeichnest mit Repaint oder invalidate (was du ja aber aus irgend einem Grund nicht willst)

[Neutral General]

Das Problem beim nochmal hinmalen ist das wenn der zweite Text den man drüber malt kürzer ist als der erste dann bleibt der rest vom ersten noch stehn.. Falls du verstehst was ich meine^^

[smart]

Zitat von Neutral General:

Delphi-Quellcode:

Form1.Canvas.Brush.Color := Form1.Color;
Form1.Canvas.Rectangle(-1, 199,Canvas.TextWidth('Test') + 0 + 1, Canvas.TextHeight('Test') + 200 + 1);

Da bin ich wieder

Gruß
Neutral General

Hi Michael.

Im Prinzip eine gute Idee, aber da habe ich dann so ein dummen schwarzen Rahmen.

Gruß
Heike

[Sunlight7]

Hallo Heike!

Canvas.Pen.Style:=psClear; Sollte da helfen, wenn ich es richtig verstanden habe.

[smart]

Hallo!

Ich habe es jetzt so hinbekommen.

Delphi-Quellcode:

Form1.Canvas.Brush.Color := Form1.Color;
Form1.Canvas.TextOut(0, 200, '    ');

Es sind keine Leerzeichen, sondern [Alt] + 255.

Gruß
Heike

[Sunlight7]

Doch nicht richtig verstanden

[SirThornberry]

Zitat von Neutral General:

Das Problem beim nochmal hinmalen ist das wenn der zweite Text den man drüber malt kürzer ist als der erste dann bleibt der rest vom ersten noch stehn.. Falls du verstehst was ich meine^^

Ich meinte eigentlich den gleichen Text nochmal hinschreiben nur eben mit der Farbe des Forms. Dadurch wird der originaltext 1 zu 1 übermalt.