Ver Fonte

avoid error sound on backspace on MacOS

Juliette ELSASS há 1 ano atrás
pai
commit
d59d04e9f6
1 ficheiros alterados com 8 adições e 0 exclusões
  1. 8 0
      lazpaintcontrols/lcvectortextshapes.pas

+ 8 - 0
lazpaintcontrols/lcvectortextshapes.pas

@@ -2229,6 +2229,14 @@ var
   idxPara, newPos: Integer;
   tl: TBidiTextLayout;
 begin
+  {$IFDEF DARWIN}
+  if (Shift*[ssCtrl, ssAlt] = []) and (Key = skBackspace) then
+  begin
+    KeyPress(#8, AHandled);
+    exit;
+  end;
+  {$ENDIF}
+
   if (FTextLayout = nil) or (Usermode <> vsuEditText) then exit;
 
   if Key = skDelete then