mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Error change filename in copy operation (fixes #503)

Browse source 
(cherry picked from commit 6fc22a2bff)
This commit is contained in:
Alexander Koblov 2022-08-09 21:56:12 +03:00
commit 2f97288d7c
1 changed files with 14 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

17
components/KASToolBar/kaspathedit.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
Path edit class with auto complete feature
Copyright (C) 2012-2021 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2012-2022 Alexander Koblov (alexx2000@mail.ru)
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
ShellCtrls, LCLType;
ShellCtrls, LCLType, LCLVersion;
type
@ -186,6 +186,12 @@ end;
{ TKASPathEdit }
procedure TKASPathEdit.AutoComplete(const Path: String);
{$IF LCL_FULLVERSION >= 2020000}
const
AFlags: array[Boolean] of TMaskOptions = (
[moDisableSets], [moDisableSets, moCaseSensitive]
);
{$ENDIF}
var
I: Integer;
AMask: TMask;
@ -208,7 +214,12 @@ begin
try
// Check mask and make absolute file name
AMask:= TMask.Create(ExtractFileName(Path) + '*',
FileNameCaseSensitive);
{$IF LCL_FULLVERSION >= 2020000}
AFlags[FileNameCaseSensitive]
{$ELSE}
FileNameCaseSensitive
{$ENDIF}
);
for I:= 0 to FStringList.Count - 1 do
begin
if AMask.Matches(FStringList[I]) then