On Mon, Feb 4, 2019 at 11:21 PM Bart <[email protected]> wrote:
> > So there seems to be a dialog with [mbCancel,mbAbort] somewehere?
function TLazarusBuilder.SaveIDEMakeOptions(Profile: TBuildLazarusProfile;
Flags: TBuildLazarusFlags): TModalResult;
var
Filename: String;
fs: TFileStreamUTF8;
OptionsAsText: String;
begin
...
except
on E: Exception do begin
Result:=IDEMessageDialog(lisLazBuildErrorWritingFile,
Format(lisLazBuildUnableToWriteFile, [Filename, LineEnding])
+E.Message,
mtError,[mbCancel,mbAbort]); <<<===== There it is
exit;
end;
end;
Result:=mrOk;
end;
It does not seem to matter wether the user clicks Cancel or Abort in
this dialog though ;-)
--
Bart
--
_______________________________________________
lazarus mailing list
[email protected]
https://lists.lazarus-ide.org/listinfo/lazarus
