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

messagedlg: default button No comes now before Abort fro Delphi compatibility

Browse Source 
git-svn-id: trunk@9769 -
This commit is contained in:
mattias 2006-08-29 21:34:51 +00:00
parent cc86a7123d
commit ecc5c01e5b
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/finddeclarationtool.pas
View File

@ -7695,11 +7695,9 @@ begin
NewPos.Code:=nil;
if NewCodeTool<>nil then begin
if (NewCleanPos>=1) then
NewCodeTool.CleanPosToCaretAndTopLine(NewCleanPos,
NewPos,NewTopLine)
NewCodeTool.CleanPosToCaretAndTopLine(NewCleanPos,NewPos,NewTopLine)
else if (NewNode<>nil) then
NewCodeTool.CleanPosToCaretAndTopLine(NewNode.StartPos,
NewPos,NewTopLine);
NewCodeTool.CleanPosToCaretAndTopLine(NewNode.StartPos,NewPos,NewTopLine);
end;
end;

6
lcl/include/messagedialogs.inc
View File

@ -34,12 +34,12 @@ Function ModalEscapeValue(Buttons : TMsgDlgButtons) : TModalResult;
begin
If mbCancel in Buttons then
Result := mrCancel
else
If mbAbort in Buttons then
Result := mrAbort
else
If mbNo in Buttons then
Result := mrNo
else
If mbAbort in Buttons then
Result := mrAbort
else
If mbIgnore in Buttons then
Result := mrIgnore