|
From: Itamar M. L. J. L. <ita...@gm...> - 2013-03-22 17:25:36
|
#include "hwgui.ch"
Function Main
Local oDlg, oDesc, nDesc:=0
INIT DIALOG oDlg CLIPPER TITLE "Test" AT 0,0 SIZE 170,190 STYLE DS_CENTER +
WS_VISIBLE + WS_SYSMENU
hwg_msginfo(Valtype(nDesc)) // Val type "N"
@ 010,020 groupbox oGr CAPTION "Desconto" SIZE 150,090
@ 040,050 get oDesc Var nDesc Size 100,25
@ 030,120 Button oBt Caption 'Show' Size 100,30 ON CLICK
{||oDesc:SetText( transform( nDesc,'999,999.99') ), hwg_EndDialog()} Style
WS_TABSTOP
oDlg:Activate()
hwg_msginfo(Valtype(nDesc)) // Val type "C" :-(
Return Nil
Best regards,
Itamar M. Lins Jr.
|