Цель и задачи урока:
Образовательные:
Научить учащихся программировать рисование графических изображений.
Развивающие:
Развивать умение делать вывод на основе анализа.
Воспитательные:
Воспитывать эстетические и нравственные чувства по отношению к природе, ответственность за ее охрану.
Учащиеся должны знать: назначение графических методов и свойств и особенности их использования во время построения графики.
Учащиеся должны уметь: Использовать графические методы класса TCanvas: MoveTo, LineTo, Rectangle, Ellipse, свойства холста Pen и Brush для программирования рисования графических изображений; использовать компонент SpinEdit, окно ColorDialog; отслеживать движения мыши, состояния кнопок мыши; сохранять содержимое канвы в файл в формате BMP.
Тип урока: объяснение новой темы.
Ход урока.
1. Организация начала урока (проверка наличия учащихся в классе и благоприятный настрой на работу).
2. Фронтальный опрос по пройденной теме по вопросам после параграфа на с.75.
3. Постановка цели урока.
4. Объяснение новой темы.
Практически у всех компонентов Lasarus есть объектное свойство ТCanvas. Получается, что каждый компонент – это холст, на котором нарисовано изображение компонент.
С этой точки зрения, кнопка – на самом деле не кнопка, а холст, на котором нарисованы изображения кнопки и текста.
Когда вы щелкаете мышью по кнопке, изображение меняется и приобретает вид нажатой кнопки. Таким образом, графика Windows представляет собой рисование на холсте.
ТCanvas содержит два инструмента:

Принцип работы с графическими примитивами тот же, что и в Паскале.
Например, процедура обработки события OnMoyseDown для формы, содержащая строку
Form1.Canvas.Rectangle (x, y, x+100, y+100);
будет рисовать прямоугольную рамку от точки с координатами указателя мыши (левый верхний угол) со стороной =100 при каждом щелчке левой кнопкой мыши.
Параметры процедуры FormMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer).
Для создания толщины линий используют компонент SpinEdit палитры Misc.
Битовый образ представляет собой находящуюся в памяти компьютера графическую поверхность, на которой программа может сформировать изображение.
Создание простейшего графического редактора Рисовалка.
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
Image1.Canvas.Pen.Width:=SpinEdit1.Value;
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Image1.Canvas.MoveTo(x, y);
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Весь материал - в документе.


Графика. Организация рисования. Битовый образ (конспект) (0.18 MB)

