Search Forum Home   Visual FoxPro  Meniuri si generatoare de meniuri  Activare popup ...  Activare popup cu selectie bar    5/24/2011 10:11:12 AM mr_api 368 posts Activare popup cu selectie bar  (N/A) Am urmatorul exemplu prin care incerc sa activez un popup cu bar-ul 2 selectat,dar nu merge desi,zic eu, ca am respectat sintaxa: DEFINE MENU men1 BAR DEFINE PAD pad1 OF men1 PROMPT "MENIU" COLOR SCHEME 3 ON PAD pad1 OF men1 ACTIVATE POPUP POPUP1 DEFINE POPUP POPUP1 MARGIN RELATIVE SHADOW COLOR SCHEME 4  FONT "Time new roman" ,11       DEFINE BAR 1  OF POPUP1 PROMPT ' OP1'       DEFINE BAR 2  OF POPUP1 PROMPT ' OP2' DEFINE POPUP POPUP2 MARGIN RELATIVE SHADOW COLOR SCHEME 4  FONT "Time new roman" ,11       DEFINE BAR 1  OF POPUP2 PROMPT ' OP1'       DEFINE BAR 2  OF POPUP2 PROMPT ' OP2'       DEFINE BAR 3  OF POPUP2 PROMPT ' OP3'       DEFINE BAR 4  OF POPUP2 PROMPT ' OP4' ON BAR 1 OF POPUP1 ACTIVATE POPUP POPUP2 BAR 2 ACTIVATE MENU MEN1 Multumesc  5/24/2011 6:28:45 PM Dumitru 172 posts Re: Activare popup cu selectie bar  (N/A) Em l-am incercat si merge. Am modificat un pic DEFINE MENU men1 BAR AT LINE 4 && ca sa nu fie acoperit de SYSMENU cand execut comanda din fereastra command DEFINE PAD pad1 OF men1 PROMPT "MENIU" COLOR SCHEME 3 ON PAD pad1 OF men1 ACTIVATE POPUP POPUP1 DEFINE POPUP POPUP1 MARGIN RELATIVE SHADOW COLOR SCHEME 4 FONT "Time new roman" ,11 DEFINE BAR 1 OF POPUP1 PROMPT ' OP1' DEFINE BAR 2 OF POPUP1 PROMPT ' OP2' DEFINE POPUP POPUP2 MARGIN RELATIVE SHADOW COLOR SCHEME 4 FONT "Time new roman" ,11 DEFINE BAR 1 OF POPUP2 PROMPT ' OP1' DEFINE BAR 2 OF POPUP2 PROMPT ' OP2' DEFINE BAR 3 OF POPUP2 PROMPT ' OP3' DEFINE BAR 4 OF POPUP2 PROMPT ' OP4' ON BAR 1 OF POPUP1 ACTIVATE POPUP POPUP2 && era in plus BAR 2 ACTIVATE MENU MEN1  5/25/2011 8:27:01 AM mr_api 368 posts Re: Activare popup cu selectie bar  (N/A) Multumesc Dumitru! Asa cum am specificat si in titlu si am pus si in cod ma intereseaza sa activez un anume bar mai exact BAR 2 din POPUP2,adica atunci cand aleg acest popup sa fie selectata optiunea 2 nu prima,de aceea am pus ON BAR 1 OF POPUP1 ACTIVATE POPUP POPUP2 BAR 2 Multumesc !  5/26/2011 10:03:44 PM Dumitru 172 posts Re: Activare popup cu selectie bar  (N/A)  Scuze ca nu am citit atent primul tau post, dar exista sintaxa ON BAR nBar1 OF popupName1 ACTIVATE popupName2 BAR nBar2 ? M-am uitat prin Help si nu am vazut-o. Poti sa incerci asa: ON BAR nBar1 OF popupName1 DO activatePop WITH 'popupName2', 2 PROCEDURE activatePop PARAMETERS popupName, noBar PRIVATE nIdx ACTIVATE POPUP &popupName FOR nIdx = 1 TO noBar KEYBOARD "{DNARROW}" ENDFOR ENDPROC  5/26/2011 11:54:13 PM Doru Constantin 321 posts Re: Activare popup cu selectie bar  (N/A)  Dumitru Echim wrote Scuze ca nu am citit atent primul tau post, dar exista sintaxa ON BAR nBar1 OF popupName1 ACTIVATE popupName2 BAR nBar2 ? M-am uitat prin Help si nu am vazut-o. Ba este. De 20 de ani este acolo, în help.  5/29/2011 12:17:59 PM mr_api 368 posts Re: Activare popup cu selectie bar  (Romania)  Multumesc Dumitru,pare interesanta ideea dar nu merge,apare popup2 peste 1 si se comporta ciudat asta e codul : DEFINE MENU men1 BAR AT LINE 4 && ca sa nu fie acoperit de SYSMENU cand execut comanda din fereastra command DEFINE PAD pad1 OF men1 PROMPT "MENIU" COLOR SCHEME 3 ON PAD pad1 OF men1 ACTIVATE POPUP POPUP1 DEFINE POPUP POPUP1 MARGIN RELATIVE SHADOW COLOR SCHEME 4 FONT "Time new roman" ,11 DEFINE BAR 1 OF POPUP1 PROMPT ' OP1' DEFINE BAR 2 OF POPUP1 PROMPT ' OP2' DEFINE POPUP POPUP2 MARGIN RELATIVE SHADOW COLOR SCHEME 4 FONT "Time new roman" ,11 DEFINE BAR 1 OF POPUP2 PROMPT ' OP1' DEFINE BAR 2 OF POPUP2 PROMPT ' OP2' DEFINE BAR 3 OF POPUP2 PROMPT ' OP3' DEFINE BAR 4 OF POPUP2 PROMPT ' OP4' ON BAR 1 OF POPUP1 DO activatePop WITH 'POPUP2', 2 ACTIVATE MENU MEN1 PROCEDURE activatePop PARAMETERS popupName, noBar PRIVATE nIdx  ACTIVATE POPUP &popupName  FOR nIdx = 1 TO noBar   KEYBOARD "{DNARROW}"  ENDFOR ENDPROC Multumesc.  Dumitru Echim wrote  5/29/2011 1:04:55 PM Dumitru 172 posts Re: Activare popup cu selectie bar  (N/A)  Doru Constantin wrote Dumitru Echim wrote Scuze ca nu am citit atent primul tau post, dar exista sintaxa ON BAR nBar1 OF popupName1 ACTIVATE popupName2 BAR nBar2 ? M-am uitat prin Help si nu am vazut-o. Ba este. De 20 de ani este acolo, în help. Hopa! Doru eu am asa in help VFP7: ON BAR nMenuItemNumber OF MenuName1 [ACTIVATE POPUP MenuName2 | ACTIVATE MENU MenuBarName] si vad ca acelasi lucru scrie si pe site-ul Microsoft pentru VFP9 http://msdn.microsoft.com/en-us/library/x878tzsh%28v=vs.80%29.aspx  5/29/2011 1:21:04 PM Dumitru 172 posts Re: Activare popup cu selectie bar  (N/A) Incearca si asa: DEFINE MENU men1 BAR AT LINE 4 DEFINE PAD pad1 OF men1 PROMPT "MENIU" COLOR SCHEME 3 DEFINE PAD pad2 OF men1 PROMPT "ALT PAD" COLOR SCHEME 3 ON PAD pad1 OF men1 ACTIVATE POPUP POPUP1 DEFINE POPUP POPUP1 MARGIN RELATIVE SHADOW COLOR SCHEME 4 FONT "Time new roman" ,11 DEFINE BAR 1 OF POPUP1 PROMPT ' Optiune 1' DEFINE BAR 2 OF POPUP1 PROMPT ' Optiune 2' DEFINE BAR 3 OF POPUP1 PROMPT ' Optiune 3' DEFINE BAR 4 OF POPUP1 PROMPT ' Optiune 4' DEFINE POPUP POPUP2 MARGIN RELATIVE SHADOW COLOR SCHEME 4 FONT "Time new roman" ,11 FROM 3,6 DEFINE BAR 1 OF POPUP2 PROMPT ' Optiune 21' DEFINE BAR 2 OF POPUP2 PROMPT ' Optiune 22' DEFINE BAR 3 OF POPUP2 PROMPT ' Optiune 23' DEFINE BAR 4 OF POPUP2 PROMPT ' Optiune 24' ON BAR 3 OF POPUP1 DO activatePop WITH 'POPUP2', 2 ACTIVATE MENU MEN1 PROCEDURE activatePop PARAMETERS popupName, noBar PRIVATE nIdx FOR nIdx = 1 TO noBar KEYBOARD "{DNARROW}" ENDFOR ACTIVATE POPUP &popupName ENDPROC  5/29/2011 1:41:52 PM mr_api 368 posts Re: Activare popup cu selectie bar  (Romania) E mai bine,mai testez putin,multumesc !  5/29/2011 11:11:21 PM Doru Constantin 321 posts Re: Activare popup cu selectie bar  (N/A)  Dumitru Echim wrote Scuze ca nu am citit atent primul tau post, dar exista sintaxa ON BAR nBar1 OF popupName1 ACTIVATE popupName2 BAR nBar2 ? M-am uitat prin Help si nu am vazut-o. Poti sa incerci asa: ON BAR nBar1 OF popupName1 DO activatePop WITH 'popupName2', 2 PROCEDURE activatePop PARAMETERS popupName, noBar PRIVATE nIdx ACTIVATE POPUP &popupName FOR nIdx = 1 TO noBar KEYBOARD "{DNARROW}" ENDFOR ENDPROC Exista pentru ACTIVATE POPUP din procedura activatePop. http://msdn.microsoft.com/en-us/library/4bww2yyk%28v=vs.80%29.aspx  Page 1 of 1   Visual FoxPro  Meniuri si generatoare de meniuri  Activare popup ... Flat View Tree View Oldest To Newest Newest To Oldest