<html>
<head>
<meta content="text/html; charset=windows-1252"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div class="moz-cite-prefix">Hola Héctor<br>
<br>
hace ya muchos meses que no estoy usando lazarus :(.. pero me
estoy fijando en un proyecto donde usaba eso.<br>
Tú debes llamar a esa función antes de que se carguen los forms..<br>
En el archivo .lpr, debes tener algo así:<br>
<br>
begin<br>
TranslateLCL;<br>
Application.Initialize;<br>
Application.CreateForm(TfrmMain, frmMain);<br>
Application.CreateForm(TDBMain, DBMain);<br>
end.<br>
<br>
Espero te sirva<br>
byeeeeee<br>
<br>
<br>
El 05/04/2016 a las 1:41, hfiandor escribió:<br>
</div>
<blockquote
cite="mid:!&!AAAAAAAAAAAYAAAAAAAAAMTW5xvE3j9Lmco8C3UR7kbCgAAAEAAAAC5yEGp0Q1BMs94HwmvPcy8BAAAAAA==@ceniai.inf.cu"
type="cite">
<meta http-equiv="Context-Type" content="text/html;
charset=iso-8859-1">
<meta name="Generator" content="Microsoft Word 12 (filtered
medium)">
<div class="Section1">
<p class="MsoNormal">Estimados colegas:</p>
<p class="MsoNormal"> </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</p>
<p class="MsoNormal"> </p>
<p class="MsoNormal">Tengo la siguiente rutina</p>
<p class="MsoNormal"> </p>
<p class="MsoNormal"><span lang="EN-US">procedure TranslateLCL;</span></p>
<p class="MsoNormal"><span lang="EN-US">var</span></p>
<p class="MsoNormal"><span lang="EN-US"> PODirectory, Lang,
FallbackLang: String;</span></p>
<p class="MsoNormal"><span lang="EN-US">begin</span></p>
<p class="MsoNormal"><span lang="EN-US">
PODirectory:='e:\lazarus\lcl\languages\';</span></p>
<p class="MsoNormal"><span lang="EN-US"> Lang:='es';</span></p>
<p class="MsoNormal"><span lang="EN-US"> FallbackLang:='';</span></p>
<p class="MsoNormal"><span lang="EN-US">
LCLGetLanguageIDs(Lang,FallbackLang); //
in unit LCLProc</span></p>
<p class="MsoNormal"><span lang="EN-US">
Translations.TranslateUnitResourceStrings('LCLStrConsts',</span></p>
<p class="MsoNormal"><span lang="EN-US">
PODirectory+'lclstrconsts.%s.po',Lang,FallbackLang);</span></p>
<p class="MsoNormal"><span lang="EN-US"> // ... add here a
TranslateUnitResourceStrings call for every po file ...</span></p>
<p class="MsoNormal">end;</p>
<p class="MsoNormal"> </p>
<p class="MsoNormal">que se debe ejecutar cuando se inicia la
aplicación, pero
evidentemente algo le falta o tengo mal.</p>
<p class="MsoNormal"> </p>
<p class="MsoNormal">Les agradecería cualquier ayuda, y si
pueden, me indican
donde obtener las instrucciones de este procedure.</p>
<p class="MsoNormal"> </p>
<p class="MsoNormal">Saludos</p>
<p class="MsoNormal">Ing. Héctor F. Fiandor Rosario</p>
<p class="MsoNormal"> </p>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
Lazarus-es mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a>
<a class="moz-txt-link-freetext" href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a>
</pre>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<meta http-equiv="Context-Type" content="text/html;
charset=iso-8859-1">
<p class="">Se certificó que el correo no contiene virus.<br>
Comprobada por AVG - <a moz-do-not-send="true"
href="http://www.avg.es">www.avg.es</a><br>
Versión: 2016.0.7442 / Base de datos de virus: 4545/11957 -
Fecha de la versión: 04/04/2016</p>
</blockquote>
<br>
</body>
</html>