paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 14:58:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix checking modal result, handle mrCancel. Issue: #40920

Browse Source
This commit is contained in:
Martin 2024-04-25 21:47:15 +02:00
parent 0002e72121
commit 49f44c8ee1
9 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/onlinepackagemanager/opkman_createrepositoryfrm.pas
View File

@ -300,7 +300,7 @@ begin
Data := FVSTPackages.GetNodeData(Node);
if Data^.FDataType = 1 then
begin
if MessageDlgEx(Format(rsCreateRepositoryFrm_Conf1, [Data^.FDisplayname]), mtConfirmation, [mbYes, mbNo], Self) = mrNo then
if MessageDlgEx(Format(rsCreateRepositoryFrm_Conf1, [Data^.FDisplayname]), mtConfirmation, [mbYes, mbNo], Self) <> mrYes then
Exit;
CanGo := False;
PackageIndex := FSerializablePackages.FindPackageIndex(Data^.FName, fpbPackageName);

2
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -1213,7 +1213,7 @@ var
Node: PVirtualNode;
MetaPkg: TMetaPackage;
begin
if MessageDlgEx(rsMainFrm_miResetRating + '?', mtConfirmation, [mbYes, mbNo], Self) = mrNo then
if MessageDlgEx(rsMainFrm_miResetRating + '?', mtConfirmation, [mbYes, mbNo], Self) <> mrYes then
Exit;
Node := VisualTree.VST.GetFirstSelected;
if Node <> nil then

2
components/onlinepackagemanager/opkman_repositorydetailsfrm.pas
View File

@ -93,7 +93,7 @@ begin
if SDRep.Execute then
begin
if (not IsDirectoryEmpty(ExtractFilePath(SDRep.FileName))) then
if MessageDlgEx(Format(rsCreateRepositoryFrm_Info1, [ExtractFilePath(SDRep.FileName)]), mtConfirmation, [mbYes, mbNo], Self) = mrNo then
if MessageDlgEx(Format(rsCreateRepositoryFrm_Info1, [ExtractFilePath(SDRep.FileName)]), mtConfirmation, [mbYes, mbNo], Self) <> mrYes then
Exit;
if not DirectoryIsWritable(ExtractFilePath(SDRep.FileName)) then
begin

2
components/sqlite/sqlitecomponenteditor.pas
View File

@ -289,7 +289,7 @@ begin
if Dataset.TableExists then
begin
if MessageDlg(Format(sATableNamedAlreadyExistsAreYouSureYouWantToReplace, [Dataset.TableName, LineEnding]),
mtWarning,[mbYes,MbNo],0) = mrNo then
mtWarning,[mbYes,mbNo],0) <> mrYes then
exit
else
DataSet.ExecSQL('DROP TABLE '+DataSet.TableName+';');

2
ide/frames/editor_markup_userdefined.pas
View File

@ -306,7 +306,7 @@ begin
if IDEMessageDialog(dlgMarkupUserDefinedDelCaption,
Format(dlgMarkupUserDefinedDelPrompt, [FUserWords.Name]),
mtConfirmation, mbYesNo) = mrNo
mtConfirmation, mbYesNo) <> mrYes
then
exit;

4
ide/packages/idedebugger/breakpointsdlg.pp
View File

@ -852,7 +852,7 @@ begin
if EnvironmentDebugOpts.ConfirmDeleteFileBreakPoints then begin
MsgResult:=TaskDlg(lisDeleteAllBreakpoints, lisDeleteAllBreakpoints2, '', tdiQuestion,
[mbYes, mbNo], dbgDoNotShowThisMessageAgain, NotAgain);
if MsgResult = mrNo then
if MsgResult <> mrYes then
exit;
if NotAgain then
EnvironmentDebugOpts.ConfirmDeleteFileBreakPoints:= False;
@ -927,7 +927,7 @@ begin
if EnvironmentDebugOpts.ConfirmDeleteAllBreakPoints then begin
MsgResult:=TaskDlg(lisDeleteAllBreakpoints, lisDeleteAllBreakpoints, '', tdiQuestion,
[mbYes, mbNo], dbgDoNotShowThisMessageAgain, NotAgain);
if MsgResult = mrNo then
if MsgResult <> mrYes then
exit;
if NotAgain then
EnvironmentDebugOpts.ConfirmDeleteAllBreakPoints := False;

2
ide/packages/idedebugger/historydlg.pp
View File

@ -125,7 +125,7 @@ begin
if EnvironmentDebugOpts.ConfirmDeleteAllHistory then begin
MsgResult:=TaskDlg(dlgHistoryDeleteAllConfirm, dlgHistoryDeleteAllConfirm, '', tdiQuestion,
[mbYes, mbNo], dbgDoNotShowThisMessageAgain, NotAgain);
if MsgResult = mrNo then
if MsgResult <> mrYes then
exit;
if NotAgain then
EnvironmentDebugOpts.ConfirmDeleteAllHistory := False;

2
ide/packages/idedebugger/watchesdlg.pp
View File

@ -908,7 +908,7 @@ begin
if EnvironmentDebugOpts.ConfirmDeleteAllWatches then begin
MsgResult:=TaskDlg(dlgWatchesDeleteAllConfirm, dlgWatchesDeleteAllConfirm, '', tdiQuestion,
[mbYes, mbNo], dbgDoNotShowThisMessageAgain, NotAgain);
if MsgResult = mrNo then
if MsgResult <> mrYes then
exit;
if NotAgain then
EnvironmentDebugOpts.ConfirmDeleteAllWatches := False;

4
tools/chmmaker/unit1.pas
View File

@ -181,7 +181,7 @@ var
begin
if MessageDlg('This will add all files in the project directory ' + LineEnding +
'recursively. Do you want to continue?',
mtConfirmation, [mbYes, mbNo],0) = mrNo then exit;
mtConfirmation, [mbYes, mbNo],0) <> mrYes then exit;
Modified := True;
Files := TStringList.Create;
try
@ -384,7 +384,7 @@ begin
If SaveDialog1.Execute then
begin
if FileExists(SaveDialog1.FileName)
and (MessageDlg('File Already Exists! Ovewrite?', mtWarning, [mbYes, mbNo],0) = mrNo) then Exit;
and (MessageDlg('File Already Exists! Ovewrite?', mtWarning, [mbYes, mbNo],0) <> mrYes) then Exit;
OpenProject(SaveDialog1.FileName);
Project.SaveToFile(SaveDialog1.FileName);
end;