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

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

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

procedure TForm1.FormResize(Sender: TObject);

var w, h, wm, hm: integer;

Begin

form1.Refresh;

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

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

//небо

with form1.Canvas dobegin

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;

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