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 #1433: Accelerator key (&) supportted in Menu with new version of Lazarus

Browse source 
(cherry picked from commit 9c7051bb86)
This commit is contained in:
rich2014 2024-01-08 21:49:24 +08:00 • committed by Alexander Koblov
commit 0a7500ff39
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/uhotdir.pas
View file

@ -166,7 +166,7 @@ uses
function GetCaption(const ACaption: TCaption): TCaption;
begin
{$IFNDEF LCLWIN32}
{$IF not (DEFINED(LCLWIN32) or DEFINED(LCLCOCOA))}
if (Pos('&', StringReplace(ACaption, '&&', '', [rfReplaceAll])) = 0) then
Result:= '&' + ACaption
else