From d10aa1f27cfde7341335812428df9a6907edc62a Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Mon, 18 Mar 2013 10:38:00 +0000 Subject: ide: replaces RTL functions with fpGUI wrapper versions. --- examples/apps/ide/src/frm_main.pas | 5 ++--- 1 file 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; -- cgit v1.2.3-70-g09d2