Скачать: CL | DM;

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

← →
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)

---

← →
MBo ©   (2008-03-31 08:51) [5]

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

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c