paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 13:49:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented project intf ShortDescription

Browse Source 
git-svn-id: trunk@7501 -
This commit is contained in:
mattias 2005-08-14 17:28:13 +00:00
parent 06d670ec0f
commit 9af33b607e
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -6705,8 +6705,8 @@ begin
end;
// add success message
MessagesView.AddMsg(
Format(lisProjectSuccessfullyBuilt, ['"', Project1.Title, '"']),'',-1);
MessagesView.AddMsg(Format(lisProjectSuccessfullyBuilt, ['"',
Project1.ShortDescription, '"']),'',-1);
finally
// check sources

9
ideintf/projectintf.pas
View File

@ -498,6 +498,7 @@ type
function GetFileCount: integer; virtual; abstract;
procedure AddSrcPath(const SrcPathAddition: string); virtual; abstract;
procedure AddPackageDependency(const PackageName: string); virtual; abstract;
function ShortDescription: string;
public
property MainFileID: Integer read GetMainFileID write SetMainFileID;
property Files[Index: integer]: TLazProjectFile read GetFiles write SetFiles;
@ -949,6 +950,14 @@ begin
inherited Create;
end;
function TLazProject.ShortDescription: string;
begin
if Title<>'' then
Result:=Title
else
Result:=ExtractFileNameOnly(ProjectInfoFile);
end;
{ TLazProjectFile }
procedure TLazProjectFile.SetIsPartOfProject(const AValue: boolean);