Как сделать, чтобы компонент рисовал на своем parent.

← →
Cem © (2002-08-20 20:36) [0]

Есть компонент Obj, наследник от TGraphicControl.
Он находится на компоненте Parent, наследнике от TScrollBox.
Требуется, чтобы при перерисовке Obj он мог бы что-нибудь рисовать и на parent.

Как сделано сейчас:
у Obj перекрыт Paint, в нем я создаю новый TCanvas
canvas:=TCanvas.Create;
затем присваиваю:
canvas.Handle:=GetControlDC(parent);
Рисую на canvas все, что надо, потом, в конце делаю:
canvas.Free;

Результат:
До какого-то времени все работает нормально, но начиная
примерно с 5-го созданного на форме объекта часть
следующих создаваемых начинают перерисовываться не в своих
координатах, а слева вверху Parent! Это наблюдается в
Win98-х. В Win2000 все нормально.

Заранее спасибо.

← →
DiamondShark © (2002-08-20 22:21) [1]

Вообще-то у TGraphicControl есть свойство Canvas. Все извращения уже проделаны Борландом.

Как сделать, чтобы компонент рисовал на своем parent. Найти похожие ветки