Memo (LMDTools) Zeilennummer mit OnMarginRowPaint Event

[SevenOfNine]

Super, es funktioniert.

Nochmals schönen Dank für deine Hilfe!

seven

Delphi-Quellcode:

procedure TForm1.LMDMemo_TextPackageMarginRowPaint(Sender: TObject;
  Canvas: TCanvas; aRect: TRect; firstChar, length: Integer);
var
  s: AnsiString;
  line, pos: integer;
begin

  line := 0;
  pos := 0;

  while pos < firstChar do begin
    inc(pos, System.Length(LMDMemo_TextPackage.lines[line]));
    inc(pos, 2);  // 2 = System.Length(sLineBreak)
    inc(line);
  end;

  s :=   IntToStr( line );

  DrawTextA(Canvas.Handle, PAnsiChar(s), System.Length(s), aRect, DT_SINGLELINE or DT_RIGHT);

end;