Bună ziua, cititorii obișnuiți ai site-ului meu despre programare și matematică. În această pagină, vom examina procedurile Rectangle, DrawRectangle, FillRect / FillRectangle pentru modulul grafic GraphABC pentru desenarea dreptunghiurilor. De ce atât de multe proceduri? De ce nu facem doar o subrutină? Da, deoarece diferite proceduri trageți dreptunghiuri în moduri diferite. Începem prin definirea primului dintre ele.
Procedură dreptunghiulară
✎ procedură dreptunghi (x1, y1, x2, y2: întreg);
- Desenează un dreptunghi umplut specificat de coordonatele vârfurilor opuse (x1, y1) și (x2, y2)
Un dreptunghi construit cu dreptunghi are granițe și poate fi umplut (vopsea) prin presetarea culorii cu procedura SetBrushColor (.). Pentru a seta grosimea marginii, apelați procedura SetPenWidth (.). Pentru culoarea frontală, apelați SetPenColor (.).
Am menționat deja mai devreme că în secțiunea grafică avem de-a face cu pixeli de pretutindeni. Lucrarea cea mai răspândită cu pixeli și netezirea imaginilor este realizată în televizorul modern de înaltă definiție sau în tehnologiile care lucrează cu acesta. Un exemplu este prefixul casetei tv cs918 android.
Trebuie să rețineți că, dacă nu specificați culorile și grosimea marginii, se folosesc valorile implicite - grosimea marginii este de 1px, culoarea de margine este neagră, culoarea de umplere este albă. Prin urmare, pentru a arăta dreptunghiul nostru "în toată gloria sa", să stabilim noi niște parametri. Luați codul de mai jos și inserați-l în mediul PascalABC sau PascalABC.Net. În general, recomand să nu copiați, ci să copiați cu mâinile (dacă, bineînțeles, codul nu este prea mare), deoarece este mai bine amintit, am verificat eu însumi. Ne uităm că la noi se dovedește:
Cod PascalABC, PascalABC.Net
Procedura DrawRectangle
✎ procedura DrawRectangle (x1, y1, x2, y2: întreg);
- Elimină limita dreptunghiului dat de coordonatele vârfurilor opuse (x1, y1) și (x2, y2)
Procedura DrawRectangle trage numai marginea dreptunghiului și nu umple zona cu culoare (folosiți SetBrushColor nu are sens - nu va funcționa). În plus, această subrutină nu este disponibilă în PascalABC simplu. Prin urmare, deschideți PascalABC.Net și executați următorul cod.
Dacă eliminăm 8 și 9 linii de cod (grosimea și culoarea stiloului), atunci marginea dreptunghiului nostru va fi negru și o grosime de 1px. Apropo, nu este nevoie să folosiți coordonatele x1, x2, y1, y2 - acestea sunt scrise doar pentru claritate. Puteți introduce pur și simplu numere în procedură, iar programul anterior va arăta astfel:
Procedurile FillRect, FillRectangle
Procedurile FillRect și FillRectangle fac același lucru - umpleți zona dreptunghiului cu culoarea. Dreptunghiul în sine nu are granițe la acest lucru, deci este inutil să setați culoarea și grosimea cu ajutorul stiloului Pen - nu va mai exista nici o margine. Diferența dintre ele în acest caz este că FillRectangle este absent în PascalABC, dar în PascalABC.Net există ambele versiuni.
Iată definiția fiecăruia dintre ele:
✎ procedura FillRect (x1, y1, x2, y2: integer);
- Umple dreptunghiul dat de coordonatele vârfurilor opuse (x1, y1) și (x2, y2), culoarea periei curente.
✎ procedura FillRectangle (x1, y1, x2, y2: integer);
- Umple interiorul dreptunghiului dat de coordonatele vârfurilor opuse (x1, y1) și (x2, y2)
Un program simplu care demonstrează ceea ce sa spus mai sus. Pentru a umple un dreptunghi, am folosit procedura FillRect aici, deci acest program poate fi rulat cel puțin în PascalABC și PascalABC.Net.
Cod PascalABC, PascalABC.Net
Iată subiectele aferente:
div> .uk-panoul ">" data-uk-grid-margin "