Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1



бет106/210
Дата06.01.2022
өлшемі4,42 Mb.
#16437
түріОқулық
1   ...   102   103   104   105   106   107   108   109   ...   210
GetLineSettings процедурасы. Түзудің ағымдағы стилін қай-тарады. Процедура тақырыбы:
Procedure GetLineSettings(var Stylelnfo: LineSettingstype) Мұндағы Stylelnfo – ағымдағы стилді қайтаратын, LineSet-
tingstype типті айнымалы.
LineSettingstype типі Graph модулінде төмендегідей анық-талған:

type
LineSettingstype = record
LineStyle: Word;{Түзу типі}
Pattern : Word;{Үлгі}


185

Thickness: Word {Қалыңдығы}
end;
SetWriteMode процедурасы. Жағадан салынатын түзу мен экранда бұрын салынған түзулер арасындағы қатынас тəсілін орнатады. Процедура тақырыбы:
Procedure SetWriteMode(Mode);
Мұндағы Mode – салынатын бейнелі түзулер арасындағы қатынас тəсілін анықтайтын, Integer типті өрнек.
Егер Mode параметрінің мəні 0 болса, онда салынатын түзу экранда бар түзудің үстіне салынады (орталық процессордың MOV нұсқауы). Егер мəн 1 болса, онда жаңа түзу салу XOR логикалық операциясының көмегімен орындалады (ерекше ИЛИ): жаңа түзу мен экрандағы түзудің қилысу нүктелерінде пикселдің жануы инверсияланады, сондықтан бірінен соң бірі са-лынатын екі түзу экрандағы түзудің түсін өзгертпейді.
SetWriteMode процедурасы орнатқан режим, Drawpoly, Line, LineRel, LineTo жəне Rectangle процедураларына да таралады. Mode параметрін беру үшін модульде анықталған төмендегі тұрақтыларды қолдануға болады:

const
CopyPut = 0;{ MOV операциясымен салу} XORPut = 1;{ XOR операциясымен салу }

Келесі мысалда, экранда сағат циферблаты салынады (7.6-су-рет). Көрнекі болу үшін сағат жүрісі 600 есе жылдамдатыл-ған (Delay (100) операторын қараңыз). Қалауыңызша програм-маны жүйелік сағатқа қосып жəне секунд стрелкасын салып,







Достарыңызбен бөлісу:
1   ...   102   103   104   105   106   107   108   109   ...   210




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет