Практичесl= 2;ая работа № 30

Прак= 090;ическая работа № 30

Рисун&#= 1086;к

Цель работы - созk= 6;ать программу, выводящую н = 72; форму приведенныl= 1; ниже рисуно = 82;. По нажатию н= 072; клавишу «Лучи» происходит смена направлениn= 3; лучей. Изменить программу так, чтобы лучи изменяли направлениn= 3; без нажатия клавиши.

1. Добавьте в форму компоненты Image и Button.

2. Создайте обработчик события нажатия. Важ= 085;ейшим свойством компонента Image является св = 86;йство Canvas= :TCanvas (холст). Это свойство само является объектом. У Canvas есть методы = 080; свойства. Эт= 086; свойства и методы рисования н = 72; холсте.

<= span style=3D'font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-fa= mily: Symbol'>· Pen: Tpen (перо): рисование линий, грани= 094; фигур и т.п. пр= оизводится пером. Важнейшие свойства пе = 88;а – Color: Tcolor (цвет), Width: Integer (ширина), Style: TpenS= tyle (стиль).

<= span style=3D'font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-fa= mily: Symbol'>·        Brush: Tbrush (кисть): закраска фигур, задне= 075;о фона надписей и т.п. производитl= 9;я кистью. Важнейшие свойства кисти – Color: Tcolor (цвет), Style: TbrushStyle (стиль).

<= span style=3D'font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-fa= mily: Symbol'>·        Font: Tfont (шрифт): надписи на холсте выполняютсn= 3; с учетом значений ег = 86; свойства Font. При= ; этом задний фон за надписью закрашиваеm= 0;ся текущим значением кисти. Для того чтобы з= 072;краски не было, нужно установить прозрачный стиль кисти: Brush.Style :=3D bsClear, но затем не забудьте = 089;делать кисть непрозрачнl= 6;й: Brush.Style :=3D bsSolid, иначе фигуры, которые вы будете в дальнейшем рисовать, то= 078;е окажутся незакрашенl= 5;ыми. Важнейшие свойства шрифта – Name: string (имя), Size: Integer (размер), Color: Tcolor (цвет). Вы также использоваl= 3;и два метода х= 086;лста:

<= span style=3D'font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-fa= mily: Symbol'>·        Rectangle= (X1, Y1, X2, Y2: Integer) (прямоуголь = 85;ик): рисует прямоугольl= 5;ик, з= ;акрашивая его кистью и обводя перо = 84; (в нашем случае, для того чтобы рамки не был= 086; видно, мы сделали цве = 90; кисти и пера одинаковым). В качестве параметров задаются координаты верхнего левого X1, Y1 и нижнего правого X2, Y2 углов относительl= 5;о верхнего левого угла холста.

<= span style=3D'font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-fa= mily: Symbol'>·        TextOut(X, Y: Integer; const Text: string) (вывести текст): рисует текс = 90; согласно заданному шрифту и закрашивая задний фон согласно заданной кисти (в нашем случа = 77; эта закраск = 72; незаметна, поскольку текст рисуе = 90;ся на том же фоне, что и текущее значение кисти). В качестве параметров задаются координаты верхнего левого угла текста X, Y относительl= 5;о верхнего левого угла холста и текст надпи = 89;и Text.

3.      Нарисуйт= е градиентно закрашенноk= 7; синее небо отдельными линиями, каждую следующую линию рисуя более светлой. Таким образ = 86;м, рисование выполняетсn= 3; в цикле. Необходимо определить локальную переменную. = 042; цикле меняются значения цветов, устанавливk= 2;ется перо в точку и чертится линия из это= 081; точки в другую.

<= span style=3D'font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-fa= mily: Symbol'>·        MoveTo(X, Y: Integer) (передвинут= 00; перо): передвигаеm= 0; позицию пер = 72; в точку холста в координаты X, Y. При этом на холсте ниче = 75;о не рисуется;
<= span style=3D'font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-fa= mily: Symbol'>·        LineTo(X, Y: Integer) (чертить линию): чертит лини= 02; из точки, в ко&= #1090;орой находилось перо, в точку X= , Y, используя текущее пер = 86;. При этом пер= 086; тоже перемещаетl= 9;я в эту точку.

i= 2;естоположе= 085;ие пера хранится в свойстве холста PenPos: Tpoint. Запись в эту переменную полностью эквивалентl= 5;а вызову метода MoveTo. Цве= 090; можно задавать, используя константы цвета clBlack, clNavy, clGreen и т.д. – полный список констант находится в выпадающем списке свой = 89;тва Color в Инспекторе Объектов. Цвет также можно задат= 00;, используя функцию RGB (Red, Green, Blue: by= te), в параметра = 93; Red, Green и Blue указываютсn= 3; значения интенсивноl= 9;ти красной, зеленой и синей компоненты = 94;вета (от 0 до 255 каждая).

4.      Добавить на небо солн= 094;е. Нарисовать эллипс с линиями-луч = 72;ми. Лучи нарисовать случайным образом, для этого необходимо использоваm= 0;ь генератор с = 83;учайных чисел.

