Текущий архив: 2005.03.20;
Скачать: CL | DM;

Вниз

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

← →
WebPauk   (2005-03-07 16:21) [0]

Basic class is :

tcontrol = class
public
 procedure show; virtual;
end;

procedure tcontrol.show;
var
 i: integer;
begin
  for I := 0 to fControlCount-1 do
  begin
     Controls[I].Show;
  end;
end;

Проблема при создании классов наследников возникает такая:
Начинается отрисовка всех controls у данного класса. Но отрисовка происходит сначала до контрола у которого есть свои контролы. Отрисовываются сначала они, а потом происходит возврат на один уровень вверх и дорисовываются все контролы из списка. Может кто подскажет как правильно организовать алгоритм отрисовки? Потому как контролы верхнего уровня отрисовки затирают контролы следующего уровня предидущего по списку, контрола.

---

← →
WebPauk   (2005-03-07 16:24) [1]

Если изобразить наглядно, то вот как это выглядит:

Control
 - Control11
 - Control12
     - Control121
     - Control122
 - Сontrol13

Так вот, Control13 затирает Control121 и Control122

---

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

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх

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