TJvAppXMLFileStorage OnGetFileName событие никогда не выполняется

Question

В Delphi 10 Сиэтла, с JVCL 3.48, после того, как реализован TJvAppXMLFileStorage обработчика OnGetFileName событий, он никогда не будет выполнен:

procedure TForm1.JvAppXMLFileStorage1GetFileName(Sender: 
    TJvCustomAppStorage; var FileName: TFileName); 
begin 
    // never gets executed! 
    CodeSite.Send('JvAppXMLFileStorage1GetFileName', FileName.ToString); 
end; 

мне нужно это событие, чтобы установить JvAppXMLFileStorage1.Location свойства с параметром var FileName в зависимости от других настроек.

Итак, как я могу выполнить это событие?

Answer 1

Быстрый взгляд на JvAppStorage.pas кажется, показывают, что единственное место, которое вызывает DoGetFileName (что, где OnGetFileName срабатывает, если есть один назначен) в TJvCustomAppMemoryFileStorage.RecalculateFullFileName. Рассматривая этот метод, DoGetFileName вызывается только из ветки case Location of для flCustom.

Это, по-видимому, указывает на то, что событие было запущено только в том случае, если оно назначено иLocation - flCustom.