unit CompMessageBoxDesigner;

{
  Inno Setup
  Copyright (C) 1997-2020 Jordan Russell
  Portions by Martijn Laan
  For conditions of distribution and use, see LICENSE.TXT.

  MessageBox Designer form
  
  Originally contributed by leserg73
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  UIStateForm, StdCtrls, ExtCtrls, NewStaticText, ComCtrls, pngimage;

type
  TMBDForm = class(TUIStateForm)
    IMGmbInformation: TImage;
    IMGmbConfirmation: TImage;
    IMGmbError: TImage;
    IMGmbCriticalError: TImage;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    MSGText: TMemo;
    rb_mbInformation: TRadioButton;
    rb_mbConfirmation: TRadioButton;
    rb_mbError: TRadioButton;
    rb_mbCriticalError: TRadioButton;
    GroupBox3: TGroupBox;
    MBDButtonOK: TButton;
    MBDButtonCancel: TButton;
    MBDButtonPreview: TButton;
    Bevel1: TBevel;
    rbMB_OK: TRadioButton;
    rbMB_OKCANCEL: TRadioButton;
    rbMB_YESNO: TRadioButton;
    rbMB_YESNOCANCEL: TRadioButton;
    rbMB_RETRYCANCEL: TRadioButton;
    rbMB_ABORTRETRYIGNORE: TRadioButton;
    GroupBox4: TGroupBox;
    cb_IDOK: TCheckBox;
    cb_IDCANCEL: TCheckBox;
    cb_IDYES: TCheckBox;
    cb_IDNO: TCheckBox;
    cb_IDABORT: TCheckBox;
    cb_IDRETRY: TCheckBox;
    cb_IDIGNORE: TCheckBox;
    GroupBox5: TGroupBox;
    cb_MB_SETFOREGROUND: TCheckBox;
    NewStaticText1: TNewStaticText;
    NewEdit1: TEdit;
    UpDown1: TUpDown;
    GroupBox6: TGroupBox;
    cb_MsgBox: TRadioButton;
    cb_TaskDialogMsgBox: TRadioButton;
    rb_IDOK: TCheckBox;
    rb_IDCANCEL: TCheckBox;
    rb_IDYES: TCheckBox;
    rb_IDNO: TCheckBox;
    rb_IDABORT: TCheckBox;
    rb_IDRETRY: TCheckBox;
    rb_IDIGNORE: TCheckBox;
    TaskInstructionLabel: TNewStaticText;
    TaskMessageLabel: TNewStaticText;
    TaskInstructionText: TEdit;
    TaskMessageText: TEdit;
    Button1Text: TEdit;
    Button2Text: TEdit;
    Button1Label: TNewStaticText;
    Button2Label: TNewStaticText;
    cb_Suppressible: TCheckBox;
    cb_DefIDOK: TRadioButton;
    cb_DefIDCANCEL: TRadioButton;
    cb_DefIDYES: TRadioButton;
    cb_DefIDNO: TRadioButton;
    cb_DefIDABORT: TRadioButton;
    cb_DefIDRETRY: TRadioButton;
    cb_DefIDIGNORE: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure UpDown1Changing(Sender: TObject; var AllowChange: Boolean);
    procedure rbMB_OKClick(Sender: TObject);
    procedure rbMB_OKCANCELClick(Sender: TObject);
    procedure rbMB_YESNOClick(Sender: TObject);
    procedure rbMB_RETRYCANCELClick(Sender: TObject);
    procedure rbMB_YESNOCANCELClick(Sender: TObject);
    procedure rbMB_ABORTRETRYIGNOREClick(Sender: TObject);
    procedure MBDButtonPreviewClick(Sender: TObject);
    procedure cb_TaskDialogMsgBoxClick(Sender: TObject);
    procedure cb_MsgBoxClick(Sender: TObject);
    procedure rb_IDOKClick(Sender: TObject);
    procedure rb_IDCANCELClick(Sender: TObject);
    procedure rb_IDNOClick(Sender: TObject);
    procedure rb_IDYESClick(Sender: TObject);
    procedure rb_IDRETRYClick(Sender: TObject);
    procedure rb_IDIGNOREClick(Sender: TObject);
    procedure rb_IDABORTClick(Sender: TObject);
    procedure cb_SuppressibleClick(Sender: TObject);
    procedure MSGTextKeyPress(Sender: TObject; var Key: Char);
  private
    function GetText: String;
  public
    property Text: string read GetText;
  end;

implementation

uses
  CmnFunc, CmnFunc2, CompFunc, TaskDialog, Msgs;

{$R *.DFM}

procedure TMBDForm.FormCreate(Sender: TObject);
begin
  InitFormFont(Self);

  cb_Suppressible.Checked := True;
  MSGText.Lines[MSGText.CaretPos.Y] := '<Enter your text here...>';
  MSGText.SelStart := MSGText.Perform(EM_LINEINDEX, 0, 0);
  MSGText.SelLength := Length(MSGText.Lines[0]);
  cb_IDCANCEL.Enabled := False;
  cb_IDABORT.Enabled := False;
  cb_IDRETRY.Enabled := False;
  cb_IDIGNORE.Enabled := False;
  cb_IDYES.Enabled := False;
  cb_IDNO.Enabled := False;
  NewStaticText1.Enabled := False;
  NewEdit1.Enabled := False;
  UpDown1.Enabled := False;
  TaskInstructionLabel.Visible := False;
  TaskMessageLabel.Visible := False;
  TaskInstructionText.Visible := False;
  TaskMessageText.Visible := False;
  Button1Text.Visible := False;
  Button2Text.Visible := False;
  Button1Label.Visible := False;
  Button2Label.Visible := False;
end;

procedure TMBDForm.rbMB_OKClick(Sender: TObject);
begin
  cb_IDOK.Checked := False;
  cb_IDCANCEL.Checked := False;
  cb_IDABORT.Checked := False;
  cb_IDRETRY.Checked := False;
  cb_IDIGNORE.Checked := False;
  cb_IDYES.Checked := False;
  cb_IDNO.Checked := False;
  cb_IDOK.Enabled := False;
  cb_IDCANCEL.Enabled := False;
  cb_IDABORT.Enabled := False;
  cb_IDRETRY.Enabled := False;
  cb_IDIGNORE.Enabled := False;
  cb_IDYES.Enabled := False;
  cb_IDNO.Enabled := False;
  NewStaticText1.Enabled := False;
  NewEdit1.Enabled := False;
  NewEdit1.Text := '1';
  UpDown1.Enabled := False;
  if cb_TaskDialogMsgBox.Checked then begin
     rb_IDOK.Enabled := True;
     rb_IDCANCEL.Enabled := False;
     rb_IDABORT.Enabled := False;
     rb_IDRETRY.Enabled := False;
     rb_IDIGNORE.Enabled := False;
     rb_IDYES.Enabled := False;
     rb_IDNO.Enabled := False;
     rb_IDOK.Checked := False;
     rb_IDCANCEL.Checked := False;
     rb_IDABORT.Checked := False;
     rb_IDRETRY.Checked := False;
     rb_IDIGNORE.Checked := False;
     rb_IDYES.Checked := False;
     rb_IDNO.Checked := False;
     Button2Text.Enabled := False;
     Button2Label.Enabled := False;
     Button1Text.Enabled := True;
     Button1Label.Enabled := True;
     Button1Text.Text := 'OK';
     Button2Text.Text := '';
  end;
  if cb_Suppressible.Checked then begin
     cb_DefIDOK.Checked := True;
     cb_DefIDCANCEL.Checked := False;
     cb_DefIDYES.Checked := False;
     cb_DefIDNO.Checked := False;
     cb_DefIDABORT.Checked := False;
     cb_DefIDRETRY.Checked := False;
     cb_DefIDIGNORE.Checked := False;
     cb_DefIDOK.Enabled := True;
     cb_DefIDCANCEL.Enabled := False;
     cb_DefIDYES.Enabled := False;
     cb_DefIDNO.Enabled := False;
     cb_DefIDABORT.Enabled := False;
     cb_DefIDRETRY.Enabled := False;
     cb_DefIDIGNORE.Enabled := False;
  end;
end;

procedure TMBDForm.rbMB_YESNOClick(Sender: TObject);
begin
  cb_IDOK.Checked := False;
  cb_IDCANCEL.Checked := False;
  cb_IDABORT.Checked := False;
  cb_IDRETRY.Checked := False;
  cb_IDIGNORE.Checked := False;
  cb_IDYES.Checked := False;
  cb_IDNO.Checked := False;
  cb_IDOK.Enabled := False;
  cb_IDCANCEL.Enabled := False;
  cb_IDABORT.Enabled := False;
  cb_IDRETRY.Enabled := False;
  cb_IDIGNORE.Enabled := False;
  cb_IDYES.Enabled := True;
  cb_IDNO.Enabled := True;
  if not cb_TaskDialogMsgBox.Checked then begin
     NewStaticText1.Enabled := True;
     NewEdit1.Enabled := True;
     NewEdit1.Text := '1';
     UpDown1.Max := 2;
     UpDown1.Enabled := True;
  end;
  if cb_TaskDialogMsgBox.Checked then begin
     rb_IDOK.Enabled := False;
     rb_IDCANCEL.Enabled := False;
     rb_IDABORT.Enabled := False;
     rb_IDRETRY.Enabled := False;
     rb_IDIGNORE.Enabled := False;
     rb_IDYES.Enabled := True;
     rb_IDNO.Enabled := True;
     rb_IDOK.Checked := False;
     rb_IDCANCEL.Checked := False;
     rb_IDABORT.Checked := False;
     rb_IDRETRY.Checked := False;
     rb_IDIGNORE.Checked := False;
     rb_IDYES.Checked := False;
     rb_IDNO.Checked := False;
     Button2Text.Enabled := True;
     Button2Label.Enabled := True;
     Button1Text.Enabled := True;
     Button1Label.Enabled := True;
     Button1Text.Text := 'Yes';
     Button2Text.Text := 'No';
  end;
  if cb_Suppressible.Checked then begin
     cb_DefIDOK.Checked := False;
     cb_DefIDCANCEL.Checked := False;
     cb_DefIDYES.Checked := True;
     cb_DefIDNO.Checked := False;
     cb_DefIDABORT.Checked := False;
     cb_DefIDRETRY.Checked := False;
     cb_DefIDIGNORE.Checked := False;
     cb_DefIDOK.Enabled := False;
     cb_DefIDCANCEL.Enabled := False;
     cb_DefIDYES.Enabled := True;
     cb_DefIDNO.Enabled := True;
     cb_DefIDABORT.Enabled := False;
     cb_DefIDRETRY.Enabled := False;
     cb_DefIDIGNORE.Enabled := False;
  end;
end;

procedure TMBDForm.rbMB_OKCANCELClick(Sender: TObject);
begin
  cb_IDOK.Checked := False;
  cb_IDCANCEL.Checked := False;
  cb_IDABORT.Checked := False;
  cb_IDRETRY.Checked := False;
  cb_IDIGNORE.Checked := False;
  cb_IDYES.Checked := False;
  cb_IDNO.Checked := False;
  cb_IDOK.Enabled := True;
  cb_IDCANCEL.Enabled := True;
  cb_IDABORT.Enabled := False;
  cb_IDRETRY.Enabled := False;
  cb_IDIGNORE.Enabled := False;
  cb_IDYES.Enabled := False;
  cb_IDNO.Enabled := False;
  if not cb_TaskDialogMsgBox.Checked then begin
     NewStaticText1.Enabled := True;
     NewEdit1.Enabled := True;
     NewEdit1.Text := '1';
     UpDown1.Max := 2;
     UpDown1.Enabled := True;
  end;
  if cb_TaskDialogMsgBox.Checked then begin
     rb_IDOK.Enabled := True;
     rb_IDCANCEL.Enabled := True;
     rb_IDABORT.Enabled := False;
     rb_IDRETRY.Enabled := False;
     rb_IDIGNORE.Enabled := False;
     rb_IDYES.Enabled := False;
     rb_IDNO.Enabled := False;
     rb_IDOK.Checked := False;
     rb_IDCANCEL.Checked := False;
     rb_IDABORT.Checked := False;
     rb_IDRETRY.Checked := False;
     rb_IDIGNORE.Checked := False;
     rb_IDYES.Checked := False;
     rb_IDNO.Checked := False;
     Button2Text.Enabled := False;
     Button2Label.Enabled := False;
     Button1Text.Enabled := True;
     Button1Label.Enabled := True;
     Button1Text.Text := 'OK';
     Button2Text.Text := '';
  end;
  if cb_Suppressible.Checked then begin
     cb_DefIDOK.Checked := True;
     cb_DefIDCANCEL.Checked := False;
     cb_DefIDYES.Checked := False;
     cb_DefIDNO.Checked := False;
     cb_DefIDABORT.Checked := False;
     cb_DefIDRETRY.Checked := False;
     cb_DefIDIGNORE.Checked := False;
     cb_DefIDOK.Enabled := True;
     cb_DefIDCANCEL.Enabled := True;
     cb_DefIDYES.Enabled := False;
     cb_DefIDNO.Enabled := False;
     cb_DefIDABORT.Enabled := False;
     cb_DefIDRETRY.Enabled := False;
     cb_DefIDIGNORE.Enabled := False;
  end;
end;

procedure TMBDForm.rbMB_RETRYCANCELClick(Sender: TObject);
begin
  cb_IDOK.Checked := False;
  cb_IDCANCEL.Checked := False;
  cb_IDABORT.Checked := False;
  cb_IDRETRY.Checked := False;
  cb_IDIGNORE.Checked := False;
  cb_IDYES.Checked := False;
  cb_IDNO.Checked := False;
  cb_IDOK.Enabled := False;
  cb_IDCANCEL.Enabled := True;
  cb_IDABORT.Enabled := False;
  cb_IDRETRY.Enabled := True;
  cb_IDIGNORE.Enabled := False;
  cb_IDYES.Enabled := False;
  cb_IDNO.Enabled := False;
  if not cb_TaskDialogMsgBox.Checked then begin
     NewStaticText1.Enabled := True;
     NewEdit1.Enabled := True;
     NewEdit1.Text := '1';
     UpDown1.Max := 2;
     UpDown1.Enabled := True;
  end;
  if cb_TaskDialogMsgBox.Checked then begin
     rb_IDOK.Enabled := False;
     rb_IDCANCEL.Enabled := True;
     rb_IDABORT.Enabled := False;
     rb_IDRETRY.Enabled := True;
     rb_IDIGNORE.Enabled := False;
     rb_IDYES.Enabled := False;
     rb_IDNO.Enabled := False;
     rb_IDOK.Checked := False;
     rb_IDCANCEL.Checked := False;
     rb_IDABORT.Checked := False;
     rb_IDRETRY.Checked := False;
     rb_IDIGNORE.Checked := False;
     rb_IDYES.Checked := False;
     rb_IDNO.Checked := False;
     Button2Text.Enabled := False;
     Button2Label.Enabled := False;
     Button1Text.Enabled := True;
     Button1Label.Enabled := True;
     Button1Text.Text := 'Retry';
     Button2Text.Text := '';
  end;
  if cb_Suppressible.Checked then begin
     cb_DefIDOK.Checked := False;
     cb_DefIDCANCEL.Checked := True;
     cb_DefIDYES.Checked := False;
     cb_DefIDNO.Checked := False;
     cb_DefIDABORT.Checked := False;
     cb_DefIDRETRY.Checked := False;
     cb_DefIDIGNORE.Checked := False;
     cb_DefIDOK.Enabled := False;
     cb_DefIDCANCEL.Enabled := True;
     cb_DefIDYES.Enabled := False;
     cb_DefIDNO.Enabled := False;
     cb_DefIDABORT.Enabled := False;
     cb_DefIDRETRY.Enabled := True;
     cb_DefIDIGNORE.Enabled := False;
  end;
end;

procedure TMBDForm.rbMB_YESNOCANCELClick(Sender: TObject);
begin
  cb_IDOK.Checked := False;
  cb_IDCANCEL.Checked := False;
  cb_IDABORT.Checked := False;
  cb_IDRETRY.Checked := False;
  cb_IDIGNORE.Checked := False;
  cb_IDYES.Checked := False;
  cb_IDNO.Checked := False;
  cb_IDOK.Enabled := False;
  cb_IDCANCEL.Enabled := True;
  cb_IDABORT.Enabled := False;
  cb_IDRETRY.Enabled := False;
  cb_IDIGNORE.Enabled := False;
  cb_IDYES.Enabled := True;
  cb_IDNO.Enabled := True;
  if not cb_TaskDialogMsgBox.Checked then begin
     NewStaticText1.Enabled := True;
     NewEdit1.Enabled := True;
     NewEdit1.Text := '1';
     UpDown1.Max := 3;
     UpDown1.Enabled := True;
  end;
  if cb_TaskDialogMsgBox.Checked then begin
     rb_IDOK.Enabled := False;
     rb_IDCANCEL.Enabled := True;
     rb_IDABORT.Enabled := False;
     rb_IDRETRY.Enabled := False;
     rb_IDIGNORE.Enabled := False;
     rb_IDYES.Enabled := True;
     rb_IDNO.Enabled := True;
     rb_IDOK.Checked := False;
     rb_IDCANCEL.Checked := False;
     rb_IDABORT.Checked := False;
     rb_IDRETRY.Checked := False;
     rb_IDIGNORE.Checked := False;
     rb_IDYES.Checked := False;
     rb_IDNO.Checked := False;
     Button2Text.Enabled := True;
     Button2Label.Enabled := True;
     Button1Text.Enabled := True;
     Button1Label.Enabled := True;
     Button1Text.Text := 'Yes';
     Button2Text.Text := 'No';
  end;
  if cb_Suppressible.Checked then begin
     cb_DefIDOK.Checked := False;
     cb_DefIDCANCEL.Checked := False;
     cb_DefIDYES.Checked := True;
     cb_DefIDNO.Checked := False;
     cb_DefIDABORT.Checked := False;
     cb_DefIDRETRY.Checked := False;
     cb_DefIDIGNORE.Checked := False;
     cb_DefIDOK.Enabled := False;
     cb_DefIDCANCEL.Enabled := True;
     cb_DefIDYES.Enabled := True;
     cb_DefIDNO.Enabled := True;
     cb_DefIDABORT.Enabled := False;
     cb_DefIDRETRY.Enabled := False;
     cb_DefIDIGNORE.Enabled := False;
  end;
end;

procedure TMBDForm.rbMB_ABORTRETRYIGNOREClick(Sender: TObject);
begin
  cb_IDOK.Checked := False;
  cb_IDCANCEL.Checked := False;
  cb_IDABORT.Checked := False;
  cb_IDRETRY.Checked := False;
  cb_IDIGNORE.Checked := False;
  cb_IDYES.Checked := False;
  cb_IDNO.Checked := False;
  cb_IDOK.Enabled := False;
  cb_IDCANCEL.Enabled := False;
  cb_IDABORT.Enabled := True;
  cb_IDRETRY.Enabled := True;
  cb_IDIGNORE.Enabled := True;
  cb_IDYES.Enabled := False;
  cb_IDNO.Enabled := False;
  if not cb_TaskDialogMsgBox.Checked then begin
     NewStaticText1.Enabled := True;
     NewEdit1.Enabled := True;
     NewEdit1.Text := '1';
     UpDown1.Max := 3;
     UpDown1.Enabled := True;
  end;
  if cb_TaskDialogMsgBox.Checked then begin
     rb_IDOK.Enabled := False;
     rb_IDCANCEL.Enabled := False;
     rb_IDABORT.Enabled := True;
     rb_IDRETRY.Enabled := True;
     rb_IDIGNORE.Enabled := True;
     rb_IDYES.Enabled := False;
     rb_IDNO.Enabled := False;
     rb_IDOK.Checked := False;
     rb_IDCANCEL.Checked := False;
     rb_IDABORT.Checked := False;
     rb_IDRETRY.Checked := False;
     rb_IDIGNORE.Checked := False;
     rb_IDYES.Checked := False;
     rb_IDNO.Checked := False;
     Button2Text.Enabled := False;
     Button2Label.Enabled := False;
     Button1Text.Enabled := False;
     Button1Label.Enabled := False;
     Button1Text.Text := '';
     Button2Text.Text := '';
  end;
  if cb_Suppressible.Checked then begin
     cb_DefIDOK.Checked := False;
     cb_DefIDCANCEL.Checked := False;
     cb_DefIDYES.Checked := False;
     cb_DefIDNO.Checked := False;
     cb_DefIDABORT.Checked := False;
     cb_DefIDRETRY.Checked := False;
     cb_DefIDIGNORE.Checked := True;
     cb_DefIDOK.Enabled := False;
     cb_DefIDCANCEL.Enabled := False;
     cb_DefIDYES.Enabled := False;
     cb_DefIDNO.Enabled := False;
     cb_DefIDABORT.Enabled := True;
     cb_DefIDRETRY.Enabled := True;
     cb_DefIDIGNORE.Enabled := True;
  end;
end;

procedure TMBDForm.UpDown1Changing(Sender: TObject; var AllowChange: Boolean);
begin
   AllowChange := True;
end;

procedure TMBDForm.cb_MsgBoxClick(Sender: TObject);
begin
   IMGmbConfirmation.Visible := True;
   cb_MB_SETFOREGROUND.Enabled := True;
   cb_MB_SETFOREGROUND.Checked := False;
   GroupBox1.Visible := True;
   if not cb_Suppressible.Checked then begin
      GroupBox4.Caption := ' Return values ';
      cb_DefIDOK.Visible := False;
      cb_DefIDCANCEL.Visible := False;
      cb_DefIDYES.Visible := False;
      cb_DefIDNO.Visible := False;
      cb_DefIDABORT.Visible := False;
      cb_DefIDRETRY.Visible := False;
      cb_DefIDIGNORE.Visible := False;
   end
   else begin
     GroupBox4.Caption := ' Return values /  -------- / Default ';
     cb_DefIDOK.Visible := True;
     cb_DefIDCANCEL.Visible := True;
     cb_DefIDYES.Visible := True;
     cb_DefIDNO.Visible := True;
     cb_DefIDABORT.Visible := True;
     cb_DefIDRETRY.Visible := True;
     cb_DefIDIGNORE.Visible := True;
   end;
   cb_IDOK.Checked := False;
   cb_IDCANCEL.Checked := False;
   cb_IDABORT.Checked := False;
   cb_IDRETRY.Checked := False;
   cb_IDIGNORE.Checked := False;
   cb_IDYES.Checked := False;
   cb_IDNO.Checked := False;
   rb_IDOK.Visible := False;
   rb_IDCANCEL.Visible := False;
   rb_IDABORT.Visible := False;
   rb_IDRETRY.Visible := False;
   rb_IDIGNORE.Visible := False;
   rb_IDYES.Visible := False;
   rb_IDNO.Visible := False;
   rb_mbInformation.Checked := True;
   TaskInstructionLabel.Visible := False;
   TaskMessageLabel.Visible := False;
   TaskInstructionText.Visible := False;
   TaskMessageText.Visible := False;
   Button1Text.Visible := False;
   Button2Text.Visible := False;
   Button1Label.Visible := False;
   Button2Label.Visible := False;
   rbMB_OK.Checked := True;
   rbMB_OKClick(Self);
end;

procedure TMBDForm.cb_SuppressibleClick(Sender: TObject);
begin
   if cb_Suppressible.Checked then begin
     cb_DefIDOK.Visible := True;
     cb_DefIDCANCEL.Visible := True;
     cb_DefIDYES.Visible := True;
     cb_DefIDNO.Visible := True;
     cb_DefIDABORT.Visible := True;
     cb_DefIDRETRY.Visible := True;
     cb_DefIDIGNORE.Visible := True;
     if cb_MsgBox.Checked then
        GroupBox4.Caption := ' Return values /  -------- / Default ';
     if cb_TaskDialogMsgBox.Checked then
        GroupBox4.Caption := ' Return values /  Shield  / Default ';
   end
   else begin
     cb_DefIDOK.Checked := False;
     cb_DefIDCANCEL.Checked := False;
     cb_DefIDYES.Checked := False;
     cb_DefIDNO.Checked := False;
     cb_DefIDABORT.Checked := False;
     cb_DefIDRETRY.Checked := False;
     cb_DefIDIGNORE.Checked := False;
     cb_DefIDOK.Visible := False;
     cb_DefIDCANCEL.Visible := False;
     cb_DefIDYES.Visible := False;
     cb_DefIDNO.Visible := False;
     cb_DefIDABORT.Visible := False;
     cb_DefIDRETRY.Visible := False;
     cb_DefIDIGNORE.Visible := False;
     if cb_MsgBox.Checked then
        GroupBox4.Caption := ' Return values ';
     if cb_TaskDialogMsgBox.Checked then
        GroupBox4.Caption := ' Return values /  Shield ';
   end;
   if rbMB_OK.Checked then rbMB_OKClick(Self);
   if rbMB_OKCANCEL.Checked then rbMB_OKCANCELClick(Self);
   if rbMB_YESNO.Checked then rbMB_YESNOClick(Self);
   if rbMB_YESNOCANCEL.Checked then rbMB_YESNOCANCELClick(Self);
   if rbMB_RETRYCANCEL.Checked then rbMB_RETRYCANCELClick(Self);
   if rbMB_ABORTRETRYIGNORE.Checked then rbMB_ABORTRETRYIGNOREClick(Self);
end;

procedure TMBDForm.cb_TaskDialogMsgBoxClick(Sender: TObject);
begin
   IMGmbConfirmation.Visible := False;
   cb_MB_SETFOREGROUND.Enabled := False;
   cb_MB_SETFOREGROUND.Checked := False;
   GroupBox1.Visible := False;
   if not cb_Suppressible.Checked then begin
     GroupBox4.Caption := ' Return values /  Shield ';
      cb_DefIDOK.Visible := False;
      cb_DefIDCANCEL.Visible := False;
      cb_DefIDYES.Visible := False;
      cb_DefIDNO.Visible := False;
      cb_DefIDABORT.Visible := False;
      cb_DefIDRETRY.Visible := False;
      cb_DefIDIGNORE.Visible := False;
   end
   else begin
     GroupBox4.Caption := ' Return values /  Shield  / Default ';
     cb_DefIDOK.Visible := True;
     cb_DefIDCANCEL.Visible := True;
     cb_DefIDYES.Visible := True;
     cb_DefIDNO.Visible := True;
     cb_DefIDABORT.Visible := True;
     cb_DefIDRETRY.Visible := True;
     cb_DefIDIGNORE.Visible := True;
   end;
   cb_IDOK.Checked := False;
   cb_IDCANCEL.Checked := False;
   cb_IDABORT.Checked := False;
   cb_IDRETRY.Checked := False;
   cb_IDIGNORE.Checked := False;
   cb_IDYES.Checked := False;
   cb_IDNO.Checked := False;
   rb_IDOK.Checked := False;
   rb_IDCANCEL.Checked := False;
   rb_IDABORT.Checked := False;
   rb_IDRETRY.Checked := False;
   rb_IDIGNORE.Checked := False;
   rb_IDYES.Checked := False;
   rb_IDNO.Checked := False;
   rb_IDOK.Visible := True;
   rb_IDCANCEL.Visible := True;
   rb_IDABORT.Visible := True;
   rb_IDRETRY.Visible := True;
   rb_IDIGNORE.Visible := True;
   rb_IDYES.Visible := True;
   rb_IDNO.Visible := True;
   rb_mbInformation.Checked := True;
   TaskInstructionLabel.Visible := True;
   TaskMessageLabel.Visible := True;
   TaskInstructionText.Visible := True;
   TaskMessageText.Visible := True;
   Button1Text.Visible := True;
   Button2Text.Visible := True;
   Button1Label.Visible := True;
   Button2Label.Visible := True;
   TaskInstructionText.Text := 'Instruction Text';
   TaskMessageText.Text := 'Message Text';
   // Button1Text.Text := '';
   // Button2Text.Text := '';
   rbMB_OK.Checked := True;
   rbMB_OKClick(Self);
end;

procedure TMBDForm.rb_IDOKClick(Sender: TObject);
begin
   if rb_IDOK.Checked then
      rb_IDCANCEL.Checked := False;
end;

procedure TMBDForm.rb_IDCANCELClick(Sender: TObject);
begin
   if rb_IDCANCEL.Checked then begin
      rb_IDOK.Checked := False;
      rb_IDNO.Checked := False;
      rb_IDYES.Checked := False;
      rb_IDRETRY.Checked := False;
   end;
end;

procedure TMBDForm.rb_IDYESClick(Sender: TObject);
begin
   if rb_IDYES.Checked then begin
      rb_IDNO.Checked := False;
      rb_IDCANCEL.Checked := False;
   end;
end;

procedure TMBDForm.rb_IDNOClick(Sender: TObject);
begin
   if rb_IDNO.Checked then begin
      rb_IDYES.Checked := False;
      rb_IDCANCEL.Checked := False;
   end;
end;

procedure TMBDForm.rb_IDRETRYClick(Sender: TObject);
begin
   if rb_IDRETRY.Checked then begin
      rb_IDCANCEL.Checked := False;
      rb_IDABORT.Checked := False;
      rb_IDIGNORE.Checked := False;
   end;
end;

procedure TMBDForm.rb_IDIGNOREClick(Sender: TObject);
begin
   if rb_IDIGNORE.Checked then begin
      rb_IDABORT.Checked := False;
      rb_IDRETRY.Checked := False;
   end;
end;

procedure TMBDForm.rb_IDABORTClick(Sender: TObject);
begin
   if rb_IDABORT.Checked then begin
      rb_IDIGNORE.Checked := False;
      rb_IDRETRY.Checked := False;
   end;
end;

procedure TMBDForm.MBDButtonPreviewClick(Sender: TObject);
var
  ButtonsBtn : Cardinal;
  TypeIcon : TMsgBoxType;
  CaptionMsg : String;
  ShieldFlag : Integer;
  ButtonLabelsArray: TArray<string>;
begin
  { default value }
  ButtonsBtn := MB_OK;
  TypeIcon := mbInformation;
  ShieldFlag := 0;

  { icon and caption set }
  if rb_mbInformation.Checked then begin
     CaptionMsg := 'Info';
     TypeIcon := mbInformation;
  end;
  if rb_mbConfirmation.Checked then begin
     CaptionMsg := 'Confirm';
     TypeIcon := mbConfirmation;
  end;
  if rb_mbError.Checked then begin
     CaptionMsg := 'Error';
     TypeIcon := mbError;
  end;
  if rb_mbCriticalError.Checked then begin
     CaptionMsg := 'Fatal Error';
     TypeIcon := mbCriticalError;
  end;

  { button type set }
  if rbMB_OK.Checked then ButtonsBtn := MB_OK;
  if rbMB_OKCANCEL.Checked then ButtonsBtn := MB_OKCANCEL;
  if rbMB_YESNO.Checked then ButtonsBtn := MB_YESNO;
  if rbMB_YESNOCANCEL.Checked then ButtonsBtn := MB_YESNOCANCEL;
  if rbMB_RETRYCANCEL.Checked then ButtonsBtn := MB_RETRYCANCEL;
  if rbMB_ABORTRETRYIGNORE.Checked then ButtonsBtn := MB_ABORTRETRYIGNORE;

  { MsgBox(Text, Caption, Typ, Buttons); preview }
  if cb_MsgBox.Checked then begin
    if MSGText.GetTextLen = 0 then
       MSGText.Lines.Add('Your message text.');
    { MessageBox with DefButton }
    if NewEdit1.Text = '1' then
       MsgBox(MSGText.Lines.GetText, CaptionMsg, TypeIcon, ButtonsBtn);
    if NewEdit1.Text = '2' then
       MsgBox(MSGText.Lines.GetText, CaptionMsg, TypeIcon, ButtonsBtn or MB_DEFBUTTON2);
    if NewEdit1.Text = '3' then
       MsgBox(MSGText.Lines.GetText, CaptionMsg, TypeIcon, ButtonsBtn or MB_DEFBUTTON3);
    { MessageBox with DefButton and Flag MB_SETFOREGROUND }
    if (NewEdit1.Text = '1') and (cb_MB_SETFOREGROUND.Checked) then
       MsgBox(MSGText.Lines.GetText, CaptionMsg, TypeIcon, ButtonsBtn or MB_SETFOREGROUND);
    if (NewEdit1.Text = '2') and (cb_MB_SETFOREGROUND.Checked) then
       MsgBox(MSGText.Lines.GetText, CaptionMsg, TypeIcon, ButtonsBtn or MB_DEFBUTTON2 or MB_SETFOREGROUND);
    if (NewEdit1.Text = '3') and (cb_MB_SETFOREGROUND.Checked) then
       MsgBox(MSGText.Lines.GetText, CaptionMsg, TypeIcon, ButtonsBtn or MB_DEFBUTTON3 or MB_SETFOREGROUND);
  end;

  { TaskDialogMsgBox preview}
  if cb_TaskDialogMsgBox.Checked then begin
     { create ButtonLabels array }
     if rbMB_YESNO.Checked or rbMB_YESNOCANCEL.Checked then
        ButtonLabelsArray := TArray<string>.Create(Button1Text.Text, Button2Text.Text)
     else if rbMB_ABORTRETRYIGNORE.Checked then
        ButtonLabelsArray := TArray<string>.Create('Retry', 'Ignore', 'Abort')
     else
        ButtonLabelsArray := TArray<string>.Create(Button1Text.Text);

     { get Shield Flag value }
     if rbMB_OK.Checked and rb_IDOK.Checked then ShieldFlag := IDOK;
     if rbMB_OKCANCEL.Checked and rb_IDOK.Checked then ShieldFlag := IDOK;
     if rbMB_OKCANCEL.Checked and rb_IDCANCEL.Checked then ShieldFlag := IDCANCEL;
     if rbMB_YESNO.Checked and rb_IDYES.Checked then ShieldFlag := IDYES;
     if rbMB_YESNO.Checked and rb_IDNO.Checked then ShieldFlag := IDNO;
     if rbMB_YESNOCANCEL.Checked and rb_IDYES.Checked then ShieldFlag := IDYES;
     if rbMB_YESNOCANCEL.Checked and rb_IDNO.Checked then ShieldFlag := IDNO;
     if rbMB_YESNOCANCEL.Checked and rb_IDCANCEL.Checked then ShieldFlag := IDCANCEL;
     if rbMB_RETRYCANCEL.Checked and rb_IDRETRY.Checked then ShieldFlag := IDRETRY;
     if rbMB_RETRYCANCEL.Checked and rb_IDCANCEL.Checked then ShieldFlag := IDCANCEL;
     if rbMB_ABORTRETRYIGNORE.Checked and rb_IDRETRY.Checked then ShieldFlag := IDRETRY;
     if rbMB_ABORTRETRYIGNORE.Checked and rb_IDABORT.Checked then ShieldFlag := IDABORT;
     if rbMB_ABORTRETRYIGNORE.Checked and rb_IDIGNORE.Checked then ShieldFlag := IDIGNORE;

     { TaskDialogMsgBox(Icon, Instruction, Text, Caption, Typ, Buttons, ButtonLabels, ShieldButton) }
     TaskDialogMsgBox('',
                      TaskInstructionText.Text,
                      TaskMessageText.Text,
                      CaptionMsg,
                      TypeIcon,
                      ButtonsBtn,
                      ButtonLabelsArray,
                      ShieldFlag);
  end;
end;

procedure TMBDForm.MSGTextKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #27 then begin
    MBDButtonCancel.Click;
    Key := #0;
  end;
end;

function TMBDForm.GetText: String;

   { MsgBox / SuppressibleMsgBox }
   function TextMsg(M: Integer; a, b, c, d, e, f: String): String;
    { (M) - TypeMsg
      (a) - TextMsgIf
      (b) - IconTypes
      (c) - ButtonBtn
      (d) - IDButton
      (e) - IDButton2
      (f) - IDButton3 }
   var
      SMsg, TypeMsgBox : String;
   begin
     if not cb_Suppressible.Checked then
        TypeMsgBox := 'MsgBox'
     else
        TypeMsgBox := 'SuppressibleMsgBox';
     SMsg := TypeMsgBox + '(''' + a + ''', ' + b + ', ' + c + ')';
     case M of
        0: Result := SMsg + ';';
        1: Result := 'if ' + SMsg + ' = ' + d + ' then' + SNewLine + 'begin' + SNewLine + #9 + '// user clicked ' + StringReplace(d, 'ID', '', []) + SNewLine + 'end;';
        2: Result := 'case ' + SMsg + ' of ' + SNewLine + #9 + d +': { user clicked ' + StringReplace(d, 'ID', '', []) + ' };' + SNewLine + #9 + e +': { user clicked ' + StringReplace(e, 'ID', '', []) + ' };' + SNewLine + 'end;';
        3: Result := 'case ' + SMsg + ' of ' + SNewLine + #9 + d +': { user clicked ' + StringReplace(d, 'ID', '', []) + ' };' + SNewLine + #9 + e +': { user clicked ' + StringReplace(e, 'ID', '', []) + ' };' + SNewLine + #9 + 'else { user clicked ' + StringReplace(f, 'ID', '', []) + ' };' + SNewLine + 'end;';
     end;
   end;

   { TaskDialogMsgBox / SuppressibleTaskDialogMsgBox }
   function TextTask(N: Integer; a, b, c, r, s, d, e, f: String): String;
    { (N) - TypeMsg
      (a) - TextMsgIf (Button1Text.Text and Button2Text.Text)
      (b) - IconTypes
      (c) - ButtonBtn
      (r) - BtnTextArr
      (s) - ShieldFlg
      (d) - IDButton
      (e) - IDButton2
      (f) - IDButton3 }
   var
      STsg, TypeMsgBox : String;
   begin
     if not cb_Suppressible.Checked then
        TypeMsgBox := 'TaskDialogMsgBox'
     else
        TypeMsgBox := 'SuppressibleTaskDialogMsgBox';
     STsg := TypeMsgBox + '(''' + a + ''', ' + b + ', ' + c + ', [''' + r + '''], ' + s + ')';
     case N of
        0: Result := STsg + ';';
        1: Result := 'if ' + STsg + ' = ' + d + ' then' + SNewLine + 'begin' + SNewLine + #9 + '// user clicked ' + StringReplace(d, 'ID', '', []) + SNewLine + 'end;';
        2: Result := 'case ' + STsg + ' of ' + SNewLine + #9 + d +': { user clicked ' + StringReplace(d, 'ID', '', []) + ' };' + SNewLine + #9 + e +': { user clicked ' + StringReplace(e, 'ID', '', []) + ' };' + SNewLine + 'end;';
        3: Result := 'case ' + STsg + ' of ' + SNewLine + #9 + d +': { user clicked ' + StringReplace(d, 'ID', '', []) + ' };' + SNewLine + #9 + e +': { user clicked ' + StringReplace(e, 'ID', '', []) + ' };' + SNewLine + #9 + 'else { user clicked ' + StringReplace(f, 'ID', '', []) + ' };' + SNewLine + 'end;';
     end;
   end;

const
  remarka = '// Display a message box';

var
  MSGTextInsert: TStringList;
  ButtonBtn, TextMsgIf, IconTypes : String;
  IDButton, IDButton2, IDButton3 : String;
  TypeMsg, ModeMsg : Integer;
  BtnTextArr, ShieldFlg, BtnSupprDef : String;
begin
  { default value }
  ButtonBtn := 'MB_OK';
  IconTypes := 'mbInformation';
  ShieldFlg := '0';
  TypeMsg := 0;
  ModeMsg := 0;
  BtnSupprDef := '';

  { make a string with DefBtn for Suppressible }
  if cb_Suppressible.Checked then begin
     if cb_DefIDOK.Checked then BtnSupprDef := ', IDOK';
     if cb_DefIDCANCEL.Checked then BtnSupprDef := ', IDCANCEL';
     if cb_DefIDYES.Checked then BtnSupprDef := ', IDYES';
     if cb_DefIDNO.Checked then BtnSupprDef := ', IDNO';
     if cb_DefIDABORT.Checked then BtnSupprDef := ', IDABORT';
     if cb_DefIDRETRY.Checked then BtnSupprDef := ', IDRETRY';
     if cb_DefIDIGNORE.Checked then BtnSupprDef := ', IDIGNORE';
  end;

  { icon and caption set }
  if rb_mbInformation.Checked then begin
     IconTypes := 'mbInformation';
  end;
  if rb_mbConfirmation.Checked then begin
     IconTypes := 'mbConfirmation';
  end;
  if rb_mbError.Checked then begin
     IconTypes := 'mbError';
  end;
  if rb_mbCriticalError.Checked then begin
     IconTypes := 'mbCriticalError';
  end;

  { button type set }
  if rbMB_OK.Checked then ButtonBtn := 'MB_OK';
  if rbMB_OKCANCEL.Checked then ButtonBtn := 'MB_OKCANCEL';
  if rbMB_YESNO.Checked then ButtonBtn := 'MB_YESNO';
  if rbMB_YESNOCANCEL.Checked then ButtonBtn := 'MB_YESNOCANCEL';
  if rbMB_RETRYCANCEL.Checked then ButtonBtn := 'MB_RETRYCANCEL';
  if rbMB_ABORTRETRYIGNORE.Checked then ButtonBtn := 'MB_ABORTRETRYIGNORE';

  MSGTextInsert := TStringList.Create;
  try
    MSGTextInsert.Add(remarka);

    if cb_MsgBox.Checked then begin
       { MsgBox(Text, Typ, Buttons); }
       ModeMsg := 0;

       // rbMB_OK.Checked
       { MessageBox with DefButton }
       { MessageBox with DefButton and Flag MB_SETFOREGROUND }
       if (rbMB_OK.Checked) and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_OK or MB_SETFOREGROUND';

       // rbMB_OKCANCEL
       { MessageBox with DefButton }
       if (rbMB_OKCANCEL.Checked) and (NewEdit1.Text = '2') then
          ButtonBtn := 'MB_OKCANCEL or MB_DEFBUTTON2';
       { MessageBox with DefButton and Flag MB_SETFOREGROUND }
       if (rbMB_OKCANCEL.Checked) and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_OKCANCEL or MB_SETFOREGROUND';
       if (rbMB_OKCANCEL.Checked) and (NewEdit1.Text = '2') and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_OKCANCEL or MB_DEFBUTTON2 or MB_SETFOREGROUND';

       // rbMB_YESNO
       { MessageBox with DefButton }
       if (rbMB_YESNO.Checked) and (NewEdit1.Text = '2') then
          ButtonBtn := 'MB_YESNO or MB_DEFBUTTON2';
       { MessageBox with DefButton and Flag MB_SETFOREGROUND }
       if (rbMB_YESNO.Checked) and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_YESNO or MB_SETFOREGROUND';
       if (rbMB_YESNO.Checked) and (NewEdit1.Text = '2') and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_YESNO or MB_DEFBUTTON2 or MB_SETFOREGROUND';

       // rbMB_RETRYCANCEL
       { MessageBox with DefButton }
       if (rbMB_RETRYCANCEL.Checked) and (NewEdit1.Text = '2') then
          ButtonBtn := 'MB_RETRYCANCEL or MB_DEFBUTTON2';
       { MessageBox with DefButton and Flag MB_SETFOREGROUND }
       if (rbMB_RETRYCANCEL.Checked) and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_RETRYCANCEL or MB_SETFOREGROUND';
       if (rbMB_RETRYCANCEL.Checked) and (NewEdit1.Text = '2') and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_RETRYCANCEL or MB_DEFBUTTON2 or MB_SETFOREGROUND';

       // rbMB_YESNOCANCEL
       { MessageBox with DefButton }
       if (rbMB_YESNOCANCEL.Checked) and (NewEdit1.Text = '2') then
          ButtonBtn := 'MB_YESNOCANCEL or MB_DEFBUTTON2';
       if (rbMB_YESNOCANCEL.Checked) and (NewEdit1.Text = '3') then
          ButtonBtn := 'MB_YESNOCANCEL or MB_DEFBUTTON3';
       { MessageBox with DefButton and Flag MB_SETFOREGROUND }
       if (rbMB_YESNOCANCEL.Checked) and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_YESNOCANCEL or MB_SETFOREGROUND';
       if (rbMB_YESNOCANCEL.Checked) and (NewEdit1.Text = '2') and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_YESNOCANCEL or MB_DEFBUTTON2 or MB_SETFOREGROUND';
       if (rbMB_YESNOCANCEL.Checked) and (NewEdit1.Text = '3') and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_YESNOCANCEL or MB_DEFBUTTON3 or MB_SETFOREGROUND';

       // rbMB_ABORTRETRYIGNORE
       { MessageBox with DefButton }
       if (rbMB_ABORTRETRYIGNORE.Checked) and (NewEdit1.Text = '2') then
          ButtonBtn := 'MB_ABORTRETRYIGNORE or MB_DEFBUTTON2';
       if (rbMB_ABORTRETRYIGNORE.Checked) and (NewEdit1.Text = '3') then
          ButtonBtn := 'MB_ABORTRETRYIGNORE or MB_DEFBUTTON3';
       { MessageBox with DefButton and Flag MB_SETFOREGROUND }
       if (rbMB_ABORTRETRYIGNORE.Checked) and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_ABORTRETRYIGNORE or MB_SETFOREGROUND';
       if (rbMB_ABORTRETRYIGNORE.Checked) and (NewEdit1.Text = '2') and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_ABORTRETRYIGNORE or MB_DEFBUTTON2 or MB_SETFOREGROUND';
       if (rbMB_ABORTRETRYIGNORE.Checked) and (NewEdit1.Text = '3') and (cb_MB_SETFOREGROUND.Checked) then
          ButtonBtn := 'MB_ABORTRETRYIGNORE or MB_DEFBUTTON3 or MB_SETFOREGROUND';

       { Suppressible msg }
       if cb_Suppressible.Checked then ButtonBtn := ButtonBtn + BtnSupprDef;

       { replace in a message string escape /r/n }
       TextMsgIf := StringReplace(MSGText.Lines.GetText, SNewLine, '''#13#10''', [rfReplaceAll]);
    end;

    if cb_TaskDialogMsgBox.Checked then begin
       { TaskDialogMsgBox(TaskInstructionText.Text, TaskMessageText.Text, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg) }
       ModeMsg := 1;

       { create ButtonLabels array }
       if rbMB_YESNO.Checked or rbMB_YESNOCANCEL.Checked then
          BtnTextArr :=  Button1Text.Text + ''', ''' + Button2Text.Text
       else if rbMB_ABORTRETRYIGNORE.Checked then
          BtnTextArr := 'Retry'', ''Ignore'', ''Abort'
       else
          BtnTextArr := Button1Text.Text;

       { get Shield Flag value }
       if rbMB_OK.Checked and rb_IDOK.Checked then ShieldFlg := 'IDOK';
       if rbMB_OKCANCEL.Checked and rb_IDOK.Checked then ShieldFlg := 'IDOK';
       if rbMB_OKCANCEL.Checked and rb_IDCANCEL.Checked then ShieldFlg := 'IDCANCEL';
       if rbMB_YESNO.Checked and rb_IDYES.Checked then ShieldFlg := 'IDYES';
       if rbMB_YESNO.Checked and rb_IDNO.Checked then ShieldFlg := 'IDNO';
       if rbMB_YESNOCANCEL.Checked and rb_IDYES.Checked then ShieldFlg := 'IDYES';
       if rbMB_YESNOCANCEL.Checked and rb_IDNO.Checked then ShieldFlg := 'IDNO';
       if rbMB_YESNOCANCEL.Checked and rb_IDCANCEL.Checked then ShieldFlg := 'IDCANCEL';
       if rbMB_RETRYCANCEL.Checked and rb_IDRETRY.Checked then ShieldFlg := 'IDRETRY';
       if rbMB_RETRYCANCEL.Checked and rb_IDCANCEL.Checked then ShieldFlg := 'IDCANCEL';
       if rbMB_ABORTRETRYIGNORE.Checked and rb_IDRETRY.Checked then ShieldFlg := 'IDRETRY';
       if rbMB_ABORTRETRYIGNORE.Checked and rb_IDABORT.Checked then ShieldFlg := 'IDABORT';
       if rbMB_ABORTRETRYIGNORE.Checked and rb_IDIGNORE.Checked then ShieldFlg := 'IDIGNORE';

       { Suppressible msg }
       if cb_Suppressible.Checked then ShieldFlg := ShieldFlg + BtnSupprDef;

       TextMsgIf := TaskInstructionText.Text + ''', ''' + TaskMessageText.Text;
    end;

    { selected button OK }
    if (cb_IDOK.Checked and not cb_IDCANCEL.Checked) then begin
       IDButton := 'IDOK';
       TypeMsg := 1;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, '', '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, '', '');
       end;
    end

    { selected button CANCEL }
    else if (cb_IDCANCEL.Checked and not cb_IDOK.Checked and not cb_IDRETRY.Checked and not cb_IDYES.Checked and not cb_IDNO.Checked and not cb_IDABORT.Checked and not cb_IDIGNORE.Checked) then begin
       IDButton := 'IDCANCEL';
       TypeMsg := 1;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, '', '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, '', '');
       end;
    end

    { selected button OK and CANCEL }
    else if (cb_IDCANCEL.Checked and cb_IDOK.Checked and not cb_IDRETRY.Checked and not cb_IDYES.Checked and not cb_IDNO.Checked) then begin
       IDButton := 'IDOK';
       IDButton2 := 'IDCANCEL';
       TypeMsg := 2;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, IDButton2, '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, IDButton2, '');
       end;
    end

    { selected button YES }
    else if (cb_IDYES.Checked and not cb_IDNO.Checked and not cb_IDCANCEL.Checked) then begin
       IDButton := 'IDYES';
       TypeMsg := 1;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, '', '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, '', '');
       end;
    end

    { selected button NO }
    else if (cb_IDNO.Checked and not cb_IDYES.Checked and not cb_IDCANCEL.Checked) then begin
       IDButton := 'IDNO';
       TypeMsg := 1;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, '', '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, '', '');
       end;
    end

    { selected button YES and NO }
    else if (cb_IDYES.Checked and cb_IDNO.Checked and not cb_IDCANCEL.Checked) then begin
       IDButton := 'IDYES';
       IDButton2 := 'IDNO';
       TypeMsg := 2;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, IDButton2, '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, IDButton2, '');
       end;
    end

    { selected button YES and CANCEL }
    else if (cb_IDYES.Checked and not cb_IDNO.Checked and cb_IDCANCEL.Checked) then begin
       IDButton := 'IDYES';
       IDButton2 := 'IDCANCEL';
       TypeMsg := 2;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, IDButton2, '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, IDButton2, '');
       end;
    end

    { selected button NO and CANCEL }
    else if (cb_IDNO.Checked and not cb_IDYES.Checked and cb_IDCANCEL.Checked) then begin
       IDButton := 'IDNO';
       IDButton2 := 'IDCANCEL';
       TypeMsg := 2;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, IDButton2, '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, IDButton2, '');
       end;
    end

    { selected button YES, NO and CANCEL }
    else if (cb_IDYES.Checked and cb_IDNO.Checked and cb_IDCANCEL.Checked) then begin
       IDButton := 'IDYES';
       IDButton2 := 'IDNO';
       IDButton3 := 'IDCANCEL';
       TypeMsg := 3;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, IDButton2, IDButton3);
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, IDButton2, IDButton3);
       end;
    end

    { selected button RETRY }
    else if (cb_IDRETRY.Checked and not cb_IDCANCEL.Checked and not cb_IDABORT.Checked and not cb_IDIGNORE.Checked) then begin
       IDButton := 'IDRETRY';
       TypeMsg := 1;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, '', '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, '', '');
       end;
    end

    { selected button RETRY and CANCEL }
    else if (cb_IDRETRY.Checked and cb_IDCANCEL.Checked and not cb_IDABORT.Checked and not cb_IDIGNORE.Checked) then begin
       IDButton := 'IDRETRY';
       IDButton2 := 'IDCANCEL';
       TypeMsg := 2;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, IDButton2, '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, IDButton2, '');
       end;
    end

    { selected button IGNORE }
    else if (cb_IDIGNORE.Checked and not cb_IDCANCEL.Checked and not cb_IDABORT.Checked and not cb_IDRETRY.Checked) then begin
       IDButton := 'IDIGNORE';
       TypeMsg := 1;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, '', '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, '', '');
       end;
    end

    { selected button ABORT }
    else if (cb_IDABORT.Checked and not cb_IDCANCEL.Checked and not cb_IDRETRY.Checked and not cb_IDIGNORE.Checked) then begin
       IDButton := 'IDABORT';
       TypeMsg := 1;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, '', '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, '', '');
       end;
    end

    { selected button RETRY and IGNORE }
    else if (cb_IDRETRY.Checked and not cb_IDCANCEL.Checked and not cb_IDABORT.Checked and cb_IDIGNORE.Checked) then begin
       IDButton := 'IDRETRY';
       IDButton2 := 'IDIGNORE';
       TypeMsg := 2;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, IDButton2, '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, IDButton2, '');
       end;
    end

    { selected button RETRY and ABORT }
    else if (cb_IDRETRY.Checked and not cb_IDCANCEL.Checked and cb_IDABORT.Checked and not cb_IDIGNORE.Checked) then begin
       IDButton := 'IDRETRY';
       IDButton2 := 'IDABORT';
       TypeMsg := 2;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, IDButton2, '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, IDButton2, '');
       end;
    end

    { selected button IGNORE and ABORT }
    else if (not cb_IDRETRY.Checked and not cb_IDCANCEL.Checked and cb_IDABORT.Checked and cb_IDIGNORE.Checked) then begin
       IDButton := 'IDIGNORE';
       IDButton2 := 'IDABORT';
       TypeMsg := 2;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, IDButton2, '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, IDButton2, '');
       end;
    end

    { selected button RETRY, IGNORE and ABORT }
    else if (cb_IDRETRY.Checked and not cb_IDCANCEL.Checked and cb_IDABORT.Checked and cb_IDIGNORE.Checked) then begin
       IDButton := 'IDRETRY';
       IDButton2 := 'IDIGNORE';
       IDButton3 := 'IDABORT';
       TypeMsg := 3;
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, IDButton, IDButton2, IDButton3);
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, IDButton, IDButton2, IDButton3);
       end;
    end

    { no selected buttons }
    else begin
       case ModeMsg of
          0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, '', '', '');
          1: TextMsgIf := TextTask(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg, '', '', '');
       end;
    end;

    MSGTextInsert.Add(TextMsgIf);

    Result := MSGTextInsert.Text;
  finally
    MSGTextInsert.Free;
  end;
end;

end.