From acbf15f1ab8e3d1673206ecc86110bb43c981760 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 9 Feb 2010 13:38:10 +0000
Subject: [PATCH] IDE: clean up

git-svn-id: trunk@23667 -
---
 debugger/breakpointsdlg.pp | 2 +-
 ide/ideprocs.pp            | 8 --------
 2 files changed, 1 insertion(+), 9 deletions(-)

diff --git a/debugger/breakpointsdlg.pp b/debugger/breakpointsdlg.pp
index 534f63716d..060b67c268 100644
--- a/debugger/breakpointsdlg.pp
+++ b/debugger/breakpointsdlg.pp
@@ -38,7 +38,7 @@ unit BreakPointsDlg;
 interface
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   Buttons, Menus, ComCtrls, IDEProcs, Debugger, DebuggerDlg, lclType, MainBase;
 
 type
diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp
index 6dd117ca98..8bb11edcaf 100644
--- a/ide/ideprocs.pp
+++ b/ide/ideprocs.pp
@@ -102,8 +102,6 @@ function FilenameIsMatching(const Mask, Filename: string;
 function ConvertSpecialFileChars(const Filename: string): string;
 function FilenameIsPascalSource(const Filename: string): boolean;
 function FilenameIsFormText(const Filename: string): boolean;
-function CreateRelativePath(const Filename, BaseDirectory: string;
-                            UsePointDirectory: boolean = false): string;
 function SwitchPathDelims(const Filename: string; Switch: TPathDelimSwitch): string;
 function SwitchPathDelims(const Filename: string; Switch: boolean): string;
 function CheckPathDelim(const OldPathDelim: string; out Changed: boolean): TPathDelimSwitch;
@@ -760,12 +758,6 @@ begin
   end;
 end;
 
-function CreateRelativePath(const Filename, BaseDirectory: string;
-  UsePointDirectory: boolean): string;
-begin
-  Result:=FileProcs.CreateRelativePath(Filename,BaseDirectory,UsePointDirectory);
-end;
-
 function CreateRelativeSearchPath(const SearchPath, BaseDirectory: string
   ): string;
 begin