Zeile im Richedit makieren

[sniper_w]

Zitat:

Hi kingflo!

Delphi-Quellcode:

   var
  Line: Integer;
begin
  with RichEdit1 do
  begin
    Line      := 4;
    SelStart  := Perform(EM_LINEINDEX, Line, 0);
    SelLength := Length(Lines[Line]);
  end;
end;

MfG
Stevie

Hmm. Bei mir geht das überhaupt nicht. Folgendes habe ich gebastelt und es funct:

Delphi-Quellcode:

uses RichEdit;
//...
procedure SelectLine(Line:integer; ARichEdit:TRichEdit);
 var CharRange: TCharRange;
begin
 CharRange.cpMin := SendMessage(ARichEdit.Handle, EM_LINEINDEX, Line, 0);
 CharRange.cpMax := CharRange.cpMin + SendMessage(ARichEdit.Handle,EM_LINELENGTH,CharRange.cpMin,0);
 SendMessage(ARichEdit.Handle, EM_EXSETSEL, 0, Longint(@CharRange));
 SendMessage(ARichEdit.Handle, EM_SCROLLCARET, 0, 0);
end;