paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 12:39:20 +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);
//source editor popup
RegisterIDEMenuCommand(SrcEditMenuSectionMovePage,
'-',
'-',
nil,nil,nil);
RegisterIDEMenuCommand(SrcEditMenuSectionMovePage,
RegisterIDEMenuCommand(SourceEditorMenuRoot,
'PrintSelection',
SDescrPFSelection,
nil,nil,CmdFormatSelection);

10
ide/uniteditor.pp
View File

@ -3923,13 +3923,15 @@ begin
// editor layout
SrcEditMenuMoveEditorLeft.MenuItem.Enabled:=
(NoteBook<>nil) and (NoteBook.PageCount>1);
(NoteBook<>nil) and (NoteBook.PageCount>1);
SrcEditMenuMoveEditorRight.MenuItem.Enabled:=
(NoteBook<>nil) and (NoteBook.PageCount>1);
(NoteBook<>nil) and (NoteBook.PageCount>1);
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:=
(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);
if EditorPopupPoint.X>EditorComp.GutterWidth then begin

4
ideintf/menuintf.pas
View File

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