<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EstiloCorreo17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;}
@page Section1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=ES link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal>Estimados colegas:<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>Tengo una aplicación donde se usa el MsgDialog (confirmación)
y en el cuadro del mensaje aparecen botones con Yes y No<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>Tengo la siguiente rutina<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><span lang=EN-US>procedure TranslateLCL;<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>var<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US> PODirectory, Lang, FallbackLang: String;<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>begin<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US> PODirectory:='e:\lazarus\lcl\languages\';<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US> Lang:='es';<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US> FallbackLang:='';<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US> LCLGetLanguageIDs(Lang,FallbackLang); //
in unit LCLProc<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>
Translations.TranslateUnitResourceStrings('LCLStrConsts',<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>
PODirectory+'lclstrconsts.%s.po',Lang,FallbackLang);<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US> // ... add here a
TranslateUnitResourceStrings call for every po file ...<o:p></o:p></span></p>
<p class=MsoNormal>end;<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>que se debe ejecutar cuando se inicia la aplicación, pero
evidentemente algo le falta o tengo mal.<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>Les agradecería cualquier ayuda, y si pueden, me indican
donde obtener las instrucciones de este procedure.<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>Saludos<o:p></o:p></p>
<p class=MsoNormal>Ing. Héctor F. Fiandor Rosario<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
</div>
</body>
</html>