Traducción a castellano de texto de los botones

git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.TMSSoftware@16 ccf39c52-e665-a648-be6a-52d81bcb5567

TAdvTaskDialog/internal/1.5.1.6/1/Source/SpanishConsts.pas

@@ -9,6 +9,7 @@ resourcestring
   SSpanishMsgDlgCancel = 'Cancelar';
   SSpanishMsgDlgAbort = '&Abortar';
   SSpanishMsgDlgRetry = '&Reintentar';
+  SSpanishMsgDlgClose = '&Cerrar';
 
   SSpanishMsgDlgWarning = 'Aviso';
   SSpanishMsgDlgError = 'Error';

TAdvTaskDialog/internal/1.5.1.6/1/Source/TaskDialog.pas

@@ -554,6 +554,8 @@ procedure Register;
 
 implementation
 
+uses SpanishConsts;
+
 {$I HTMLENGO.PAS}
 
 const
@@ -4788,18 +4790,18 @@ end;
 
 initialization
   //cbOK, cbYes, cbNo, cbCancel, cbRetry, cbClose);
-  ButtonCaptions[cbOK] := @SMsgDlgOK;
-  ButtonCaptions[cbYes] := @SMsgDlgYes;
-  ButtonCaptions[cbNo] := @SMsgDlgNo;
-  ButtonCaptions[cbCancel] := @SMsgDlgCancel;
-  ButtonCaptions[cbRetry] := @SMsgDlgRetry;
-  ButtonCaptions[cbClose] := @SMsgDlgAbort;
+  ButtonCaptions[cbOK] := @SSpanishMsgDlgOK;
+  ButtonCaptions[cbYes] := @SSpanishMsgDlgYes;
+  ButtonCaptions[cbNo] := @SSpanishMsgDlgNo;
+  ButtonCaptions[cbCancel] := @SSpanishMsgDlgCancel;
+  ButtonCaptions[cbRetry] := @SSpanishMsgDlgRetry;
+  ButtonCaptions[cbClose] := @SSpanishMsgDlgClose;
 
   Captions[tiBlank] := nil;
-  Captions[tiWarning] := @SMsgDlgWarning;
-  Captions[tiQuestion] := @SMsgDlgConfirm;
-  Captions[tiError] := @SMsgDlgError;
-  Captions[tiShield] := @SMsgDlgInformation;
+  Captions[tiWarning] := @SSpanishMsgDlgWarning;
+  Captions[tiQuestion] := @SSpanishMsgDlgConfirm;
+  Captions[tiError] := @SSpanishMsgDlgError;
+  Captions[tiShield] := @SSpanishMsgDlgInformation;
 
 
 {$IFDEF FREEWARE}