Changeset 31 for VectorObject

Timestamp:

Jun 24, 2010, 4:18:03 PM (14 years ago)

Author:

george

Message:

• Opravy a rozšíření funkčností některých tříd

File:

• VectorObject/UVectorObject.pas (modified) (7 diffs)

VectorObject/UVectorObject.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics;
+  Classes, SysUtils, Graphics, Contnrs;
 
 type
@@ -36 +36 @@
 
   TVectorLine = class(TVectorObject)
-    Points: TList; // of TVectorDot
+    Points: TObjectList; // of TVectorDot
     procedure Add(Position: TPoint);
     procedure Draw; override;
@@ -80 +80 @@
   public
     Brush: TBrush;
-    Objects: TList; // of TVectorObject
+    Objects: TObjectList; // of TVectorObject
     BitmapCanvas: TCanvas;
     Pen: TPen;
@@ -136 +136 @@
   NewPoint := TVectorDot.Create;
   NewPoint.Position := Position;
+  Points.Add(NewPoint);
 end;
 
@@ -155 +156 @@
 begin
   inherited;
-  Points := TList.Create;
+  Points := TObjectList.Create;
 end;
 
 destructor TVectorLine.Destroy;
-var
-  I: Integer;
-begin
-  for I := 0 to Points.Count - 1 do
-    TVectorObject(Points[I]).Destroy;
+begin
   Points.Destroy;
   inherited Destroy;
@@ -210 +207 @@
 begin
   inherited;
-  Objects := TList.Create;
+  Objects := TObjectList.Create;
   Brush := TBrush.Create;
   Pen := TPen.Create;
@@ -223 +220 @@
   Pen.Destroy;
   Brush.Destroy;
-  for I := 0 to Objects.Count - 1 do
-    TVectorObject(Objects[I]).Destroy;
   Objects.Destroy;
   inherited Destroy;