Changeset 238 for oup/current/FileClasses

Timestamp:

Jul 14, 2007, 6:50:55 PM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current/FileClasses

Files:

• _EmptyFile.pas (modified) (1 diff)
• _FileTypes.pas (modified) (2 diffs)
• _TreeElement.pas (modified) (1 diff)

oup/current/FileClasses/_EmptyFile.pas

@@ -8 +8 @@
 type
   TFile_Empty = class(TFile)
-    public
-      procedure InitDataFields; override;
   end;
 
 implementation
 
-uses
-  ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
-
-procedure TFile_Empty.InitDataFields;
-begin
-  inherited;
-  FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
-end;
-
-
 end.
 

oup/current/FileClasses/_FileTypes.pas

@@ -66 +66 @@
   FChanged := False;
 
+  FDataFields := nil;
+  FEditor := nil;
+
   if not (Self is TFile_Empty) then
-  begin
-    FDataFields := nil;
     InitDataFields;
-    FEditor := nil;
-  end
-  else
-  begin
-    FEditor := nil;
-  end;
 end;
 
@@ -106 +101 @@
 begin
   if FDataFields <> nil then
-    Result := FDataFields.ChildCount;
+    Result := FDataFields.ChildCount
+  else
+    Result := 0;
 end;
 

oup/current/FileClasses/_TreeElement.pas

@@ -11 +11 @@
     private
     public
+      property ConnectionID: Integer read FConnectionID;
       property ChildCount: Integer read GetChildCount;
       property Child[ID: Integer]: TTreeElement read GetChild;