Function GetPaletteSize: Integer;
GetDefaultPalette процедурасы үнсіз келісім бойынша орна-тылатын палитра құрылымын қайтарады (автобаптау режимінде). Тақырыбы:
Procedure GetDefaultPalette(var Palette: PaletteType); мұндағы Palette –палитра көлемі мен түстері қайтарылатын Pal-etteType типті айнымалы.
SjetFillStyle процедурасы толтыру стилін орнатады (тип жəне түс) заполнения. Тақырыбы:
Procedure SetFillStyle (Fill,Color: Word); мұндағы Fill – толтыру типі; Color – толтыру түсі.
204
Толтыру арқылы бейненің қандай да бір фрагментін өрнек-термен қайталап салып отыруға болады. Толтыру типін көрсеті үшін келесі алдын ала анықталған тұрақтылар қолданылады:
const
EmptyFill = 0; {Фон түсімен толтыру (өрнек жоқ)} SolidFill = 1; {біркелкі толтыру}
LineFill = 2; { ------- толтыру}
LtSlashFill = 3; { /////// толтыру}
SlashFill = 4; {Қалыңдалған /// толтыру}
BkSlashFill = 5; { Қалыңдалған \\\ толтыру}
LtBkSlashFill = 6; { \\\\\\\ толтыру}
HatchFill = 7; { +++++++ толтыру}
XHatchFill = 8; { ххххххх толтыру}
InterleaveFill= 9; {Тікбұрышты клеткалармен толтыру}
WideDotFill = 10; {Сирек нүктелермен толтыру}
CloseDotFill = 11; { Жиі нүктелермен толтыру }
UserFill = 12; {Өрнек түрін тұтынушы анықтайды}
Келесі мысал программасы сіздерге стандартты толтыру типтерін көрсетеді.
uses Graph, CRT;
var
d,r,e,k,j,x,y: Integer; begin
{Графиканы іске қосамыз} d:=Detect; InitGraph(d,r,''); e:=GraphResult;
if e <> grOk then WriteLn(GraphErrorMsg(e))
else
begin
x:=GetMaxX div 6;{Графиктің экрандағы
орны}
у:=GetMaxY div 5;
for j:=0 to 2 do{Екі қатар}
for k:=0 to 3 do{төрт квадраттан} begin
Rectangle((k+1)*x,(j+1)*y,(k+2)*x,(j+2)*y);
SetFillStyle(k+j*4,j+1);
205
Bar((k+1)*x+1,(j+1)*y+1,(k+2)*x-1,(j+2)*y-1);
end;
if ReadKey=#0 then k:=ord(ReadKey); CloseGraph
end
end.
Егер Fill параметрінің мəні 12 ( UserFill) болса, онда өрнек суретін программист SetFillPattern процедурасын шақыру ар-қылы өзі анықтайды.
Достарыңызбен бөлісу: |
