pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix: Set EditorPopUpMenu as popupmenu for NoteBook

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2414 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2012-05-05 16:26:36 +00:00
parent c150575c15
commit 52c26ea871
3 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
applications/lazedit/lazedit.lpi
View File

@ -86,6 +86,7 @@
<Filename Value="main.pp"/> <Filename Value="main.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="LazEditMainForm"/> <ComponentName Value="LazEditMainForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="main"/> <UnitName Value="main"/>
</Unit1> </Unit1>

2
applications/lazedit/main.lfm
View File

@ -14,7 +14,7 @@ object LazEditMainForm: TLazEditMainForm
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnDropFiles = FormDropFiles OnDropFiles = FormDropFiles
OnShow = FormShow OnShow = FormShow
LCLVersion = '0.9.31' LCLVersion = '1.1'
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 23

1
applications/lazedit/main.pp
View File

@ -1132,6 +1132,7 @@ begin
NoteBook.OnStatusChange := @OnEditorStatusChange; NoteBook.OnStatusChange := @OnEditorStatusChange;
NoteBook.OnBeforeCloseEditor := @OnBeforeCloseEditor; NoteBook.OnBeforeCloseEditor := @OnBeforeCloseEditor;
NoteBook.OnEditorCharsetChange := @OnCharsetChange; NoteBook.OnEditorCharsetChange := @OnCharsetChange;
NoteBook.EditorPopUpMenu := EditorPopupMenu;
//Creating dialogs //Creating dialogs
HtmlCharMapDlg := THtmlCharMapDlg.Create; HtmlCharMapDlg := THtmlCharMapDlg.Create;