[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