Как сделать, чтобы компонент рисовал на своем parent. [D4, D6, Win95/98]
Cem © (2002-08-20 20:36:00)
Есть компонент 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:00) [1]
Вообще-то у TGraphicControl есть свойство Canvas. Все
извращения уже проделаны Борландом.
Наверх 
ЧАТ |
Орешник |
|
