paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 14:58:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

FileBrowser: fix AV

Browse Source
This commit is contained in:
Ondrej Pokorny 2024-08-03 19:35:02 +02:00
parent aae7ed1f94
commit c16997ba82
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/filebrowser/ctrlfilebrowser.pas
View File

@ -295,7 +295,8 @@ constructor TFileBrowserController.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
LazarusIDE.AddHandlerOnProjectOpened(@DoProjectChanged);
SourceEditorManagerIntf.RegisterChangeEvent(semEditorActivate,@ActiveEditorChanged);
if SourceEditorManagerIntf <> nil then
SourceEditorManagerIntf.RegisterChangeEvent(semEditorActivate,@ActiveEditorChanged);
FDirectoriesBeforeFiles:=DefaultDirectoriesBeforeFiles;
FFilesInTree:=DefaultFilesInTree;
ReadConfig;
@ -303,7 +304,8 @@ end;
destructor TFileBrowserController.Destroy;
begin
LazarusIDE.RemoveAllHandlersOfObject(Self);
if SourceEditorManagerIntf <> nil then
SourceEditorManagerIntf.UnRegisterChangeEvent(semEditorActivate,@ActiveEditorChanged);
if FNeedSave then
WriteConfig;
inherited;