"РЛ" - НАЧИНАЮ Щ ИМ
ъ
U
(ir<tphicd 1.00 K adiolubilel by l(in<it M id/ilo v )))
G raphics 1.00 R ddioliibitel by Ririal M ia/ito v )))
Рис. 6
Canvas->Pen->Color=clRed;
Canvas->Pen->Width=2;
Canvas->MoveTo(50,50);
Canvas->LineTo(50,150);
Canvas->MoveTo(50,50);
Canvas->LineTo(100,50);
Canvas->LineTo(100,100);
Canvas->LineTo(50,100);
Canvas->MoveTo(104,104);
Canvas->LineTo(70,150);
Canvas->MoveTo(104,104);
Canvas->LineTo(138,150);
Ниже приведены коды рисуемых фигур:
Ellipse() - рисует эллипс;
Pie() - рисует “пирог”;
Poilygon() - рисует многоугольник;
Polyline() - рисует ломаную линию;
Rectangle() - рисует прямоугольник;
Агс() - рисует дугу;
Chrod() - рисует хорду.
На врезке 4 приведен полный листинг программы по ри-
сованию надписи “Рл”
(рис. 6).
К этой теме, надеюсь, мы еще вернемся, и сделаем ка-
кие-нибудь готовые программы.
Если что-то не получилось или не понятны мои дей-
ствия, читвйте подшивку журнала “Радиолюбитель”,
а если и там не нашли ответа, пишите мне на e-mail, с
радостью помогу ©.
Таблица
1. Таблица стилей закраски для свойства Brush
bsSolid
bsC
ioss
bsC
lear
'/у ////////■■■/
•'.
•//,■////.
/
//
/у'// У/ ///
bsD
iagCmss
bsBD
iagohal
.'/////,'
/ s ■
,'/
bsHorizontal
bsFO
iagonal
bsVertical
bsOertsel
bsDense2
ЬъОепзеЗ
bs0ense4
bsDenseS
bsDense6
bi Dense?
I I
----------------------------------------------------------
@
#include <vcl.h>
#pragma hdrstop
#include «Unitl.h»
I I
----------------------------------------------------------
#pragma package(smartjnit)
#pragma resource «*.dfm»
TForml *Form1;
//-----------------------------------------------------------------
_fastcall TForml ::TForm1 (TComponent* Owner)
: TForm(Owner)
{
}
I I
----------------------------------------------------------
void
_fastcall TForml ::Button1 ClickfTObject 'Sender)
W
обработчик нашей кнопки
{
Canvas->Pen->Color=clRed;
\\ а тут рисуем!
Canvas->Pen->Width=2;
Canvas->MoveTo(50,50);
Canvas->LineTo(50,150);
Canvas->MoveTo(50,50);
Canvas->LineTo(100,50);
Canvas->LineTo(100,100);
Canvas->LineTo(50,100);
Canvas->MoveTo(104,104);
Canvas->LineTo(70,150);
Canvas->MoveTo(104,104);
Canvas->LineTo(138,150);
}
!
//-----------------------------------------------------------------
Ш
Радиолюбитель - 0 5 /2 0 0 8 !j
39
предыдущая страница 39 Радиолюбитель 2008-05 читать онлайн следующая страница 41 Радиолюбитель 2008-05 читать онлайн Домой Выключить/включить текст