paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 14:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

added TMemoScrollBar

Browse Source 
git-svn-id: trunk@3406 -
This commit is contained in:
mattias 2002-10-01 15:45:36 +00:00
parent d6d67d7996
commit c0601d90c6
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/ideprocs.pp
View File

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