Explorar el Código

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 hace 8 meses
padre
commit
c3cc40fa46

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

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

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

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