paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 21:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideprinting: fixed menu

Browse Source 
git-svn-id: trunk@14501 -
This commit is contained in:
mattias 2008-03-12 12:53:42 +00:00
parent 7566383233
commit 262ab9c76f
3 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/printers/design/ideprinting.pas
View File

@ -65,11 +65,7 @@ begin
nil,nil,CmdFormatSelection); nil,nil,CmdFormatSelection);
//source editor popup //source editor popup
RegisterIDEMenuCommand(SrcEditMenuSectionMovePage, RegisterIDEMenuCommand(SourceEditorMenuRoot,
'-',
'-',
nil,nil,nil);
RegisterIDEMenuCommand(SrcEditMenuSectionMovePage,
'PrintSelection', 'PrintSelection',
SDescrPFSelection, SDescrPFSelection,
nil,nil,CmdFormatSelection); nil,nil,CmdFormatSelection);

10
ide/uniteditor.pp
View File

@ -3923,13 +3923,15 @@ begin
// editor layout // editor layout
SrcEditMenuMoveEditorLeft.MenuItem.Enabled:= SrcEditMenuMoveEditorLeft.MenuItem.Enabled:=
(NoteBook<>nil) and (NoteBook.PageCount>1); (NoteBook<>nil) and (NoteBook.PageCount>1);
SrcEditMenuMoveEditorRight.MenuItem.Enabled:= SrcEditMenuMoveEditorRight.MenuItem.Enabled:=
(NoteBook<>nil) and (NoteBook.PageCount>1); (NoteBook<>nil) and (NoteBook.PageCount>1);
SrcEditMenuMoveEditorFirst.MenuItem.Enabled:= SrcEditMenuMoveEditorFirst.MenuItem.Enabled:=
(NoteBook<>nil) and (NoteBook.PageCount>1) and (NoteBook.PageIndex>0); (NoteBook<>nil) and (NoteBook.PageCount>1)
and (NoteBook.PageIndex>0);
SrcEditMenuMoveEditorLast.MenuItem.Enabled:= SrcEditMenuMoveEditorLast.MenuItem.Enabled:=
(NoteBook<>nil) and (NoteBook.PageCount>1) and (NoteBook.PageIndex<(NoteBook.PageCount-1)); (NoteBook<>nil) and (NoteBook.PageCount>1)
and (NoteBook.PageIndex<(NoteBook.PageCount-1));
EditorPopupPoint:=EditorComp.ScreenToClient(SrcPopUpMenu.PopupPoint); EditorPopupPoint:=EditorComp.ScreenToClient(SrcPopUpMenu.PopupPoint);
if EditorPopupPoint.X>EditorComp.GutterWidth then begin if EditorPopupPoint.X>EditorComp.GutterWidth then begin

4
ideintf/menuintf.pas
View File

@ -379,10 +379,10 @@ var
SrcEditMenuSectionMarks: TIDEMenuSection; SrcEditMenuSectionMarks: TIDEMenuSection;
SrcEditSubMenuGotoBookmarks: TIDEMenuSection; SrcEditSubMenuGotoBookmarks: TIDEMenuSection;
SrcEditSubMenuSetBookmarks: TIDEMenuSection; SrcEditSubMenuSetBookmarks: TIDEMenuSection;
SrcEditSubMenuFlags: TIDEMenuSection;
SrcEditSubMenuHighlighter: TIDEMenuSection;
SrcEditSubMenuDebug: TIDEMenuSection; SrcEditSubMenuDebug: TIDEMenuSection;
SrcEditSubMenuRefactor: TIDEMenuSection; SrcEditSubMenuRefactor: TIDEMenuSection;
SrcEditSubMenuFlags: TIDEMenuSection;
SrcEditSubMenuHighlighter: TIDEMenuSection;
// Messages window popupmenu // Messages window popupmenu
MessagesMenuRoot: TIDEMenuSection = nil; MessagesMenuRoot: TIDEMenuSection = nil;