On Wed, Sep 11, 2019 at 1:53 PM Bart <[email protected]> wrote:
Possible fix:
function TCustomTaskDialog.ButtonIDToModalResult(const AButtonID: Integer
): TModalResult;
begin
if AButtonID<100 then
begin
case AButtonID of
IDOK: Result := mrOK;
IDCANCEL: Result := mrCancel;
IDABORT: Result := mrAbort;
IDRETRY: Result := mrRetry;
IDIGNORE: Result := mrIgnore;
IDYES: Result := mrYes;
IDNO: Result := mrNo;
IDCLOSE: Result := mrClose;
else Result := AButtonID
end;
end
else if (AButtonID-100<Buttons.Count) then
Result := Buttons[AButtonID-100].ModalResult
else
Result := mrNone;
end;
--
Bart
--
_______________________________________________
lazarus mailing list
[email protected]
https://lists.lazarus-ide.org/listinfo/lazarus
