From ed35731fe838eb0f9ec02d1b54df59eae7c34215 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 25 Jan 2012 14:59:21 +0000
Subject: [PATCH] IDEIntf: made GetFileCOunt protected

git-svn-id: trunk@34924 -
---
 .gitattributes               |  1 +
 ideintf/docs/projectintf.xml | 35 +++++++++++++++++++++++++++++++++++
 ideintf/projectintf.pas      | 20 ++++++++++----------
 3 files changed, 46 insertions(+), 10 deletions(-)
 create mode 100644 ideintf/docs/projectintf.xml

diff --git a/.gitattributes b/.gitattributes
index f3be1bba2c..9f1a561e97 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -4450,6 +4450,7 @@ ideintf/docs/ideimagesintf.xml svneol=native#text/plain
 ideintf/docs/ideoptionsintf.xml svneol=native#text/plain
 ideintf/docs/lazideintf.xml svneol=native#text/plain
 ideintf/docs/packageintf.xml svneol=native#text/plain
+ideintf/docs/projectintf.xml svneol=native#text/plain
 ideintf/fieldseditor.lfm svneol=native#text/plain
 ideintf/fieldseditor.pas svneol=native#text/pascal
 ideintf/fieldslist.lfm svneol=native#text/plain
diff --git a/ideintf/docs/projectintf.xml b/ideintf/docs/projectintf.xml
new file mode 100644
index 0000000000..88140165b1
--- /dev/null
+++ b/ideintf/docs/projectintf.xml
@@ -0,0 +1,35 @@
+<?xml version="1.0"?>
+<fpdoc-descriptions>
+  <package name="IDEIntf">
+    <module name="ProjectIntf">
+      <element name="TLazProject.MainFileID">
+        <short>The index of the file with the main source, for example the lpr file</short>
+      </element>
+      <element name="TLazProject.Files">
+        <short>All files of project plus files in source editor plus closed files once open in the source editor</short>
+        <descr>The index runs from 0..FileCount</descr>
+      </element>
+      <element name="TLazProject.FileCount">
+        <short>Files has 0..FileCount-1 items</short>
+      </element>
+      <element name="TLazProject.MainFile">
+        <short>The main source file, can be nil, otherwise equivalent to Files[MainFileID]</short>
+      </element>
+      <element name="TLazProject.Title">
+        <short>The project title, used for Application.Title statement</short>
+      </element>
+      <element name="TLazProject.IsVirtual">
+        <short>True if project has not yet a full file name, i.e. it was not yet saved</short>
+      </element>
+      <element name="TLazProject.CreateProjectFile">
+        <short>Create a new file, which is added to the project Files</short>
+      </element>
+      <element name="TLazProject.AddFile">
+        <short>Add a file to the project</short>
+      </element>
+      <element name="TLazProject.RemoveUnit">
+        <short>Removes and frees a file.</short>
+      </element>
+    </module>
+  </package>
+</fpdoc-descriptions>
diff --git a/ideintf/projectintf.pas b/ideintf/projectintf.pas
index e77728348d..f8c26d40ad 100644
--- a/ideintf/projectintf.pas
+++ b/ideintf/projectintf.pas
@@ -395,22 +395,23 @@ type
     FFlags: TProjectFlags;
     FResources: TObject;
     FRunParameters: TAbstractRunParamsOptions;
-    function GetUseManifest: boolean; virtual; abstract;
-    procedure SetUseManifest(AValue: boolean); virtual; abstract;
+    function GetFileCount: integer; virtual; abstract;
+    function GetFiles(Index: integer): TLazProjectFile; virtual; abstract;
     function GetMainFile: TLazProjectFile; virtual; abstract;
     function GetMainFileID: Integer; virtual; abstract;
-    procedure SetMainFileID(const AValue: Integer); virtual; abstract;
-    function GetFiles(Index: integer): TLazProjectFile; virtual; abstract;
-    procedure SetTitle(const AValue: String); virtual;
-    procedure SetFlags(const AValue: TProjectFlags); virtual;
     function GetModified: boolean; virtual;
     function GetProjectInfoFile: string; virtual; abstract;
+    function GetUseManifest: boolean; virtual; abstract;
+    procedure SetExecutableType(const AValue: TProjectExecutableType); virtual;
+    procedure SetFlags(const AValue: TProjectFlags); virtual;
+    procedure SetMainFileID(const AValue: Integer); virtual; abstract;
+    procedure SetModified(const AValue: boolean); virtual;
     procedure SetProjectInfoFile(const NewFilename: string); virtual; abstract;
     procedure SetProjectSessionFile(const AValue: string); virtual;
-    procedure SetSessionStorage(const AValue: TProjectSessionStorage); virtual;
-    procedure SetModified(const AValue: boolean); virtual;
     procedure SetSessionModified(const AValue: boolean); virtual;
-    procedure SetExecutableType(const AValue: TProjectExecutableType); virtual;
+    procedure SetSessionStorage(const AValue: TProjectSessionStorage); virtual;
+    procedure SetTitle(const AValue: String); virtual;
+    procedure SetUseManifest(AValue: boolean); virtual; abstract;
   public
     constructor Create(ProjectDescription: TProjectDescriptor); virtual;
     destructor Destroy; override;
@@ -421,7 +422,6 @@ type
     procedure AddFile(ProjectFile: TLazProjectFile;
                       AddToProjectUsesClause: boolean); virtual; abstract;
     procedure RemoveUnit(Index: integer; RemoveFromUsesSection: boolean = true); virtual; abstract;
-    function GetFileCount: integer; virtual; abstract;
     procedure AddSrcPath(const SrcPathAddition: string); virtual; abstract;
     procedure AddPackageDependency(const PackageName: string); virtual; abstract;
     function ShortDescription: string;