Komponente TMemoEx - ein TMemo mit Zeilennummern

[Lannes]

Hallo,

hast Du Dein Problem schon behoben?
Hier eine mögliche Lösung:

Delphi-Quellcode:

//... für diese Zeilen
//if self.Lines.Count < VisibleLines then h := self.Lines.Count 
//    else h := FirstVisibleLine + (VisibleLines - 1); 
//... das einsetzen
   if self.Lines.Count < VisibleLines then
      begin
      if (Length(self.Text) > 0 ) and 
         (Length(self.Text) = self.SelStart) and (self.Text[Length(self.Text)] = #10) then
         h := self.Lines.Count
         else
           h := self.Lines.Count-1;
      end
      else
        begin
        h := FirstVisibleLine + (VisibleLines-1);
        end;

Hoffe das es das ist was Du Dir vorgestellt hast.