Merge remote-tracking branch 'leserg73/main' into msgbox-designer

Projects/MessageBoxInsert.dfm

@@ -4,7 +4,7 @@ object MBDForm: TMBDForm
   BorderStyle = bsDialog
   Caption = 'MessageBox Designer'
   ClientHeight = 380
-  ClientWidth = 503
+  ClientWidth = 548
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -15,7 +15,7 @@ object MBDForm: TMBDForm
   Position = poMainFormCenter
   OnCreate = FormCreate
   DesignSize = (
-    503
+    548
     380)
   PixelsPerInch = 96
   TextHeight = 13
@@ -25,7 +25,15 @@ object MBDForm: TMBDForm
     Width = 57
     Height = 14
     Caption = 'Instruction:'
-    TabOrder = 7
+    TabOrder = 11
+  end
+  object TaskInstructionText: TEdit
+    Left = 89
+    Top = 10
+    Width = 449
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 1
   end
   object TaskMesssageLabel: TNewStaticText
     Left = 18
@@ -33,7 +41,15 @@ object MBDForm: TMBDForm
     Width = 52
     Height = 14
     Caption = 'Messsage:'
-    TabOrder = 8
+    TabOrder = 12
+  end
+  object TaskMesssageText: TEdit
+    Left = 89
+    Top = 36
+    Width = 449
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 2
   end
   object Button1Label: TNewStaticText
     Left = 18
@@ -43,6 +59,13 @@ object MBDForm: TMBDForm
     Caption = 'Text Button1:'
     TabOrder = 13
   end
+  object Button1Text: TEdit
+    Left = 89
+    Top = 62
+    Width = 159
+    Height = 21
+    TabOrder = 3
+  end
   object Button2Label: TNewStaticText
     Left = 258
     Top = 67
@@ -51,42 +74,129 @@ object MBDForm: TMBDForm
     Caption = 'Text Button2:'
     TabOrder = 14
   end
-  object TaskInstructionText: TEdit
-    Left = 89
-    Top = 10
-    Width = 404
-    Height = 21
-    TabOrder = 9
-  end
-  object TaskMesssageText: TEdit
-    Left = 89
-    Top = 36
-    Width = 404
-    Height = 21
-    TabOrder = 10
-  end
-  object Button1Text: TEdit
-    Left = 89
-    Top = 62
-    Width = 159
-    Height = 21
-    TabOrder = 11
-  end
   object Button2Text: TEdit
     Left = 334
     Top = 62
-    Width = 159
+    Width = 204
     Height = 21
-    TabOrder = 12
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 4
+  end
+  object GroupBox1: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 532
+    Height = 81
+    Anchors = [akLeft, akTop, akRight]
+    Caption = ' Message '
+    TabOrder = 0
+    DesignSize = (
+      532
+      81)
+    object MSGText: TMemo
+      Left = 7
+      Top = 20
+      Width = 519
+      Height = 53
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      ScrollBars = ssVertical
+      TabOrder = 0
+    end
+  end
+  object GroupBox6: TGroupBox
+    Left = 8
+    Top = 93
+    Width = 240
+    Height = 60
+    Caption = ' Type'
+    TabOrder = 5
+    object cb_Suppressible: TCheckBox
+      Left = 14
+      Top = 24
+      Width = 86
+      Height = 17
+      Caption = 'Suppressible'
+      TabOrder = 0
+      OnClick = cb_SuppressibleClick
+    end
+    object cb_MsgBox: TRadioButton
+      Left = 115
+      Top = 13
+      Width = 115
+      Height = 17
+      Caption = 'MsgBox'
+      Checked = True
+      TabOrder = 1
+      TabStop = True
+      OnClick = cb_MsgBoxClick
+    end
+    object cb_TaskDialogMsgBox: TRadioButton
+      Left = 115
+      Top = 36
+      Width = 115
+      Height = 17
+      Caption = 'TaskDialogMsgBox'
+      TabOrder = 2
+      TabStop = True
+      OnClick = cb_TaskDialogMsgBoxClick
+    end
+  end
+  object GroupBox5: TGroupBox
+    Left = 258
+    Top = 93
+    Width = 282
+    Height = 60
+    Anchors = [akLeft, akTop, akRight]
+    Caption = ' Flags '
+    TabOrder = 6
+    object NewStaticText1: TNewStaticText
+      Left = 14
+      Top = 26
+      Width = 75
+      Height = 14
+      Caption = 'Default button:'
+      TabOrder = 3
+    end
+    object NewEdit1: TEdit
+      Left = 95
+      Top = 22
+      Width = 23
+      Height = 21
+      Alignment = taRightJustify
+      NumbersOnly = True
+      ReadOnly = True
+      TabOrder = 0
+      Text = '1'
+    end
+    object UpDown1: TUpDown
+      Left = 118
+      Top = 22
+      Width = 16
+      Height = 21
+      Associate = NewEdit1
+      Min = 1
+      Max = 3
+      Position = 1
+      TabOrder = 1
+      OnChanging = UpDown1Changing
+    end
+    object cb_MB_SETFOREGROUND: TCheckBox
+      Left = 146
+      Top = 24
+      Width = 128
+      Height = 17
+      Caption = 'MB_SETFOREGROUND'
+      TabOrder = 2
+    end
   end
   object GroupBox2: TGroupBox
     Left = 8
