paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 00:39:10 +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 interface
uses uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, Menus, ComCtrls, IDEProcs, Debugger, DebuggerDlg, lclType, MainBase; Buttons, Menus, ComCtrls, IDEProcs, Debugger, DebuggerDlg, lclType, MainBase;
type type

8
ide/ideprocs.pp
View File

@ -102,8 +102,6 @@ function FilenameIsMatching(const Mask, Filename: string;
function ConvertSpecialFileChars(const Filename: string): string; function ConvertSpecialFileChars(const Filename: string): string;
function FilenameIsPascalSource(const Filename: string): boolean; function FilenameIsPascalSource(const Filename: string): boolean;
function FilenameIsFormText(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: TPathDelimSwitch): string;
function SwitchPathDelims(const Filename: string; Switch: boolean): string; function SwitchPathDelims(const Filename: string; Switch: boolean): string;
function CheckPathDelim(const OldPathDelim: string; out Changed: boolean): TPathDelimSwitch; function CheckPathDelim(const OldPathDelim: string; out Changed: boolean): TPathDelimSwitch;
@ -760,12 +758,6 @@ begin
end; end;
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 function CreateRelativeSearchPath(const SearchPath, BaseDirectory: string
): string; ): string;
begin begin