paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 01:46:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

select all text upon entry in edit control

Browse Source 
git-svn-id: trunk@5874 -
This commit is contained in:
micha 2004-08-27 19:06:40 +00:00
parent a7995e2442
commit fd1f66510c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -835,6 +835,8 @@ Begin
WM_SETFOCUS: WM_SETFOCUS:
Begin Begin
LMessage.Msg := LM_SETFOCUS; LMessage.Msg := LM_SETFOCUS;
if (TheWinControl <> nil) and (TheWinControl.FCompStyle = csEdit) then
Windows.SendMessage(Window, EM_SETSEL, 0, -1);
End; End;
WM_SHOWWINDOW: WM_SHOWWINDOW:
Begin Begin
@ -1313,6 +1315,9 @@ end;
{ {
$Log$ $Log$
Revision 1.136 2004/08/27 19:06:40 micha
select all text upon entry in edit control
Revision 1.135 2004/08/27 15:13:03 micha Revision 1.135 2004/08/27 15:13:03 micha
fix choosing taskbar button "close" to close app fix choosing taskbar button "close" to close app