paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 16:18:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Formatting.

Browse Source 
git-svn-id: trunk@59155 -
This commit is contained in:
juha 2018-09-24 12:10:45 +00:00
parent d62467de68
commit 2b0b9e3d74
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/main.pp
View File

@ -4089,9 +4089,9 @@ begin
begin begin
ReadSaveFailFlag:=true; ReadSaveFailFlag:=true;
if (WriteStatus=mrAbort) or if (WriteStatus=mrAbort) or
(IDEMessageDialog(lisErrorSavingForm, Format(lisCannotSaveForm, [ (IDEMessageDialog(lisErrorSavingForm,
AnUnitInfo.Filename]), mtError, [ Format(lisCannotSaveForm,[AnUnitInfo.Filename]),
mbRetry, mbAbort])=mrAbort) then mtError, [mbRetry,mbAbort]) = mrAbort) then
AbortFlag:=true; AbortFlag:=true;
end; end;
end end
@ -4099,9 +4099,9 @@ begin
begin begin
ReadSaveFailFlag:=true; ReadSaveFailFlag:=true;
if (OpenStatus=mrAbort) or if (OpenStatus=mrAbort) or
(IDEMessageDialog(lisErrorOpeningForm, Format(lisCannotOpenForm, [ (IDEMessageDialog(lisErrorOpeningForm,
AnUnitInfo.Filename]), mtError, [mbRetry, Format(lisCannotOpenForm,[AnUnitInfo.Filename]),
mbAbort])=mrAbort) then mtError, [mbRetry,mbAbort]) = mrAbort) then
AbortFlag:=true; AbortFlag:=true;
end; end;
end; end;
@ -4573,9 +4573,9 @@ begin
if ToolStatus<>itNone then exit; if ToolStatus<>itNone then exit;
with MiscellaneousOptions do with MiscellaneousOptions do
if BuildLazProfiles.ConfirmBuild then if BuildLazProfiles.ConfirmBuild then
if IDEMessageDialog(lisConfirmation, Format(lisConfirmLazarusRebuild, [ if IDEMessageDialog(lisConfirmation,
BuildLazProfiles.Current.Name]), Format(lisConfirmLazarusRebuild,[BuildLazProfiles.Current.Name]),
mtConfirmation, mbYesNo)<>mrYes then mtConfirmation, mbYesNo) <> mrYes then
exit; exit;
DoBuildLazarus([]); DoBuildLazarus([]);
end; end;
@ -4600,8 +4600,9 @@ begin
exit; exit;
end; end;
if BuildLazProfiles.ConfirmBuild then if BuildLazProfiles.ConfirmBuild then
if IDEMessageDialog(lisConfirmation, Format(lisConfirmBuildAllProfiles, [s if IDEMessageDialog(lisConfirmation,
+sLineBreak]), mtConfirmation, mbYesNo)<>mrYes then Format(lisConfirmBuildAllProfiles,[s+sLineBreak]),
mtConfirmation, mbYesNo) <> mrYes then
exit; exit;
DoBuildAdvancedLazarus(BuildLazProfiles.Selected); DoBuildAdvancedLazarus(BuildLazProfiles.Selected);
end; end;