Инструменты пользователя
subjects:programming:pascal:pascalabc:graphabc
Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
subjects:programming:pascal:pascalabc:graphabc [2018/06/19 12:59] ¶ |
subjects:programming:pascal:pascalabc:graphabc [2023/03/22 20:08] (текущий) ¶ [Пример рисования] |
||
|---|---|---|---|
| Строка 31: | Строка 31: | ||
| uses GraphABC; | uses GraphABC; | ||
| begin | begin | ||
| - | SetWindowCaption("Title"); // задаем заголовок графического окна | + | SetWindowCaption('Title'); // задаем заголовок графического окна |
| SetWindowSize(800, 600); // задаем размер графического окна | SetWindowSize(800, 600); // задаем размер графического окна | ||
| - | CenterOnScreen; // центрируем графическое окно по центру экрана | + | // CenterOnScreen; // центрируем графическое окно по центру экрана |
| ClearWindow(clWhite); // очищаем окно указанным цветом | ClearWindow(clWhite); // очищаем окно указанным цветом | ||
| - | SetBrushColor(clPurpure); // устанавливаем цвет кисти | + | SetBrushColor(clGreen); // устанавливаем цвет кисти (закрашивание) |
| + | SetPenColor(clRandom); // устанавливаем цвет пера (границы) | ||
| SetPixel(10,10,clBlack); // закрашивает один пиксель(x,y,color) | SetPixel(10,10,clBlack); // закрашивает один пиксель(x,y,color) | ||
| Строка 47: | Строка 48: | ||
| SetFontColor(clBlack); // устанавливаем цвет шрифта | SetFontColor(clBlack); // устанавливаем цвет шрифта | ||
| SetFontSize(20); // устанавливаем размер шрифта в pt | SetFontSize(20); // устанавливаем размер шрифта в pt | ||
| - | TextOut(300,10,"a+b=c"); // выводим текст (x,y,string) | + | TextOut(300,10,'a+b=c'); // выводим текст (x,y,string) |
| end.</code> | end.</code> | ||
subjects/programming/pascal/pascalabc/graphabc.1529402359.txt.gz · Последние изменения: 2018/06/19 12:59 — ¶
Инструменты страницы
Записаться на занятия
Записаться на занятия к репетитору