<= span style=3D'font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-fa= mily: Symbol'>·        Круги и эллипсы рисуются с помощью метода холс = 90;а Ellipse(X1, Y1, X2, Y2: Integer). Как и прямоугольl= 5;ик, эллипс закрашиваеm= 0;ся текущей кистью и обводится текущим пером. В качестве параметров X1, = Y1, X2, Y2 необходимl= 6; указать левый верхний и нижний правый углы прямоугольl= 5;ика, в который «вписан» эл = 83;ипс. Если Y2 – Y1 =3D X2 – X1 (то есть прямоугольl= 5;ик является квадратом), = 01;ллипс рисуется ка = 82; круг.

<= span style=3D'font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-fa= mily: Symbol'>·        Датчик случайных чисел – функция random выдает числ = 86; типа double в диапазоне о = 90; 0 до 1.

5.      Нарисова= ть облака. Можн= 086; воспользовk= 2;ться картинкой и = 79; файла. Нарисовать = 74; стандартноl= 4; редакторе Paint облако: а) установить атрибуты картинки – ширина 100, высота 50; б) закрасить картинку черным цвет = 86;м – этот цвет в программе будет прозрачным; в) нарисоват= 100; облако, используя инструмент Распылителn= 0; и различные оттенки сер = 86;го; г) проследите, чтобы левая нижняя точк = 72; картинки осталась черной (именно по эт&#= 1086;й точке автоматичеl= 9;ки определяетl= 9;я прозрачный цвет).

6.      Сохранит= ь картинку в файл.

7.      Добавить в форму еще один Image, щелкнуть по нему мышкой = 080; загрузить в него картинку. Сделать его прозрачным можно, установив свойство Transparent. Поскольку о = 85; вспомогатеl= 3;ьный, лучше, чтобы он не был виден во время работ = 99; программы, поэтому отключите ему свойств = 86; Visible.

8.      Добавить компонент Timer. Установите его интерва = 83; 100.

9.      На вкладке событий Инспектора Объектов на = 87;ротив события OnTimer в выпадающем списке выбе = 88;ите имя обработ = 95;ика события Button1Click. Таким образом уст = 72;навливаетс&#= 1103; уже существующl= 0;й обработчик для еще одного события.

10. h= 2; программе каждые сто миллисекунk= 6; будет вызыв = 72;ться событие и происходитn= 0; перерисовкk= 2; картинки, ка= 082; если бы мы нажимали ка = 78;дый раз кнопку. З&#= 1072;медлить интервал между перерисовкl= 6;й картинки можно, увеличив интервал таймера.

11. i= 5;ри рисовании часто требуется использоваm= 0;ь более сложные объекты, чем просто комб = 80;нации линий прямоугольl= 5;иков и эллипсов. М&#= 1086;жет возникнуть необходимоl= 9;ть использоваl= 5;ия готового растрового изображениn= 3;. Кроме того, может понадобитьl= 9;я копированиk= 7; изображениn= 3; из одного Image на другой. Для этого используетl= 9;я метод холст = 72; Draw(X, Y: Integer; Graphic: Tgraphic). Этот метод практическl= 0; копирует гр = 72;фический объект на холст в область с ко= 086;рдинатами верхнего левого угла X,Y. Графическиl= 4; объектом Graphic могут быть битовые кар = 90;инки, иконки и метафайлы. Для нас важным явля = 77;тся его применение = 82; копированиn= 2; картинок из одного Image в другой. Это делается следующим образом:

     ImageA.Canvas.Draw(X= , Y, ImageB.Picture.Bitmap)

При этом все, что нарисовано на ImageB, будет скопированl= 6; на ImageA. Если ImageB.Transparent= =3D true, то картинкk= 2; копируется = 89; прозрачным фоном.

Вмесm= 0;о ImageA и ImageB соответствk= 7;нно подставьте нужные вам имена компонентоk= 4;, фигурирующl= 0;е в вашей программе:

Image1.Canvas.Draw(130 + random(2), 20 + random(2)= , Image2.Picture.Bitmap);
Image1.Canvas.Draw(100 + random(2), 50 + random(2), Image2.Picture.Bitmap);=
Image1.Canvas.Draw(170 + random(2), 80 + random(2), Image2.Picture.Bitmap);=

Такиl= 4; образом, для рисования можно испол= 00;зовать любые картинки из файла – облака, доми= 082;и, персонажей, логотипы и т.п.

Листинг программы<= /b>

procedure Tform1.Button1Click(Sender: Tobject);

var= i:integer;

begin

Image1.Canvas.Pen.Col= or :=3D clGreen;

Image1.Canvas.Brush.C= olor :=3D clGreen;

Image1.Canvas.Rectang= le(0, 200, 300, 300);

Image1.Canvas.Font.Co= lor :=3D clWhite;

Image1.Canvas.Font.Si= ze :=3D 30;

Image1.Canvas.Font.Na= me :=3D ‘Arial’;

Image1.Canvas.TextOut= (10, 250, ‘Delphi’);

for i :=3D 0 to 20= 0 do

   begin

    Image1.Canvas.Pen.Color :=3D RGB(I, I, 255);

    Image1.Canvas.MoveTo(0, i);

    Image1.Canvas.LineTo(300, i);

   end;

Image1.Canvas.Pen.Col= or :=3D clRed;

Image1.Canvas.Brush.C= olor :=3D clYellow;

Image1.Canvas.Ellipse= (20, 20, 60, 60);

Image1.Canvas.Pen.Col= or :=3D clYellow;

for i :=3D 1 to 20= do

   begin

     Image1.Canvas.MoveTo(40, 40);

    Image1.Canvas.LineTo(5 + random(70), 5 + random(70));

   end;

end;

end.