-    Top = 95
+    Top = 157
     Width = 160
     Height = 174
-    Anchors = [akLeft, akTop, akRight]
+    Anchors = [akLeft, akTop, akBottom]
     Caption = ' Icon '
-    TabOrder = 1
+    TabOrder = 7
     DesignSize = (
       160
       174)
@@ -253,6 +363,7 @@ object MBDForm: TMBDForm
       Caption = 'mbInformation'
       Checked = True
       TabOrder = 0
+      TabStop = True
     end
     object rb_mbConfirmation: TRadioButton
       Left = 53
@@ -262,6 +373,7 @@ object MBDForm: TMBDForm
       Anchors = [akLeft, akTop, akRight]
       Caption = 'mbConfirmation'
       TabOrder = 1
+      TabStop = True
     end
     object rb_mbError: TRadioButton
       Left = 53
@@ -271,6 +383,7 @@ object MBDForm: TMBDForm
       Anchors = [akLeft, akTop, akRight]
       Caption = 'mbError'
       TabOrder = 2
+      TabStop = True
     end
     object rb_mbCriticalError: TRadioButton
       Left = 53
@@ -280,69 +393,17 @@ object MBDForm: TMBDForm
       Anchors = [akLeft, akTop, akRight]
       Caption = 'mbCriticalError'
       TabOrder = 3
-    end
-  end
-  object Panel1: TPanel
-    Left = 0
-    Top = 338
-    Width = 503
-    Height = 42
-    Align = alBottom
-    BevelOuter = bvNone
-    TabOrder = 2
-    DesignSize = (
-      503
-      42)
-    object Bevel1: TBevel
-      Left = 0
-      Top = 0
-      Width = 503
-      Height = 3
-      Align = alTop
-      Shape = bsBottomLine
-      ExplicitLeft = 168
-      ExplicitWidth = 50
-    end
-    object MBDButtonCancel: TButton
-      Left = 418
-      Top = 11
-      Width = 75
-      Height = 25
-      Anchors = [akRight, akBottom]
-      Caption = 'Cancel'
-      ModalResult = 2
-      TabOrder = 1
-    end
-    object MBDButtonOK: TButton
-      Left = 334
-      Top = 11
-      Width = 75
-      Height = 25
-      Anchors = [akRight, akBottom]
-      Caption = 'OK'
-      ModalResult = 1
-      TabOrder = 0
-      OnClick = MBDButtonOKClick
-    end
-    object MBDButtonPreview: TButton
-      Left = 10
-      Top = 11
-      Width = 80
-      Height = 25
-      Anchors = [akLeft, akBottom]
-      Caption = 'Preview'
-      TabOrder = 2
-      OnClick = MBDButtonPreviewClick
+      TabStop = True
     end
   end
   object GroupBox3: TGroupBox
