[Lazarus-es] iconos en botones de messagedlg

Paola Bruccoleri pbruccoleri en adinet.com.uy
Mie Jun 12 17:27:18 CEST 2013


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

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130612/c1a79dde/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/20130612/c1a79dde/attachment-0002.png>


More information about the Lazarus-es mailing list