Delphi_Fmx_CreateQrCode/UnitMain.fmx at main · Kenthorr/Delphi_Fmx_CreateQrCode · 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
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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
object Form7: TForm7
  Left = 0
  Top = 0
  BorderStyle = ToolWindow
  Caption = 'Form7'
  ClientHeight = 590
  ClientWidth = 387
  Position = ScreenCenter
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  DesignerMasterStyle = 0
  object Edit1: TEdit
    Touch.InteractiveGestures = [LongTap, DoubleTap]
    Align = Top
    TabOrder = 1
    Position.X = 50.000000000000000000
    Position.Y = 68.000000000000000000
    Margins.Left = 50.000000000000000000
    Margins.Top = 10.000000000000000000
    Margins.Right = 50.000000000000000000
    Size.Width = 287.000000000000000000
    Size.Height = 40.000000000000000000
    Size.PlatformDefault = False
    OnKeyDown = Edit1KeyDown
  end
  object Label1: TLabel
    Align = Top
    StyledSettings = [Family, FontColor]
    Size.Width = 387.000000000000000000
    Size.Height = 41.000000000000000000
    Size.PlatformDefault = False
    TextSettings.Font.Size = 20.000000000000000000
    TextSettings.Font.StyleExt = {04040000000000000004000000}
    TextSettings.HorzAlign = Center
    Text = 'Create QRcode'
    TabOrder = 4
  end
  object Edit2: TEdit
    Touch.InteractiveGestures = [LongTap, DoubleTap]
    Align = Top
    TabOrder = 0
    Position.X = 50.000000000000000000
    Position.Y = 351.000000000000000000
    Margins.Left = 50.000000000000000000
    Margins.Top = 10.000000000000000000
    Margins.Right = 50.000000000000000000
    Size.Width = 287.000000000000000000
    Size.Height = 40.000000000000000000
    Size.PlatformDefault = False
    OnKeyDown = Edit2KeyDown
  end
  object Label2: TLabel
    Align = Top
    StyledSettings = [Family, FontColor]
    Margins.Top = 10.000000000000000000
    Position.Y = 300.000000000000000000
    Size.Width = 387.000000000000000000
    Size.Height = 41.000000000000000000
    Size.PlatformDefault = False
    TextSettings.Font.Size = 20.000000000000000000
    TextSettings.Font.StyleExt = {04040000000000000004000000}
    TextSettings.HorzAlign = Center
    Text = 'Read QRcode'
    TabOrder = 3
  end
  object Layout1: TLayout
    Align = Top
    Margins.Left = 100.000000000000000000
    Margins.Top = 10.000000000000000000
    Margins.Right = 100.000000000000000000
    Position.X = 100.000000000000000000
    Position.Y = 118.000000000000000000
    Size.Width = 187.000000000000000000
    Size.Height = 172.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 5
    object Rectangle1: TRectangle
      Align = Contents
      Fill.Color = claNull
      Size.Width = 187.000000000000000000
      Size.Height = 172.000000000000000000
      Size.PlatformDefault = False
    end
    object Image1: TImage
      MultiResBitmap = <
        item
        end>
      Align = Contents
      Size.Width = 187.000000000000000000
      Size.Height = 172.000000000000000000
      Size.PlatformDefault = False
      WrapMode = Stretch
    end
  end
  object Layout2: TLayout
    Align = Top
    Margins.Left = 100.000000000000000000
    Margins.Top = 10.000000000000000000
    Margins.Right = 100.000000000000000000
    Position.X = 100.000000000000000000
    Position.Y = 401.000000000000000000
    Size.Width = 187.000000000000000000
    Size.Height = 172.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 6
    object Rectangle2: TRectangle
      Align = Contents
      Fill.Color = claNull
      Size.Width = 187.000000000000000000
      Size.Height = 172.000000000000000000
      Size.PlatformDefault = False
    end
    object Image2: TImage
      MultiResBitmap = <
        item
        end>
      Align = Contents
      Size.Width = 187.000000000000000000
      Size.Height = 172.000000000000000000
      Size.PlatformDefault = False
      WrapMode = Stretch
    end
  end
  object Label3: TLabel
    Align = Top
    Position.Y = 41.000000000000000000
    Size.Width = 387.000000000000000000
    Size.Height = 17.000000000000000000
    Size.PlatformDefault = False
    TextSettings.HorzAlign = Center
    Text = 'To be placed in a Thread'
    TabOrder = 7
  end
  object NetHTTPClient1: TNetHTTPClient
    Asynchronous = False
    ConnectionTimeout = 60000
    ResponseTimeout = 60000
    HandleRedirects = True
    AllowCookies = True
    UserAgent = 'Embarcadero URI Client/1.0'
    Left = 320
    Top = 264
  end
end