From c0601d90c6c78e6f0fb4e18650c157c7edb666e5 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 1 Oct 2002 15:45:36 +0000 Subject: [PATCH] added TMemoScrollBar git-svn-id: trunk@3406 - --- ide/ideprocs.pp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp index 4693097175..0100e92346 100644 --- a/ide/ideprocs.pp +++ b/ide/ideprocs.pp @@ -76,6 +76,8 @@ const // files function BackupFile(const Filename, BackupFilename: string): boolean; function CompareFilenames(const Filename1, Filename2: string): integer; +function CompareFilenames(const Filename1, Filename2: string; + ResolveLinks: boolean): integer; function FilenameIsMatching(const Mask, Filename: string; MatchExactly: boolean): boolean; procedure SplitCmdLine(const CmdLine: string; @@ -263,7 +265,7 @@ end; function CompareFilenames(const Filename1, Filename2: string): integer; begin - Result:=FileProcs.CompareFilenames(FileName1,FileName2); + Result:=FileCtrl.CompareFilenames(FileName1,FileName2); end; function FileIsExecutable(const AFilename: string): boolean; @@ -361,6 +363,12 @@ begin Result:=FileProcs.ChompPathDelim(Path); end; +function CompareFilenames(const Filename1, Filename2: string; + ResolveLinks: boolean): integer; +begin + Result:=FileCtrl.CompareFilenames(FileName1,FileName2,ResolveLinks); +end; + function FilenameIsMatching(const Mask, Filename: string; MatchExactly: boolean): boolean; begin