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

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

Browse Source 
git-svn-id: trunk@32042 -
This commit is contained in:
maxim 2011-08-24 21:03:41 +00:00
parent 2484cdcb62
commit 0b7adfb3a5
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/lclstrconsts.pas
View File

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

10
lcl/maskedit.pp
View File

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