checkridehelperunit.lfm 3.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143
  1. object CheckRideHelperMain: TCheckRideHelperMain
  2. Left = 341
  3. Height = 593
  4. Top = 155
  5. Width = 758
  6. Caption = 'CheckRideHelper'
  7. ClientHeight = 573
  8. ClientWidth = 758
  9. Menu = MainMenu1
  10. OnActivate = FormActivate
  11. OnClose = FormClose
  12. OnCreate = FormCreate
  13. LCLVersion = '1.0.1.2'
  14. object ServerPort: TLabeledEdit
  15. Left = 107
  16. Height = 23
  17. Top = 8
  18. Width = 104
  19. EditLabel.AnchorSideTop.Control = ServerPort
  20. EditLabel.AnchorSideTop.Side = asrCenter
  21. EditLabel.AnchorSideRight.Control = ServerPort
  22. EditLabel.AnchorSideBottom.Control = ServerPort
  23. EditLabel.AnchorSideBottom.Side = asrBottom
  24. EditLabel.Left = 9
  25. EditLabel.Height = 16
  26. EditLabel.Top = 11
  27. EditLabel.Width = 95
  28. EditLabel.Caption = 'Helper server port'
  29. EditLabel.ParentColor = False
  30. EditLabel.Layout = tlBottom
  31. LabelPosition = lpLeft
  32. TabOrder = 0
  33. OnEditingDone = ServerPortEditingDone
  34. end
  35. object ConnectButton: TButton
  36. Left = 304
  37. Height = 25
  38. Hint = 'Start listening to remote support connections from helped party'
  39. Top = 51
  40. Width = 75
  41. Caption = 'Listen'
  42. OnClick = ConnectButtonClick
  43. TabOrder = 1
  44. end
  45. object DisconnectButton: TButton
  46. Left = 392
  47. Height = 25
  48. Hint = 'Disconnect/stop listening'
  49. Top = 51
  50. Width = 75
  51. Caption = 'Disconnect'
  52. OnClick = DisconnectButtonClick
  53. TabOrder = 2
  54. end
  55. object Memo1: TMemo
  56. Left = 8
  57. Height = 498
  58. Top = 88
  59. Width = 750
  60. TabOrder = 3
  61. end
  62. object WhatIsMyIPButton: TButton
  63. Left = 536
  64. Height = 25
  65. Hint = 'Opens website that shows your external IP address'
  66. Top = 51
  67. Width = 93
  68. Caption = 'What is my IP?'
  69. OnClick = WhatIsMyIPButtonClick
  70. TabOrder = 4
  71. end
  72. object PortScanButton: TButton
  73. Left = 656
  74. Height = 25
  75. Hint = 'Opens website that lets you portscan your external IP to check if your port is open.'
  76. Top = 51
  77. Width = 75
  78. Caption = 'Port open?'
  79. OnClick = PortScanButtonClick
  80. TabOrder = 5
  81. end
  82. object TunnelProcess: TAsyncProcess
  83. Active = False
  84. Options = []
  85. Priority = ppNormal
  86. StartupOptions = []
  87. ShowWindow = swoNone
  88. WindowColumns = 0
  89. WindowHeight = 0
  90. WindowLeft = 0
  91. WindowRows = 0
  92. WindowTop = 0
  93. WindowWidth = 0
  94. FillAttribute = 0
  95. left = 272
  96. top = 5
  97. end
  98. object VNCViewerProcess: TAsyncProcess
  99. Active = False
  100. Options = []
  101. Priority = ppNormal
  102. StartupOptions = []
  103. ShowWindow = swoNone
  104. WindowColumns = 0
  105. WindowHeight = 0
  106. WindowLeft = 0
  107. WindowRows = 0
  108. WindowTop = 0
  109. WindowWidth = 0
  110. FillAttribute = 0
  111. left = 384
  112. top = 5
  113. end
  114. object MainMenu1: TMainMenu
  115. left = 472
  116. top = 8
  117. object FileMenu: TMenuItem
  118. Caption = '&File'
  119. object QuitMenu: TMenuItem
  120. Caption = '&Quit'
  121. OnClick = QuitMenuClick
  122. end
  123. end
  124. object ToolsMenu: TMenuItem
  125. Caption = '&Tools'
  126. object CustomizeMenu: TMenuItem
  127. Caption = '&Customize Checkride executable'
  128. OnClick = CustomizeMenuClick
  129. end
  130. end
  131. object HelpMenu: TMenuItem
  132. Caption = '&Help'
  133. object MenuLicenses: TMenuItem
  134. Caption = '&Licenses'
  135. OnClick = MenuLicensesClick
  136. end
  137. object About: TMenuItem
  138. Caption = '&About'
  139. OnClick = AboutClick
  140. end
  141. end
  142. end
  143. end