Search  
Thursday, February 09, 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  infrumusetare f...
 infrumusetare forme
 
 8/2/2005 1:03:53 PM
User is offlinenae racaru
714 posts
www.rarom.ro
1st




infrumusetare forme
 (Romania)
Cunoaste cineva vreo modalitate de a face ca titlul (caption-ul) unei forme sa se deruleze de la dreapta la stanga sau invers.

Nae Racaru

VFP 6 si 9 + Oracle
 8/2/2005 1:28:35 PM
User is offlineanonymous
0 posts


Re: infrumusetare forme
 (Romania)
Singura modalitate la care ma gandesc, este cu un timer, sa tot adaugi si sa scoti spatii, asta daca vrei sa faci treaba doar cu cod fox.
 8/3/2005 1:26:54 PM
User is offlinenae racaru
714 posts
www.rarom.ro
1st




Re: infrumusetare forme
 (Romania)
MULTUMESC MULT.
ARE O FATA TRASNET ACUMA

NAE RACARU
VFP 6 si 9 + Oracle
 8/3/2005 1:58:39 PM
User is offlineanonymous
0 posts


Re: infrumusetare forme
 (Romania) Modified By anonymous on 8/3/2005 12:58:50 PM)
Serios? Ai facut cu spatii si cu timer? Sunt curios cum arata :).   
 8/3/2005 2:07:56 PM
User is offlinenae racaru
714 posts
www.rarom.ro
1st




Re: infrumusetare forme
 (Romania)
IN INIT-UL FORMEI

PUBLIC NUMAR
NUMAR=0
ThisForm.Timer1.INTERVAL=200
IN TIMER EVENT AM SCRIS

IF NUMAR=200
    TIMER1.RESET
ELSE
    NUMAR=NUMAR+1
ENDIF    
THISFORM.CAPTION=SPACE(NUMAR)+'PROGRAMATOR NAE RACARU'

 INCA O DATA MULTUMESC PENTRU IDEE

NAE RACARU
VFP 6 si 9 + Oracle
 8/3/2005 3:36:20 PM
User is offlineanonymous
0 posts


Re: infrumusetare forme
 (Romania)

Ar trebui s-o infrumusetezi si mai mult :) si anume, cand numar == 200 in loc de numar = numar + 1 sa faca numar = numar - 1. Hai ca scriu si codul

 

Propietate in Forma lSemn

 

if  thisform.lSemn

   if numar >= 200

      numar = 199

      thisform.lSemn = .F.

   else

      numar = numar + 1

   endif

else

   if numar <= 1

      numar = 2

      thisform.lSemn = .T.

   else

      numar = numar - 1

   endif

endif

THISFORM.CAPTION=SPACE(NUMAR) + cTitlu

Ia incearc-o pe asta :)
 8/3/2005 7:04:57 PM
User is offlineanonymous
0 posts


Re: infrumusetare forme
 (Romania)
Hai sa mai incercam o iteratie in refactoring :)


   if numar >= 200 .OR. numar <= 1

      thisform.lSemn = ! thisform.lSemn

   endif

 numar = iif (thisform.lSemn, numar+1, numar-1)


Ar trebui sa faca acelasi lucru, mai pe scurt .. Cind o sa am ceva timp, il si verific ;) ...
 8/27/2005 1:12:15 AM
User is offlineVladPop
250 posts
4th




Re: infrumusetare forme
 (Romania)
Iar daca folosesti vfp9 vezi ca in solution.app ai un exemplu la new in vfp9 cu gdi+. Formatezi textul din titlebar ba ii dai si un efect de gradient.

Sunt curios daca faza cu gradientul tine si sub win98.
Vlad Pop.
 6/9/2006 4:45:34 PM
User is offlineandreicutz
125 posts
5th


infrumusetare forme
 (Romania)

Domnu Nae,

Vreau sa folosesc si eu chestia asta dar nu prea stiu TIMER EVENT unde pot gasi sau ce este.

Mersi.
 6/9/2006 4:58:31 PM
User is offlineGhiorghiu Bogdan
928 posts
1st




Re: infrumusetare forme
 (Romania) Modified By Ghiorghiu Bogdan on 6/9/2006 4:11:19 PM)

