Browse Source

Update mrYesToAll and mrNoToAll values.

Delphi XE2 changed them, but it didn't actually break the form because the old values were defined within the unit.

Jordan Russell 8 months ago
parent
commit
c3cc40fa46

+ 2 - 2
Projects/Src/Setup.UninstallSharedFileForm.dfm

@@ -25,7 +25,7 @@ object UninstSharedFileForm: TUninstSharedFileForm
     Height = 23
     Height = 23
     Anchors = [akBottom]
     Anchors = [akBottom]
     Caption = '*'
     Caption = '*'
-    ModalResult = 9
+    ModalResult = 13
     TabOrder = 3
     TabOrder = 3
   end
   end
   object NoButton: TNewButton
   object NoButton: TNewButton
@@ -45,7 +45,7 @@ object UninstSharedFileForm: TUninstSharedFileForm
     Height = 23
     Height = 23
     Anchors = [akBottom]
     Anchors = [akBottom]
     Caption = '*'
     Caption = '*'
-    ModalResult = 10
+    ModalResult = 14
     TabOrder = 1
     TabOrder = 1
   end
   end
   object YesButton: TNewButton
   object YesButton: TNewButton

+ 0 - 6
Projects/Src/Setup.UninstallSharedFileForm.pas

@@ -45,12 +45,6 @@ uses
 
 
 {$R *.DFM}
 {$R *.DFM}
 
 
-const
-  { These aren't defined on Delphi 2 }
-  mrAll      = mrNo + 1;
-  mrNoToAll  = mrAll + 1;
-  mrYesToAll = mrNoToAll + 1;
-
 function ExecuteRemoveSharedFileDlg(const Filename: String;
 function ExecuteRemoveSharedFileDlg(const Filename: String;
   var AAll: Boolean): Boolean;
   var AAll: Boolean): Boolean;
 var
 var