нарисовать линию на скролбоксе

← →
злобная танька (2005-05-21 12:50) [0]

А как нарисовать линию на ScrollBox"е? У нево же канваса нету...
помогите пожалста!

← →
злобная танька (2005-05-21 12:58) [1]

пишу

GetDC(sbMap.Handle); LineTo(DC, 1000, 500); ReleaseDC(sbMap.Handle, DC);

и нифига!

← →
Marser © (2005-05-21 13:19) [2]

Используй TcontrolCanvas. Например так:
with TControlCanvas.Create do try Control:=ScrollBox1; LineTo(60,30); finally free end;

← →
злобная танька (2005-05-21 13:22) [3]

зашибись!
спасибо огромное..

а как цвет линии задать?

← →
Marser © (2005-05-21 13:22) [4]

>пишу
>
> GetDC(sbMap.Handle);
> LineTo(DC, 1000, 500);
> ReleaseDC(sbMap.Handle, DC);
>
> и нифига!

Естественно. Потому что неправильно. Вот исправленный вариант:
var dc:HDC; begin dc:=GetDC(sbMap.Handle); LineTo(DC, 100, 50); ReleaseDC(sbMap.Handle, DC);

← →
Marser © (2005-05-21 13:24) [5]

> а как цвет линии задать?

Также как и в обычной канве.
pen.color:=clRed

← →
злобная танька (2005-05-21 13:25) [6]

боже мой, какая я глупая..
ещё раз спасибо за пример с канвасом. очень прекольно!

← →
TUser © (2005-05-21 14:28) [7]

Можно еще Canvas.DC:= ...

← →
Kerk © (2005-05-21 14:39) [8]

злобная танька (21.05.05 13:25) [6]

какая-то незлобная танька :)))))

Кстати метод пореальнее - это на Десктопе рисовать, разумееться, с просчётом масштаба.

>petya-kurochkin © (21.05.05 15:36) [9][Ответить]
> Кстати метод пореальнее - это на Десктопе рисовать,
> разумееться, с просчётом масштаба.

А ещё можно фломастером по экрану.

Почему такая агрессия?
Я же просто сказал, блин вообще уже...

нарисовать линию на скролбоксе Найти похожие ветки