-    Left = 180
-    Top = 95
+    Left = 179
+    Top = 157
     Width = 169
     Height = 174
-    Anchors = [akLeft, akTop, akRight]
+    Anchors = [akLeft, akTop, akBottom]
     Caption = ' Buttons '
-    TabOrder = 3
+    TabOrder = 8
     DesignSize = (
       169
       174)
@@ -355,6 +416,7 @@ object MBDForm: TMBDForm
       Caption = 'MB_OK'
       Checked = True
       TabOrder = 0
+      TabStop = True
       OnClick = rbMB_OKClick
     end
     object rbMB_OKCANCEL: TRadioButton
@@ -365,6 +427,7 @@ object MBDForm: TMBDForm
       Anchors = [akLeft, akTop, akRight]
       Caption = 'MB_OKCANCEL'
       TabOrder = 1
+      TabStop = True
       OnClick = rbMB_OKCANCELClick
     end
     object rbMB_YESNO: TRadioButton
@@ -375,6 +438,7 @@ object MBDForm: TMBDForm
       Anchors = [akLeft, akTop, akRight]
       Caption = 'MB_YESNO'
       TabOrder = 2
+      TabStop = True
       OnClick = rbMB_YESNOClick
     end
     object rbMB_YESNOCANCEL: TRadioButton
@@ -385,6 +449,7 @@ object MBDForm: TMBDForm
       Anchors = [akLeft, akTop, akRight]
       Caption = 'MB_YESNOCANCEL'
       TabOrder = 3
+      TabStop = True
       OnClick = rbMB_YESNOCANCELClick
     end
     object rbMB_RETRYCANCEL: TRadioButton
@@ -395,6 +460,7 @@ object MBDForm: TMBDForm
       Anchors = [akLeft, akTop, akRight]
       Caption = 'MB_RETRYCANCEL'
       TabOrder = 4
+      TabStop = True
       OnClick = rbMB_RETRYCANCELClick
     end
     object rbMB_ABORTRETRYIGNORE: TRadioButton
@@ -405,17 +471,18 @@ object MBDForm: TMBDForm
       Anchors = [akLeft, akTop, akRight]
       Caption = 'MB_ABORTRETRYIGNORE'
       TabOrder = 5
+      TabStop = True
       OnClick = rbMB_ABORTRETRYIGNOREClick
     end
   end
   object GroupBox4: TGroupBox
-    Left = 361
-    Top = 95
-    Width = 132
+    Left = 359
+    Top = 157
+    Width = 181
     Height = 174
-    Anchors = [akLeft, akTop, akRight]
-    Caption = ' Return value '
-    TabOrder = 4
+    Anchors = [akLeft, akTop, akBottom]
+    Caption = ' Return values '
+    TabOrder = 9
     object cb_IDOK: TCheckBox
       Left = 16
       Top = 23
@@ -535,104 +602,121 @@ object MBDForm: TMBDForm
       Visible = False
       OnClick = rb_IDIGNOREClick
     end
-  end
-  object GroupBox5: TGroupBox
-    Left = 180
-    Top = 275
-    Width = 313
-    Height = 58
-    Anchors = [akLeft, akTop, akRight]
-    Caption = ' Flags '
-    TabOrder = 5
-    object cb_MB_SETFOREGROUND: TCheckBox
-      Left = 174
-      Top = 24
-      Width = 129
+    object cb_DefIDOK: TRadioButton
+      Left = 147
+      Top = 23
+      Width = 17
       Height = 17
-      Caption = 'MB_SETFOREGROUND'
-      TabOrder = 0
+      TabOrder = 14
+      TabStop = True
+      Visible = False
     end
