Memo (LMDTools) Zeilennummer mit OnMarginRowPaint Event

[SevenOfNine]

Hallo zusammen,

vielleicht kann mir hier jemand ja weiterhelfen ...

Ich möchte in dem Margin-Bereich eines LMDMemo die Zeilennummer ausgeben. Es soll im Prinzip so aussehen, wie in einem Sourcecode-Editor.

Zum "malen" im Margin-Bereich nutze ich OnMarginRowPaint-Event.

Delphi-Quellcode:

procedure TForm1.LMDMemo_TextPackageMarginRowPaint(Sender: TObject;
  Canvas: TCanvas; aRect: TRect; firstChar, length: Integer);

firstChar gibt mir anscheinend für jede Zeile die aktuelle Position des ersten Zeichens unter Berücksichtigung aller Zeilenumrüche (2Bytes?!) zurück.
length ist die Anzahl der Zeichen in der Zeile, in der sich der Cursor befindet.

Ich "male" folgendermaßen auf den Canvas:

Delphi-Quellcode:

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

   s :=   inttostr( firstChar );

   DrawText(Canvas.Handle, PAnsiChar(AnsiString(s)), strlen(PAnsiChar(AnsiString(s))),
      aRect, DT_SINGLELINE or DT_RIGHT);

end;

Die Ausgabe von firstChar ist hier nur zum Testen.

Vielleicht hat ja jemand mal einen Tipp für mich parat.

Schöne Grüße,
seven

[himitsu]

Du hast do den Gesamt-Text und weißt der erste Zeichen.
Da kannst du doch auch einfach nachsehn, in welcher Zeile dieses steckt?

notfalls einfach zählen

Delphi-Quellcode:

line := 0;
pos := 0;
while pos < firstChar do begin
  inc(pos, length(memo.lines[line]));
  inc(pos, sLineBreak);
  inc(line);
end;

oder mal dieses probieren EM_LINEFROMCHAR



Du hast do den Gesamt-Text und weißt der erste Zeichen.
Da kannst du doch auch einfach nachsehn, in welcher Zeile dieses steckt?

notfalls einfach zählen

Delphi-Quellcode:

line := 0;
pos := 0;
while pos < firstChar do begin
  inc(pos, length(memo.lines[line]));
  inc(pos, sLineBreak);
  inc(line);
end;

oder mal dieses probieren EM_LINEFROMCHAR


PS:

Delphi-Quellcode:

var
  s: AnsiString;
begin
   s := IntToStr(firstChar);
   DrawTextA(Canvas.Handle, PAnsiChar(s), Length(s), aRect, DT_SINGLELINE or DT_RIGHT);

aber eigentlich müsste es auch so gehn

Delphi-Quellcode:

var
  s: String;
begin
   s := IntToStr(firstChar);
   DrawText(Canvas.Handle, PChar(s), Length(s), aRect, DT_SINGLELINE or DT_RIGHT);

und warum nicht Canvas.TextOut bzw. Canvas.TextRect?

[SevenOfNine]

Hallo Himitsu,

danke für die schnelle Antwort!

Ich werde das gleich mal ausprobieren.

Aber nocheinmal eine kurze Frage:

Was mache ich denn, wenn ich innerhalb der Routine die Routine length() verwenden möchte. length wird ja hier als Integer der MarginRowPaint-Routine übergeben und Delphi beschwert sich, wenn ich length() verwende?

seven

EDIT:
In der Definition der Procedure einfach umbenennen?

[himitsu]

In soeinem Fall muß man den Namespace mit angeben.
Length liegt in der Unit System, also System.Length(...)

[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;