HABExplora/Navigate.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
inherited frmNavigate: TfrmNavigate
  Caption = ''
  OnCreate = FormCreate
  DesignerMasterStyle = 0
  inherited pnlMain: TPanel
    object Button1: TButton
      Tag = 1
      Align = Scale
      CanFocus = False
      StyledSettings = [Family, Style, Other]
      Margins.Right = 4.000000000000000000
      Position.X = 520.000000000000000000
      Position.Y = 48.000000000000000000
      Size.Width = 146.000000000000000000
      Size.Height = 48.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'LCARSTabButtonStyle'
      TabOrder = 11
      Text = 'Navigate'
      TextSettings.Font.Size = 32.000000000000000000
      OnClick = Button1Click
    end
    object Button2: TButton
      Tag = 1
      Align = Scale
      CanFocus = False
      StyledSettings = [Family, Style, Other]
      Margins.Right = 4.000000000000000000
      Position.X = 520.000000000000000000
      Position.Y = 184.000000000000000000
      Size.Width = 146.000000000000000000
      Size.Height = 48.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'LCARSTabButtonStyle'
      TabOrder = 10
      Text = 'Show Route'
      TextSettings.Font.Size = 32.000000000000000000
      OnClick = Button2Click
    end
    object Button3: TButton
      Tag = 1
      Align = Scale
      CanFocus = False
      StyledSettings = [Family, Style, Other]
      Margins.Right = 4.000000000000000000
      Position.X = 520.000000000000000000
      Position.Y = 320.000000000000000000
      Size.Width = 146.000000000000000000
      Size.Height = 48.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'LCARSTabButtonStyle'
      TabOrder = 9
      Text = 'Off Road'
      TextSettings.Font.Size = 32.000000000000000000
      OnClick = Button3Click
    end
    object chkPayload1: TLabel
      Tag = 1
      Align = Scale
      StyledSettings = [Family, Style, Other]
      HitTest = True
      Position.X = 32.000000000000000000
      Position.Y = 56.000000000000000000
      Size.Width = 161.000000000000000000
      Size.Height = 41.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'lCARSCheckButton'
      TextSettings.Font.Size = 18.000000000000000000
      TextSettings.FontColor = claWhite
      TabOrder = 4
      OnClick = chkPayload1Click
    end
    object chkPayload2: TLabel
      Tag = 2
      Align = Scale
      StyledSettings = [Family, Style, Other]
      HitTest = True
      Position.X = 32.000000000000000000
      Position.Y = 184.000000000000000000
      Size.Width = 161.000000000000000000
      Size.Height = 41.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'lCARSCheckButton'
      TextSettings.Font.Size = 18.000000000000000000
      TextSettings.FontColor = claWhite
      TabOrder = 3
      OnClick = chkPayload1Click
    end
    object chkPayload3: TLabel
      Tag = 3
      Align = Scale
      StyledSettings = [Family, Style, Other]
      HitTest = True
      Position.X = 32.000000000000000000
      Position.Y = 312.000000000000000000
      Size.Width = 161.000000000000000000
      Size.Height = 41.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'lCARSCheckButton'
      TextSettings.Font.Size = 18.000000000000000000
      TextSettings.FontColor = claWhite
      TabOrder = 2
      OnClick = chkPayload1Click
    end
    object chkPrediction: TLabel
      Align = Scale
      StyledSettings = [Family, Style, Other]
      HitTest = True
      Position.X = 264.000000000000000000
      Position.Y = 256.000000000000000000
      Size.Width = 193.000000000000000000
      Size.Height = 41.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'lCARSCheckButton'
      TextSettings.Font.Size = 18.000000000000000000
      TextSettings.FontColor = claWhite
      Text = 'Use Prediction'
      TabOrder = 1
      OnClick = chkCurrentClick
    end
    object chkCurrent: TLabel
      Align = Scale
      StyledSettings = [Family, Style, Other]
      HitTest = True
      Position.X = 264.000000000000000000
      Position.Y = 120.000000000000000000
      Size.Width = 193.000000000000000000
      Size.Height = 41.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'lCARSCheckButton'
      TextSettings.Font.Size = 18.000000000000000000
      TextSettings.FontColor = claWhite
      Text = 'Current Position'
      TabOrder = 12
      OnClick = chkCurrentClick
    end
  end
  object tmrInit: TTimer
    Enabled = False
    Interval = 1
    OnTimer = tmrInitTimer
    Left = 152
    Top = 384
  end
end