Как рисовать поверх картинки...

[Kurt]

Допустим, у меня на форме в компоненте Image загружена картинка (не BMP).
Так вот, хочется, чтобы по нажатию мыши на картинке рисовалась линия.
В сам файл картинки изменения не вносить - просто во время исполнения отобразить поверх линию.
Как енто исполнить?

----------------------------------------------------------------------------
Es ist alles...

[Demonx]

Image не подойдёт....используй PictureBox

[Aleksej]

Для PictureBox используй:

Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

MoveToEx - установка начало линии
LineTo - рисование самой линии

Или используй метод Line самого PictureBox'a

[Kurt]

Aleksej:
А это не испортит картинку? (У меня нет возможности сейчас проверить код..)

----------------------------------------------------------------------------
Es ist alles...

[Aleksej]

Нет, просто рисуется по hDC, без всякой записи.

[Kurt]

Thank's a lot. I have no questions!

--------------------------------------------------------------------------------
Es ist alles...