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

The close OK button returns mrOK for modal dialogs.

Browse Source 
git-svn-id: trunk@15368 -
This commit is contained in:
sekelsenmat 2008-06-09 02:08:59 +00:00
parent eb8998e206
commit bc0e2703a9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/wince/wincecallback.inc
View File

@ -1056,7 +1056,10 @@ begin
{ Handles the "OK" button in the title bar of dialogs }
if Lo(wParam) = IDOK then
begin
SendMessage(Window, WM_CLOSE, 0, 0);
if (lWinControl is TCustomForm) and (fsModal in TCustomForm(lWinControl).FormState) then
TCustomForm(lWinControl).ModalResult := mrOK
else
SendMessage(Window, WM_CLOSE, 0, 0);
end
else
begin