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

UPD #1289: change to be case insensitive in Drive List on MacOS

Browse source 
(cherry picked from commit 1e38a54f66)
This commit is contained in:
rich2014 2023-12-21 00:41:31 +08:00 • committed by Alexander Koblov
commit 482f1afcf4
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/udriveslist.pas
View file

@ -26,6 +26,11 @@ unit uDrivesList;
{$IFDEF MSWINDOWS}
{$DEFINE ForceVirtualKeysShortcuts}
{$DEFINE FileCaseInsensitive}
{$ENDIF}
{$IFDEF DARWIN}
{$DEFINE FileCaseInsensitive}
{$ENDIF}
interface
@ -532,6 +537,9 @@ function TDrivesListPopup.CheckShortcut(AShortcut: TUTF8Char): Boolean;
var
i: Integer;
begin
{$IFDEF FileCaseInsensitive}
AShortCut := UpperCase(AShortcut);
{$ENDIF}
for i := 0 to Length(FShortCuts) - 1 do
begin
if FShortCuts[i] = AShortcut then
@ -566,7 +574,7 @@ begin
if Length(Drive^.DisplayName) > 0 then
begin
Cells[1, RowNr] := Drive^.DisplayName;
{$IFDEF ForceVirtualKeysShortcuts}
{$IFDEF FileCaseInsensitive}
FShortCuts[I] := UTF8Copy(UpperCase(Drive^.DisplayName), 1, 1);
{$ELSE}
FShortCuts[I] := UTF8Copy(Drive^.DisplayName, 1, 1);