TLabel: Wieso verschindet der Text?

[teebee]

Also die Hintergrundfarbe ist nicht so das Problem:

Delphi-Quellcode:

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
 PaintBox1.Canvas.Brush.Color := clWhite;
 PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);
 PaintTxt;
end;

Die Sache mit der Scrollbar ist allerdings nicht so trivial, mal schauen, ob ich da noch was basteln kann...
Eine Scrollbar hatte ich gar nicht auf der Rechnung, weil Du mit einem Label experimentiert hattest, und das hat sowas ja nicht.

Naja, mal schauen.

[DGL-luke]

das ganze teil in ne scrollbox packen sollte doch ohne probleme ghehen, oder?

EDIT: man muss dann nur immer aktualisieren.

[teebee]

Mit etwas Frickelei geht es übrigens doch mit einer ScrollBox:
Eine Scrollbox aufs Form, darin ein Label mit Align := alBottom und AutoSize auf True. Das Label braucht kein spezielles Layout.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Txt := Txt+#13#10+Edit1.Text;
 Label1.Caption := Txt;
 ScrollBox1.VertScrollBar.Position := Label1.Height;
end;

Warum einfach, wenns auch kompliziert geht...
Farbe sowohl im Label als auch in der Scrollbox einstellen, fertig.

Gruß, teebee

[Pseudemys Nelsoni]

Wow,

vielen Dank für die Mühe

[Khabarakh]

Mist, alles umsonst . Nein, zum Glück doch nicht, denn ich möchte nicht wissen, wieviel Ressourcen die Paintbox verbraucht, wenn man etwas Text eingegeben hat, da sie ja immer den ganzen Text enthält. Bei meiner Version zeichne ich nur den benötigten Ausschnitt, außerdem auf ein Offscreenbitmap. Ich hoffe, ich kann dir damit helfen.

[teebee]

Die Paintbox enthält nicht den ganzen Text, Windows clippt automatisch, d.h. kein zusätzlicher Resourcenverbrauch. Aber mit Label+Scrollbox geht es ja eh besser.

Gruß, teebee

[Khabarakh]

Hups, ich habe gedacht, dein Vorschlag wäre für Paintbox + Scrollbox . Aber da das nächste Ziel wohl farbiger Hintergrund heißt, wird wohl eine Paintbox benötigt werden.