<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Hola!<br>
<br>
Esta instrucción:<br>
if (MessageDlg('Grabar', '¿Desea grabar?', mtConfirmation,
mbYesNo, 0) = mrnO) then .....<br>
<br>
muestra esto (lazaruz 1.0.8):<br>
<br>
<img src="cid:part1.00090301.02070503@adinet.com.uy" alt=""><br>
<br>
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)<br>
<br>
No se si a todos les pasa lo mismo o hay que agregar algo en algun
lado.<br>
<br>
Además, tengo indicado q me traduzca a español todos esos textos de
esta manera:<br>
en el lpr: (en el uses está la unidad translations)<br>
<br>
procedure TranslateLCL;<br>
var<br>
PODirectory, Lang, FallbackLang: String;<br>
begin<br>
PODirectory:='f:\lazarus\lcl\languages\';<br>
Lang:='es';<br>
FallbackLang:='';<br>
LCLGetLanguageIDs(Lang,FallbackLang); // in unit LCLProc<br>
Translations.TranslateUnitResourceStrings('LCLStrConsts',<br>
PODirectory+'lclstrconsts.%s.po',Lang,FallbackLang);<br>
// ... add here a TranslateUnitResourceStrings call for every po
file ...<br>
end;<br>
<br>
<br>
begin<br>
TranslateLCL;<br>
Application.Initialize;<br>
Application.CreateForm(TfrmMain, frmMain);<br>
Application.CreateForm(TData, Data);<br>
Application.CreateForm(TfrmHackForm, frmHackForm);<br>
Application.Run;<br>
end.<br>
<br>
<br>
Bueno, se agradece cq ayuda<br>
byeeeeeeeeeeee<br>
<br>
</body>
</html>