paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 23:19:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: added LResources to uses section of TFileDescPascalUnitWithResource

Browse Source 
git-svn-id: trunk@10581 -
This commit is contained in:
mattias 2007-02-05 10:24:55 +00:00
parent 8c958b060d
commit cfd1bc5071
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ideintf/projectintf.pas
View File

@ -397,6 +397,7 @@ type
TFileDescPascalUnitWithResource = class(TFileDescPascalUnit) TFileDescPascalUnitWithResource = class(TFileDescPascalUnit)
public public
function GetInterfaceUsesSection: string; override;
function GetInterfaceSource(const Filename, SourceName, function GetInterfaceSource(const Filename, SourceName,
ResourceName: string): string; override; ResourceName: string): string; override;
function GetImplementationSource(const Filename, SourceName, function GetImplementationSource(const Filename, SourceName,
@ -945,6 +946,12 @@ end;
{ TFileDescPascalUnitWithResource } { TFileDescPascalUnitWithResource }
function TFileDescPascalUnitWithResource.GetInterfaceUsesSection: string;
begin
Result:=inherited GetInterfaceUsesSection;
Result:=Result+', LResources';
end;
function TFileDescPascalUnitWithResource.GetInterfaceSource(const Filename, function TFileDescPascalUnitWithResource.GetInterfaceSource(const Filename,
SourceName, ResourceName: string): string; SourceName, ResourceName: string): string;
var var