-    object NewStaticText1: TNewStaticText
-      Left = 10
-      Top = 26
-      Width = 75
-      Height = 14
-      Caption = 'Default button:'
-      TabOrder = 1
+    object cb_DefIDCANCEL: TRadioButton
+      Left = 147
+      Top = 42
+      Width = 17
+      Height = 17
+      TabOrder = 15
+      TabStop = True
+      Visible = False
     end
-    object NewEdit1: TEdit
-      Left = 91
-      Top = 22
-      Width = 23
-      Height = 21
-      Alignment = taRightJustify
-      NumbersOnly = True
-      ReadOnly = True
-      TabOrder = 2
-      Text = '1'
+    object cb_DefIDYES: TRadioButton
+      Left = 147
+      Top = 62
+      Width = 17
+      Height = 17
+      TabOrder = 16
+      TabStop = True
+      Visible = False
     end
-    object UpDown1: TUpDown
-      Left = 114
-      Top = 22
-      Width = 16
-      Height = 21
-      Associate = NewEdit1
-      Min = 1
-      Max = 3
-      Position = 1
-      TabOrder = 3
-      OnChanging = UpDown1Changing
+    object cb_DefIDNO: TRadioButton
+      Left = 147
+      Top = 82
+      Width = 17
+      Height = 17
+      TabOrder = 17
+      TabStop = True
+      Visible = False
     end
-  end
-  object GroupBox6: TGroupBox
-    Left = 8
-    Top = 275
-    Width = 160
-    Height = 58
-    Anchors = [akLeft, akTop, akRight]
-    Caption = ' Type'
-    TabOrder = 6
-    object cb_MsgBox: TRadioButton
-      Left = 16
-      Top = 17
-      Width = 136
+    object cb_DefIDABORT: TRadioButton
+      Left = 147
+      Top = 102
+      Width = 17
       Height = 17
-      Caption = 'MsgBox'
-      Checked = True
-      TabOrder = 0
+      TabOrder = 18
       TabStop = True
-      OnClick = cb_MsgBoxClick
+      Visible = False
     end
-    object cb_TaskDialogMsgBox: TRadioButton
-      Left = 16
-      Top = 35
-      Width = 136
+    object cb_DefIDRETRY: TRadioButton
+      Left = 147
+      Top = 122
+      Width = 17
       Height = 17
-      Caption = 'TaskDialogMsgBox'
-      TabOrder = 1
+      TabOrder = 19
       TabStop = True
-      OnClick = cb_TaskDialogMsgBoxClick
+      Visible = False
+    end
+    object cb_DefIDIGNORE: TRadioButton
+      Left = 147
+      Top = 142
+      Width = 17
+      Height = 17
+      TabOrder = 20
+      TabStop = True
+      Visible = False
     end
   end
-  object GroupBox1: TGroupBox
-    Left = 8
-    Top = 8
-    Width = 487
-    Height = 81
-    Anchors = [akLeft, akTop, akRight]
-    Caption = ' Message '
-    TabOrder = 0
+  object Panel1: TPanel
+    Left = 0
+    Top = 338
+    Width = 548
+    Height = 42
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 10
     DesignSize = (
-      487
-      81)
-    object MSGText: TMemo
-      Left = 7
-      Top = 20
-      Width = 474
-      Height = 53
-      Anchors = [akLeft, akTop, akRight, akBottom]
-      ScrollBars = ssVertical
+      548
+      42)
+    object Bevel1: TBevel
+      Left = 0
+      Top = 0
+      Width = 548
+      Height = 3
+      Align = alTop
+      Shape = bsBottomLine
+      ExplicitLeft = 168
+      ExplicitWidth = 50
+    end
+    object MBDButtonPreview: TButton
+      Left = 10
+      Top = 11
+      Width = 80
+      Height = 25
+      Anchors = [akLeft, akBottom]
+      Caption = 'Preview'
       TabOrder = 0
+      OnClick = MBDButtonPreviewClick
+    end
+    object MBDButtonOK: TButton
+      Left = 379
+      Top = 11
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = 'OK'
+      ModalResult = 1
+      TabOrder = 1
+      OnClick = MBDButtonOKClick
+    end
+    object MBDButtonCancel: TButton
+      Left = 463
+      Top = 11
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = 'Cancel'
+      ModalResult = 2
+      TabOrder = 2
     end
   end
 end

