paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 22:41:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

sparta: fix USE_POPUP_PARENT_DESIGNER compilation

Browse Source 
git-svn-id: trunk@51130 -
This commit is contained in:
ondrej 2016-01-02 15:43:49 +00:00
parent cd9d17e858
commit c57471ea31
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/sparta/dockedformeditor/source/sparta_reg_dockedformeditor.pas
View File

@ -35,7 +35,7 @@ begin
Screen.AddHandlerFormAdded(TSpartaMainIDE.Screen_FormAdded); Screen.AddHandlerFormAdded(TSpartaMainIDE.Screen_FormAdded);
Screen.AddHandlerRemoveForm(TSpartaMainIDE.Screen_FormDel); Screen.AddHandlerRemoveForm(TSpartaMainIDE.Screen_FormDel);
{$IFDEF USE_POPUP_PARENT_DESIGNER} {$IFDEF USE_POPUP_PARENT_DESIGNER}
TCustomForm(LazarusIDE.GetMainBar).AddHandlerOnBeforeDestruction(spartaIDE.OnBeforeClose); TCustomForm(LazarusIDE.GetMainBar).AddHandlerOnBeforeDestruction(TSpartaMainIDE.OnBeforeClose);
{$ENDIF} {$ENDIF}
SourceEditorManagerIntf.RegisterChangeEvent(semWindowCreate, TSpartaMainIDE.WindowCreate); SourceEditorManagerIntf.RegisterChangeEvent(semWindowCreate, TSpartaMainIDE.WindowCreate);
SourceEditorManagerIntf.RegisterChangeEvent(semWindowDestroy, TSpartaMainIDE.WindowDestroy); SourceEditorManagerIntf.RegisterChangeEvent(semWindowDestroy, TSpartaMainIDE.WindowDestroy);