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

LCL: Make MessageDlg default button work on Windows 7. Issue #19863, patch from Bart Broersma

Browse Source 
git-svn-id: trunk@32035 -
This commit is contained in:
juha 2011-08-22 18:29:58 +00:00
parent 8c23048e7d
commit a21fbde6ef
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32lclintf.inc
View File

@ -731,7 +731,11 @@ begin
DialogButtons[i].pszButtonText := UTF8StringToPWideChar(GetButtonCaption(Buttons[i]));
end;
TaskConfig.pButtons := DialogButtons;
TaskConfig.nDefaultButton := DefaultIndex;
//we need idButtonXX value
if DefaultIndex < ButtonCount then
TaskConfig.nDefaultButton := Buttons[DefaultIndex]
else
TaskConfig.nDefaultButton := 0;
State := SaveApplicationState;
try