TCollection, TCollectionItem

[uwewo]

Zitat von oki:

mir ist noch was aufgefallen. in dieser Procedure
procedure TDateLine.UpdateDateLine; ein UpdateItems ist nach deinem Verfahren dann auch schon mal die halbe Miete.

Genau hier habe ich auch angesetzt und es funktioniert auch soweit "fast" alles.

Zitat von oki:

Delphi-Quellcode:

procedure TDateItem.SetStartDate(Value : TDateTime);
begin
  if Value = FStartDate then Exit;
  FStartDate := Value;
  Invalidate;
end;

Diese proceduren existieren bereits siehe hier

Delphi-Quellcode:

procedure TDateItem.SetStartDate(Value : TDateTime);
begin
  if Value <> FStartDate then
     Begin
       FStartDate := Value;
       Invalidate;
     End;
end;

procedure TDateItem.SetStartTime(Value : TTime);
begin
  if Value <> FStartTime then
     begin
       FStartTime := Value;
       Invalidate;
     end;
end;

procedure TDateItem.SetEndDate(Value : TDateTime);
begin
  if Value <> FEndDate then
     Begin
       FEndDate := Value;
       Invalidate;
     End;
end;

procedure TDateItem.SetEndTime(Value : TTime);
begin
  if Value <> FEndTime then
     Begin
       FEndTime := Value;
       Invalidate;
     End;
end;

Werde Dir heute noch den Source per PN schicken, damit Du siehst was ich verändert habe.

Uwe