summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2013-03-18 10:38:00 +0000
committerDavid Laurence Emerson <dle3ab@angelbase.com>2013-05-28 00:42:48 -0700
commitd10aa1f27cfde7341335812428df9a6907edc62a (patch)
tree3ec49615e0283b8a6cfdaa8006b0b1651f87ee6e
parent4559f9a96432e78351edcaefc5dbe929887e6a38 (diff)
downloadfpGUI-d10aa1f27cfde7341335812428df9a6907edc62a.tar.xz
ide: replaces RTL functions with fpGUI wrapper versions.
-rw-r--r--examples/apps/ide/src/frm_main.pas5
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;