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

Timestamp:

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

Author:

chronos

Message:

• Fixed: Build under Lazarus 1.8.0.

File:

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

trunk/IDE/Forms/UFormProject.pas

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