Creați un dosar de proiect.
Lansați LAZARUS. Dacă a fost deschis proiectul anterior, executați comanda Project - New Project. . În dialogul care apare, selectați aplicația din listă și faceți clic pe butonul Nou. Toate modificările ulterioare vor fi salvate prin comanda Project - Save Project ca - faceți dublu clic pe Save în dosarul proiectului.
Sarcina 1. Dimensiunea fontului
1. Setați proprietățile formularului.
Formularul titlu (proprietatea Caption) - Formatare
Culoarea formei (proprietate Color) - în funcție de starea de spirit
2. Plasați pe etichetă eticheta 1. Eticheta este selectată cu un singur clic pe obiectul Etichetă din fila Standart. al doilea clic pe câmpul formular marchează marcatorul la locația de clic selectată. mergeți la inspectorul Obiect din fila Proprietăți, modificați proprietatea Caption - scrieți Hurray! Funcționează!
3. Setați dimensiunea inițială a fontului la 12. Extindeți lista proprietății Font. și setați valoarea la 12 în rândul Dimensiune.
4. Plasați Butonul1 pe Formular. Butonul este selectat cu un singur clic pe obiectul Buton. al doilea clic pe câmpul de formular pune butonul în locația de clic selectată. Faceți clic pe butonul Ieșire. Pentru a face acest lucru, mergeți la Inspectorul de obiecte din fila Proprietăți, modificați proprietatea Caption - scrieți dimensiunea fontului +1. Corectați dimensiunea butonului astfel încât textul să fie afișat complet. Pentru a face acest lucru, fie utilizați token-urile de pe buton, fie modificați proprietatea Lățime a obiectului Button1.
procedura TForm1.Button1Click (expeditor: TObject);
Pentru a mări fontul din corpul procedurii, introduceți o linie
De fiecare dată când apăsați butonul, dimensiunea etichetei va crește cu 1.
5. Porniți proiectul făcând clic pe butonul sub forma unui triunghi verde. Asigurați-vă că funcționează.
6. Schimbați textul programului. Adăugați restricții privind lungimea inscripției. Dacă depășește dimensiunea formularului + indentarea etichetei din marginea din stânga a formularului, creșterea ar trebui să se oprească, textul etichetei se modifică, indicând motivul anulării acțiunii.
7. Adăugați butonul Dimensiunea fontului-1 pentru a micșora dimensiunea fontului la 1. Luați în considerare faptul că dacă dimensiunea fontului este setată la negativă, în loc să scadă, fontul va crește în mărime, programul nu va funcționa corect.
Sarcina 2. Culoarea fontului
1. Adăugați butonul Random pentru a schimba culoarea fontului.
procedura TForm1.Button3Click (expeditor: TObject);
Articole similare
Trimiteți-le prietenilor: