paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 17:19:19 +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; function GetHasResources:boolean;
procedure SetEditorIndex(const AValue: integer); procedure SetEditorIndex(const AValue: integer);
procedure SetForm(const AValue: TComponent); procedure SetForm(const AValue: TComponent);
procedure SetIsPartOfProject(const AValue: boolean);
procedure SetLoaded(const AValue: Boolean); procedure SetLoaded(const AValue: Boolean);
procedure SetProject(const AValue: TProject); procedure SetProject(const AValue: TProject);
procedure SetReadOnly(const NewValue: boolean); procedure SetReadOnly(const NewValue: boolean);
@ -175,7 +176,7 @@ type
read fFormResourceName write fFormResourceName; read fFormResourceName write fFormResourceName;
property HasResources: boolean read GetHasResources write fHasResources; property HasResources: boolean read GetHasResources write fHasResources;
property IsPartOfProject: boolean property IsPartOfProject: boolean
read fIsPartOfProject write fIsPartOfProject; read fIsPartOfProject write SetIsPartOfProject;
property Loaded: Boolean read fLoaded write SetLoaded; property Loaded: Boolean read fLoaded write SetLoaded;
property Modified: boolean read fModified write fModified; property Modified: boolean read fModified write fModified;
property OnFileBackup: TOnFileBackup read fOnFileBackup write fOnFileBackup; property OnFileBackup: TOnFileBackup read fOnFileBackup write fOnFileBackup;
@ -889,6 +890,13 @@ begin
UpdateFormList; UpdateFormList;
end; end;
procedure TUnitInfo.SetIsPartOfProject(const AValue: boolean);
begin
if fIsPartOfProject=AValue then exit;
fIsPartOfProject:=AValue;
UpdatePartOfProjectList;
end;
{------------------------------------------------------------------------------- {-------------------------------------------------------------------------------
procedure TUnitInfo.SetLoaded(const AValue: Boolean); procedure TUnitInfo.SetLoaded(const AValue: Boolean);
@ -2042,6 +2050,9 @@ end.
{ {
$Log$ $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 Revision 1.79 2002/09/30 23:41:00 lazarus
MG: added part of project list to project MG: added part of project list to project