[Lazarus-es] iconos en botones de messagedlg

Héctor F. Fiandor Rosario hfiandor en infomed.sld.cu
Mar Jun 18 19:26:46 CEST 2013


Estimada Paola y colegas de la lista:

ya resolvi el problema y pude utilizar el comando translations para poner los mensajes en español.

muchas gracias de todas formas.

saludos,

Ing. Héctor F. Fiandor Rosario
hfiandor en infomed.sld.cu
  ----- Original Message ----- 
  From: Paola Bruccoleri 
  To: Lista Lazarus 
  Sent: Wednesday, June 12, 2013 3:27 AM
  Subject: [Lazarus-es] iconos en botones de messagedlg


  Hola!

  Esta instrucción:
    if (MessageDlg('Grabar', '¿Desea grabar?', mtConfirmation, mbYesNo, 0) = mrnO) then .....

  muestra esto (lazaruz 1.0.8):



  La diferencia q veo con el lazarus anterior q usaba (0.9.31) es que no aparecen iconos en los botones (tilde verde y cruz roja respectivamente)

  No se si a todos les pasa lo mismo o hay que agregar algo en algun lado.

  Además, tengo indicado q me traduzca a español todos esos textos de esta manera:
  en el lpr: (en el uses está la unidad translations)

  procedure TranslateLCL;
  var
    PODirectory, Lang, FallbackLang: String;
  begin
    PODirectory:='f:\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;


  begin
    TranslateLCL;
    Application.Initialize;
    Application.CreateForm(TfrmMain, frmMain);
    Application.CreateForm(TData, Data);
    Application.CreateForm(TfrmHackForm, frmHackForm);
    Application.Run;
  end.


  Bueno, se agradece cq ayuda
  byeeeeeeeeeeee




------------------------------------------------------------------------------


  _______________________________________________
  Lazarus-es mailing list
  Lazarus-es en lists.lazarus.freepascal.org
  http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es


--

Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de Salud. La persona que envia este correo asume el compromiso de usar el servicio a tales fines y cumplir con las regulaciones establecidas

Infomed: http://www.sld.cu/



------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130618/2b7adeeb/attachment-0002.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: gjgigjab.png
Type: image/png
Size: 4633 bytes
Desc: no disponible
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130618/2b7adeeb/attachment-0002.png>


More information about the Lazarus-es mailing list