- fix: newly created projects can't be debugged

    - fix: typo error of turtle template

Author: royqh1979@gmail.com

NEWS.txt

@@ -9,6 +9,8 @@ Version 6.7.5 AUGUST 2021
     - enhancement: open system header files in readonly mode
     - enhancement: Can run/compile/debug while there is program running. 
     - fix: not correctly handle multiple inheritance in parser
+    - fix: newly created projects can't be debugged
+    - fix: typo error of turtle template
 
 Version 6.7.4 AUGUST 2021
 

Source/Project.pas

@@ -702,7 +702,7 @@ function TProject.AddUnit(const InFileName: AnsiString; ParentNode: TTreeNode; R
     Result := NewUnit;
 
     // Set all properties
-    FileName := InFileName;
+    FileName := ExpandFileto(InFileName, Directory);
     New := False;
     Editor := nil;
     Folder := GetFolderPath(ParentNode);
@@ -1709,10 +1709,10 @@ function TProject.AssignTemplate(const aFileName: AnsiString; aTemplate: TTempla
             // Set filename depending on C/C++ choice
             if (Length(aTemplate.Units[I].CppName) > 0) and (aTemplate.Options.useGPP) then begin
               //Editor.FileName := aTemplate.Units[I].CppName;
-              fUnits[fUnits.Count - 1].FileName := aTemplate.Units[I].CppName;
+              fUnits[fUnits.Count - 1].FileName := ExpandFileto(aTemplate.Units[I].CppName,Directory);
             end else if Length(aTemplate.Units[I].CName) > 0 then begin
               //Editor.FileName := aTemplate.Units[I].CName;
-              fUnits[fUnits.Count - 1].FileName := aTemplate.Units[I].CName;
+              fUnits[fUnits.Count - 1].FileName := ExpandFileto(aTemplate.Units[I].CName,Directory);
             end;
             // if file isn't found blindly inserts text of unit
             s2 := ValidateFile(s, devDirs.Templates);

Templates/CL_Turtle.template

@@ -1,6 +1,6 @@
 [Template]
 ver=1
-Name=Turtel Graphics
+Name=Turtle Graphics
 Icon=CL_Turtle.ico
 Description=A simple program using Turtle Graphics (https://github.com/royqh1979/libturtle)
 Category=Multimedia