OTA experts, please help!

-
OTA experts, please help!

Is there a way to hook into 'buffer saved' event in a Delphi expert? Specifically, I would like to know when a contents of some editor tab were save to disk (and into which file).

Comments

  1. Thomas Mueller (dummzeuch)May 15, 2018 at 4:08 AM

    I'm pretty sure there is an interface that allows this, but I currently can't look it up. Will do when I get back to a computer.

    ReplyDelete
  2. Roland WindMay 15, 2018 at 4:33 AM

    type
    TGxModuleNotifier = class(TInterfacedObject, IOTANotifier,
    IOTAModuleNotifier, IGxModuleNotifier,
    IGxNotifierUninstallation)
    private
    FIdeClient: TGxIdeNotifier;
    private
    FSelfNotifierIndex: Integer;
    procedure RemoveSelfNotifier;
    private
    FCachedSourceEditors: array of IOTASourceEditor;
    // Note that this list of editor notifiers contains both
    // IOTAEditorNotifier and IOTAFormNotifier interface instances.
    FInstalledEditorNotifiers: TInterfaceList;
    private
    FAssociatedModule: IOTAModule;
    FFileName: string;
    procedure InstallEditorNotifiers;
    procedure RemoveEditorNotifiers;
    procedure RemoveSelfFromClient;
    protected
    // IOTANotifier - just there for playing
    procedure AfterSave;
    procedure BeforeSave;
    procedure Destroyed;
    procedure Modified;
    // IOTAModuleNotifier
    function CheckOverwrite: Boolean;
    procedure ModuleRenamed(const NewName: string);
    // IGxModuleNotifier
    function GetAssociatedModule: IOTAModule;
    // IGxNotifierUninstallation
    procedure UninstallNotifier;
    public
    constructor Create(AssociatedModule: IOTAModule; Client: TGxIdeNotifier);
    destructor Destroy; override;
    end;

    BeforeSave/AfterSave will be executed before and After Saving. You can find it in the GX_EditorChangeServices.

    ReplyDelete
  3. Uwe RaabeMay 15, 2018 at 4:43 AM

    IOTAEditBuffer inherits from IOTAEditor, which has a property Module of type IOTAModule where you get the FIleName. When you register an IOTAModuleNotifier for that module you get an AfterSave event.

    ReplyDelete
  4. Primož GabrijelčičMay 15, 2018 at 5:25 AM

    Ahhhhh, Module notifier. And I was trying to make AfterSave work at Editor notifier level.

    Thank you Roland Wind and Uwe Raabe!

    ReplyDelete
  5. Primož GabrijelčičMay 15, 2018 at 5:36 AM

    Hmmmm, I'm still missing something. Who will tell me when an editor is created/destroyed so I can register/unregister the module notifier?

    ReplyDelete
  6. Primož GabrijelčičMay 15, 2018 at 5:37 AM

    Is that IOTAIDENotifier.FileNotification? Or is there something easier to use?

    ReplyDelete
  7. Uwe RaabeMay 15, 2018 at 5:50 AM

    INTAEditServicesNotifier.EditorViewActivated

    ReplyDelete
  8. Uwe RaabeMay 15, 2018 at 5:51 AM

    Destruction is directly signaled to the notifier itself: IOTANotifier.Destroyed

    ReplyDelete
  9. Primož GabrijelčičMay 15, 2018 at 6:48 AM

    Thank you again!

    ReplyDelete
  10. Thomas Mueller (dummzeuch)May 15, 2018 at 9:05 AM

    OK, I guess I don't need to look it up now. ;-)

    ReplyDelete
  11. Primož GabrijelčičMay 15, 2018 at 11:00 AM

    Works like a charm! Thank you!

    ReplyDelete

Post a Comment