paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-03 09:15:57 +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, Classes, SysUtils, Contnrs, Controls, LCLProc, LResources, FileUtil, Laz_XMLCfg,
Dialogs, ProjectIntf, ProjectResourcesIntf, LazarusIDEStrConsts, AvgLvlTree, Dialogs, ProjectIntf, ProjectResourcesIntf, LazarusIDEStrConsts, AvgLvlTree,
KeywordFuncLists, BasicCodeTools, IDEProcs, DialogProcs, CodeToolManager, KeywordFuncLists, BasicCodeTools, IDEProcs, DialogProcs, CodeToolManager,
CodeCache, resource, reswriter; CodeCache, resource, reswriter,
W32Manifest,W32VersionInfo,ProjectIcon;
type type
{ TProjectResources } { TProjectResources }
@ -61,6 +62,9 @@ type
LastResFilename: String; LastResFilename: String;
LastLrsFileName: String; LastLrsFileName: String;
function GetProjectIcon: TProjectIcon;
function GetVersionInfo: TProjectVersionInfo;
function GetXPManifest: TProjectXPManifest;
procedure SetFileNames(const MainFileName, TestDir: String); procedure SetFileNames(const MainFileName, TestDir: String);
procedure SetModified(const AValue: Boolean); procedure SetModified(const AValue: Boolean);
function Update: Boolean; function Update: Boolean;
@ -97,6 +101,10 @@ type
property Modified: Boolean read FModified write SetModified; property Modified: Boolean read FModified write SetModified;
property OnModified: TNotifyEvent read FOnModified write FOnModified; property OnModified: TNotifyEvent read FOnModified write FOnModified;
property XPManifest: TProjectXPManifest read GetXPManifest;
property VersionInfo: TProjectVersionInfo read GetVersionInfo;
property ProjectIcon: TProjectIcon read GetProjectIcon;
end; end;
procedure ParseResourceType(const Src: string; NestedComments: boolean; procedure ParseResourceType(const Src: string; NestedComments: boolean;
@ -305,6 +313,21 @@ begin
end; end;
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); procedure TProjectResources.SetResourceType(const AValue: TResourceType);
begin begin
if ResourceType <> AValue then if ResourceType <> AValue then