@r29d43
Ich bin nicht sicher, aber vielleicht kann Dir INTAEditViewNotifier weiter helfen.
Zumindest könntest Du mal schauen, ob da in der Richtung etwas für Dich passt. Evtl. kommst Du so noch genauer an den Editor heran.
Delphi-Quellcode:
TViewPaintNotifier = class(TInterfacedObject, IOTANotifier, INTAEditViewNotifier)
private
public
constructor Create;
destructor Destroy; override;
public
// INTAEditViewNotifier
procedure BeginPaint(const View: IOTAEditView; var FullRepaint: Boolean);
procedure EditorIdle(const View: IOTAEditView);
procedure EndPaint(const View: IOTAEditView);
procedure PaintLine(const View: IOTAEditView; LineNumber: Integer; const LineText: PAnsiChar; const TextWidth: Word;
const LineAttributes: TOTAAttributeArray; const Canvas: TCanvas; const TextRect: TRect; const LineRect: TRect;
const CellSize: TSize);
// IOTANotifier
procedure AfterSave;
procedure BeforeSave;
procedure Destroyed;
procedure Modified;
end;