Самостоятельная работа. C помощью компонента PaintBox и использования класса Canvas нарисуем следующее:

Begin

Практическая работа

Begin

Begin

Практическая работа

C помощью компонента PaintBox и использования класса Canvas нарисуем следующее:

Поставим на форму компонент PaintBox. Опишем процедуру на событие OnPaint этого компонента.

procedure TForm1.PaintBox1Paint(Sender: TObject);

var x,y:integer;

with PaintBox1.Canvas do

brush.Color:=clRed;

ellipse(0,0, PaintBox1.width, PaintBox1.height);

font.Name:='arial';

font.Size:=height div 5;

font.Style:=[fsBold,fsItalic];

font.Color:=clwhite;

x:=(PaintBox1.width-textwidth('Delphi')) div 2;

y:=(PaintBox1.height-textheight('D'))div 2;

textout(x,y,'Delphi');

end;

end;

Рассмотрим пример рисования на поверхности формы с использованием свойства Canvas. Выполним вывод изображения домика.

Код, выполняющий отображение рисунка, расположен в обработчике события OnResize формы, поэтому при изменении ее размеров рисунок перерисовывается заново, учитывая новые размеры формы.

procedure TForm1.FormResize(Sender: TObject);

var w, h, wm, hm: integer;

form1.Refresh;

wm:=form1.ClientWidth; w:=wm div 8;

hm:=form1.ClientHeight; h:=hm div 10;

//небо

with form1.Canvas do begin

brush.Color:=clBlue;

brush.Style:=bsDiagCross;

pen.color:=clblue;

rectangle(0,0,wm,h);

//трава

brush.Color:=clGreen;

brush.Style:=bsHorizontal;

pen.color:=clGreen;

rectangle(0,hm-h,wm,hm);

//солнце

brush.Color:=clYellow;

brush.Style:=bsSolid;

pen.color:=clYellow;

ellipse(w,2*h,2*w,2*h+w);

//домик

brush.Color:=clGray;

brush.Style:=bsSolid;

pen.color:=clMaroon;

rectangle(2*w,hm-5*h,6*w,hm-h);

polygon([point(2*w,hm-5*h),point(4*w,hm-7*h),

point(6*w,hm-5*h),point(2*w,hm-5*h)]);

brush.Color:=clwhite;

brush.Style:=bsSolid;

pen.color:=clMaroon;

rectangle(3*w,hm-4*h,5*w,hm-2*h);

end;

end;

Самостоятельно дорисуйте еще два элемента на рисунке. Например, забор, занавески, дерево, тучу и т.п.

Нарисуйте мигающий светофор. Для этого на форму поместите компонент PaintBox и кнопку BitBtn для включения светофора.

«Выключенный светофор»: описать событие OnPaint, которое прорисовывает прямоугольную область и три эллипса (1 цвет – clmaroon, 2- clolive, 3- clbackground).

«Включенный светофор»: описать событие OnClick на кнопку «Включить». Используйте функцию Sleep(500) для приостановления работы программы при задержании включенного цвета (clRed, clYellow, clGreen).

Дата добавления: 2015-05-09