Sanitize Overwrite and DirDelete dialog response values

Also respect localized button accelerators

1 files changed, 10 insertions, 0 deletions

diff --git a/UCoreUtils.pas b/UCoreUtils.pas
index faf6eb5..c4e71a7 100644
--- a/UCoreUtils.pas
+++ b/UCoreUtils.pas
@@ -67,6 +67,8 @@ function MakeString(const Separator: string; var SubStrings: TOpenStringArray):
 procedure CopyArray(var src: TOpenStringArray; var dst: TOpenStringArray);
 procedure DeleteFromArray(Index: integer; var SubStrings: TOpenStringArray);
 
+function ExtractAccelerator(const LabelText: string): string;
+
 
 function ProcessPattern(Engine: TPanelEngine; Pattern, APath, FileName: string; const Directory: boolean): string;
 //  Processess pattern with FileName located in APath and return destination path+filename
@@ -975,6 +977,14 @@ begin
 end;
 
 (********************************************************************************************************************************)
+function ExtractAccelerator(const LabelText: string): string;
+begin
+  Result := '';
+  if (Pos('_', LabelText) > 0) and (Pos('_', LabelText) < Length(LabelText)) then
+    Result := Copy(LabelText, Pos('_', LabelText) + 1, 1);
+end;
+
+(********************************************************************************************************************************)
 function GetStrSize(s: string): Int64;
 var i: integer;
     x: Double;