Truice-FMX/TaxiMaskFormUnit.pas at main · Faq/Truice-FMX · 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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
unit TaxiMaskFormUnit;

interface

uses
  System.SysUtils,
  System.Types,
  System.UITypes,
  System.Classes,
  System.Variants,
  System.IniFiles,
  Data.DB,
  FMX.Types,
  FMX.Controls,
  FMX.Forms,
  FMX.Dialogs,
  FMX.Objects,
  FMX.Menus,
  FMX.Grid,
  FMX.ExtCtrls,
  FMX.ListBox,
  FMX.TreeView,
  FMX.Memo,
  FMX.TabControl,
  FMX.Layouts,
  FMX.Edit,
  FMX.Platform,
  FMX.Bind.DBEngExt,
  FMX.Bind.Editors,
  FMX.Bind.DBLinks,
  FMX.Bind.Navigator,
  Data.Bind.EngExt,
  Data.Bind.Components,
  Data.Bind.DBScope,
  Data.Bind.DBLinks,
  Datasnap.DBClient,
  Fmx.Bind.Grid,
  System.Rtti,
  System.Bindings.Outputs,
  Data.Bind.Grid,
  Fmx.StdCtrls,
  FMX.Header,
  FMX.Graphics,

  CharacterDataUnit;

type
  TTaxiMaskForm = class(TForm)
    Panel1: TPanel;
    btOK: TButton;
    btCancel: TButton;
    vleMain: TValueListEditor;
  private
    { Private declarations }
    function ReadData: string;
    procedure SetData(const Value: string);
    procedure SetKeys;
  public
    { Public declarations }
    property Data: string read ReadData write SetData;
  end;

implementation

{$R *.FMX}

{ TTaxiMaskForm }

function TTaxiMaskForm.ReadData: string;
var
  i : integer;
begin
  Result := '';
  for i := 1 to vleMain.RowCount - 1 do
    Result := Result + vleMain.Cells[1,i] + ' ';
end;

procedure TTaxiMaskForm.SetData(const Value: string);
begin
  ExtractStrings([' '], [], PWideChar(Value), vleMain.Strings);
  SetKeys;
end;

procedure TTaxiMaskForm.SetKeys;
begin
  SetCursor(LoadCursor(0,IDC_WAIT));
end;

end.