Andreicutz mama, cand te-ai nascut? Macar stii cum arata Fox asta? Ca esti belea cu nivelul la care sunt intrebarile tale.

 Timer este un obiect, controler sau cum vrei sa-i spui pe care-l poti folosi pe forme. Vezi si tu ca arata ca un ceas.

Iti sugerez sa-ti achizitionezi o carticica cu VFP si sa o rasfoiesti.

Ghiorghiu Bogdan >>> Dacă tot te apuci să faci o treabă, fă-o bine de la inceput!
 6/9/2006 5:01:42 PM
User is offlineGrigore Dolghin
3513 posts
www.class-software.eu
1st






Re: infrumusetare forme
 (Romania)
LOL.
Grigore Dolghin
Visual FoxPro MVP 2006 - 2010
Class Software
My blog
 6/9/2006 5:10:06 PM
User is offlineandreicutz
125 posts
5th


infrumusetare forme
 (Romania)

Bine ca esti tu destept Bogdanel.

Daca ma uit putin la postarile mai vechi sesisez ca si tu punea intrebari de genul. Eu sunt la incepator si pun si eu o intrebare. Daca mi se raspunde la ea apreciez faptul si zis un multumesc frumos, dar cand vad oameni cu atitudinea ta nu ma pot abtine sa nu fac un comentariu nelalocul lui.

Intrebarea a fost pt. domnul Nae care spre deosebire de tine a fost un domn si mi-a raspuns si la intrebari care pt. el erau banale.

 
 6/9/2006 5:44:13 PM
User is offlineGhiorghiu Bogdan
928 posts
1st




Re: infrumusetare forme
 (Romania) Modified By Ghiorghiu Bogdan on 6/9/2006 4:46:07 PM)

Hai sa fim seriosi, dupa cum pui intrebarile cred ca nu stii de existenta Help-ul din Fox. Te cred ca iti este mai usor sa pui intrebairi aici si sa ti se raspunda decat sa cauti. Nu vreau sa ma cert cu tine ci doar sa-ti sugerez sa mai cauti si tu.

Timer este un controler. Acesta are proprietatea Interval de unde setezi timpul dupa care sa se declanseje metoda Timer. In metoda timer pui codul ce vrei sa se execute automat dupa scurgerea timpului setat in Interval. Intelesai?

Ghiorghiu Bogdan >>> Dacă tot te apuci să faci o treabă, fă-o bine de la inceput!
 6/9/2006 5:56:52 PM
User is offlineandreicutz
125 posts
5th


Infrumusetare forme
 (Romania)

Ok nici eu nu vreau sa ma cert cu tine dar caut si eu, iar daca nu gasesc intreb pe acest forum. Sa stii ca citind postarile de pe siteul asta si din raspunsurile date de niste oameni generosi am invatat multe despre Fox. Am si eu o carte de Fox dar nimic din ce mi-a trebuit nu am gasit in ea.

Asadar le multumesc oamenilor de pe acest site care m-au ajutat, iar pe care i-am suparat cu intrebarile mele le transmit ca macar sa nu mai faca comentarii aiurea.

Intr-o zi am vazut ca a intrat o domnisoara si a pus cateva intrebari si i s-a raspuns cu dispret si cumva de sus, dupa ce Grigore a scris si el ceva cat de cat de bun simt au intrat foarte multi cu comentarii aiurea care nu isi aveau rostul. Dar in fine asta este alta problema.

Salutare.
 6/9/2006 8:13:18 PM
User is offlineAdrian Vari
138 posts
5th




Re: Infrumusetare forme
 (Romania)
Andrei, cu toata parerea de rau daca nu esti de acord cu mine, dar sa ne tragi pe noi de urechi parca deja e cam mult...

Adrian Vari
 6/10/2006 12:21:52 AM
User is offlineedyshor
1450 posts
1st




Re: infrumusetare forme
 (Romania) Modified By edyshor on 6/9/2006 11:23:51 PM)
hmm .. domnu Nae .. oare cum ar arata cu ceva de genul ..
 
thisform.caption="MyApp v1.x "+space(numar)+"PROGRAMATOR NAE RACARU"
 
la codul dumneavoastra?! sau .. poate un efect de "explode" :) ..
cu explode m-am jucat si eu sa vad cum iese .. n-arata chiar asa de rau :)
 
