09.09.2011, 13:11
|
#4
|
|
///
Сообщений: 9,552
Регистрация: 02.04.2005
Возраст: 45
Не в сети
|
хм... что-то не догоняю.
Вот мой код:
Цитата:
void __fastcall TForm1::FormActivate(TObject *Sender)
{
int i,j;
_m_pGraphics = new Gdiplus::Graphics(Form1->Image->Canvas->Handle);
_m_ppen = new Pen(Gdiplus::Color(255,255,180,180));
_m_pbrush= new SolidBrush(Gdiplus::Color(55, 255, 0, 0));
_m_pGraphics->SetSmoothingMode(Gdiplus::SmoothingModeHighQualit y);
_m_ppen->SetLineCap(2, 2, 0);
_m_ppen->SetColor(Gdiplus::Color(255, 190, 190, 190));
_m_ppen->SetWidth(1);
// Рисую сетку
for (i=0; i <= 60; i++) _m_pGraphics->DrawLine(_m_ppen, 0,i*10,700,i*10);
for (j=0; j <= 70; j++) _m_pGraphics->DrawLine(_m_ppen, j*10,0,j*10,600);
/Рисую линию
_m_ppen->SetColor(Gdiplus::Color(255, 50, 50, 50));
_m_ppen->SetWidth(5);
_m_pGraphics->DrawLine(_m_ppen, 0,300,0,0);
//а теперь, допустим, я потянул за верхний конец линии и получил координаты 0,300,200,0
_m_pGraphics->DrawLine(_m_ppen, 0,300,200,0);
// А как перед этим убрать первую линию
}
|
|
|
|