Projects/MessageBoxInsert.pas

@@ -63,6 +63,14 @@ type
     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);
@@ -82,11 +90,11 @@ type
     procedure rb_IDIGNOREClick(Sender: TObject);
     procedure rb_IDABORTClick(Sender: TObject);
     procedure MBDButtonOKClick(Sender: TObject);
+    procedure cb_SuppressibleClick(Sender: TObject);
   private
     procedure CreateScriptMSG;
   public
     { Public declarations }
-    //fdefaultStyleName: String;
   end;
 
 implementation
@@ -98,6 +106,7 @@ uses
 
 procedure TMBDForm.FormCreate(Sender: TObject);
 begin
+  cb_Suppressible.Checked := False;
   rb_mbInformation.Checked := True;
   rbMB_OK.Checked := True;
   MSGText.Lines.Clear;
@@ -121,7 +130,6 @@ begin
   NewStaticText1.Enabled := False;
   NewEdit1.Enabled := False;
   UpDown1.Enabled := False;
-
   TaskInstructionLabel.Visible := False;
   TaskMesssageLabel.Visible := False;
   TaskInstructionText.Visible := False;
@@ -178,7 +186,22 @@ begin
      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);
@@ -226,6 +249,22 @@ begin
      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);
@@ -273,6 +312,22 @@ begin
      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);
@@ -320,6 +375,22 @@ begin
      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);
@@ -367,6 +438,22 @@ begin
      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);
@@ -414,6 +501,22 @@ begin
      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);
@@ -427,7 +530,26 @@ begin
    cb_MB_SETFOREGROUND.Enabled := True;
    cb_MB_SETFOREGROUND.Checked := False;
    GroupBox1.Visible := True;
-   GroupBox4.Caption := ' Return value ';
+   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;
@@ -455,13 +577,75 @@ begin
    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;
-   GroupBox4.Caption := ' Return value --- Shield ';
+   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;
@@ -494,8 +678,8 @@ begin
    Button2Label.Visible := True;
    TaskInstructionText.Text := 'Instruction Text';
    TaskMesssageText.Text := 'Messsage Text';
-  // Button1Text.Text := '';
-  // Button2Text.Text := '';
+   // Button1Text.Text := '';
+   // Button2Text.Text := '';
    rbMB_OK.Checked := True;
    rbMB_OKClick(Self);
 end;
@@ -570,12 +754,12 @@ var
   ShieldFlag : Integer;
   ButtonLabelsArray: TArray<string>;
 begin
-  {default value}
+  { default value }
   ButtonsBtn := MB_OK;
   TypeIcon := mbInformation;
   ShieldFlag := 0;
 
-  {icon and caption set}
+  { icon and caption set }
   if rb_mbInformation.Checked then begin
      CaptionMsg := 'Info';
      TypeIcon := mbInformation;
@@ -592,7 +776,8 @@ begin
      CaptionMsg := 'Fatal Error';
      TypeIcon := mbCriticalError;
   end;
