Guten Abend,
habe mir jetzt einmal eine Eigene Prozedur gebastelt aber irgendwie haut das nicht hin. Der Fehler zeigt sich so das er das was er Rechtsbündig setzen sollte nicht macht oder erst eine Zeile zu Spät ich kann den Fehler leider nicht finden und hoffe das ihr mir helfen könnt.
Delphi-Quellcode:
procedure ADDROW(RE : TRichedit; TEXT : String; Align : TAlignment);
var
SEL1,SEL2 : Integer;
begin
SEL1 := 0;
SEL2 := 0;
SEL1 := length(RE.text);
RE.Lines.add(TEXT);
SEL2 := length(RE.text);
RE.SelStart := SEL1;
RE.SelLength := (SEL2-SEL1);
RE.Paragraph.Alignment := Align;
end;
schon mal vielen Dank im voraus
Gruß
manu