paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 01:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@23667 -
This commit is contained in:
mattias 2010-02-09 13:38:10 +00:00
parent 9b0d596224
commit acbf15f1ab
2 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/breakpointsdlg.pp
View File

@ -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

8
ide/ideprocs.pp
View File

@ -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