Changeset 378 for branches/highdpi/Packages/DpiControls/UDpiControls.pas

Timestamp:

Apr 24, 2021, 11:41:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r377.

File:

• branches/highdpi/Packages/DpiControls/UDpiControls.pas (modified) (6 diffs)

branches/highdpi/Packages/DpiControls/UDpiControls.pas

@@ -44 +44 @@
     property OnMouseLeave;
     property OnMouseEnter;
+    property OnDblClick;
     property ParentFont;
   end;
@@ -165 +166 @@
     function GetHint: string;
     function GetOnClick: TNotifyEvent;
+    function GetOnDblClick: TNotifyEvent;
     function GetParentFont: Boolean;
     function GetShowHint: Boolean;
@@ -182 +184 @@
     procedure SetOnChangeBounds(AValue: TNotifyEvent);
     procedure SetOnClick(AValue: TNotifyEvent);
+    procedure SetOnDblClick(AValue: TNotifyEvent);
     procedure SetOnResize(AValue: TNotifyEvent);
     procedure SetParentFont(AValue: Boolean);
@@ -263 +266 @@
     property OnChangeBounds: TNotifyEvent read FOnChangeBounds write SetOnChangeBounds;
     property OnClick: TNotifyEvent read GetOnClick write SetOnClick;
+    property OnDblClick: TNotifyEvent read GetOnDblClick write SetOnDblClick;
     property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown;
     property OnMouseMove: TMouseMoveEvent read FOnMouseMove write FOnMouseMove;
@@ -3575 +3579 @@
 end;
 
+function TDpiControl.GetOnDblClick: TNotifyEvent;
+begin
+  Result := TControlEx(GetNativeControl).OnDblClick;
+end;
+
 function TDpiControl.GetParentFont: Boolean;
 begin
@@ -3655 +3664 @@
 begin
   GetNativeControl.OnClick := AValue;
+end;
+
+procedure TDpiControl.SetOnDblClick(AValue: TNotifyEvent);
+begin
+  TControlEx(GetNativeControl).OnDblClick := AValue;
 end;