|
From: Alain A. <ala...@wa...> - 2014-09-28 08:10:29
|
<html>
<head>
<meta content="text/html; charset=windows-1252"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div class="moz-cite-prefix">Le 28/09/2014 07:45, Alex Strickland a
écrit :<br>
</div>
<blockquote cite="mid:542...@mw..." type="cite">
<pre wrap="">I have this:
@ ID 1000 OBJECT ::oName COMBOBOX ITEMS ::aMgrs STYLE
CBS_DROPDOWNLIST + WS_TABSTOP + WS_CHILD + WS_VISIBLE + WS_VSCROLL ;
AT 74, 13 SIZE 60, 39
In the Ok handler I simply check:
::oName:text</pre>
</blockquote>
Sorry, but I haven't been able to make it work<br>
When I try your syntax, I have a syntax error on this line:<br>
<br>
Here is my complete box, give me the modifications (-- for removed
lines, and ++ for added lines):<br>
<br>
...<br>
adel(aRegistres)<br>
aRegistres:={}<br>
adel(aCom)<br>
aCom:={}<br>
aCom=directory(orPath+"/"+oCommune+"/"+oType+"/*.pdf","")<br>
if len(acom)=0<br>
adel(aCom)<br>
aCom:={}<br>
aCom=directory(orPath+"/"+oCommune+"/"+oType+"/*.PDF","")<br>
endif<br>
adir=asort(aCom,,,{| x, y | x[ 1 ] < y[ 1 ] })<br>
for rg=1 to len(aCom)<br>
aadd(aRegistres,aCom[rg,1])<br>
next<br>
if len(aRegistres) >0<br>
INIT DIALOG oDlg3 CLIPPER NOEXIT TITLE cTitle AT ox+140,oy+130
SIZE 520,180 ;<br>
FONT oFont3<br>
<br>
oRegistre=aRegistres[1]<br>
@ 15,10 SAY cText01 SIZE 200, 22 COLOR hwg_VColor("FF0000")<br>
@ 15,32 SAY oCommune SIZE 290, 25 COLOR hwg_VColor("0000FF")<br>
<br>
@ 325,10 SAY cText02 SIZE 200, 22 COLOR hwg_VColor("FF0000")<br>
@ 325,32 SAY oType SIZE 100, 25 COLOR hwg_VColor("0000FF")<br>
<br>
@ 15,62 SAY cText03 SIZE 200, 22 COLOR hwg_VColor("FF0000")<br>
@ 15,84 GET COMBOBOX oCombo3 ITEMS aRegistres STYLE WS_TABSTOP ;<br>
SIZE 490, 25 ON CHANGE {|| oRegistre:=oCombo3:getvalue()}<br>
<br>
@ 120,130 BUTTON "Ok" OF oDlg3 ID IDOK ;<br>
SIZE 100, 32 COLOR hwg_VColor("FF0000")<br>
@ 260,130 BUTTON "Annuler" OF oDlg3 ID IDCANCEL ;<br>
SIZE 100, 32<br>
<br>
ACTIVATE DIALOG oDlg3<br>
oFont3:Release()<br>
else<br>
qout("Aucune registre trouvé ..."+chr(10))<br>
hwg_Msginfo("Aucun registre trouvé ...","Lire un registre")<br>
endif<br>
if len(oRegistre) >0<br>
qout(oview+"
"+orpath+"/"+oCommune+"/"+oType+"/"+oRegistre+"&") <br>
// run(oview+"
"+orpath+"/"+oCommune+"/"+oType+"/"+oRegistre+"&")<br>
endif <br>
Return Nil<br>
<br>
Try a syntax not too much embedded, as I have serious problems with
oo<br>
Thanks<br>
<br>
To be clear, how to affect the value of a combobox or more generally
a dialog to a variable<br>
<br>
A+<br>
<div class="moz-signature">-- <br>
<hr>
Alain Aupeix<br>
<a class="moz-txt-link-freetext" href="http://jujuland.pagesperso-orange.fr/">http://jujuland.pagesperso-orange.fr/</a><br>
<a class="moz-txt-link-freetext" href="http://pissobi-lacassagne.pagesperso-orange.fr/">http://pissobi-lacassagne.pagesperso-orange.fr/</a><br>
<hr>
<small>U.buntu 12.04 | G.ramps 3.4.8-1 | H.arbour 3.2.0dev
(2014-09-09 22;51) | HbIDE (Rev.316) | Five.Linux (r138) |
Hw.Gui (2285)</small>
<hr>
</div>
</body>
</html>
|