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

Function GetPaletteSize: Integer; GetDefaultPalette

жүктеу/скачать 4,42 Mb.

бет	118/210
Дата	06.01.2022
өлшемі	4,42 Mb.
	#16437
түрі	Оқулық

1 ... 114 115 116 117 118 119 120 121 ... 210

Procedure

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 процедурасын шақыру ар-қылы өзі анықтайды.

жүктеу/скачать 4,42 Mb.

Достарыңызбен бөлісу:

1 ... 114 115 116 117 118 119 120 121 ... 210