Kastri/Controls/DW.NativeControl.Android.pas at master · Spelt/Kastri · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
unit DW.NativeControl.Android;

{*******************************************************}
{                                                       }
{                      Kastri                           }
{                                                       }
{         Delphi Worlds Cross-Platform Library          }
{                                                       }
{  Copyright 2020-2024 Dave Nottage under MIT license   }
{  which is located in the root folder of this library  }
{                                                       }
{*******************************************************}

interface

uses
  // Android
  Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText,
  // FMX
  FMX.Presentation.Android;

type
  TNativeControl = class;

  TLongClickListener = class(TJavaLocal, JView_OnLongClickListener)
  private
    FNativeControl: TNativeControl;
  public
    { JView_OnLongClickListener }
    function onLongClick(view: JView): Boolean; cdecl;
  public
    constructor Create(const ANativeControl: TNativeControl);
  end;

  TNativeControl = class(TAndroidNativeView)
  private
    FLongClickListener: JView_OnLongClickListener;
  protected
    procedure DoLongPress; virtual;
  public
    constructor Create; override;
  end;

implementation

{ TLongClickListener }

constructor TLongClickListener.Create(const ANativeControl: TNativeControl);
begin
  inherited Create;
  FNativeControl := ANativeControl;
end;

function TLongClickListener.onLongClick(view: JView): Boolean;
begin
  Result := True;
  FNativeControl.DoLongPress;
end;

{ TNativeControl }

constructor TNativeControl.Create;
begin
  inherited;
  FLongClickListener := TLongClickListener.Create(Self);
  View.setOnLongClickListener(FLongClickListener);
end;

procedure TNativeControl.DoLongPress;
begin
  //
end;

end.