Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2016-04

mensajes en espanol

3 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

hfiandor

Estimados colegas:

Tengo una aplicaci�n donde se usa el MsgDialog (confirmaci�n) y en el cuadro del mensaje aparecen botones con Yes y No

Tengo la siguiente rutina

procedure TranslateLCL;
var
  PODirectory, Lang, FallbackLang: String;
begin
  PODirectory:='e:\lazarus\lcl\languages\';
  Lang:='es';
  FallbackLang:='';
  LCLGetLanguageIDs(Lang,FallbackLang); // in unit LCLProc
  Translations.TranslateUnitResourceStrings('LCLStrConsts',
                      PODirectory+'lclstrconsts.%s.po',Lang,FallbackLang);
  // ... add here a TranslateUnitResourceStrings call for every po file ...
end;

que se debe ejecutar cuando se inicia la aplicaci�n, pero evidentemente algo le falta o tengo mal.

Les agradecer�a cualquier ayuda, y si pueden, me indican donde obtener las instrucciones de este procedure.

Saludos

Ing. H�ctor F. Fiandor Rosario

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20160405/c6af2580/attachment.html>

Reply by email

Paola Bruccoleri
to hfiandor

Hola H�ctor

hace ya muchos meses que no estoy usando lazarus :(.. pero me estoy fijando en un proyecto donde usaba eso.
T� debes llamar a esa funci�n antes de que se carguen los forms.. En el archivo .lpr, debes tener algo as�:

begin
   TranslateLCL;
   Application.Initialize;
   Application.CreateForm(TfrmMain, frmMain);
   Application.CreateForm(TDBMain, DBMain);
end.

Espero te sirva
byeeeeee

El 05/04/2016 a las 1:41, hfiandor escribi�:

Show quoted text 56 lines
Estimados colegas: Tengo una aplicaci�n donde se usa el MsgDialog (confirmaci�n) y en el cuadro del mensaje aparecen botones con Yes y No Tengo la siguiente rutina procedure TranslateLCL; var PODirectory, Lang, FallbackLang: String; begin PODirectory:='e:\lazarus\lcl\languages\'; Lang:='es'; FallbackLang:=''; LCLGetLanguageIDs(Lang,FallbackLang); // in unit LCLProc Translations.TranslateUnitResourceStrings('LCLStrConsts', PODirectory+'lclstrconsts.%s.po',Lang,FallbackLang); // ... add here a TranslateUnitResourceStrings call for every po file ... end; que se debe ejecutar cuando se inicia la aplicaci�n, pero evidentemente algo le falta o tengo mal. Les agradecer�a cualquier ayuda, y si pueden, me indican donde obtener las instrucciones de este procedure. Saludos Ing. H�ctor F. Fiandor Rosario _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es Se certific� que el correo no contiene virus. Comprobada por AVG - www.avg.es <http://www.avg.es> Versi�n: 2016.0.7442 / Base de datos de virus: 4545/11957 - Fecha de la versi�n: 04/04/2016

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20160405/bcd1717a/attachment.html>

Reply by email

hfiandor
to Paola Bruccoleri

Estimada Paola y otros colegas:

Muchas gracias por su respuesta. As� lo tengo.

Fij�ndome en la estructura del procedure me di cuenta de que (por heredarlo de otras aplicaciones anteriores) el past del Lazarus no era el correcto. Lo arregle, compile y asunto resuelto.

He tenido mucho gusto en recibir tu ayuda.

Saludos

Ing. H�ctor F. Fiandor Rosario

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20160405/d3f7c73d/attachment.html>

Reply by email