Zitat von
oki:
Ich glaube immer noch, dass es über die Paint-Procedure geht.
Dieser Satz ging mir die ganze Woche nicht aus dem Kopf, da es ja eigentlich bei jedem Objekt funktioniert. Deshalb habe ich mich am Wochenende noch einmal daran gesetzt, und folgendes herausgefunden. Meine ersten Tests hatte ich so versucht.
Delphi-Quellcode:
procedure TDateLine.Paint;
begin
inherited;
UpdateItems;
end;
Dabei hatte ich eine Prozessorauslastung von ca. 100%
Delphi-Quellcode:
procedure TDateLine.Paint;
begin
inherited Paint;
UpdateItems;
end;
bringt den gewünschten Erfolg, was so ein Wort alles ausmachen kann
Werde Dir den geänderten Source diese Woche zukommen lassen.
Bis dann
Uwe