Бағдарламалау технологиялары және тілдер

Мұндағы Pattern аргументі төмендегі 12 шаблонның бірін қабылдайды. Ол шаблондар бояу стилін көрсетеді.

Бояу шаблондары 2- кестеде көрсетілген.

Кесте 2. Бояу шаблондарының түрлері

Мысал: SetFillStyle(1, 4)- қызыл түске тегістей бояйды.

SetFillStyle(2, 4)- қызыл түске штрихтап бояйды.

Мысал87. Біртіндеп 15 түске боялатын тіктөртбұрышты салу программасы.

For c:=0 to 15 do

Begin

SetFillStyle(1, c);

Delay(20000);

End;

Мысал88. Қызыл түске әр түрлі стильмен боялатын тіктөртбұрышты салу программасы.

For p:=0 to 15 do

Begin

SetFillStyle(p, 4);

Delay(20000);

End;

Сол жақ жоғарғы төбесінің координатасы (10, 10) , оң жақ төменгі төбесінің координатасы (620, 450) болатын тіктөртбұрыш 2-мысалда әр түрлі түске тегістей боялады, 3- мысалда қызыл түске әртүрлі стильде боялады.