Changeset 74 for trunk/IDE/Forms/UFormTargetProject.pas

Timestamp:

Jan 18, 2018, 11:54:13 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 1.8.0.

File:

• trunk/IDE/Forms/UFormTargetProject.pas (modified) (1 diff)

trunk/IDE/Forms/UFormTargetProject.pas

@@ -42 +42 @@
     Clear;
     if Assigned(Project) then begin
-      NewNode := AddChild(nil, ExtractFileNameOnly(TargetProject.FileName));
+      NewNode := AddChild(nil, ExtractFileNameWithoutExt(TargetProject.FileName));
       UpdateProjectFiles(NewNode, TargetProject.Files);
       NewNode.Expand(True);