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

ide: support old resource access properties (issue #0015536)

Browse Source 
git-svn-id: trunk@23473 -
This commit is contained in:
paul 2010-01-17 07:44:54 +00:00
parent 9999081da8
commit 233a0f9017
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/projectresources.pas
View File

@ -40,7 +40,8 @@ uses
Classes, SysUtils, Contnrs, Controls, LCLProc, LResources, FileUtil, Laz_XMLCfg,
Dialogs, ProjectIntf, ProjectResourcesIntf, LazarusIDEStrConsts, AvgLvlTree,
KeywordFuncLists, BasicCodeTools, IDEProcs, DialogProcs, CodeToolManager,
CodeCache, resource, reswriter;
CodeCache, resource, reswriter,
W32Manifest,W32VersionInfo,ProjectIcon;
type
{ TProjectResources }
@ -61,6 +62,9 @@ type
LastResFilename: String;
LastLrsFileName: String;
function GetProjectIcon: TProjectIcon;
function GetVersionInfo: TProjectVersionInfo;
function GetXPManifest: TProjectXPManifest;
procedure SetFileNames(const MainFileName, TestDir: String);
procedure SetModified(const AValue: Boolean);
function Update: Boolean;
@ -97,6 +101,10 @@ type
property Modified: Boolean read FModified write SetModified;
property OnModified: TNotifyEvent read FOnModified write FOnModified;
property XPManifest: TProjectXPManifest read GetXPManifest;
property VersionInfo: TProjectVersionInfo read GetVersionInfo;
property ProjectIcon: TProjectIcon read GetProjectIcon;
end;
procedure ParseResourceType(const Src: string; NestedComments: boolean;
@ -305,6 +313,21 @@ begin
end;
end;
function TProjectResources.GetProjectIcon: TProjectIcon;
begin
Result := TProjectIcon(GetProjectResource(TProjectIcon));
end;
function TProjectResources.GetVersionInfo: TProjectVersionInfo;
begin
Result := TProjectVersionInfo(GetProjectResource(TProjectVersionInfo));
end;
function TProjectResources.GetXPManifest: TProjectXPManifest;
begin
Result := TProjectXPManifest(GetProjectResource(TProjectXPManifest));
end;
procedure TProjectResources.SetResourceType(const AValue: TResourceType);
begin
if ResourceType <> AValue then