Pr13.
Проект графический редактор.
Это самый большой проект нашего курса.
Простенький
редактор рисует линии, прямоугольники и окружности.
Замкнутые
фигуры могут быть закрашены.
Параметры фигур вводятся в окнах.
Перед
каждым окном надпись, указывающая какой параметр вводится в окне.
На форме в верхней левой четверти область для рисования1
Под
ней надпись Х1 и окно текст1, надпись У1 и окно текст2.
Под
ними надпись Ширина и окно текст3, надпись высота и окно текст4.
С
правой стороны длинная кнопка Линия.
Под
ней кнопка Прямоугольник.
Ниже
кнопка Закрашенный прямоугольник.
Ниже
кнопка Окружность.
Под
ней кнопка Закрашенная окружность.
Ниже
три ряда окошек с надписями красный, зеленый, голубой.
Для
смешения цветов каждый основной цвет задается числом от 0 до 255.
При выполнении программы сначала в 7 окон введите числа, затем нажмите кнопку с фигурой.
Если размеры уместятся в
окне рисования, то Вы увидите результат.
Dim c as integer
Draw.begin(drawingarea1,400,300)
Draw.fillstyle=0
C=255*val(textbox5.text)*255+255*val(textbox6.text)+val(textbox7.text)
Draw.forecolor=c
Draw.fillcolor=c
Draw.rect(val(textbox1.text),
val(textbox1.text), val(textbox1.text), val(textbox1.text))
Draw.end
End
Примечание.
Сначала
введите, скомпилируйте, исправьте опечатки и выполните программу для кнопки
прямоугольник.
Затем выделите мышкой строки от 2 до предпоследней. Скопируйте их
в буфер обмена
Edit copy
Вернитесь
на форму. Сделайте двойной щелчок по кнопке Линия.
Щелкните
на пустой строке между началом и концом программы.
Теперь вставьте текст из буфера обмена
Edit paste
Замените
Rect - line.
Получится программа линия.
Из Буфера
обмена текст можно вставлять много раз. Он там хранится.
Rect – ellipse.
Получится окружность или эллипс.
Если
задать
Draw.fillstyle=1
Получится закрашенная фигура.
Напишите
программы для всех кнопок!
Желаем удачи!