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

MG: added part of project list to project

Browse Source 
git-svn-id: trunk@3381 -
This commit is contained in:
lazarus 2002-09-30 23:45:58 +00:00
parent 8ff0fe458f
commit fad8013ae7
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/project.pp
View File

@ -107,6 +107,7 @@ type
function GetHasResources:boolean;
procedure SetEditorIndex(const AValue: integer);
procedure SetForm(const AValue: TComponent);
procedure SetIsPartOfProject(const AValue: boolean);
procedure SetLoaded(const AValue: Boolean);
procedure SetProject(const AValue: TProject);
procedure SetReadOnly(const NewValue: boolean);
@ -175,7 +176,7 @@ type
read fFormResourceName write fFormResourceName;
property HasResources: boolean read GetHasResources write fHasResources;
property IsPartOfProject: boolean
read fIsPartOfProject write fIsPartOfProject;
read fIsPartOfProject write SetIsPartOfProject;
property Loaded: Boolean read fLoaded write SetLoaded;
property Modified: boolean read fModified write fModified;
property OnFileBackup: TOnFileBackup read fOnFileBackup write fOnFileBackup;
@ -889,6 +890,13 @@ begin
UpdateFormList;
end;
procedure TUnitInfo.SetIsPartOfProject(const AValue: boolean);
begin
if fIsPartOfProject=AValue then exit;
fIsPartOfProject:=AValue;
UpdatePartOfProjectList;
end;
{-------------------------------------------------------------------------------
procedure TUnitInfo.SetLoaded(const AValue: Boolean);
@ -2042,6 +2050,9 @@ end.
{
$Log$
Revision 1.80 2002/09/30 23:45:58 lazarus
MG: added part of project list to project
Revision 1.79 2002/09/30 23:41:00 lazarus
MG: added part of project list to project