paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 18:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32 interface: remove selecting all text when focussing a TCustomEdit, this can be down in the LCL by setting TCustomEdit.AutoSelect := true (fixes bug #11558)

Browse Source 
git-svn-id: trunk@15588 -
This commit is contained in:
vincents 2008-06-27 12:41:42 +00:00
parent e69e3f45b0
commit e0ddcf13ee
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32callback.inc
View File

@ -2083,8 +2083,6 @@ begin
MouseDownFocusWindow := Window;
end;
LMessage.Msg := LM_SETFOCUS;
if (lWinControl <> nil) and (lWinControl is TCustomEdit) then
Windows.SendMessage(Window, EM_SETSEL, 0, -1);
// RadioButton functionality
if (lWinControl <> nil) and (lWinControl is TRadioButton) then
Windows.PostMessage(Window, BM_SETCHECK, BST_CHECKED, 0);