MainUnit.dfm 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209
  1. object frmMian: TfrmMian
  2. Left = 240
  3. Top = 240
  4. Width = 775
  5. Height = 563
  6. BorderIcons = [biSystemMenu, biMaximize]
  7. Caption = 'SmartCost'#26381#21153#31243#24207
  8. Color = clBtnFace
  9. Font.Charset = ANSI_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -12
  12. Font.Name = #23435#20307
  13. Font.Style = []
  14. OldCreateOrder = False
  15. Position = poScreenCenter
  16. OnCreate = FormCreate
  17. OnDestroy = FormDestroy
  18. PixelsPerInch = 96
  19. TextHeight = 12
  20. object Splitter1: TSplitter
  21. Left = 162
  22. Top = 30
  23. Height = 480
  24. end
  25. object StatusBar1: TStatusBar
  26. Left = 0
  27. Top = 510
  28. Width = 767
  29. Height = 19
  30. Panels = <
  31. item
  32. Text = ' '#26381#21153#22120#29366#24577#65306' '#20851#38381
  33. Width = 130
  34. end
  35. item
  36. Alignment = taCenter
  37. Text = ' '#29664#28023#32437#27178#21019#26032#36719#20214#26377#38480#20844#21496' '
  38. Width = 170
  39. end
  40. item
  41. Width = 50
  42. end>
  43. end
  44. object CoolBar1: TCoolBar
  45. Left = 0
  46. Top = 0
  47. Width = 767
  48. Height = 30
  49. Bands = <
  50. item
  51. Control = ToolBar1
  52. ImageIndex = -1
  53. Width = 767
  54. end>
  55. EdgeInner = esNone
  56. EdgeOuter = esNone
  57. object ToolBar1: TToolBar
  58. Left = 9
  59. Top = 0
  60. Width = 754
  61. Height = 25
  62. Align = alClient
  63. ButtonHeight = 20
  64. ButtonWidth = 67
  65. Caption = 'ToolBar1'
  66. EdgeInner = esNone
  67. EdgeOuter = esNone
  68. ShowCaptions = True
  69. TabOrder = 0
  70. object tbOpen: TToolButton
  71. Left = 0
  72. Top = 2
  73. Caption = #25171#24320#36830#25509
  74. ImageIndex = 0
  75. OnClick = tbOpenClick
  76. end
  77. object tbClose: TToolButton
  78. Left = 67
  79. Top = 2
  80. Caption = #26029#24320#36830#25509
  81. ImageIndex = 2
  82. OnClick = tbCloseClick
  83. end
  84. object tbPort: TToolButton
  85. Left = 134
  86. Top = 2
  87. Caption = #26356#25913#31471#21475#21495
  88. ImageIndex = 2
  89. OnClick = tbPortClick
  90. end
  91. object tbDeleteClient: TToolButton
  92. Left = 201
  93. Top = 2
  94. Caption = #21024#38500#29992#25143
  95. ImageIndex = 2
  96. OnClick = tbDeleteClientClick
  97. end
  98. object tbExit: TToolButton
  99. Left = 268
  100. Top = 2
  101. Caption = #20851#38381#31243#24207
  102. ImageIndex = 1
  103. OnClick = tbExitClick
  104. end
  105. end
  106. end
  107. object tvTree: TTreeView
  108. Left = 0
  109. Top = 30
  110. Width = 162
  111. Height = 480
  112. Align = alLeft
  113. Indent = 19
  114. TabOrder = 2
  115. end
  116. object zgClientInfo: TZJGrid
  117. Left = 165
  118. Top = 30
  119. Width = 602
  120. Height = 480
  121. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
  122. OptionsEx = []
  123. ColCount = 4
  124. RowCount = 6
  125. ShowGridLine = False
  126. DefaultColWidth = 73
  127. DefaultFixedColWidth = 28
  128. Selection.AlphaBlend = False
  129. Selection.TransparentColor = False
  130. Align = alClient
  131. end
  132. object zaClientInfo: TZjGridDBA
  133. Columns = <
  134. item
  135. Title.Caption = 'IP'#22320#22336
  136. Title.CaptionAcrossCols = '1'
  137. Title.Font.Charset = GB2312_CHARSET
  138. Title.Font.Color = clWindowText
  139. Title.Font.Height = -12
  140. Title.Font.Name = #23435#20307
  141. Title.Font.Style = []
  142. Alignment = taLeftJustify
  143. Font.Charset = GB2312_CHARSET
  144. Font.Color = clWindowText
  145. Font.Height = -12
  146. Font.Name = #23435#20307
  147. Font.Style = []
  148. FieldName = 'IP'
  149. Width = 95
  150. ReadOnly = False
  151. end
  152. item
  153. Title.Caption = #24212#29992#31243#24207
  154. Title.CaptionAcrossCols = '1'
  155. Title.Font.Charset = GB2312_CHARSET
  156. Title.Font.Color = clWindowText
  157. Title.Font.Height = -12
  158. Title.Font.Name = #23435#20307
  159. Title.Font.Style = []
  160. Alignment = taCenter
  161. Font.Charset = GB2312_CHARSET
  162. Font.Color = clWindowText
  163. Font.Height = -12
  164. Font.Name = #23435#20307
  165. Font.Style = []
  166. FieldName = 'AppType'
  167. Width = 80
  168. ReadOnly = False
  169. end
  170. item
  171. Title.Caption = #38142#25509#26102#38388
  172. Title.CaptionAcrossCols = '1'
  173. Title.Font.Charset = GB2312_CHARSET
  174. Title.Font.Color = clWindowText
  175. Title.Font.Height = -12
  176. Title.Font.Name = #23435#20307
  177. Title.Font.Style = []
  178. Alignment = taCenter
  179. Font.Charset = GB2312_CHARSET
  180. Font.Color = clWindowText
  181. Font.Height = -12
  182. Font.Name = #23435#20307
  183. Font.Style = []
  184. FieldName = 'LinkTime'
  185. Width = 160
  186. ReadOnly = False
  187. end>
  188. Grid = zgClientInfo
  189. ExtendRowCount = 5
  190. Left = 355
  191. Top = 247
  192. end
  193. object PopupMenu: TPopupMenu
  194. AutoHotkeys = maManual
  195. Left = 214
  196. Top = 230
  197. object muShow: TMenuItem
  198. Caption = #26174#31034#26381#21153#22120
  199. OnClick = muShowClick
  200. end
  201. object N1: TMenuItem
  202. Caption = '-'
  203. end
  204. object muExit: TMenuItem
  205. Caption = #36864#20986
  206. OnClick = muExitClick
  207. end
  208. end
  209. end