Laborator oop

Aplicatia 2

Sa se adauge in formularul creat anterior un buton, cu aceleasi dimensiuni ca si butonul existent, dar sa fie amplasat in dreapta acestuia. Eticheta(caption) butonului sa fie « schimb » , iar actiunea la click sa fie inlocuirea etichetei primului buton din « iesire » in « sfarsit »

Pentru aceasta vom adauga urmatoarele la codul precedent :

1) pentru inserarea unui nou buton in form: geam.addobject([buton1],[altbuton])

2) Pentru definirea clasei altbuton, clasa derivata din butonul creat in aplicatia 1:

DEFINE CLASS altbuton as gata

caption=[schimb]

autosize=.t.

left=200

PROCEDURE click

thisform.buton.caption=[sfarsit]

ENDDEFINE

Observatie : clasa : “altbuton" s-a definit ca fiind derivata din clasa gata, pentru a prelua atributele clasei gata, redefinindu-se caption-ul si procedura click.

Dupa rularea programului va rezulta:

Daca facem click pe butonul 2, vom vedea ca butonul 1 isi va schimba eticheta din iesire in sfarsit, ca urmare a instructiununii :

thisform.buton.caption=[sfarsit]

Daca pasam butonul 1 form-ul dispare, ca urmare a executarii instructiunii : thisform.release.

Aplicatia 3

Sa se adauge intr-un formular o lista simpla care sa permita alegerea unei calitati pentru persoana al carei nume figureaza in intr-un camp de editare. Alegerea va fi confirmata cu ajutorul unui buton de comanda cu textul « accept » , iar informatia din lista va fi plasata intr-un camp din tabela deschisa. Dezactivarea formularului va avea loc la actionarea butonului OK.