HABExplora/Uploaders.fmx at master · daveake/HABExplora · 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
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
inherited frmUploaders: TfrmUploaders
  Caption = 'frmBase1'
  DesignerMasterStyle = 0
  inherited pnlMain: TPanel
    object rectSH: TRectangle
      Align = Top
      Fill.Color = claBlack
      Margins.Left = 3.000000000000000000
      Margins.Top = 3.000000000000000000
      Margins.Right = 3.000000000000000000
      Margins.Bottom = 3.000000000000000000
      Position.X = 3.000000000000000000
      Position.Y = 3.000000000000000000
      Size.Width = 534.000000000000000000
      Size.Height = 422.000000000000000000
      Size.PlatformDefault = False
      Stroke.Color = claYellow
      object Rectangle8: TRectangle
        Align = Top
        Corners = []
        Fill.Color = xFFF1DF6F
        Sides = []
        Size.Width = 534.000000000000000000
        Size.Height = 24.000000000000000000
        Size.PlatformDefault = False
        object Label4: TLabel
          Align = Client
          StyledSettings = []
          Margins.Left = 12.000000000000000000
          Margins.Top = 3.000000000000000000
          Margins.Right = 6.000000000000000000
          Margins.Bottom = 3.000000000000000000
          Size.Width = 286.000000000000000000
          Size.Height = 18.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Size = 14.000000000000000000
          TextSettings.Font.StyleExt = {00070000000000000004000000}
          Text = 'Sondehub Uploads'
          TabOrder = 2
          OnClick = lblClipboardClick
        end
        object lblClipboard: TLabel
          Align = Right
          StyledSettings = []
          HitTest = True
          Margins.Left = 12.000000000000000000
          Margins.Top = 3.000000000000000000
          Margins.Right = 6.000000000000000000
          Margins.Bottom = 3.000000000000000000
          Position.X = 316.000000000000000000
          Position.Y = 3.000000000000000000
          Size.Width = 212.000000000000000000
          Size.Height = 18.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Size = 14.000000000000000000
          TextSettings.Font.StyleExt = {00070000000000000004000000}
          TextSettings.HorzAlign = Trailing
          Text = 'Touch to copy log to clipboard'
          TabOrder = 1
          OnClick = lblClipboardClick
        end
      end
      object lstSondehub: TListBox
        Align = Client
        Size.Width = 534.000000000000000000
        Size.Height = 398.000000000000000000
        Size.PlatformDefault = False
        TabOrder = 0
        OnMouseDown = lstSondehubMouseDown
        DisableFocusEffect = True
        DefaultItemStyles.ItemStyle = ''
        DefaultItemStyles.GroupHeaderStyle = ''
        DefaultItemStyles.GroupFooterStyle = ''
        Viewport.Width = 530.000000000000000000
        Viewport.Height = 394.000000000000000000
        object Timer2: TTimer
          Enabled = False
          Interval = 5000
          OnTimer = Timer2Timer
          Left = 447
          Top = 319
        end
      end
    end
    object rectSSDV: TRectangle
      Align = Client
      Fill.Color = claBlack
      Margins.Left = 3.000000000000000000
      Margins.Top = 3.000000000000000000
      Margins.Right = 3.000000000000000000
      Margins.Bottom = 3.000000000000000000
      Size.Width = 534.000000000000000000
      Size.Height = 414.000000000000000000
      Size.PlatformDefault = False
      Stroke.Color = claYellow
      object Rectangle2: TRectangle
        Align = Top
        Corners = []
        Fill.Color = xFFF1DF6F
        Sides = []
        Size.Width = 534.000000000000000000
        Size.Height = 24.000000000000000000
        Size.PlatformDefault = False
        object Label2: TLabel
          Align = Client
          StyledSettings = []
          Margins.Left = 12.000000000000000000
          Margins.Top = 3.000000000000000000
          Margins.Right = 6.000000000000000000
          Margins.Bottom = 3.000000000000000000
          Size.Width = 286.000000000000000000
          Size.Height = 18.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Size = 14.000000000000000000
          TextSettings.Font.StyleExt = {00070000000000000004000000}
          Text = 'SSDV Uploads'
          TabOrder = 2
          OnClick = lblSSDVClipboardClick
        end
        object lblSSDVClipboard: TLabel
          Align = Right
          StyledSettings = []
          HitTest = True
          Margins.Left = 12.000000000000000000
          Margins.Top = 3.000000000000000000
          Margins.Right = 6.000000000000000000
          Margins.Bottom = 3.000000000000000000
          Position.X = 316.000000000000000000
          Position.Y = 3.000000000000000000
          Size.Width = 212.000000000000000000
          Size.Height = 18.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Size = 14.000000000000000000
          TextSettings.Font.StyleExt = {00070000000000000004000000}
          TextSettings.HorzAlign = Trailing
          Text = 'Touch to copy log to clipboard'
          TabOrder = 1
          OnClick = lblSSDVClipboardClick
        end
      end
      object lstSSDV: TListBox
        Align = Client
        Size.Width = 534.000000000000000000
        Size.Height = 390.000000000000000000
        Size.PlatformDefault = False
        TabOrder = 0
        OnMouseDown = lstSSDVMouseDown
        DisableFocusEffect = True
        DefaultItemStyles.ItemStyle = ''
        DefaultItemStyles.GroupHeaderStyle = ''
        DefaultItemStyles.GroupFooterStyle = ''
        Viewport.Width = 530.000000000000000000
        Viewport.Height = 386.000000000000000000
        object Timer3: TTimer
          Enabled = False
          Interval = 5000
          OnTimer = Timer3Timer
          Left = 447
          Top = 499
        end
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = Timer1Timer
    Left = 447
    Top = 231
  end
end