Thanks to you too
![Smile :)](./images/smilies/icon_e_smile.gif)
Regards
--
Esgici
Moderator: Rathinagiri
--http://translate.google.com/translate wrote:Muchas gracias a mi amigo Mustafa: D
Voy a tratar de hacer múltiples idiomas.
Saludos
mustafa wrote: We need to change the language
Added.esgici wrote: I'll try to make it multi language.
Code: Select all
#define FR_PRIVATE 0x10
#define FR_NOT_ENUM 0x20
DECLARE DLL_TYPE_INT AddFontResourceEx( DLL_TYPE_LPCTSTR lpszFileName, DLL_TYPE_DWORD fl, DLL_TYPE_LPVOID pdv) IN GDI32.DLL
function AddFont(cFontName)
local nRet := AddFontResourceEx( cFontName, FR_PRIVATE + FR_NOT_ENUM, 0 )
return NIL
Code: Select all
frm.lbl.FontName := "LCDN"
Code: Select all
frm.lbl.FontName := "LCDD"
Code: Select all
DECLARE DLL_TYPE_INT AddFontResourceEx( DLL_TYPE_LPCTSTR lpszFileName, DLL_TYPE_DWORD fl, DLL_TYPE_LPVOID pdv) IN GDI32.DLL
Code: Select all
AddFont('LCDN.TTF')
Code: Select all
FOR nDigit := 1 TO 5
cDigit := "lblClock" + LTRIM( STR( nDigit ) )
nlblWidth := aLMetrcs[ 1, nDigit ]
IF nDigit < 5
@ 5, nlblRow LABEL &cDigit HEIGHT 40 WIDTH nlblWidth FONT "LcdD" SIZE 25 CENTERALIGN BACKCOLOR { 0, 0, 160 } FONTCOLOR WHITE FONTNAME "LCDD" // aColors[ nDigit ]
ELSE
@ 5, nlblRow LABEL &cDigit HEIGHT 40 WIDTH nlblWidth FONT "LcdD" SIZE 25 BACKCOLOR { 0, 0, 160 } FONTCOLOR WHITE FONTNAME "LCDD"
ENDIF
nlblRow += nlblWidth
NEXT
Code: Select all
if !File(GetWindowsFolder()+"\fonts\LCDN.TTF")
FileCopy("LCDN.TTF", GetWindowsFolder()+"\fonts\LCDN.TTF")
RegistryWrite( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\LCDD" , "LCDN.TTF" )
endif
Code: Select all
aRVal := { "Kolor tła",; // 1°
"Kolor zegara",; // 2°
"Kolor daty",; // 3°
"Dźwięk",; // 4°
"Sekundy",; // 5°
"Ukryj",; // 6°
"Zakończ ( Esc)"}
Code: Select all
DECLARE DLL_TYPE_BOOL RemoveFontResourceEx ( DLL_TYPE_LPCTSTR lpFileName, DLL_TYPE_DWORD fl, DLL_TYPE_LPVOID pdv ) IN GDI32.DLL
FUNCTION RemoveFont(cFontName)
#define FR_PRIVATE 0x10
#define FR_NOT_ENUM 0x20
local nRet := RemoveFontResourceEx( cFontName,FR_PRIVATE+ FR_NOT_ENUM, 0)
RETURN Nil
best regards, Marek*-------------------------------------------------------------------------------*
*-- Codigo original Walter TAVERNA de San Francisco, Córdoba, Argentina. *
*-- Codigo Impresion Chelo Pcia. de Buenos Aires, Argentina. *
*-- Modificado y Adaptado Mustafa López de Alicante, Espańa 2010 *
*-------------------------------------------------------------------------------*
Thanks Marekmol wrote: I've found authors of this code: