Publicado FWH 15.09 build 2
viewtopic.php?f=16p=182383#p182383
&
Publicado FWH 15.09 build 3:
Publicado FWH 15.09 build 4:
Y finalmente aqui está FWH 15.09 build 5:
viewtopic.php?p=183729#p183729
gracias a todos por vuestra ayuda y paciencia ![]()
Te ocurre siempre que muestras esas pantallas, o solo algunas veces?
Tienes Fw_SetUnicode( .T. ) en tu aplicacion?
Gracias Cristobal
colocando Fw_SetUnicode( .t. ) se soluciona el problema
procedure main()
_main()
Fw_SetUnicode( .t. )
_main()
return
function _Main()
local oDlg, oGet
local nValue := SPACE(10)
SET _3DLOOK ON
DEFINE DIALOG oDlg RESOURCE "TestGet"
REDEFINE GET oGet VAR nValue PICTURE "@!" ID 110 OF oDlg
oGet:bGotFocus = { || oGet:SetPos( 0 ), nil }
REDEFINE BUTTON ID 120 OF oDlg ACTION MsgInfo( nValue )
ACTIVATE DIALOG oDlg CENTERED
return nil
TestGet DIALOG 27, 68, 166, 57
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Testing a GET with right justification"
FONT 8, "Arial"
BEGIN
CONTROL "", 110, "EDIT", ES_RIGHT | ES_MULTILINE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 17, 12, 135, 14
CONTROL "&Ok", 120, "BUTTON", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 46, 37, 31, 14
CONTROL "&Cancel", IDCANCEL, "BUTTON", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 88, 37, 31, 14
END
UF..
Al parecer nadie ocupa Fw_SetUnicode( .t. )
entonces a trabajar con Fw_SetUnicode( .f. )
![]()