Chart Control V1

2025-07-02 14:49:33 +02:00
parent b453236b1e
commit 58ce84e567
11 changed files with 1746 additions and 256 deletions
@@ -208,6 +208,7 @@ begin
        exit;

    Item := PItem(Tag);
+    Item.Receiver := nil;

    if Item = FList then
        FList := Item.Next;
@@ -217,8 +218,6 @@ begin
    if Item.Next <> nil then
        Item.Next.Prev := Item.Prev;

-    Item.Receiver := nil;
-
    FreeItem(Item);
 end;