paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 14:19:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: update behavior of backspace in maskedit. Issue #20591

Browse Source 
git-svn-id: trunk@33159 -
This commit is contained in:
blikblum 2011-10-29 23:03:39 +00:00
parent fafe5534bc
commit 9539b6f4eb
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/maskedit.pp
View File

@ -172,7 +172,8 @@ type
TCustomMaskEdit = Class(TCustomEdit)
private
FRealMask : String; // Real mask inserted
FMask : ShortString; // Acrtual internal mask
FMask : ShortString; // Actual internal mask
FFirstFreePos : Integer; // First position where user can enter text
FMaskSave : Boolean; // Save mask as part of the data
FTrimType : TMaskEditTrimType; // Trim leading or trailing spaces in GetText
FSpaceChar : Char; // Char for space (default '_')
@ -641,6 +642,9 @@ begin
end;
end;
end;
FFirstFreePos := 1;
//Determine first position where text can be entered (needed for DeleteChars()
while (FFirstFreePos <= Length(FMask)) and IsLiteral(FMask[FFirstFreePos]) do Inc(FFirstFreePos);
if (Length(FMask) > 0) then SetCharCase(ecNormal);
//SetMaxLegth must be before Clear, otherwise Clear uses old MaxLength value!
SetMaxLength(Length(FMask));
@ -1131,8 +1135,8 @@ begin
if HasExtSelection then DeleteSelected
else
begin
//cannot backspace if we are at beginning of string
if FCursorPos > 0 then
//cannot backspace if we are at beginning of string, or if all chars in front are MaskLiterals
if FCursorPos > FFirstFreePos - 1 then
begin
Dec(FCursorPos);
//This will select the appropriate char in the control