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

LCL: implemented TCustomMaskEdit.GetSel and SetSel form Ts. Petrov (issue #11655)

Browse Source 
git-svn-id: trunk@15789 -
This commit is contained in:
vincents 2008-07-15 19:53:24 +00:00
parent 3285b40fa7
commit 5b3c40da89
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/maskedit.pp
View File

@ -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