Рисование

← →
Rusl92 © (2008-03-30 22:03) [0]

мне надо, чтобы пользователь во время работы проги 1) курсор при подведении на TImage становился "карандашом" 2) пользователь Во время работы проги рисовал в компоненте TImage (Как в Паинте рисуют) *(то есть компонент TImage некоторых размеров и рисование производится в его пределах)
3) после того, как курсор убирается из пределов компонента TImage, то он становится "обычным"
Вот какая задача! Помогите пожалуйста

← →
Семеныч (2008-03-31 00:44) [1]

> Rusl92 © (30.03.08 22:03)

Ваш вопрос из серии "мне надо написать программу, как это сделать".

Задайте конкретный вопрос - получите конкретный ответ.

← →
{RASkov} © (2008-03-31 02:20) [2]

> [0] Rusl92 © (30.03.08 22:03)

Что-то у меня полы грязные, нужно наверное их подмести - это раз. Бельишко грязное лежит - два. Да и в магазин бы сбегать - это три, но это еще не все.... Не поможешь?

Вот и смотри, что тебе легче: рассказать мне как все это делается или придти и самому все сделать, а?
:о)

← →
{RASkov} © (2008-03-31 02:25) [3]

> [0] Rusl92 © (30.03.08 22:03)

Да и новый компонент тут собсно не нужен вообще....(это я про выбор конференции)...
Половина "задачи" вообще решается установкой свойств в ИО...

← →
Rusl92 © (2008-03-31 07:50) [4]

Хотя бы не могли написать, каким образом пользователь Во время работы прогИ может рисовать (как в Paint)

>каким образом пользователь Во время работы прогИ может рисовать (как в Paint)

нужно отслеживать нажатие мыши, движение при нажатой кнопке, и отпускание - OnMouseDown и т.д.

← →
МистерТ (2008-03-31 09:17) [6]

> Rusl92 ©
Как-то так:
...OnMouseDown() FPaint := true; ... ...OnMouseMove(...) if FPaint then begin DrawPoint(); ... ...OnMouseUp() FPaint := false;

Рисование Найти похожие ветки