OnPaint оқиғасын өңдеу процедурасында координаталық осьтерді сызыңыз
жүктеу/скачать 15.03 Kb.
|
|
Бұл компонент System компоненттер палитрасы бетінде орналасқан. Tpaintbox класы-TGraphicControl класының ұрпағы. PaintBox компонентінің мақсаты-пайдаланушыға пішіннің шектеулі аймағында сурет салу мүмкіндігін беру. Сурет салу үшін кенептің барлық мүмкіндіктері қолданылады. PaintBox компонентін пайдалану мысалын қарастырыңыз. Қолданбаның негізгі мәзірі арқылы таңдалған координаталық жазықтықтың төрттен бірінде 20 пиксель радиусының боялған шеңберін салатын қосымша жасайық. Жұмыс істейтін қолданба терезесі: Mainmenu1, Label1, Button1 және PaintBox1 компоненттерін пішінге салыңыз. Label1 жапсырмасы өрісінде біз қолданбаны пайдалану туралы нұсқаулықты жазамыз:"тоқсан нөмірін таңдап, сурет салу түймесін басыңыз". PaintBox1 компонентінің ені мен биіктігі қасиеттері 100-ге тең. OnPaint оқиғасын өңдеу процедурасында координаталық осьтерді сызыңыз: procedure TForm1.FormPaint(Sender: TObject); begin form1.Canvas.moveto(130, 30); form1.Canvas.lineto(130, 230); form1.Canvas.moveto(30, 130); form1.Canvas.lineto(230, 130); end; Напишем процедуры выбора четверти координатной плоскости: procedure TForm1.N11Click(Sender: TObject); begin paintBox1.left:=30; paintbox1.top:=30; end; procedure TForm1.N21Click(Sender: TObject); begin paintBox1.left:=130; paintbox1.top:=30; end; procedure TForm1.N31Click(Sender: TObject); begin paintBox1.left:=30; paintbox1.top:=130; end; procedure TForm1.N41Click(Sender: TObject); begin paintBox1.left:=130; paintbox1.top:=130; end; Процедура обработки события щелчка по кнопке Нарисовать: procedure TForm1.Button1Click(Sender: TObject); begin with paintBox1.Canvas do begin pen.Color:=clfuchsia; brush.Color:=clfuchsia; ellipse(30, 30, 70, 70); end; end; жүктеу/скачать 15.03 Kb. Достарыңызбен бөлісу:
|