Search  
Saturday, February 11, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.
SearchForum Home
  Visual FoxPro  Form-uri si generatoare de form-uri  Form cu meniu...
 Form cu meniu
 
 3/6/2010 11:18:33 PM
User is offlinelarisagroze
1 posts


Form cu meniu
 (N/A)

Doresc sa am un form cu o imagine de fundal si un meniu definit de mine in locul meniului system.

Am creat form-ul, meniul le-am combinat dar am 2 probleme:

1) Imi raman active toate ferestrele din timpul proiectarii (command, properties...)

2) Nu imi apare numele form-ului definit de mine ci doar Visual FoxPro.

Ce trebuie sa fac?

 
_metadata.resources 
 3/7/2010 4:36:44 PM
User is offlineGigi
29 posts


Re: Form cu meniu
 (N/A)
Am o banuiala ca prin "form" te referi de fapt la ecranul principal al aplicatiei. Oricum, confuzie sau nu, pentru a rezolva acele probleme poti proceda astfel:

1. In clasa de baza a aplicatiei, definesti o metoda denumita - sa zicem - ReleaseToolbars care contine urmatorul cod:
PUBLIC i, aToolBars
DIMENSION aToolBars(13,2)
aToolBars(1,1) = 'Form Designer'
aToolBars(2,1) = 'Standard'
aToolBars(3,1) = 'Layout'
aToolBars(4,1) = 'Query Designer'
aToolBars(5,1) = 'View Designer'
aToolBars(6,1) = 'Color Palette'
aToolBars(7,1) = 'Form Controls'
aToolBars(8,1) = 'Database Designer'
aToolBars(9,1) = 'Report Designer'
aToolBars(10,1) = 'Report Controls'
aToolBars(11,1) = 'Print Preview'
aToolBars(12,1) = 'Command'
aToolBars(13,1) = 'Properties'
FOR i=1 TO ALEN(aToolBars, 1)
aToolBars(i,2) = WVISIBLE(aToolBars(i,1))
IF aToolBars(i,2)
HIDE WINDOW (aToolBars(i,1))
ENDIF
ENDFOR
In metoda Init a clasei undeva pe la inceput scrii comanda THIS.ReleaseToolbars().
Pana in acest moment, am avut grija de ascunderea ferestrelor si toolbar-urilor de pe ecran in momentul lansarii aplicatiei. Dupa cum probabil ai observat, am last pe dinafara fereasta "Data Session" deoarece s-ar putea la un moment dat sa fie nevoie de ea la runtime. Daca nu, poti sa o ascunzi si pe aceasta.
Daca acuma s-ar inchide aplicatia, la revenirea in mediul Vfp ar trebui sa deschidem din nou toate ferestrele si toolbar-urile de care avem nevoie (cele care erau deschise la lansarea aplicatiei). Pentru a evita ca de fiecare data sa facem acest lucru, in medota Destroy a clasei de baza a aplicatiei, se poate trece acest mic cod:
FOR i=1 TO ALEN(aToolBars, 1)
IF aToolBars(i,2)
SHOW WINDOW (aToolBars(i,1))
ENDIF
ENDFOR

2. Pentru ca la lansarea in executie a aplicatiei, ecranul acesteia sa aiba in titlu numele ales si nu "Microsoft Visual FoxPro", poti recurge la aceasta varianta simpla:
- in metoda Init a clasei de baza a aplicatiei scrii comanda: _SCREEN.CAPTION = "Numele aplicatiei mele".
- in metoda Destoy a clasei de baza a aplicatiei pentru ca titlul ecranului sa fie din nou "Microsoft Visual FoxPro" scrii comanda: "SCREEN.CAPTION = "Microsoft Visual FoxPro".
Recomandabil ar fi sa salvezi denumirea initiala a ecranului, sa o inlocuiesti cu cea a aplicatiei, iar la revenirea in mediul Vfp sa restaurezi vechea denumire a ecranului. In acest fel ai putea proceda si cu schimbarea icon-ului ecranului principal.
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Form-uri si generatoare de form-uri  Form cu meniu...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement