Changeset 135 for trunk/UProject.pas

Timestamp:

Mar 5, 2022, 9:44:18 AM (3 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.
• Modified: More translated strings.

File:

• trunk/UProject.pas (modified) (3 diffs)

trunk/UProject.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, fgl;
 
 type
+  TProjectItem = class
+    Name: string;
+  end;
+
+  TProjectItems = class(TFPGObjectList<TProjectItem>)
+  end;
+
+  TProjectFile = class(TProjectItem)
+  end;
+
+  TProjectDirectory = class(TProjectItem)
+  end;
 
   { TProject }
@@ -17 +29 @@
     procedure SetOpenned(AValue: Boolean);
   public
+    Items: TProjectItems;
     Modified: Boolean;
     FileName: string;
+    constructor Create;
+    destructor Destroy; override;
     property Openned: Boolean read FOpenned write SetOpenned;
   end;
+
+const
+  LazFuckProjectExt = '.lfp';
+
 
 implementation
@@ -37 +56 @@
 end;
 
+constructor TProject.Create;
+begin
+  Items := TProjectItems.Create;
+end;
+
+destructor TProject.Destroy;
+begin
+  FreeAndNil(Items);
+  inherited;
+end;
+
 end.