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

ide: use same string and icon for all Options menu items

Browse Source 
git-svn-id: trunk@20082 -
This commit is contained in:
paul 2009-05-21 01:59:12 +00:00
parent ff4795ef8e
commit ad30f8d3e7
3 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/designer.pp
View File

@ -449,7 +449,7 @@ begin
DesignerMenuSnapToGuideLinesOption:=RegisterIDEMenuCommand(DesignerMenuSectionOptions, DesignerMenuSnapToGuideLinesOption:=RegisterIDEMenuCommand(DesignerMenuSectionOptions,
'Snap to guide lines',fdmSnapToGuideLinesOption); 'Snap to guide lines',fdmSnapToGuideLinesOption);
DesignerMenuShowOptions:=RegisterIDEMenuCommand(DesignerMenuSectionOptions, DesignerMenuShowOptions:=RegisterIDEMenuCommand(DesignerMenuSectionOptions,
'Show options',fdmShowOptions, nil, nil, nil, 'menu_environment_options'); 'Show options',dlgFROpts, nil, nil, nil, 'menu_environment_options');
end; end;
constructor TDesigner.Create(TheDesignerForm: TCustomForm; constructor TDesigner.Create(TheDesignerForm: TCustomForm;

1
ide/lazarusidestrconsts.pas
View File

@ -1880,7 +1880,6 @@ resourcestring
lisViewSourceLfm = 'View Source (.lfm)'; lisViewSourceLfm = 'View Source (.lfm)';
fdmSaveFormAsXML = 'Save form as xml'; fdmSaveFormAsXML = 'Save form as xml';
fdmSnapToGuideLinesOption='Option: Snap to guide lines'; fdmSnapToGuideLinesOption='Option: Snap to guide lines';
fdmShowOptions='Options';
//----------------------- //-----------------------
// keyMapping // keyMapping

2
ide/sourceeditor.pp
View File

@ -1051,7 +1051,7 @@ begin
uemEncoding); uemEncoding);
SrcEditMenuEditorProperties:=RegisterIDEMenuCommand(SourceEditorMenuRoot, SrcEditMenuEditorProperties:=RegisterIDEMenuCommand(SourceEditorMenuRoot,
'EditorProperties',uemEditorProperties, nil, nil, nil, 'menu_editor_options'); 'EditorProperties', dlgFROpts, nil, nil, nil, 'menu_environment_options');
SrcEditMenuDocking:=RegisterIDEMenuCommand(SourceEditorMenuRoot, 'Docking', SrcEditMenuDocking:=RegisterIDEMenuCommand(SourceEditorMenuRoot, 'Docking',
lisMVDocking); lisMVDocking);
{$IFNDEF EnableIDEDocking} {$IFNDEF EnableIDEDocking}