-  {button type set}
+
+  { 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;
@@ -600,18 +785,18 @@ begin
   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
-  {MsgBox(Text, Caption, Typ, Buttons);}
     if MSGText.GetTextLen = 0 then
        MSGText.Lines.Add('Your message text.');
-    {MessageBox with DefButton}
+    { 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}
+    { 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
@@ -620,8 +805,9 @@ begin
        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}
+     { 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
@@ -629,7 +815,7 @@ begin
      else
         ButtonLabelsArray := TArray<string>.Create(Button1Text.Text);
 
-     {get Shield Flag value}
+     { 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;
@@ -644,7 +830,7 @@ begin
      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(Icon, Instruction, Text, Caption, Typ, Buttons, ButtonLabels, ShieldButton) }
      TaskDialogMsgBox('',
                       TaskInstructionText.Text,
                       TaskMesssageText.Text,
@@ -659,7 +845,7 @@ end;
 
 procedure TMBDForm.CreateScriptMSG;
 
-   { MsgBox }
+   { MsgBox / SuppressibleMsgBox }
    function TextMsg(M: Integer; a, b, c, d, e, f: String): String;
     { (M) - TypeMsg
       (a) - TextMsgIf
@@ -669,9 +855,13 @@ procedure TMBDForm.CreateScriptMSG;
       (e) - IDButton2
       (f) - IDButton3 }
    var
-      SMsg : String;
+      SMsg, TypeMsgBox : String;
    begin
-     SMsg := 'MsgBox(''' + a + ''', ' + b + ', ' + c + ')';
+     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;';
@@ -680,7 +870,7 @@ procedure TMBDForm.CreateScriptMSG;
      end;
    end;
 
-   { TaskDialogMsgBox }
+   { 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)
@@ -692,9 +882,13 @@ procedure TMBDForm.CreateScriptMSG;
       (e) - IDButton2
       (f) - IDButton3 }
    var
-      STsg : String;
+      STsg, TypeMsgBox : String;
    begin
-     STsg := 'TaskDialogMsgBox(''' + a + ''', ' + b + ', ' + c + ', [''' + r + '''], ' + s + ')';
+     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;';
@@ -705,26 +899,37 @@ procedure TMBDForm.CreateScriptMSG;
 
 const
   remarka = '// Display a message box';
- // SNewLine = #13#10;  { line break }
+
 var
   ButtonBtn, TextMsgIf, IconTypes : String;
-  //IconTypes : TMsgBoxType;
-  {MSGEdit, TaskInstrEdit, TaskMsgEdit, BtnEdit1, BtnEdit2, }IDButton, IDButton2, IDButton3 : String;
+  IDButton, IDButton2, IDButton3 : String;
   TypeMsg, ModeMsg : Integer;
-  BtnTextArr, ShieldFlg : String;
-  //I : Integer;
+  BtnTextArr, ShieldFlg, BtnSupprDef : String;
+
 begin
-  {default value}
+  { default value }
   ButtonBtn := 'MB_OK';
   IconTypes := 'mbInformation';
   ShieldFlg := '0';
   TypeMsg := 0;
   ModeMsg := 0;
+  BtnSupprDef := '';
 
   MSGTextInsert.Clear;
   MSGTextInsert.Add(remarka);
 
-  {icon and caption set}
+  { 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;
@@ -737,7 +942,7 @@ begin
   if rb_mbCriticalError.Checked then begin
      IconTypes := 'mbCriticalError';
   end;
-  {button type set}
+  { 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';
@@ -746,51 +951,52 @@ begin
   if rbMB_ABORTRETRYIGNORE.Checked then ButtonBtn := 'MB_ABORTRETRYIGNORE';
 
   if cb_MsgBox.Checked then begin
-     {MsgBox(Text, Typ, Buttons);}
+     { MsgBox(Text, Typ, Buttons); }
      ModeMsg := 0;
+
      // rbMB_OK.Checked
-     {MessageBox with DefButton}
-     {MessageBox with DefButton and Flag MB_SETFOREGROUND}
+     { 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}
+     { 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}
+     { 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}
+     { 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}
+     { 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}
+     { 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}
+     { 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}
+     { 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}
+     { 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
@@ -799,12 +1005,12 @@ begin
         ButtonBtn := 'MB_YESNOCANCEL or MB_DEFBUTTON3 or MB_SETFOREGROUND';
 
      // rbMB_ABORTRETRYIGNORE
-     {MessageBox with DefButton}
+     { 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}
+     { 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
@@ -812,14 +1018,18 @@ begin
      if (rbMB_ABORTRETRYIGNORE.Checked) and (NewEdit1.Text = '3') and (cb_MB_SETFOREGROUND.Checked) then
         ButtonBtn := 'MB_ABORTRETRYIGNORE or MB_DEFBUTTON3 or MB_SETFOREGROUND';
 
-     {replace in a message string escape /r/n}
+     { 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, TaskMesssageText.Text, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg)}
+     { TaskDialogMsgBox(TaskInstructionText.Text, TaskMesssageText.Text, IconTypes, ButtonBtn, BtnTextArr, ShieldFlg) }
      ModeMsg := 1;
-     {create ButtonLabels array}
+
+     { create ButtonLabels array }
      if rbMB_YESNO.Checked or rbMB_YESNOCANCEL.Checked then
         BtnTextArr :=  Button1Text.Text + ''', ''' + Button2Text.Text
      else if rbMB_ABORTRETRYIGNORE.Checked then
@@ -827,7 +1037,7 @@ begin
      else
         BtnTextArr := Button1Text.Text;
 
-     {get Shield Flag value}
+     { 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';
@@ -842,10 +1052,13 @@ begin
      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 + ''', ''' + TaskMesssageText.Text;
   end;
 
-  {selected button OK}
+  { selected button OK }
   if (cb_IDOK.Checked and not cb_IDCANCEL.Checked) then begin
      IDButton := 'IDOK';
      TypeMsg := 1;
@@ -855,7 +1068,7 @@ begin
      end;
   end
 
-  {selected button CANCEL}
+  { 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;
@@ -865,7 +1078,7 @@ begin
      end;
   end
 
-  {selected button OK and CANCEL}
+  { 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';
@@ -876,7 +1089,7 @@ begin
      end;
   end
 
-  {selected button YES}
+  { selected button YES }
   else if (cb_IDYES.Checked and not cb_IDNO.Checked and not cb_IDCANCEL.Checked) then begin
      IDButton := 'IDYES';
      TypeMsg := 1;
@@ -886,7 +1099,7 @@ begin
      end;
   end
 
-  {selected button NO}
+  { selected button NO }
   else if (cb_IDNO.Checked and not cb_IDYES.Checked and not cb_IDCANCEL.Checked) then begin
      IDButton := 'IDNO';
      TypeMsg := 1;
@@ -896,7 +1109,7 @@ begin
      end;
   end
 
-  {selected button YES and NO}
+  { 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';
@@ -907,7 +1120,7 @@ begin
      end;
   end
 
-  {selected button YES and CANCEL}
+  { 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';
@@ -918,7 +1131,7 @@ begin
      end;
   end
 
-  {selected button NO and CANCEL}
+  { 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';
@@ -929,7 +1142,7 @@ begin
      end;
   end
 
-  {selected button YES, NO and CANCEL}
+  { 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';
@@ -941,7 +1154,7 @@ begin
      end;
   end
 
-  {selected button RETRY}
+  { 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;
@@ -951,7 +1164,7 @@ begin
      end;
   end
 
-  {selected button RETRY and CANCEL}
+  { 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';
@@ -962,7 +1175,7 @@ begin
      end;
   end
 
-  {selected button IGNORE}
+  { 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;
@@ -972,7 +1185,7 @@ begin
      end;
   end
 
-  {selected button ABORT}
+  { 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;
@@ -982,7 +1195,7 @@ begin
      end;
   end
 
-  {selected button RETRY and IGNORE}
+  { 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';
@@ -993,7 +1206,7 @@ begin
      end;
   end
 
-  {selected button RETRY and ABORT}
+  { 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';
@@ -1004,7 +1217,7 @@ begin
      end;
   end
 
-  {selected button IGNORE and ABORT}
+  { 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';
@@ -1015,7 +1228,7 @@ begin
      end;
   end
 
-  {selected button RETRY, IGNORE and ABORT}
+  { 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';
@@ -1027,7 +1240,7 @@ begin
      end;
   end
 
-  {no selected buttons}
+  { no selected buttons }
   else begin
      case ModeMsg of
         0: TextMsgIf := TextMsg(TypeMsg, TextMsgIf, IconTypes, ButtonBtn, '', '', '');