LOCAL i, nstep
i=1
nstep=1
DO WHILE LASTKEY()!=9
   WAIT WINDOW "" TIMEOUT .1
   i = i + nstep
   _screen.Caption= STRTRAN("P R O G R A M A T O R _ N A E _ R A C A R U"," ",SPACE(INT(i)))
   IF i>8 OR i<1 THEN 
      nstep = -1 * nstep
   ENDIF
ENDDO

 
 6/10/2006 11:10:11 AM
User is offlineandreicutz
125 posts
5th


Infrumusetare forme
 (Romania)
Scuzati-ma va rog. Dar nu o sa mai intaple.
 6/11/2006 1:12:12 PM
User is offlineflorian
36 posts
www.industriaiutei.ro




Re: infrumusetare forme cu traseu tur-retur :
 (France)

O mica prelucrare... cu traseu tur-retur :

In Init-ul Formei :

PUBLIC NUMAR,cTitlu,inapoi

cTitlu = "PROGRAMATOR NAE RACARU"

NUMAR=0

inapoi = .T.  

ThisForm.Timer1.INTERVAL=80


In TIMER EVENT am rescris :

if thisform.lSemn

   if numar >= 79

      numar = 79

      thisform.lSemn = .F.

      inapoi = .F.

   else

      if inapoi = .T.

         numar = numar + 1

      endif

   endif

 else

    if numar <= 1

      numar = 2

      thisform.lSemn = .T.

      inapoi = .T.

    else

      if inapoi = .F.

      numar = numar - 1

      endif

   endif

endif

THISFORM.CAPTION=SPACE(NUMAR) + cTitlu

am probat si ruleaza : CAPTION cTitlu sens tur-retur

                                           Cu respect,

                                             Florian
 6/11/2006 9:12:27 PM
User is offlinenae racaru
714 posts
www.rarom.ro
1st




Re: infrumusetare forme
 (N/A)
 andreicutz wrote

Domnu Nae,

Vreau sa folosesc si eu chestia asta dar nu prea stiu TIMER EVENT unde pot gasi sau ce este.

Mersi.

]
andreicutz te rog sa nu-mi mai pui intrebari direct. In cazul asta, din respect pentru toti colegi de pe forum, nu o sa-ti mai raspund la intrebari. Imi pare rau, dar eu in weekend-uri sunt plecat la casa de la tara unde nu am internet, televizor, nu merge mobilu' si sunt rupt de lume, asa ca nu am raspuns mai repede la postul tau.:))
VFP 6 si 9 + Oracle
 6/12/2006 9:13:47 AM
User is offlinenae racaru
714 posts
www.rarom.ro
1st




Re: infrumusetare forme
 (Romania)
Oricum, in VFP6 metoda in care se scrie codul se numea TIMER EVENTS, in variantele mai noi metoda a fost redenumita TIMER si acolo se scrie codul.
VFP 6 si 9 + Oracle
 6/12/2006 1:30:13 PM
User is offlineanonymous
0 posts


Re: infrumusetare forme
 (N/A)
Pun si eu o intrebare:

am folosit timer-ul intr-un control textbox mai smecher, dar am observat ca imi crapa destul de des foxul. Ma gindesc ca ar putea fi din pricina suprasolicitarii (procesorului???), motiv pentru care evit aceasta solutie Timer.
 6/12/2006 2:06:44 PM
User is offlineedyshor
1450 posts
1st




Re: infrumusetare forme
 (Romania) Modified By edyshor on 6/12/2006 1:08:30 PM)
hmm .. "timer intr-un textbox mai smecher" ?! .. cumva un timer si-un textbox intr-un "container" sau intr-un "control" ?! .. chestia cu solicitarea o inteleg, daca folosesti container-ul respectiv pe peste tot unde ai nevoie de textbox (grid?!)
 
presupun ca acesta este cazul .. o solutie ar fi sa folosesti un timer global (pus pe form, sau atasat la oApp/_screen) apoi sa inregistrezi textbox-ul tau (pui referinta textbox-ului intr-un array al timer-ului); iar in Timer() parcurgi array-ul si executi ce metoda vrei tu din fiecare textbox in parte ..
 
hmm . .nush cat de explicit am fost .. zi-mi daca nu ai inteles ceva
 
 6/12/2006 3:19:01 PM
