«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

 

”пражнение 4

—оздайте приложение, которое рисует пером домик.

 
—оздайте форму и задайте дл€ ее свойства Caption значение Ђ–исунок домикаї. ѕоместите в верхнюю часть формы компонент Image1 из палитры Additional. Ќиже Image1 на форме разместите компонент Button1 из палитры Standard и задайте дл€ его свойства Caption значение ЂЌарисоватьї.

–исование пером графика функции опишите в процедуре обработчика щелчка мышью на кнопке Button1. ƒл€ этого, выбрав в окне »нспектора объектов Buttonl, на странице Events произведите двойной щелчок на пустом поле списка в событии OnClick.

“ак как в процедуре обработчика событи€ необходимо обрабатывать свойства Pen, Font, а также использовать методы LineTo, MoveTo, TextOut, Arc, Chord, Ellipse, Pie, PolyBezier, PolyBezierTo, Polygon, Polyline, Rectangle, RoundRect, вам следует ознакомитьс€ с соответствующими разделами справочной системы Delphi.

ѕосле этого в окне –едактора кода отредактируйте текст процедуры обработчика событи€ TForml.ButtonlClick следующим образом:

procedure TForml.ButtonlClick(Sender: TObject);
begin
with Imagel.Canvas do begin
Pen.Width:=1; {задать толщину пера дл€ рисовани€}
Pen.Color:=clBlack; {задать черный цвет линии}
MoveTo(0,200);
LineTo(Imagel.Width,200); {начертить поверхность земли}
MoveTo(100,200);
Rectangle(100,100,220,200); {стены}
MoveTo(100,200);
Polyline([Point(100,100),Point(160,50),Point(220,100)]); {крыша}
Ellipse(140,70, 180,90); {окошко на чердаке}
Rectangle( 115,130,150,200); {дверь}
Rectangle(165,130.205,165); {окно}
Font.Size:=16; {задать размер шрифта в пунктах}
Text0ut(140,220,'ƒомик'); {подписать рисунок}
end;
end;

»зучите текст процедуры и комментарии. —охраните текст приложени€, откомпилируйте его и проверьте его работу.


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

”пражнение є2 дл€ обработки строк √рафика в Delphi ”пражнение 1 ”пражнение 2 ”пражнение 3 ”пражнение 5 ѕрограммы на Pascal «адачи на тему "ѕроизвод€щие функции и р€ды" ”пражнение 1 (ѕроизвод€щие функции и р€ды) ”пражнение 2 (ѕроизвод€щие функции и р€ды) 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом