TCollection, TCollectionItem

[uwewo]

Zitat von oki:

Überschreibe die procedure Paint von TDateLine und schon werden alle Items dem aktuellen DateLine automatisch angepaßt.

Delphi-Quellcode:

    procedure Paint; override;
...

procedure TDateLine.Paint;
begin
  inherited;
  DrawItems;
end;

Leider funktioniert es so nicht, da sich das DateLine dann in einer Endlosschleife befindet.
Obwohl DrawItems nur die neue Position berechnet habe ich dann eine Prozessorauslastung von 100%.

Reagiere ich auf Veränderungen von TDateLine und rufe dann DrawItems auf, habe ich 0% Prozessorauslastung.