mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-30 05:50:30 +02:00
LCL: wince: remove selecting all text when focussing a TCustomEdit, this can be down in the LCL by setting TCustomEdit.AutoSelect := true (same as in win32 in rev. 15588). Bug #23345
git-svn-id: branches/fixes_2_0@60913 -
This commit is contained in:
parent
27be11f717
commit
9a1e3cee85
@ -1865,8 +1865,6 @@ begin
|
||||
DebugLn('WM_SETFOCUS received for window ', IntToHex(Window, 8));
|
||||
{$endif}
|
||||
LMessage.Msg := LM_SETFOCUS;
|
||||
if (lWinControl <> nil) and (lWinControl.FCompStyle = csEdit) then
|
||||
Windows.SendMessage(Window, EM_SETSEL, 0, -1);
|
||||
end;
|
||||
WM_SHOWWINDOW:
|
||||
begin
|
||||
|
Loading…
Reference in New Issue
Block a user