paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 12:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed unintialized value for escape and default on msg dialogs

Browse Source 
git-svn-id: trunk@9759 -
This commit is contained in:
mattias 2006-08-28 09:40:22 +00:00
parent 358af7d5d7
commit ed5392befa
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/messagedialogs.inc
View File

@ -60,10 +60,14 @@ begin
Result := mrAll Result := mrAll
else else
If mbYesToAll in Buttons then If mbYesToAll in Buttons then
Result := mrYesToAll; Result := mrYesToAll
else
Result:=mrCancel;
end; end;
Function ModalDefaultButton(Buttons : TMsgDlgButtons) : TMsgDlgbtn; Function ModalDefaultButton(Buttons : TMsgDlgButtons) : TMsgDlgbtn;
var
b: TMsgDlgBtn;
begin begin
If mbYes in Buttons then If mbYes in Buttons then
Result := mbYes Result := mbYes
@ -93,7 +97,12 @@ begin
Result := mbAbort Result := mbAbort
else else
If mbIgnore in Buttons then If mbIgnore in Buttons then
Result := mbIgnore; Result := mbIgnore
else begin
for b:=Low(TMsgDlgBtn) to High(TMsgDlgBtn) do
if b in Buttons then
Result:=b;
end;
end; end;
const const