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
{Экран ортасына тікбұрыш саламыз} x1:=GetMaxX div 4;
y1:=GetMaxY div 4;
SetColor(lS);
Bar(x1,y1,3*x1,3*y1);
{Ақ түсті кездейсоқ түске ауыстырамыз} while not KeyPressed do
SetRGBPalette(15,Random(256),Random( 256),Random(256));
CloseGraph
end
else
begin
CloseGraph;.
WriteLn(‘Адаптер түстерді
басқарудың’,’RGB-режим қолдамайды’); end
end.
Достарыңызбен бөлісу: |
