Komponente TMemoEx - ein TMemo mit Zeilennummern

[turboPASCAL]

Delphi-Quellcode:

procedure TMemoEx.Change;
begin
  inherited Change;

  {if OldLineCount <> Lines.Count then
  begin
    OldLineCount := Lines.Count;
    Invalidate;
  end; }
  Invalidate;
end;

@Master_RC bitte in MemoEx.pas die if-Abfrage wie oben ausklammern, dann funktioniert es.

Zitat von Lannes :

hast Du Dein Problem schon behoben?

Nein, noch nicht wirklich, ich wollte erst noch das flackern beim eingeben von Zeichen beseitigen...