Parcourir la source

avoid error sound on backspace on MacOS

Juliette ELSASS il y a 1 an
Parent
commit
d59d04e9f6
1 fichiers modifiés avec 8 ajouts et 0 suppressions
  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