From 5b3c40da89a0a228cbb5c0057d8eb5769795184c Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 15 Jul 2008 19:53:24 +0000
Subject: [PATCH] LCL: implemented TCustomMaskEdit.GetSel and SetSel form Ts.
 Petrov (issue #11655)

git-svn-id: trunk@15789 -
---
 lcl/maskedit.pp | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/lcl/maskedit.pp b/lcl/maskedit.pp
index 65ae23d987..4663b637ad 100644
--- a/lcl/maskedit.pp
+++ b/lcl/maskedit.pp
@@ -319,6 +319,9 @@ Begin
        Char_AllDownCase         : Result := True;
        Char_AllFixedUpCase      : Result := True;
        Char_AllFixedDownCase    : Result := True;
+       Char_Space               : Result := Ch in [' ', '_'];
+       Char_HourSeparator       : Result := Ch in [TimeSeparator];
+       Char_DateSeparator       : Result := Ch in [DateSeparator];
   end;
 end;
 
@@ -422,13 +425,15 @@ End;
 // Get the current selection
 procedure TCustomMaskEdit.GetSel(var _SelStart: Integer; var _SelStop: Integer);
 begin
-//  SendMessage(Handle, EM_GETSEL, Integer(@_SelStart), Integer(@_SelStop));
+  _SelStart:= GetSelStart();
+  _SelStop:= _SelStart + GetSelLength();
 end;
 
 // Set the current selection
 procedure TCustomMaskEdit.SetSel(_SelStart: Integer; _SelStop: Integer);
 begin
-//  SendMessage(Handle, EM_SETSEL, _SelStart, _SelStop);
+  SetSelStart(_SelStart);
+  SetSelLength(_SelStop - _SelStart);
 end;
 
 procedure TCustomMaskEdit.ValidateEdit;
@@ -465,7 +470,6 @@ begin
       Key := 0;
       SetCursorPos;
     end;
-
     Exit;
   end;
 
@@ -473,7 +477,7 @@ begin
   if (Key = VK_HOME) or (Key = VK_end) then
   begin
     if Key = VK_HOME then FPosition := 1
-                     else FPosition := FMaxChars-1;
+                     else FPosition := FMaxChars;
     SetCursorPos;
     Key := 0;
     Exit;
@@ -500,8 +504,8 @@ begin
     DeleteSelected(False);
     SetCharToPos;
     InsertChar(Char(Lo(Key)));
-    Key := 0;
   end;
+  Key := 0;
 end;
 
 // Delete a single char from position