User is offlineanonymous
0 posts


Re: infrumusetare forme
 (N/A)
Controlul meu era un container in care erau puse diverse alte controale (label, line, textbox si timer) si care impreuna trebuiau sa functioneze ca un textbox special (separa cifrele in grupuri de cite 3, pe masura ce erau introduse).
Timerul era folosit pentru a simula cursorul.
Si acuma problema: pe un form pe care aveam 10 astfel de controale, aplicatia (uneori) crapa.

Acuma solutia ta pare interesanta, desi nu stiu daca se poate aplica la controlul meu
 6/12/2006 11:32:55 PM
User is offlineedyshor
1450 posts
1st




Re: infrumusetare forme
 (Romania)
lol .. oare dc crapa?! ..
ok .. in ce fel simula cursorul ?!
 
solutia .. e simpla .. in loc de 10 timere (sau mai multe) folosesti unul singur (presupun ca actiunea/verificarea trebuia facuta la intervale rgulate)
tot ce trebuie sa faci e sa executi actiunea in toate textbox-urile la intervalul regulat dintr-un singur timer (daca se indeplineste conditia impusa) ..
 
pentru ca nu stii cate textbox-uri o sa ai e bine sa le adaugi dinamic; de asemenea nu sti daca timer-ul exista, e bine sa-l adaugi dinamic :) . .so ..
 
control.init()
   if !pemstatus(_screen,"oTSync",5) then          && te asiguri timer-ul ca este incarcat
         _screen.AddObject("oTSync","txtTSync")   && daca nu, il incarci tu
   endif
   *-
    _screen.oTSync.do_register(this)            && apelez metoda register si pasez referinta catre el (controlul curent)
control.init_end
 
oTSync.do_register(otxt)                  && primeste ca parametru referinta obiect a controlului respectiv
      if !pemstatus(this,"atxt",5) then
          this.addproperty("atxt[1]")      && lista de controale, referinta obiect catre ele
          this.addproperty("n_atxt")      && sa stiu cate controale am in lista
          this.n_atxt=0
      endif
      *-
      this.n_atxt = this.n_atxt + 1
      this.atxt[this.n_atxt]=otxt
oTSync.do_register_end
 
txtTSync.Timer()
   if !pemstatus(this,"atxt",5) then
      return
   endif    && just in case :)
   if empty(this.n_atxt) then    && i.e. =0
      return
   endif
   *-
   for i=1 to this.n_atxt
      ox=this.atxt[i]
      ox.do_txt_action()
   endfor
txtTSync.Timer_end
 
bine .. ceva de genu .. sper ca prinzi ideea .. txtTSync e o clasa custom bazata pe timer, vei avea un singur timer care se ocupa de toate controalele de pe forma ta .. :)
 
 6/13/2006 11:54:29 AM
User is offlineandreicutz
125 posts
5th


infrumusetare forme
 (Romania)
Mersi mult Edyshor. Am sa incerc ideea ta.
 6/13/2006 12:48:27 PM
User is offlineanonymous
0 posts


Re: infrumusetare forme
 (N/A)
Am prins ideea de baza si ma gindeam si eu la asa ceva, doar ca ... e greu sa te pornesti sa modifici ceva care (in general) functioneaza.
O singura completare as avea: in loc de un array, eu as folosi o colectie pentru referintele catre controale.
Oricum, mersi fain.

Insa tot nu am priceput de ce crapa.
 6/13/2006 1:06:34 PM
User is offlineedyshor
1450 posts
1st




Re: infrumusetare forme
 (Romania)
eu m-am folosit de array (colectii surogate) inainte de "colection" din vfp8 (sau 7 ?!) .. ce pot sa zic .. mi-a ramas in sistem :)
acum, dc crapa .. nu pot sa-ti dau exact motive tehnice dar ma gandesc ca timerele ruleaza in continu (celelalte controale nu) si daca ai unl .. e ok .. daca ai 10, consuma de 10 mai mult din procesor .. nush .. nu-mi place cum suna in principiu 
 
ps: incearca sa pui la 2 butoane diferite, in refresh() un this.zorder(1) .. ar trebui sa mearga .. in principiu nu ?! :)
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Form-uri si generatoare de form-uri  infrumusetare f...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement