Цел - да се създаде програма, която показва формата на фигурата по-долу. С натискане на бутона "Рейс" е промяна на посоката на лъчите. Промяна на програмата, така че лъчите се променили посоката, без да натискате.
1. Добавете съставките под формата на изображението и Бътън.
2. Създаване на манипулатор на един клик събитие. Най-важният компонент е собственост на имот Снимка на Canvas: TCanvas (платно). Този имот е самостоятелно обект. В платно има методи и свойства. Това са свойствата и методите за привличане на платното.
• Pen: Tpen (писалка): изготвяне линии, форми, граници и т.н. направи писалка. Най-важните качества на писалката - Цвят: Tcolor (цвят), ширина: Integer (широчина), Стил: TpenStyle (стил).
• Четка: Tbrush (четка): .. Shading форми, фонови етикети и т.н., произведени с четка. Най-важните качества на четка - Цвят: Tcolor (цвят), Стил: TbrushStyle (стил).
• шрифта: Tfont (шрифт): върху платно от опаковки, се основава на ценностите на неговите свойства на шрифта. В този случай, на фона на надписа боядисани над текущата стойност на четката. За да се запълни, че няма нужда да се създаде прозрачен стил на четката: Brush.Style: = bsClear, но след това не забравяйте да миете непрозрачен: Brush.Style: = bsSolid, различни Чертаете форми, които в бъдеще, също ще бъдат боядисани. Най-важните характеристики на шрифта - Име: низ (име), Размер: Integer (размер), Цвят: Tcolor (цвят). Можете също използва два метода за платното:
• правоъгълник (X1, Y1, X2, Y2: Integer) (правоъгълник): чертае правоъгълник, рисуване върху нея с четка и тичане му писалка (в нашия случай с обхвата да се види, сме направили цвета на четка и писалка и съща). Като параметри на координатите на горния ляв X1, Y1 и долния десен X2, Y2 ъгли спрямо горния ляв ъгъл на платното.
• TextOut (X, Y: Integer; Конст Текст: низ) (показване на текст) обръща текста в съответствие с даден шрифт и боядисване на заден план в съответствие с предварително определен ръка (в този случай е туширането невидим, тъй като текстът е съставен от една и съща среда, тъй като ток стойност четка). Като параметри на координатите на горния ляв ъгъл на текст X, Y спрямо горния ляв ъгъл на платното и етикет на текста на.
3. Начертайте градиент сенчести Blue Sky отделните линии, всяка следваща линия чертеж на запалка. По този начин, на чертежа се извършва в цикъла. Трябва да се определи локална променлива. В поредица от променящите се стойности на цветовете, задайте точката за писалка и е съставен линия от тази точка до друга.
• LineTo (X, Y: Integer) (ред рисунка) чертае линия от точката, в която е имало писалка, точка X, Y, с помощта на ток писалката. В този случай, че писалката също се премества в тази точка.
Местоположение на писалката е съхранявана в имот на PenPos брезентовите: Tpoint. В писмото си до тази променлива е напълно равностойна на повикване метод MoveTo. Цветът може да бъде определен с помощта на постоянен цвят clBlack, clNavy, clGreen т.н. - пълен списък на константи е в падащия списък, за Color имота в инспектора на обекта. Цвят може да бъде зададена и с помощта на RGB (Red, Green, Blue: байт) функционални параметри в червено, зелено и синьо стойности показват интензивността на червени, зелени и сини цветове компоненти (0-255 всеки).
4. Добавете небето слънцето. Начертайте елипса с линии лъчи. Лъчи изготвят на случаен принцип, то е необходимо да се използва генератор на случайни числа.
• кръгове и елипси се изготвят по метод елипса платно (X1, Y1, X2, Y2: цяло число). Подобно на правоъгълник, елипса рисувани по време на текущия четката и обграден текущата писалката. В качеството на параметри X1, Y1, X2, Y2 трябва да посочите в горния ляв ъгъл и долния десен ъгъл на правоъгълника, в който "подходящи" елипса. Ако Y2 - Y1 = Х2 -Х1 (т.е. правоъгълника е квадрат), елипса се изготвя като кръг.
• Доставка на случайни числа - случайна функция дава броя на двойно тип в интервала от 0
6. Запазване на изображението във файл.
7. Добавяне на друга форма на изображението, щракнете върху файла и да го свалите на снимката. Можете да направите това прозрачно чрез задаване на Прозрачен имота. Както той спомагателни, по-добре, че не се виждаше по време на работа, така че изключете Видим имота му.
8. Добавете таймера за компонент. Задайте го интервала 100.
9. В раздела Събития на обектите Инспектор пред събитие OnTimer в падащия списък изберете името на събитието манипулатор Button1Click. По този начин е установено съществуващата манипулатор за друго събитие.
10. Програмата на всеки сто милисекунди ще се нарича събитието и да прехвърля изображението, като че ли ние натиснете бутона всеки път. Бавно и пречертаването интервал между изображенията е възможно, увеличаване на интервала таймер.
ImageA.Canvas.Draw (X, Y, ImageB.Picture.Bitmap)
В този случай, всичко, което е съставено от ImageB, той ще бъде копиран на ImageA. Ако ImageB.Transparent = вярно, изображението се копира с прозрачен фон. Вместо ImageA и ImageB съответно замени компонента, който желаете наименованията, включени в програмата си:
Image1.Canvas.Draw (130 + случаен (2), 20 + случаен (2), Image2.Picture.Bitmap); Image1.Canvas.Draw (100 + случаен (2), 50 + случаен (2), Image2.Picture.Bitmap); Image1.Canvas.Draw (170 + случаен (2), 80 + случаен (2), Image2.Picture.Bitmap); По този начин, да участват в томболата, можете да използвате всяка снимка от файла - облаци, къщи, герои, емблеми и др ...
Свързани статии