Господа, нужна помощь.
Работаю в Builder XE, использую для рисования графики GDI+.
На TImage нарисована сеточка, а на сеточке толстая линия. Хочу перемещать эту линию нажатием на ее концы. То есть при перемещении линия должная стираться и рисоваться в новом месте.

Как это сделать? Если я буду каждый раз перерисовывать фон, будет мерцание. Может есть какой-то способ рисовать линию создавая ее как объект с параметрами? Наверняка в GDI есть какая-то функция для этого.

Спасибо.

Сообщение от -=Женек=-:
Господа, нужна помощь.
Работаю в Builder XE, использую для рисования графики GDI+.
На TImage нарисована сеточка, а на сеточке толстая линия. Хочу перемещать эту линию нажатием на ее концы. То есть при перемещении линия должная стираться и рисоваться в новом месте.

Как это сделать? Если я буду каждый раз перерисовывать фон, будет мерцание. Может есть какой-то способ рисовать линию создавая ее как объект с параметрами? Наверняка в GDI есть какая-то функция для этого.

Спасибо.

LockWindowUpdate(хэндл окна);//Запретили реальную отрисовку на экране
быренько всё перерисовываем
LockWindowUpdate(NULL);//Разрешили реальную отрисовку на экране
InvalidateRect(хэндл окна, NULL, FALSE);//Пометили всё окно как требующее перерисовки
UpdateWindow(хэндл окна);//Принудительно перерисовали

Это если через чистый GDI работать.

Сообщение от -=Женек=-:
Господа, нужна помощь.
Работаю в Builder XE, использую для рисования графики GDI+.
На TImage нарисована сеточка, а на сеточке толстая линия. Хочу перемещать эту линию нажатием на ее концы. То есть при перемещении линия должная стираться и рисоваться в новом месте.

Как это сделать? Если я буду каждый раз перерисовывать фон, будет мерцание. Может есть какой-то способ рисовать линию создавая ее как объект с параметрами? Наверняка в GDI есть какая-то функция для этого.

Спасибо.

1. У формы ставишь DoubleBuffered ->true
2. Координаты того чего хочешь нарисовать хранишь в массиве.
3. Я рисовал всё на PaintBox. Вешаешь в обработчике OnPaint. то что хочешь нарисовать. И когда происходит его вызов делаешь следующее.
3.1. Очищаешь холст.
3.2. Рисуешь координатную сетку (или что там у тебя)
3.3 Рисуешь из массива свои линии. (Скорее всего у тебя, координаты и матрица смежности, в случае если они соединены).

Делал по такому принципу. Мерцаний не заметил. Есть ещё метод когда сначала создают массив TBitMap и рисуют там, потом его копируют на холст. Но я делал по 1-ому способу и было всё ок.

хм... что-то не догоняю.
Вот мой код:

Сообщение от :

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);

// А как перед этим убрать первую линию
}

Hopkroft,
если не получится то, что написал Spectator, попробую твой метод но с TImage

Сообщение от -=Женек=-:
Hopkroft,
если не получится то, что написал Spectator, попробую твой метод но с TImage

Не получится, т.к. у TImage нет события OnPaint.

А вместо OnPaint разве нельзя что-то вроде onMouseMove?

Сделал на OnMouseMove - получилось. Тормозило. Но когда отключил сглаживание при прорисовке сетки - тормозить перестало. Линии то в сетке ортогональные.
Но это же временный вариант. А если у меня на фоне картинка будет - каждый раз ее перерисовывать - это жуть.

Сообщение от -=Женек=-:
А вместо OnPaint разве нельзя что-то вроде onMouseMove?

Я вопроса не понял.

Что касается PaintBox. Он сам перерисовыватся не может для этого ему нужно обрабатывать метод OnPaint.
Тут идеология следующая.
изменил значение->нарисовал.

1. В OnPaint у тебя рисуется то что находится в массиве.
2. На onMouseMove, onMouseDown, onMouseUp изменяешь координаты нужных линий. После этого вызываешь OnPaint.

Таким образом, у тебя и данные изменяются и программа корректно их отображает.

А TImage насколько я понял, может сам "перерисовываться". Вот от этого и нужно отталкиваться. Тем более TImage в основном для хранения и обработки картинок используют. А тебе активно рисовать нужно, так что сам думай

Upd. Я понял что ты хотел сказать. В принципе ты написал то-же что я тебе предложил. Т.е. у меня тоже в OnMouseMove в конце вызывалась перерисовка.