paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 14:40:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

projectgroups: fixed typo

Browse Source 
git-svn-id: trunk@61565 -
This commit is contained in:
mattias 2019-07-11 12:55:06 +00:00
parent 168516c080
commit 0653994a28
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/projectgroups/projectgroupintf.pp
View File

@ -226,13 +226,13 @@ const
[taOpen,taCompile,taCompileClean,taCompileFromHere,taRun] // ttExternalTool
);
function TargetTypeFromExtenstion(AExt: String): TPGTargetType;
function TargetTypeFromExtension(AExt: String): TPGTargetType;
function TargetSupportsAction(ATarget: TPGTargetType; AAction: TPGTargetAction): Boolean;
function ActionAllowsMulti(AAction: TPGTargetAction): Boolean;
implementation
function TargetTypeFromExtenstion (AExt: String): TPGTargetType;
function TargetTypeFromExtension (AExt: String): TPGTargetType;
begin
while (AExt<>'') and (AExt[1]='.') do
Delete(AExt,1,1);
@ -515,7 +515,7 @@ procedure TPGCompileTarget.SetFilename(const AValue: string);
begin
if FFileName=AValue then Exit;
FFileName:=AValue;
TargetType:=TargetTypeFromExtenstion(ExtractFileExt(AValue));
TargetType:=TargetTypeFromExtension(ExtractFileExt(AValue));
if ProjectGroup<>nil then
ProjectGroup.FileName:=Filename;
end;