Inicjowanie trybu graficznego

 

 

1/1 

Inicjalizacja trybu graficznego 

 
1. „Prosta” inicjalizacja trybu graficznego.  
 
1.1 Ustawienie dostępu do modułów: przykład (w zależności gdzie zainstalowano TP): 

 Menu główne / Options / Directories / Unit Directiories  
                                              np. “C:\PROGRA~1\

TP\UNITS

” 

 
1.2. Przykładowy program inicjalizujący i wykorzystujący tryb graficzny.  
 

program grafika; 
 
uses 

graph

, crt; 

{dołączenie modułu graph}

 

 
var ster,tryb:integer; 

{deklaracja zmiennych pomocniczych} 

 
begin 
 

ster:=detect; 

{detekcja sterownika graficznego} 

initGraph(ster,tryb,'C:\progra~1\tp\bgi'); 

{włączenie trybu graficznego} 

 
line(0,0,100,100); 

{narysowanie linii}

 

repeat until keypressed; 

{zatrzymanie programu} 

 

closeGraph; 

{wyłączenie trybu graficznego} 

 
readln; 
end. 
 

Procedura: 

initGraph

. 

Działanie: służy do włączenia trybu graficznego. 
Składnia: 

procedura 

initGraph

( var 

ster

:integer; var 

tryb

:integer; 

sciezka

:string); 

gdzie: 

ster

 – sterownik graficzny uzyskany poprzez funkcję 

detect 

tryb

 – tryb graficzny 

sciezka

 – ścieżka dostępu do pliku sterownika graficznego (do katalogu „

bgi

”) 

 
Procedura

 

closeGraph; 

Działanie: wyłącza tryb graficzny i wraca do poprzedniego trybu tekstowego.