В резултат на програмата можете да видите на фиг.
След молива се премества в началната точка lines- canvas.MoveTo (х, у). Metod MoveTo движи молива в позицията означена като х и у параметри. Когато няма преместване настъпва на платното за рисуване (платно), и Y-X не е см или милиметри, и броя на пикселите (броят на дисплея пиксела).
Преброяване на Х координата е от лявата страна. Това означава, че от лявата страна на прозореца е равна на нула позиция х, и от дясната страна на прозореца е максималната стойност. Но това не означава, че х не може да бъде отрицателна или по-голяма от максимално. Можете без проблеми да посочите всяка стойност, само имайте предвид, че част от линията може да излезе на прозореца.
Countdown у координира идва от върха. Горната рамка на прозореца е нула на ш. В този удар с глава на прозореца (наречена форма и системни бутони) не влиза в пространството на клиентската област на прозореца.
Сега трябва да се направи линия, като се използва метод LineTo (х, у). Като параметри се предават линия край координати. Сегментът ще бъде изтеглен от текущата позиция писалка, където пресякохме използва метод MoveTo, и да координира, посочен в метода на повикване LineTo.
След изготвянето на първия ред ние подбираме следния стил и се движи към позицията на 20 пиксела по-долу вече изготвен линия. След това се направи на следващия ред.
Сега нека да добавите към нашата програма за възможността за промяна на цвят молив. За да направите това, формата на бутона, който казва: "Промяна на цвета" и coiorDialog компонент от раздела диалогови прозорци. coiorDialog компонент има за цел да покаже стандартен прозорец за избор на цвят. В форма, той ще се появи като обикновена кутия с икона на старт и няма да се вижда.
за събития # 111; бутон nКликнете, ще напише следния код:
ако ColorDialogl.Execute след това
Първият ред показва прозорецът за избор на цвят (ColorDialog1. Execute). Ако потребителят избере цвят и натиснете ОК (или удари премахване на кръста натиснат бутон в заглавната част), устройството се връща лъжа. Ето защо, ние проверяваме дали прозореца показва резултатът е вярно, тогава промените цвета:
ако след това ColorDialogl.Execute Промяна на цвета на платното
Спомням си, че по подразбиране, ако изявление проверява кода от картинката в уравнението е вярно, освен ако не е посочено друго. В тази връзка, една и съща структура може да се запише като:
ако ColorDialogl.Execute = вярно, тогава Промяна на цвета на платното
Резултатът е писано в избрания цвят цвят компонент ColorDialogl имота. Това е, което ние canvas.Pen.color и присвояване на цвят молив. След това е необходимо преначертае само чертежа. За да направите това, изрично се обадя protsedura- форма събитие манипулатор OnPaint. Ние манипулатор нарича FormPaint, че е необходимо да му се обади.
Можете да стартирате програмата и да се провери в резултат на променящата цвета на линиите.
Сега добавете възможност за избиране на дебелината на линията. За да се установи този раздел Updown компонент Win32. за събития # 111; nЩракнете върху този компонент ще напише следния код:
процедура TFormi.UpDownlClick (Sender: TObject; Button: TUDBtnType);
Updown компонент се състои от две копчета. Външен бутон увеличава вътрешния брояч. Долна - намалява. Текущата стойност на брояча може да се чете в позицията на собственост. Това е стойността, която възложи на ширината на имот Canvas молив. Pen. Широчина.
След този метод се нарича пребоядисвам основна форма. Този метод създава едно събитие, което е необходимо да се пребоядиса съдържанието на прозореца. Това означава, че водачът се нарича автоматично OnPaint събитие. Резултатът е същият като манипулатор на повикване директно, както беше направено след промяната на цвета. Но този метод се смята за по-подходящо.
TIP. Ако говорим за това, което по правилния начин е по-, и двете от тях работят без проблеми, просто втория метод е по-естетичен и красива, но изисква допълнителни разходи за генериране на съобщения за необходимостта да се прекрои прозореца.
Помогнете на проекта! Кажи на приятел за този сайт: