Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
8. Mär 2005
Ja, da geht das etwas anders...
procedure SelectLine(const Line: Integer; SynControl: TCustomSynEdit);
var
Start, Ende: Integer;
begin
SynControl.SelStart := 0;
SynControl.SelEnd := 0;
SynControl.CaretXY := Point(0, Line);
Start := SynControl.SelStart;
SynControl.CaretY := Succ(Line);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
8. Mär 2005
Steht HideSelection auf False??
Dann funktioniert das auch! :roll:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
8. Mär 2005
Hi kingflo!
var
Line: Integer;
begin
with RichEdit1 do
begin
Line := 4;
SelStart := Perform(EM_LINEINDEX, Line, 0);
SelLength := Length(Lines);
end;