diff options
| -rw-r--r-- | examples/apps/ide/src/frm_main.pas | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas index 48e5b8b1..2c658fde 100644 --- a/examples/apps/ide/src/frm_main.pas +++ b/examples/apps/ide/src/frm_main.pas @@ -517,7 +517,7 @@ begin GProject.UnitList.Add(u); // add reference to tabsheet pcEditor.ActivePage.TagPointer := u; - s := ExtractRelativepath(GProject.ProjectDir, u.FileName); + s := fpgExtractRelativepath(GProject.ProjectDir, u.FileName); r := GetUnitsNode; n := r.AppendText(s); // add reference to treenode @@ -623,8 +623,7 @@ begin begin for i := 0 to GProject.UnitList.Count-1 do begin - {$Note ExtractRelativePath still needs a fpGUI wrapper } - s := ExtractRelativepath(GProject.ProjectDir, GProject.UnitList[i].FileName); + s := fpgExtractRelativepath(GProject.ProjectDir, GProject.UnitList[i].FileName); n := r.AppendText(s); n.Data := GProject.UnitList[i]; end; |