LCL: improved MaskEdit localization (one ToDo item less). Thanks Alexey Lagunov for the hint.

git-svn-id: trunk@32042 -

lcl/lclstrconsts.pas

@@ -214,7 +214,7 @@ resourceString
   
   // StringHashList, LResource, Menus, ExtCtrls, ImgList, Spin
   // StdCtrls, Calendar, CustomTimer, Forms, Grids, LCLProc, Controls, ComCtrls,
-  // ExtDlgs, EditBtn, Masks
+  // ExtDlgs, EditBtn, Masks, MaskEdit
   sInvalidActionRegistration = 'Invalid action registration';
   sInvalidActionUnregistration = 'Invalid action unregistration';
   sInvalidActionEnumeration = 'Invalid action enumeration';
@@ -228,6 +228,7 @@ resourceString
   sDuplicateMenus = 'Duplicate menus';
   sCannotFocus = 'Cannot focus a disabled or invisible window';
   sInvalidCharSet = 'The char set in mask "%s" is not valid!';
+  SMaskEditNoMatch = 'The current text does not match the specified mask.';
 
   rsListMustBeEmpty = 'List must be empty';
   rsInvalidPropertyValue = 'Invalid property value';

lcl/maskedit.pp

@@ -25,7 +25,6 @@
 
 {
 ToDo List:
-- Make the EDBEditError errormessage (SMaskEditNoMatch) a Resource string in LCLStrconsts.pas
 - Better handling of cut/clear/paste messages
 
 Bugs:
@@ -69,7 +68,7 @@ interface
 
 uses
   Classes, SysUtils, strutils, LResources, Forms, Controls, Graphics, Dialogs,
-  ExtCtrls, StdCtrls, LMessages, Clipbrd, LCLType, LCLProc;
+  ExtCtrls, StdCtrls, LMessages, Clipbrd, LCLType, LCLProc, LCLStrConsts;
 
 const
   { Mask Type }
@@ -128,12 +127,9 @@ type
   { Exception class }
 type
   EDBEditError = class(Exception);
-
-const
-  SMaskEditNoMatch = 'The current text does not match the specified mask.';
-
-type
   TMaskeditTrimType = (metTrimLeft, metTrimRight);
+
+
   { TCustomMaskEdit }