|
From: Alain A. <ala...@wa...> - 2016-08-04 11:48:04
|
Hi,
How can I update @ say ?
// ===========================================
Function main()
// ===========================================
Public cDepDisp
...
cDepDisp=cDefDep+space(20)
INIT WINDOW oMainWindow MAIN TITLE "Utilitaires de généalogie
(v"+progvers+")" ;
ICON oIcon AT 200,50 SIZE 844,422 ;
@ htab+(nbut*32), 3 OWNERBUTTON OF oToolbar ;
ON CLICK {||Departement()} ;
SIZE 28,24 FLAT ;
BITMAP cImageDir+"departements.png" TRANSPARENT COLOR 12632256
COORDINATES 0,4,0,0 ;
TOOLTIP "Changer le département par défaut"
DepDisp() << Here I display
...
return nil
// ===========================================
Function Departement()
// ===========================================
cDepart=cDefDep
lDefaut=.t.
oDlg CLIPPER NOEXIT TITLE cTitle AT
oMainWindow:nLeft+140,oMainWindow:nTop+130 SIZE 280,150 ;
FONT oFont ICON oIcon
@ 15,30 GET COMBOBOX cDepart ITEMS aDepartment STYLE WS_TABSTOP ;
SIZE 250, 25 TEXT ON CHANGE
{||ldefaut:=isdefault(cDepart),oDefaut:Refresh}
@ 30,60 GET CHECKBOX oDefaut VAR lDefaut CAPTION "Département
par défaut" ;
SIZE 250, 25 STYLE WS_TABSTOP ON CLICK
{||lDefaut:=noChange(cDepart,lDefaut),oDefaut:Refresh}
@ 30,100 BUTTON "Ok" OF oDlg ID IDOK ;
SIZE 100, 32 COLOR hwg_VColor("FF0000");
ACTIVATE DIALOG oDlg
oFont:Release()
if oDlg:lresult
if cDepart != cDefDep
cDefDep=cDepart
cDepDisp=cDefDep
qout(cDepDisp) << new value displayed
DepDisp() << Here I tried to display
endif
endif
return nil
// ===========================================
function DepDisp()
// ===========================================
qout(cDepDisp)<< new value displayed
@ 10,355 SAY cDepDisp SIZE 150, 22 COLOR hwg_VColor("0000FF") BACKCOLOR
hwg_VColor("#F4DFDA")
return nil
// ===========================================
No error, but the variable seems not to be modified in MainWindow window.
Where do I failed ?
Thanks
A+
--
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) |
Hw.Gui 2.19-6 (2546)
------------------------------------------------------------------------
|