paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 23:10:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@45643 -
This commit is contained in:
mattias 2014-06-24 15:37:03 +00:00
parent 401eea74ac
commit 2c5a0b57fd
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/ideintf/projectintf.pas
View File

@ -815,10 +815,9 @@ end;
function TFileDescPascalUnit.CreateSource(const aFilename, aSourceName,
aResourceName: string): string;
var
LE: string;
const
LE = LineEnding;
begin
LE:=LineEnding;
Result:=
'unit '+aSourceName+';'+LE
+LE
@ -921,10 +920,9 @@ end;
function TFileDescPascalUnitWithResource.GetInterfaceSource(const Filename,
SourceName, ResourceName: string): string;
var
LE: string;
const
LE = LineEnding;
begin
LE:=LineEnding;
Result:=
'type'+LE
+' T'+ResourceName+' = class('+ResourceClass.ClassName+')'+LE
@ -944,11 +942,11 @@ end;
function TFileDescPascalUnitWithResource.GetImplementationSource(
const Filename, SourceName, ResourceName: string): string;
const
LE = LineEnding;
var
ResourceFilename: String;
LE: String;
begin
LE:=LineEnding;
case GetResourceType of
rtLRS:
begin