Discussion :

[2icd]

Bonjour à tous,

On me demande de pouvoir signer (à la main) sur une tablette (ou un téléphone), afin de supprimer le papier.
Je pensais la chose simple mais je ne trouve aucune info et encore moins d'exemple !
J'ai fait un petit truc à partir d'un StringGrid sous VCL mais ce n'est pas possible sous FMX.

Je suis avide de vos idées, conseils, exemples.
Merci par avance de votre aide.

Alain

[ALWEBER]

Voici un petit exemple sous FMX XE10, tu prends la partie qui te convient :
Tu dessines dans la partie gauche en bas de l'écran

[ShaiLeTroll]

J'ai fait un petit truc à partir d'un StringGrid sous VCL mais ce n'est pas possible sous FMX.

StringGrid ? surement une grille avec une liste de nom avec chacun sa case de signature
En VCL, surement un simple MouseDown, MouseMove, MouseUp

En FMX, sur Mobile, c'est un peu la base le tactile et la gestion du mouvement, pour stocker les données un TPath soit avec le trio MouseDown, MouseMove, MouseUp dans une Cellule du Grid, soit avec le composant dont j'ai oublié le nom qui fait justement la Capture de Mouvement

[Lung]

soit avec le composant dont j'ai oublié le nom qui fait justement la Capture de Mouvement

TGestureManager, TGestureRecorder ?
(ils existent en VCL)

[SergioMaster]

Bonjour,

J'ai déjà répondu il y a longtemps à un truc de ce genre
renvoyant à cette discussion
Cela dit, perso je n'avais essayé que sous windows (à l'époque)

Pour ne pas réinventer la roue, un composant TMS permet de le faire TTMSFMXSignatureCapture
sinon il y a plusieurs vidéos (enfin au moins deux sur youtube merci google et les mots clés 'fmx signature capture')

[ShaiLeTroll]

Pour changer les idées, j'ai bricolé un truc, bon je connais rien à FMX, c'est plein de bug comme le scroll mais quelqu'un qui voudrait jouer vraiment devrait vite obtenir quelque chose de sérieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
unit Signature_MainForm;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Rtti,
  FMX.Layouts, FMX.Grid,
  System.Generics.Collections, FMX.Objects;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringColumn1: TStringColumn;
    StringColumn2: TStringColumn;
    StringColumn3: TStringColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure StringColumn2MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Single);
    procedure StringColumn2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
    procedure StringColumn2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
  private
    { Déclarations privées }
    FData: System.Generics.Collections.TObjectDictionary<Integer, FMX.Objects.TPath>;
    FSignatureActive: Boolean;
    FSignatureRow: Integer;
    function GetCellData(Coord: TPointF; out ARow: Integer): FMX.Objects.TPath;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  FData := System.Generics.Collections.TObjectDictionary<Integer, FMX.Objects.TPath>.Create([]); // StringGrid1 sera le Onwer
 
  for I := 0 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[0, I] := 'N°' + I.ToString();
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(FData);
end;
 
function TForm1.GetCellData(Coord: TPointF; out ARow: Integer): FMX.Objects.TPath;
var
  Col: TStringColumn;
  CellRect: TRectF;
begin
  Result := nil;
  ARow := -1;
  Col := StringGrid1.ColumnByPoint(Coord.X, Coord.Y) as TStringColumn;
  if Assigned(Col) and (Col.Index = 1) then
  begin
    ARow := StringGrid1.RowByPoint(Coord.X, Coord.Y);
    if ARow >= 0 then
    begin
      if not FSignatureActive then
      begin
        if FData.TryGetValue(ARow, Result) then
        begin
          FData.Remove(ARow);
          FreeAndNil(Result);
        end;
      end;
 
      if not FData.TryGetValue(ARow, Result) then
      begin
        Result := FMX.Objects.TPath.Create(StringGrid1);
        FData.Add(ARow, Result);
 
        CellRect := TRectF.Create(0, ARow * StringGrid1.RowHeight, Col.Width, (ARow + 1) * StringGrid1.RowHeight - 1);
        Result.HitTest := False;
        Result.Locked := True;
        Result.Fill.Kind := TBrushKind.None;
        Result.WrapMode := TPathWrapMode.Original;
        Result.Parent := StringColumn2;
        Result.SetBounds(CellRect.Left, CellRect.Top, CellRect.Width, CellRect.Height);
      end;
    end;
  end;
end;
 
procedure TForm1.StringColumn2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
  CellData: FMX.Objects.TPath;
begin
  CellData := GetCellData(StringGrid1.AbsoluteToLocal(StringColumn2.LocalToAbsolute(TPointF.Create(X, Y))), FSignatureRow);
  if Assigned(CellData) then
  begin
    CellData.Data.MoveTo(CellData.AbsoluteToLocal(StringColumn2.LocalToAbsolute(TPointF.Create(X, Y))));
    FSignatureActive := True;
  end;
end;
 
procedure TForm1.StringColumn2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
var
  CellData: FMX.Objects.TPath;
  Row: Integer;
begin
  if FSignatureActive  then
  begin
    CellData := GetCellData(StringGrid1.AbsoluteToLocal(StringColumn2.LocalToAbsolute(TPointF.Create(X, Y))), Row);
    if FSignatureRow = Row then
    begin
      if Assigned(CellData) then
        CellData.Data.LineTo(CellData.AbsoluteToLocal(StringColumn2.LocalToAbsolute(TPointF.Create(X, Y))));
    end
    else
      FSignatureActive := False;
  end;
end;
 
procedure TForm1.StringColumn2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  FSignatureActive := False;
  FSignatureRow := -1;
end;
 
end.

Code DFM :

Sélectionner tout - Visualiser dans une fenêtre à part

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
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 480
  ClientWidth = 640
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignerMasterStyle = 0
  object StringGrid1: TStringGrid
    Align = Client
    Size.Width = 640.000000000000000000
    Size.Height = 480.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 0
    RowCount = 100
    RowHeight = 100.000000000000000000
    Viewport.Width = 620.000000000000000000
    Viewport.Height = 455.000000000000000000
    object StringColumn1: TStringColumn
      Header = 'Qui'
      Size.Width = 100.000000000000000000
      Size.Height = 500.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 0
    end
    object StringColumn2: TStringColumn
      Header = 'Signature'
      HitTest = True
      Position.X = 100.000000000000000000
      ReadOnly = True
      Size.Width = 100.000000000000000000
      Size.Height = 500.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 1
      OnMouseDown = StringColumn2MouseDown
      OnMouseMove = StringColumn2MouseMove
      OnMouseUp = StringColumn2MouseUp
    end
    object StringColumn3: TStringColumn
      Header = 'Image'
      Position.X = 200.000000000000000000
      ReadOnly = True
      Size.Width = 100.000000000000000000
      Size.Height = 500.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 2
    end
  end
end

[2icd]

Merci à vous tous pour vos réponses et exemples que je vais regarder de prêt.

En attendant j'ai trouvé une vidéo en allemand :

très intéressante.

Alain