Progress.dfm 6.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284
  1. object ProgressForm: TProgressForm
  2. Left = 445
  3. Top = 291
  4. HelpType = htKeyword
  5. HelpKeyword = 'ui_progress'
  6. BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  7. BorderStyle = bsDialog
  8. Caption = 'Operation'
  9. ClientHeight = 196
  10. ClientWidth = 405
  11. Color = clBtnFace
  12. ParentFont = True
  13. OldCreateOrder = False
  14. Position = poOwnerFormCenter
  15. OnHide = FormHide
  16. OnShow = FormShow
  17. DesignSize = (
  18. 405
  19. 196)
  20. PixelsPerInch = 96
  21. TextHeight = 13
  22. object OnceDoneOperationLabel: TLabel
  23. Left = 322
  24. Top = 88
  25. Width = 69
  26. Height = 13
  27. Caption = 'Once &finished:'
  28. FocusControl = OnceDoneOperationCombo
  29. end
  30. object Animate: TAnimate
  31. Left = 10
  32. Top = 5
  33. Width = 301
  34. Height = 60
  35. Anchors = [akLeft, akTop, akRight]
  36. AutoSize = False
  37. StopFrame = 23
  38. end
  39. object CancelButton: TButton
  40. Left = 320
  41. Top = 8
  42. Width = 80
  43. Height = 25
  44. Anchors = [akTop, akRight]
  45. Cancel = True
  46. Caption = 'Cancel'
  47. TabOrder = 0
  48. OnClick = CancelButtonClick
  49. end
  50. object MinimizeButton: TButton
  51. Left = 320
  52. Top = 40
  53. Width = 80
  54. Height = 25
  55. Anchors = [akTop, akRight]
  56. Caption = '&Minimize'
  57. TabOrder = 1
  58. OnClick = MinimizeButtonClick
  59. end
  60. object MainPanel: TPanel
  61. Left = 10
  62. Top = 65
  63. Width = 301
  64. Height = 68
  65. Anchors = [akLeft, akTop, akRight]
  66. BevelOuter = bvNone
  67. TabOrder = 3
  68. DesignSize = (
  69. 301
  70. 68)
  71. object Label1: TLabel
  72. Left = 0
  73. Top = 7
  74. Width = 20
  75. Height = 13
  76. Caption = 'File:'
  77. end
  78. object FileLabel: TPathLabel
  79. Left = 56
  80. Top = 7
  81. Width = 245
  82. Height = 13
  83. IndentHorizontal = 0
  84. IndentVertical = 0
  85. Align = alNone
  86. Anchors = [akLeft, akTop, akRight]
  87. AutoSize = False
  88. end
  89. object TargetLabel: TLabel
  90. Left = 0
  91. Top = 23
  92. Width = 36
  93. Height = 13
  94. Caption = 'Target:'
  95. end
  96. object TargetPathLabel: TPathLabel
  97. Left = 56
  98. Top = 23
  99. Width = 245
  100. Height = 13
  101. IndentHorizontal = 0
  102. IndentVertical = 0
  103. Align = alNone
  104. Anchors = [akLeft, akTop, akRight]
  105. AutoSize = False
  106. end
  107. object TopProgress: TProgressBar
  108. Left = 0
  109. Top = 42
  110. Width = 301
  111. Height = 16
  112. Anchors = [akLeft, akTop, akRight]
  113. ParentShowHint = False
  114. ShowHint = True
  115. TabOrder = 0
  116. end
  117. end
  118. object TransferPanel: TPanel
  119. Left = 10
  120. Top = 133
  121. Width = 301
  122. Height = 63
  123. Anchors = [akLeft, akTop, akRight]
  124. BevelOuter = bvNone
  125. TabOrder = 4
  126. DesignSize = (
  127. 301
  128. 63)
  129. object StartTimeLabel: TLabel
  130. Left = 88
  131. Top = 2
  132. Width = 65
  133. Height = 13
  134. Alignment = taRightJustify
  135. AutoSize = False
  136. Caption = '00:00:00'
  137. end
  138. object TimeLeftLabel: TLabel
  139. Left = 88
  140. Top = 2
  141. Width = 65
  142. Height = 13
  143. Alignment = taRightJustify
  144. AutoSize = False
  145. Caption = '00:00:00'
  146. end
  147. object TimeLeftLabelLabel: TLabel
  148. Left = 0
  149. Top = 2
  150. Width = 45
  151. Height = 13
  152. Caption = 'Time left:'
  153. end
  154. object CPSLabel: TLabel
  155. Left = 236
  156. Top = 18
  157. Width = 65
  158. Height = 13
  159. Alignment = taRightJustify
  160. Anchors = [akTop, akRight]
  161. AutoSize = False
  162. Caption = '0 KiB/s'
  163. end
  164. object TimeElapsedLabel: TLabel
  165. Left = 236
  166. Top = 2
  167. Width = 65
  168. Height = 13
  169. Alignment = taRightJustify
  170. Anchors = [akTop, akRight]
  171. AutoSize = False
  172. Caption = '00:00:00'
  173. end
  174. object BytesTransferedLabel: TLabel
  175. Left = 88
  176. Top = 18
  177. Width = 65
  178. Height = 13
  179. Alignment = taRightJustify
  180. AutoSize = False
  181. Caption = '0 KiB'
  182. end
  183. object Label3: TLabel
  184. Left = 164
  185. Top = 2
  186. Width = 66
  187. Height = 13
  188. Anchors = [akTop, akRight]
  189. Caption = 'Time elapsed:'
  190. end
  191. object StartTimeLabelLabel: TLabel
  192. Left = 0
  193. Top = 2
  194. Width = 51
  195. Height = 13
  196. Caption = 'Start time:'
  197. end
  198. object Label4: TLabel
  199. Left = 0
  200. Top = 18
  201. Width = 89
  202. Height = 13
  203. Caption = 'Bytes transferred:'
  204. end
  205. object Label12: TLabel
  206. Left = 164
  207. Top = 18
  208. Width = 34
  209. Height = 13
  210. Anchors = [akTop, akRight]
  211. Caption = 'Speed:'
  212. end
  213. object BottomProgress: TProgressBar
  214. Left = 0
  215. Top = 37
  216. Width = 301
  217. Height = 16
  218. Anchors = [akLeft, akTop, akRight]
  219. ParentShowHint = False
  220. ShowHint = True
  221. TabOrder = 0
  222. end
  223. end
  224. object SpeedPanel: TPanel
  225. Left = 314
  226. Top = 151
  227. Width = 92
  228. Height = 41
  229. Anchors = [akTop, akRight]
  230. BevelOuter = bvNone
  231. TabOrder = 6
  232. object SpeedLabel2: TLabel
  233. Left = 8
  234. Top = 0
  235. Width = 68
  236. Height = 13
  237. Caption = '&Speed (KiB/s):'
  238. FocusControl = SpeedCombo
  239. end
  240. object SpeedCombo: THistoryComboBox
  241. Left = 6
  242. Top = 16
  243. Width = 80
  244. Height = 21
  245. AutoComplete = False
  246. TabOrder = 0
  247. Text = 'SpeedCombo'
  248. OnExit = SpeedComboExit
  249. OnKeyPress = SpeedComboKeyPress
  250. OnSelect = SpeedComboSelect
  251. Items.Strings = (
  252. 'Unlimited'
  253. '1024'
  254. '512'
  255. '256'
  256. '128'
  257. '64'
  258. '32'
  259. '16'
  260. '8')
  261. end
  262. end
  263. object OnceDoneOperationCombo: TComboBox
  264. Left = 320
  265. Top = 104
  266. Width = 80
  267. Height = 21
  268. AutoComplete = False
  269. Style = csDropDownList
  270. TabOrder = 5
  271. OnCloseUp = OnceDoneOperationComboCloseUp
  272. OnSelect = OnceDoneOperationComboSelect
  273. Items.Strings = (
  274. 'Stay idle'
  275. 'Disconnect'
  276. 'Shut down')
  277. end
  278. object UpdateTimer: TTimer
  279. Enabled = False
  280. OnTimer = UpdateTimerTimer
  281. Left = 336
  282. Top = 168
  283. end
  284. end