Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1
жүктеу/скачать 4,42 Mb.
|
- Бұл бет үшін навигация:
- GetFillSettinqs
- SetRGBPalette
| Procedure GetFillPattern(var Pattern: FillPatternType); мұндағы Pattern – толтыру үлгісі қайтарылатын, FillPattem-
Type типті айнымалы. Егер программа үлгіні SetFillPattern процедурасының кө-мегімен орнатпаса, Pattern жиымы мəні 255 ($FF) байттармен толтырылады. GetFillSettinqs процедурасы ағымдағы толтыру стилін қай-тарады. Тақырыбы: Procedure GetFillSettinga(var Pattlnfo: FillSettingsType); мұндағы Pattlnfo – ағымдағы толтыру стилі қайтарылатын, FillSettingsType типті айнымалы. Graph модулінде келесі тип анықталған: type FillSettingsType = record Pattern: Word; {Үлгі} Color : Word {Түс} end; Бұл жазбадағы Pattern жəне Color өрістерінің мəні, SetFillStyle процедурасын шақырғандағы сəйкес параметрлердегідей. SetRGBPalette процедурасы IBM 8514 VGA адаптерімен жұ-мыс жасайтын түстер гаммасын тағайындайды. Тақырыбы: Procedure SetRGBPalatte(ColNum,RedVal, GraenVal,BlueVal: Integer); мұндағы ColNum – түс нөмірі; RedVal, GreenVal, BlueVal – 208 сəйкесінше, қызыл, жасыл жəне көк түстердің қоюлығын анық-тайтын Integer типті өрнек. Келесі программада экран ортасына ақ түсті тікбұрыш салы-нады да, ол SetRGBPalette процедурасының көмегімен кездейсоқ түстерге боялады. Программадан шығу үшін кез келген пернеге басыңыз. uses Graph,CRT; var Driver,Mode,Err,xl,yl: Integer; begin {Графиканы іске қосамыз} Driver:=Detect; InitGraph(Driver,Mode,’’); Err:=GraphResult; if ErroO then WriteLn(GraphErrorMsg(Err)) else if Driver in [IBM8514, VGA] then begin
y1:=GetMaxY div 4; SetColor(lS); Bar(x1,y1,3*x1,3*y1); {Ақ түсті кездейсоқ түске ауыстырамыз} while not KeyPressed do
end
else begin
CloseGraph;. WriteLn(‘Адаптер түстерді басқарудың’,’RGB-режим қолдамайды’); end end.
жүктеу/скачать 4,42 Mb. Достарыңызбен бөлісу:
|