Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by turboPASCAL,
25. Feb 2006
Mach bitte dazu einen neuen Thread auf.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by turboPASCAL,
24. Feb 2006
Auch das geht:
procedure ...
begin
cp := RE.CaretPos;
RE.Selstart := 0;
RE.Sellength := //...
RE.SelAttributes.color := clRed;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by turboPASCAL,
23. Feb 2006
Dann hast du was falsch übernommen ? ;)
Das funktioniert nur beim einfügen von Text, bei der Eingabe von Text ist diese Methode nicht geeignet, da es ein wenig flackern wird...
Um die Farbe nach den drei Zeilen wieder zurückzusetzen habe ich oben den Code etwas hinzugefügt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by turboPASCAL,
23. Feb 2006
Na ungefähr so:
procedure TForm.RicheditChange(Sender: TObject);
var
cp: TPoint;
begin
cp := Richedit.CaretPos;
Richedit.selstart := 0;
Richedit.SelLength :=
Length(Richedit.Lines) + 2 + // + 2 wegen dem #13#10 hinter einer Zeile