Fix: Set EditorPopUpMenu as popupmenu for NoteBook
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2414 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
parent
c150575c15
commit
52c26ea871
@ -86,6 +86,7 @@
|
||||
<Filename Value="main.pp"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="LazEditMainForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="main"/>
|
||||
</Unit1>
|
||||
|
@ -14,7 +14,7 @@ object LazEditMainForm: TLazEditMainForm
|
||||
OnDestroy = FormDestroy
|
||||
OnDropFiles = FormDropFiles
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.31'
|
||||
LCLVersion = '1.1'
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Height = 23
|
||||
|
@ -1132,6 +1132,7 @@ begin
|
||||
NoteBook.OnStatusChange := @OnEditorStatusChange;
|
||||
NoteBook.OnBeforeCloseEditor := @OnBeforeCloseEditor;
|
||||
NoteBook.OnEditorCharsetChange := @OnCharsetChange;
|
||||
NoteBook.EditorPopUpMenu := EditorPopupMenu;
|
||||
|
||||
//Creating dialogs
|
||||
HtmlCharMapDlg := THtmlCharMapDlg.Create;
|
||||
|
Loading…
Reference in New Issue
Block a user