paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 16:38:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: moved SynPopupMenu resource strings to the correct file

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-06-21 16:39:02 +03:00
parent a39463e7a6
commit dd1fd8a028
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/syneditstrconst.pp
View File

@ -401,6 +401,16 @@ resourcestring
sCannotPlay = 'Cannot playback macro when recording';
sCannotPause = 'Can only pause when recording';
sCannotResume = 'Can only resume when paused';
//SynPopupMenu
SYNS_Undo = '&Undo';
SYNS_Redo = '&Redo';
SYNS_Cut = 'C&ut';
SYNS_Copy = '&Copy';
SYNS_Paste = '&Paste';
SYNS_Delete = '&Delete';
SYNS_SelectAll = 'Select &all';
implementation
end.

11
components/synedit/synpopupmenu.pas
View File

@ -5,7 +5,7 @@ unit SynPopupMenu;
interface
uses
Classes, SysUtils, Menus, SynEdit;
Classes, SysUtils, Menus, SynEdit, SynEditStrConst;
type
TSynDefaultPopupMenu = (dpmDisabled, dpmBefore, dpmAfter);
@ -31,15 +31,6 @@ type
TMenuEntry = (meNone, meUndo, meRedo, meCut, meCopy, mePaste,
meDelete, meSelectAll);
resourcestring
SYNS_Undo = '&Undo';
SYNS_Redo = '&Redo';
SYNS_Cut = 'C&ut';
SYNS_Copy = '&Copy';
SYNS_Paste = '&Paste';
SYNS_Delete = '&Delete';
SYNS_SelectAll = 'Select &all';
{ TSynPopupMenu }
constructor TSynPopupMenu.Create(AOwner: TComponent);