Grafikus eszközök Pascal
1. ELJÁRÁS InitGraph (VAR GraphDriver, GraphMode: integer; PathToDriver: STRING); - Ez az eljárás inicializálja a grafikus mód, azaz a monitor átvált szöveges módban a grafika. Bármilyen grafikai eljárások és függvények csak akkor kerülhet sor a grafikus mód. Mielőtt hívja InitGraph szükséges értéket rendelni az első változó észlelni (állandó leírt Graph modul). PathToDriver - egy string, amely tartalmazza a fájl elérési útvonalát - a grafikus driver a monitorok az EGA SVGA van EGAVGA.BGI fájlt. A grafikus meghajtók mindig tartják a könyvtárba, ahol a Turbo Pascal magát (általában egy alkönyvtárban BGI). Akkor sem keresni a lemezt, és a fájlt a program keretében a helyes utat, hogy ez például a „D: \ TP \ BGI”, vagy, hogy a fájlt abba a könyvtárba, akkor az elérési út egy üres karakterlánc. Ha sem az egyik, sem a másik nem történik meg, a grafikus mód nem inicializált.
2. ELJÁRÁS CloseGraph; - bezárja a grafikus módot.
3. Funkció GetMaxX. integer; .
4. FUNKCIÓ GetMaxY. integer; - visszatér rendre a szám a jobb szélső és alsó pixel felbontású képernyő. Pixel számozása 0 GetMaxX balról jobbra és 0-tól GetMaxY fentről lefelé. grafikus képernyő felbontása függ a monitor típusa, és a kiválasztott grafikus módban. Például egy VGA monitor, maximális felbontása 640 „480, azaz GetMaxX visszatér 639 és GetMaxY - 479.
5. ELJÁRÁS SetBkColor (Szín: Word); - meghatározza a háttér színét, miután fut a teljes képernyő átfesthető színes Színes. A színpaletta is függ, hogy milyen típusú monitor, és a kiválasztott grafikus módban, de a standard paletta színes monitor tartalmazza a 16 szín:
0 - Black 1 - Blue 2 - Green 3 - Cián
4 - Red 5 - Magenta 6 - Barna 7 - lightgray
8 - DarkGray 9 - világoskék 10 - Világos zöld 11 - LightCyan
12 - 13 alapnyomat - LightMagenta 14 - Sárga 15 - Fehér
Ezek a nevek - a nevét a konstansok ismertetjük Grafikon modul; akkor használja őket, vagy a színek számát.
6. ELJÁRÁS SetViewPort (x1, y1, x2, y2: integer; Clip: logikai érték); - Állítsa be a grafikus ablakban. x1, y1, x2, y2 - koordinálja a bal felső és a jobb alsó sarkában az ablak. Az eljárás végrehajtása után, a pixelek fog számítani a bal felső sarokban az ablak. A klip logikai paraméter határozza meg, hogy az levágja a képet a határon az ablakon. A művelet végrehajtásához nincs szükség, akkor az alapértelmezett grafikus ablak foglalja el a teljes képernyőt.
7. ELJÁRÁS ClearDevice; - festékek a képernyő háttér színét.
8. ELJÁRÁS PutPixel (X, Y: integer; Szín: Word); - fest pixel koordinátái X, Y Szín.
9. FUNKCIÓ GetPixel (X, Y: Integer): Szó; - visszaadja a színét a pixel koordinátái X, Y.
10. ELJÁRÁS SetColor (színes szó.); - beállítja a vonal színe, mind a képernyőn vonal színes színes SetColor mielőtt a következő eljárást.
11. ELJÁRÁS SetLineStyle (vonalstílus, Pattern, Vastagság: Word); - állítja a vonal stílusát valamennyi kiadási tételek elvégzésére SetLineStyle más érveket. Vonalstílus paraméter a következő értékeket:
0 - SolidLn - folyamatos vonal;
1 - DottedLn - a szaggatott vonal;
2 - CenterLn - pontvonallal;
3 - DashedLn - szaggatott vonal;
4 - UserBitLn - által meghatározott vonal a programozó.
Ha a vonal stílusát - 4, a vonal alakja határozza meg a második paraméter az eljárás - Pattern. Vonalvastagság vehet csak két értéket:
1 - NormWidth - vékony vonal;
3 - ThickWidth - vastag vonal.
12. ELJÁRÁS vonal (x 1, y1, x2, y2: Integer) - egy egyenes vonalat rajzol a pont koordinátái x1, y1, hogy a pont x2, y2.
13. ELJÁRÁS MoveTo (x, y: Egész szám); - mozgatja a grafikus kurzort arra a pontra, x, y. Grafikus kurzor nem látható a képernyőn, de számos kezelést az aktuális pozícióját a grafikus kurzort.
14. ELJÁRÁS LineTo (x, y: Egész szám); - vonalat rajzol az aktuális pont (a jelenlegi grafikus kurzor pozíció), hogy az a pont x, y.
15. ELJÁRÁS MoveRel (Dx, Dy: Egész szám), - mozgatja a grafikus mutató vízszintes Dx és Dy függőleges irányban.
16. ELJÁRÁS LineRel (Dx, Dy: Egész szám); - a vonalat rajzol az aktuális pont az a pont a kiszorító Dx, Dy.
17. FUNKCIÓ GetX: egész; és
18. FUNKCIÓ GetY: egész; - Visszaadja az aktuális grafikus kurzor.
19. ELJÁRÁS Téglalap (x1, y1, x2, y2: Egész szám); - Egy négyszöget rajzol, x1, y1 - koordinátáit a bal felső sarokban, x2, y2 - koordinátáit a jobb alsó sarokban.
20. ELJÁRÁS Kör (X, Y: integer; R: Word); - egy kört rajzol R sugarú középpontja az X pontban, Y.
21. ELJÁRÁS Ellipszis (X, Y: integer; f1, f2, Rx, Ry: Word); - húz egy ellipszis ív félig tengely Rx, Ry és középpont X, Y a sarok szög F1 F2 (a szögek fokban megadott).
22. ELJÁRÁS Arc (X, Y: integer; f1, f2, R: Word); - Döntetlen körív R sugarú középpontja azon a ponton, az X, Y a sarok szög F1 F2.
23. ELJÁRÁS SetFillStyle (minta, szín: Word); - határozza meg az eljárás árnyékolás. Minta paraméter a következő értékeket: 0 - EmptyFill - nincs festék, 1 - SolidFill - szilárd árnyékolás, 2 - LineFill, 3 - LtSlashFill,
4 - SlashFill, 5 - BkSlashFill, 6 - LtBkSlashFill, 7 - HatchFill, 8 - XHatchFill,
9 - InterleaveFill, 10 - WideDotFill, 11 - CloseDotFill.
24. ELJÁRÁS Bar (x1, y1, x2, y2: Egész szám); - felhívja a kitöltött téglalapot módszerével árnyékoló, eljárások kidolgozása SetFillStyle.
25. ELJÁRÁS FillEllipse (X, Y: integer; Rx, Ry: Word); - felhívja a kitöltött ellipszis.
26. ELJÁRÁS Sector (X, Y: integer; f1, f2, Rx, Ry: Word); - felhívja a kitöltött elliptikus ágazatban.
27. ELJÁRÁS PieSlice (X, Y: integer; f1, f2, R: Word); - felhívni a kitöltött kör szektorban.
29. ELJÁRÁS SetTextStyle (betűtípus, irány, Méret: Word); - határozza meg az eljárás szöveges kimenetet. Font - több grafikai betűtípusok, lehet 0 - DefaultFont. 1 - TriplexFont. 2 - SmallFont. 3 - SansSerifFont.
4 - GothicFont. Zero font - a standard és mindig támogatott. Ha a betűtípus bár az 1-től a 4., mi kell a munka könyvtárba TRIP.CHR font fájlokat. LITT.CHR. SANS.CHR. GOTH.CHR (az is, hogy szükség van). Irányban a paraméter határozza meg az irányt a szöveges kijelző (balról jobbra, illetve felülről lefelé), és 0 - HorizDir, 1 - VertDir. Méret paraméter határozza meg a karakterek méretét, és változik 1-10.
30. ELJÁRÁS OutText (S: STRING); - megjelenik a szöveg a grafikus kijelző az aktuális koordinátákat a grafikus kurzor (Write eljárás [LN] nem működik grafikus módban).
31. ELJÁRÁS OutTextXY (X, Y: integer; S: STRING); - megjelenik a szöveg a grafikus kijelző segítségével a koordinátái X, Y.
32. ELJÁRÁS SetTextJustify (Vízsz, Vert: Word); - határozza meg az utat az elhelyezése a szövegben. Horiz paraméter lehet állítani, hogy:
0 - LeftText - bal,
1 - CenterText - közepén a szöveget,
2 - RightText - jobbra.
Vert Az érték lehet:
0 - BottomText - az alsó széle mentén,
1 - CenterText - közepén a szöveget,
2 - TopText - a felső szélét.
Ne hanyagolja ezt az eljárást, ha azt szeretné, hogy pontosan jelennek meg a feliratok a rajzhoz.
33. FUNKCIÓ TextWidth (s: STRING): Szó; - visszaadja a szöveg hossza pixelben.
34. FUNKCIÓ TextHeight (S: STRING): Szó; - visszaadja a magassága a szöveg pixel.
36. ELJÁRÁS SetActivePage (Oldal Szó.); - beállítja az aktuális grafikus lap, ahol minden kimenet fog küldeni. Az utolsó két eljárást lehet használni, hogy animációkat készíthetnek.
0-640 „200, 4. oldal,
1-640 „350, 2. oldal,
2-640 „480, 1 oldalt.
Nevezett állandók grafikus mód is leírt Graph modul; igen, az üzemmódokat fent felsorolt: VGALo, VGAMed, VGAHi.
38. FUNCTION GetGraphMode. integer; - visszaadja a beállított grafikus formában.
39. ELJÁRÁS RestoreCrtMode; - Azt a szöveget megjelenítési módot. Ez az eljárás együtt SetGraphMode lehet használni, hogy a debug grafikai programok. Tegyük fel, hogy van írva, de még nem hibamentesített grafikai program. Azt akarjuk, hogy minden olyan információt, a program számította a képernyőn, hanem nehéz használni kimeneti OutText eljárást. Szervezzük programot a következő módon:
40. FUNKCIÓ GraphResult: egész; - visszaadja kilépési kódot az utolsó grafikai műveleteket; Ha ez a kód grokkolni (= 0), akkor a művelet sikeres, különben hiba történt.
Annak igazolására, néhány grafikus képességeit Pascal nyelv levelet műsorrend risuyuschuyu cos2x funkciót, az [0,6p].
CONST ScreenColor = DarkGray;