Ne întoarcem acum la procedurile de punere în aplicare directă de umplere. Există o serie de proceduri care descriu forme grafice și le imediat de umplere într-un model predeterminat. Prima dintre ele - o procedură
Bar (X1, Y1, X2, Y2. Integer)
desenează un dreptunghi a cărui regiune interioară este umplut cu modelul curent. Acesta este frecvent utilizat în programul de afaceri pentru construcția barelor graficului. Parametrii (X1, Y1) și (X2, Y2) - coordonatele din stânga sus și colțurile din dreapta jos ale dreptunghiului. Chiar și reprezentare mai vizuală de informații atunci când diagrame desen prevede o procedură
Bar3D (X1, Y1, X2, Y2 Integer; .. D3 Word ;. Top Boolean)
Acesta atrage o cutie, din care partea din față este umplut cu modelul curent, iar adâncimea este dată în pixeli parametrul D3. Parametrul Top seturi modul de afișare a planului superior: Adevărat - ecran, Fals - nu se afișează. Acest parametru este necesar, în scopul, de exemplu, pentru a putea trage coloanele îndreptați unul spre celălalt. Două constante sunt definite pentru ea în modulul grafic:
Următoarea „umplere“ de lucru procedură cu sectoare de cercuri și elipse. Desenul unui sector elipsă, care va fi umplut cu o culoare în funcție de modelul actual, procedura este efectuată
Sectorul (X, Y. Integer;
StartAngle, EndAngle, XRadius, YRadius. Word)
Procedura, parametrii au aceeași semnificație ca și în procedurile Arc, elipsă (vezi. Sec. 19.4.3). Pentru a specifica un sector circular ar trebui să fie setat YRadius dat raportul de compresie:
GetAspectRatio (A, B);
Sector (100, 100, 0, 90, R, R * LongInt (A) div B);
Același efect poate fi atins prin utilizarea procedurii
PieSlice (X, Y. Integer;
StartAngle, EndAngle, Radius. Word)
care atrage un sector de cerc cu o suprafață umplut cu modelul de umplere curent. Reamintim că va circumferința cu adevărat circulară, atât timp cât sistemul este schimbat raportul de compresie a imaginii.
Examinarea procedurilor invecineaza cu un alt:
FillEllipse (X, Y. Integer; XRadius, YRadius Word.)
Ea atrage o elipsă cu culoarea curentă și umple-l în conformitate cu modelul stabilit. Parametrii procedurii au aceeași semnificație ca și parametrii descriși în Sec. 19.4.3 Procedura de elipsă.
Completarea de forme geometrice mai complexe, inclusiv forme neregulate, se efectuează procedura
FillPoly (PolyPoints NumPoints Word ;. VAR)
Parametrii săi sunt aceeași funcție ca și în procedura DrawPoly (a se vedea. Sec. 19.4.4). Singura diferență este că coordonatele primului și ultimului vârfurile poligonului nu se poate compara. Cu toate acestea, ei încă vor fi unite printr-o linie, iar interiorul figurii va fi umplută (Fig. 19,23).