paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 12:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: made GetFileCOunt protected

Browse Source 
git-svn-id: trunk@34924 -
This commit is contained in:
mattias 2012-01-25 14:59:21 +00:00
parent 7c28beab92
commit ed35731fe8
3 changed files with 46 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -4450,6 +4450,7 @@ ideintf/docs/ideimagesintf.xml svneol=native#text/plain
ideintf/docs/ideoptionsintf.xml svneol=native#text/plain ideintf/docs/ideoptionsintf.xml svneol=native#text/plain
ideintf/docs/lazideintf.xml svneol=native#text/plain ideintf/docs/lazideintf.xml svneol=native#text/plain
ideintf/docs/packageintf.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.lfm svneol=native#text/plain
ideintf/fieldseditor.pas svneol=native#text/pascal ideintf/fieldseditor.pas svneol=native#text/pascal
ideintf/fieldslist.lfm svneol=native#text/plain ideintf/fieldslist.lfm svneol=native#text/plain

35
ideintf/docs/projectintf.xml Normal file
View File

@ -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>

20
ideintf/projectintf.pas
View File

@ -395,22 +395,23 @@ type
FFlags: TProjectFlags; FFlags: TProjectFlags;
FResources: TObject; FResources: TObject;
FRunParameters: TAbstractRunParamsOptions; FRunParameters: TAbstractRunParamsOptions;
function GetUseManifest: boolean; virtual; abstract; function GetFileCount: integer; virtual; abstract;
procedure SetUseManifest(AValue: boolean); virtual; abstract; function GetFiles(Index: integer): TLazProjectFile; virtual; abstract;
function GetMainFile: TLazProjectFile; virtual; abstract; function GetMainFile: TLazProjectFile; virtual; abstract;
function GetMainFileID: Integer; 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 GetModified: boolean; virtual;
function GetProjectInfoFile: string; virtual; abstract; 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 SetProjectInfoFile(const NewFilename: string); virtual; abstract;
procedure SetProjectSessionFile(const AValue: string); virtual; 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 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 public
constructor Create(ProjectDescription: TProjectDescriptor); virtual; constructor Create(ProjectDescription: TProjectDescriptor); virtual;
destructor Destroy; override; destructor Destroy; override;
@ -421,7 +422,6 @@ type
procedure AddFile(ProjectFile: TLazProjectFile; procedure AddFile(ProjectFile: TLazProjectFile;
AddToProjectUsesClause: boolean); virtual; abstract; AddToProjectUsesClause: boolean); virtual; abstract;
procedure RemoveUnit(Index: integer; RemoveFromUsesSection: boolean = true); virtual; abstract; procedure RemoveUnit(Index: integer; RemoveFromUsesSection: boolean = true); virtual; abstract;
function GetFileCount: integer; virtual; abstract;
procedure AddSrcPath(const SrcPathAddition: string); virtual; abstract; procedure AddSrcPath(const SrcPathAddition: string); virtual; abstract;
procedure AddPackageDependency(const PackageName: string); virtual; abstract; procedure AddPackageDependency(const PackageName: string); virtual; abstract;
function ShortDescription: string; function ShortDescription: string;