Zitat von
Keldorn:
würd ich auch so sehen. Ich würd den Fehler hier vermuten:
Delphi-Quellcode:
procedure TDrawAreas.SetDrawItem(Index: Integer; Value: TDrawArea);
begin
Items[Index].Assign(Value);
end;
damit rufst du immer wieder die Setmethode auf. da fehlt das inherited, wie bei der getmethode.
Mfg Frank
Edit
a hab ich mich zu früh gefreut, daran liegts wohl nicht. In Assign werden zwar properties des Items gesetzt, aber das dürfte eigentlich nicht dazu führen, dass SetDrawItem nochmal aufgerufen wird. Mal schauen ob der Overflow auch zur laufzeit kommt.
Edit#2: Zur Laufzeit gibts keinen Buffer Overlfow und auch keinen Hänger.
Delphi-Quellcode:
var C: TKillerEdit;
A: TDrawArea;
begin
C := TKillerEdit.Create(Self);
C.Parent := Self;
A := C.Areas.Add;
A.Comment := 'Dies ist ein Test';
C.Area[0].DrawRect := Rect(0, 0, 2399, 2939);
Dani H.
At Least I Can Say I Tried