Simba/Tests/PS/messagebox.simba

program new;
var
  Value : string;
begin
  ShowMessage('ShowMessage!');
  Writeln('MessageBox -> ');
  case MessageBox('This is the text','My Caption', mbYesNoCancel) of
    mrYes : Writeln('Pressed yes!');
    mrNo  : Writeln('Pressed no!');
    mrCancel : Writeln('Pressed Cancel!');
  end;
  Writeln('MessageDlg -> ');
  case MessageDlg('Caption','Press a button!',mtError, [mbAbort,mbYes,mbIgnore]) of
    mrAbort : Writeln('Pressed abort!');
    mrYes   : Writeln('Pressed Yes');
    mrIgnore: Writeln('Pressed Ignore');
    mrCancel: Writeln('pressed Cancel');
  end;
  Writeln('InputQuery -> ');
  Value := 'Edit.. or not?';
  Writeln(format('Result of inputquery = [%s] the value = [%s]',[booltostr(InputQuery('Enter something funny','ENTER HERE',value)),value]));
end.