Renamed some properties

DelphiWorlds · Oct 20, 2023 · 392dce8 · 392dce8
1 parent cdab8df
commit 392dce8
Showing 1 changed file with 10 additions and 9 deletions.
diff --git a/Features/OSEvents/DW.OSEvents.Mac.pas b/Features/OSEvents/DW.OSEvents.Mac.pas
@@ -55,13 +55,14 @@   TPlatformOSEvents = class(TObject)
 
   TPlatformKeyPressOSEvents = class(TPlatformOSEvents)
   private
-    FPressedKeys: TKeyCodes;
+    FDownKeys: TKeyCodes;
   protected
     function EventTapHandler(const proxy: CGEventTapProxy; const &type: CGEventType; const event: CGEventRef): CGEventRef; override;
   public
     constructor Create;
-    function HasMultipleDown: Boolean;
-    function DownCount: Integer;
+    function HasMultipleKeysDown: Boolean;
+    function DownKeysCount: Integer;
+    property DownKeys: TKeyCodes read FDownKeys;
   end;
 
 implementation
@@ -243,23 +244,23 @@ function TPlatformKeyPressOSEvents.EventTapHandler(const proxy: CGEventTapProxy;
   begin
     LKeyCode := CGEventGetIntegerValueField(event, kCGKeyboardEventKeycode);
     if &type = kCGEventKeyDown then
-      FPressedKeys.Add(LKeyCode)
+      FDownKeys.Add(LKeyCode)
     else if &type = kCGEventKeyUp then
-      FPressedKeys.Remove(LKeyCode);
+      FDownKeys.Remove(LKeyCode);
     LHandled := HandleEventTap;
   end;
   if LHandled then
     Result := nil;
 end;
 
-function TPlatformKeyPressOSEvents.HasMultipleDown: Boolean;
+function TPlatformKeyPressOSEvents.HasMultipleKeysDown: Boolean;
 begin
-  Result := DownCount > 1;
+  Result := DownKeysCount > 1;
 end;
 
-function TPlatformKeyPressOSEvents.DownCount: Integer;
+function TPlatformKeyPressOSEvents.DownKeysCount: Integer;
 begin
-  Result := FPressedKeys.Count;
+  Result := FDownKeys.Count;
 end;
 
 end.