Michakiewicz, I. wituszak
Programowanie w Turbo Pascal 7.0
STAA OKRELAICA WARTO
KART* GRAFICZN
CurrentDriver -128
(aktualny sterownik przesyany do procedury GetModeRange)
Detect
(automatyczne rozpoznanie sterownika graficznego)
CGA MCGA
2
EGA
3
EGA64
4
EGAMono IBM8514
6
HercMono
7
ATT4OO
8
VGA
9
PC3270
10
zobacz . DetectGraph, GetModeRange, InitGraph
260
P. Michakiewicz, I. wituszak
kw
Programowanie w Turbo Pascal 7.0
pogrubionymi liiami pochylyn po*rubionvmi liiami "knn*,
liniami ukonymi [ \\\ )
siatk poziom siatk ukon
liniami przeplatanyrni
I I
kropkami zagszezonymi wzorzec zdefinioway prze
uytkownika
vria
krj standardowy o rnatrycy 8x
wyprowadzanie poziome (od le* prawej)
wyprowadzanie pionowe (od g dolu)
rozrniar znaku definiowany pi uytkownika
obacz : GetTextSettings, SetTextStyle, TextSettingsType
262 P. Michakiewicz, I. wituszak
Programowanie w Turbo Pascal 7.0
zobacz . DetectGraph, GetModeftange, InitGraph 1.8. Stae definiujce wzorzec stosowany przy wypenianiu obszarw:
obacz : FillPatternType, GetFillSettings, SetFillSt 1.9. Stae definiujce kroje ccionek:
1.10.5tae kontro* pozomego poowegu wy*uw***11 ****u,*.r..*.*
prez SetTextJustify:
STAA WARTO OPIS
LeftText 0 (wyrwnanie do lewej)
CenterText 1 (wyrwnanie centryczne)
RightText 2 (wyrwnanie do prawej)
BottomText 0 (wyrwnanie do dou)
CenterText 1 (wyrwnanie centryczne)
TopText 2 (wyrwnanie do gry)
zobacz . SetTextJustify
1.11. Stae uywane do okrelenia rodzaju i gruboci rysowanych lin, uywane z procedurami GetLineSettings i SetLineStyle:
u*rapn:
OPIS
operacja graficzna vvykor pomylnie
nie zainstalowano trybu grai
nie wykryto karty grafic* nie znaleziono pliku sterov
graficznego zastosowano niewlaciwy ste
graficzny
brakuje pamici do zaladov sterownika graficznegi
przekroezenie pamici p* wypelnianiu obszaru metoda
przekroczenie pamici p wypenianiu obszaru metod* nie znaleziono pliku definiuj
czeionki
brakuje pamici do zalado* kroju czcionek
zastosowano niewlaciwy tr* sterownik graficzny
STAA WARTO OPIS
SolidLn 0 (linia ciga)
DottedLn 1 (linia kropkowa)
CenterLn 2 (linia centrowana)
DashedLn 3 (linia przerywana)
UaerBitLn 4 (rodzaj lin zdefiniowanej
przez uytkownika)
NornWidth 1 (linia cienka)
ThickWidth 3 (linia pogrubiona)
zobacz . LineSettingsType
1.12. Staa okrelajca maksymaln ilo kolorw:
de*laracja . const MaxColors =15;
zobacz : GetDefaultPalette, GetPalette, SetAllPalette
264 P. Michakiewicz, I. wituszak
bld operacji grafieznyd
bld wejcia - wyjcia grafics zastosowano niewlaciwy 1
czcionek
Programowanie w Turbo Pascal 7.0
zobacz . GraphResult
GraphFreeMemPtr
deklaracja . var GraphFreeMemPtr: Pointer;
opis . W miennej tej jest przechowywany adres procedury zwalniania pamiei ze sterty (inaczej wskanik na proeedur powodujc usunicie ze sterty sterownikw). Zmienna wykorzystywana prez programy posiadajce wasne procedury zardzania stert, przykladowo:
GraphFreeMemPtr:=*MojaObsluga;
GraphGetMemPtr
deklaracja : var GraphGetMemPtr: Pointer;
opis . W zmiennej tej jest przechowywany adres procedury przydielania pamici na stert (inaczej wskanik na procedur powodujc przydzielanie pamici dla sterownikw grafcznych, krojw czcionek oraz dla bufora grafiki). Zmienna wykorzystywana prze programy posiadajce wlasne procedury zarzdzania stert, przykladowo: GraphGetMemPtr := *MojaObsuga;
TYPY
Arc Coordsl*pe
skladnia: . type
ArcCoordsType = record
X,Y,
Xstart, Ystart,
Xend, Yend: Integer;
end;
opis . Typ uywany przez GetArcCoords do uzyskania informacji o ostatnim wywolaniu Arc lub Ellipse.
zobacz : GetArcCoords
FillPatternl*pe
skladnia . type
FillPatternType = array[1..8) ofbyte; opis : Typ definiuje wlasny wzorzec uytkownika wyPeniania obszarw.
*ui uuciii, u*41C UCIlu*
wzorec.
*llSettingsType
s*adnia . type
FillSettingsType = record
Pattern,
Color : word;
end;
opis . Typ okrela wzorec i kolor wypenianego ob* zobacz . GetFillSettings
LineSettingsl*pe
skadnia . type
LineSettingsType = record
LineStyle: Word;
Pattern: Word;
Thickness: Word;
end;
opis : Typ okrela rodaj, wzorzec i grubo linii. zobacz . GetLineSettings, SetLineStyle Palettel*ype
skadnia : type
PaletteType = record
Size: Byte;
Colors: array[O..MaxColors) of Shortint; end;
opis . Typ definiuje rozmiar i numer kolorw pale Uywanyjest prez procedury GetDefaultPalet GetPalette, SetAlIPalette.
Pointl*pe
skadnia . type
<~ PointType = record
X, Y: Integer;
end;
opis . Typ okrelajcy wsprzdne punktu.
266 P. Michakiewicz, l. wituszak Programowanie w Turbo Pascal 7.0
vuuu . urcie,**tpae,FiIlEllipae,GetArcCoorc
TeztSettingsl*pe apeetRatio, PieClice, Sector, SetspectF
shadnia . type Bar
TextSettingaType = record
Fot, akadnia . Bar (X1,Y1,X2,Y2: Integer);
Direction, opia . Procedura ryauje na ehranie aupek (uy,
CharSize,
w wyhreaach aupkowych) jaho wypeni
Horiz atokt obowizujcym aktualnie z
wypeniajcym i kolorem.Znak wypei
Vert: Word; kolor okrelane a rzez
end; p procedury Set:
opis . Typ definiuje atrybuty tekstu ijeat uywany przez lub SetFillPattern.Pukt (X1,Y1) od
procedurg GetTextSettinga, waprzdnym lewego grnego naronik*
kta,a punkt (X2,Y2) odpowiada wapz