paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 17:37:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCustomMaskEdit.Text string to TTranslateString

Browse Source 
git-svn-id: trunk@29200 -
This commit is contained in:
mattias 2011-01-25 18:36:13 +00:00
parent d33b3cd8f7
commit 76686be5bf
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/maskedit.pp
View File

@ -222,8 +222,8 @@ type
function DisableMask(const NewText: String): Boolean;
function RestoreMask(const NewText: String): Boolean;
Function GetText : String;
Procedure SetText(Value : String);
Function GetText : TCaption;
Procedure SetText(Value : TCaption);
function GetEditText: string; virtual;
procedure SetEditText(const AValue: string);
procedure TextChanged; override;
@ -260,7 +260,7 @@ type
procedure Clear;
procedure ValidateEdit; virtual;
property EditMask: string read FRealMask write SetMask;
property Text: string read GetText write SetText;
property Text: TCaption read GetText write SetText;
end;
{ TMaskEdit }
@ -1151,7 +1151,7 @@ end;
// Get the actual Text
Function TCustomMaskEdit.GetText : String;
Function TCustomMaskEdit.GetText : TCaption;
{
Replace al FSPaceChars with #32
If FMaskSave = False the do trimming of spaces and remove all maskliterals
@ -1194,7 +1194,7 @@ End;
// Set the actual Text
Procedure TCustomMaskEdit.SetText(Value : String);
Procedure TCustomMaskEdit.SetText(Value : TCaption);
{ This tries to mimic Delphi behaviour (D3):
- if mask contains no literals text is set, if necessary padded with blanks,
LTR or RTL depending on FTrimType