Search Forum Home   Visual FoxPro  Form-uri si generatoare de form-uri  Inserare poza i...  Inserare poza in formular    7/30/2011 12:23:23 PM emilf 9 posts Inserare poza in formular  (N/A) Cum pot insera o poza in formular prin intermediul unui buton de comanda care sa deschida o fereastra de tip browse si din care sa aleg poza. Am incercat prin intermediul olebound control si un camp de tip general, dar nu am reusit. As dori un cod sursa care sa rezolve problema.  7/30/2011 5:31:29 PM SCHRECK 158 posts Re: Inserare poza in formular  (N/A) 1. Creezi vizual un form pe ecaran 2. Tragi pe formular controlul IMAGE iar la proprietatea Stretch alegi 2 3. Creezi un buton, iar in medoda Click scrii fisier=GETFILE('bmp,gif,jpg') THISFORM.IMAGE1.PICTURE=fisier THISFORM.REFRESH Rulezi formularul Este o forma bruta se mai poate finisa  7/30/2011 6:42:46 PM emilf 9 posts Re: Inserare poza in formular  (N/A)  emilf wrote Cum pot insera o poza in formular prin intermediul unui buton de comanda care sa deschida o fereastra de tip browse si din care sa aleg poza. Am incercat prin intermediul olebound control si un camp de tip general, dar nu am reusit. As dori un cod sursa care sa rezolve problema. am incercat urmatorul cod LOCAL lcFile lcFile = GETFILE('bmp,gif,jpg') IF FILE(lcFile) THISFORM.image1.PICTURE = lcFile ENDIF THISFORM.Refresh imi pune poza dar dupa salvare si redeschiderea formularului nu o mai afiseaza. La mutarea pe alta inregistrare daca nu inchid formularul nu se refreseaza poza.  7/30/2011 9:43:13 PM SCHRECK 158 posts Re: Inserare poza in formular  (N/A) Daca vrei ca la pornirea formularului sa se afiseze ultima imagine salveaza lcFile medoda Destroy a formularului SAVE TO imagine ALL LIKE *lcfile metoda INIT al formularului PUBLIC lcfile IF FILE('IMAGINE.MEM') RESTORE FROM imagine ADDITIVE THISFORM.IMAGE1.PICTURE=lcfile ENDIF scoate LOCAL lcfile  7/31/2011 10:30:30 AM emilf 9 posts Re: Inserare poza in formular  (N/A) Acum retine imaginea dar ramane aceeasi pentru toate inregistrarile. Inregistrarile sunt legate de un combobox.  8/1/2011 10:26:15 AM costin_mentor 492 posts www.accessoft.ro Re: Inserare poza in formular  (N/A) La mutarea pe alta inregistrare foloseste comanda: CLEAR RESOURCES inaintea comenzii de genul: thisform.image1.Picture="poza.jpg"  8/1/2011 10:50:58 AM emilf 9 posts Re: Inserare poza in formular  (N/A) Am incercat si cu CLEAR RESOURCES si tot nu merge.  8/1/2011 11:09:12 AM mgabi 135 posts Re: Inserare poza in formular  (N/A) Incearca pentru refresh cu : thisform.image1.visible=.f. thisform.image1.visible=.t. Asta ar trebui sa-ti afiseze imaginea corecta.  8/1/2011 6:39:11 PM emilf 9 posts Re: Inserare poza in formular  (N/A) Nu merge nici asa. Am incercat cu OleBound Control si cu camp general. Face refresh la imagine dar o pune tip pictograma si sub ea numele imaginii.  8/4/2011 10:50:39 PM Daniel Buduru 2335 posts Re: Inserare poza in formular  (N/A) Ce vrei sa faci, de fapt? In enuntul initial ai vrut sa afisezi o poza intr-un form, poza pe care sa o selectezi printr-un dialog,  si ai primit o solutie pentru asta. Vrei sa asociezi cate o poza fiecarei inregistrari dintr-o tabela? Incearca sa reformulezi cerinta astfel incat sa se inteleaga ce vrei sa faci. Daniel Buduru  8/5/2011 9:46:25 AM emilf 9 posts Re: Inserare poza in formular  (N/A) Vreau ca pentru fiecare inregistrare sa corespunda o poza. Inserarea imaginii vreau sa o fac prin intermediul unui buton care sa deschida o fereastra si din care sa pot alege folderul cu imagini. Am incercat solutia data dar imi afiseaza aceeasi imagine la toate inregistrarile. Am incercat si cu olebound control si camp general, imi refreseaza imaginile dar le vede mici ca niste iconuri si cu numele sub imagine.  8/5/2011 10:03:25 AM Daniel Buduru 2335 posts Re: Inserare poza in formular  (N/A) Nu asta ai spus in primul post. In tabela cu pricina  adauga un camp de tip memo (binary) sau blob. In form, dupa ce te pozitionezi pe inregistrarea din tabela, trebuie sa incarci imagina din acest camp in controlul image. Daca zici ca te pozitionezi pe inregistrare cu un combobox, trebuie sa pui acest cod in metoda InteractiveChange a comboboxului. Ceva de forma: thisform.Image1.Pictureval=tabela_cu_poze.campul_cu_poza In metoda click a butonului faci selectarea pozei, incarcarea ei in tabela si afisarea in controlul image: *Selectezi poza: lcImageFile=GETPICT() * stochezi poza in tabela:  Replace campul_cu_poza WITH Filetostr(lcImageFile) IN tabela_cu_poze * fortezi incarcarea pozei in controlul image: thisform.combo1.interactivechange Daniel Buduru  Page 1 of 1   Visual FoxPro  Form-uri si generatoare de form-uri  Inserare poza i... Flat View Tree View Oldest To Newest Newest To Oldest