LightRed 60 қызғылт қоңыр
LightMagenta 61қызғыш
LightYellow 62 сары
LightWhite 63ақ
Сызық салу кезінде оның түсі алдыңғы орнатылған түспен беріледі, оны өзгерту үшін:
SetColor(color:word); - процедурасы қолданылады, мұндағы color – жаңадан орнатылатын түрінің аты немесе нөмірі. Мысалы, SetColor(7); - сызық түсі боз болады.
SetВкColor(color:word); - процедурасы экран түсін, яғни рең түсін өзгертеді, мұндағы color – жаңадан орнатылатын түрінің аты немесе нөмірі. Мысалы, SetВкColor(4); - экран түсі қызыл болады.
Rectangle (x1,y1,x2,y2:integer); - сол жақ жоғарғы (х1,у1) және оң жақ төменгі төбелерінің координаталары (х2,у2) бойынша төртбұрыш сызады.
Bar (x1,y1,x2,y2:integer); - мұнда ағымдағы түспен іші боялған тіктөртбұрыш сызылады. Бояу түсін SetFillStyle процедурасы көмегімен енгізуге болады.
SetFillStyle (Patter,color:word); - объектінің ішін бояйды, толтыру стилі мен түсін өзгертеді, мұндағы Pattern – толтыру стилі, ол тұрақты немесе нөмір арқылы беріледі; color – толтыру стилі.
Floodfill(x,y:integer; bor:word); - таңдалған стиль бойынша тұйық фигураның ішін бояйды. Мұндағы x,y – фигураның ішінде жатқан кез келген нүктенің координатасы, bor – шекара сызығының түсі.
Circle(x,y:integer;r:word); - шеңбер сызу процедурасы, мұндағы x,y – центрдің координатасы, r – пиксель арқылы берілген шеңбердің радиусы.
Ellipse (x,y:integer; b1,b2,rx,ry); - эллипс доғасын сызады, мұндағы x,y – центр координаталары, b1,b2 – алғашқы және соңғы доғаның бұрыштары, rx, ry – эллипстың жатық және тік радиустары.
FillEllipse(x,y:integer; xr,yr:word); - іші боялған эллипс сызу, мұндағы x,y – центрдің координаталары, xr,xy –эллипстің жарты осьтері.
Outtext(text:string); - процедурасы арқылы берілген орнынан бастап экранға мәтін жолын шығаруға болады.
Outtextxy(x,y:integer;tex:string); процедурасы. Мұндағы x,y – мәтін жазылатын жолдың алғашқы басталатын орнының координаталары, tex – мәтін, ол апостроф ішіне жазылады.
Достарыңызбен бөлісу: |
