paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 17:40:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: fix problem with TRadioButton.OnChange with modal call inside (issue #0007787)

Browse Source 
git-svn-id: trunk@12251 -
This commit is contained in:
paul 2007-09-30 06:14:37 +00:00
parent 71c6cf7c04
commit 5aa0e950b7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1935,7 +1935,7 @@ begin
Windows.SendMessage(Window, EM_SETSEL, 0, -1);
// RadioButton functionality
if (lWinControl <> nil) and (lWinControl is TRadioButton) then
Windows.SendMessage(Window, BM_SETCHECK, BST_CHECKED, 0);
Windows.PostMessage(Window, BM_SETCHECK, BST_CHECKED, 0);
end;
WM_SHOWWINDOW:
begin