/MainForm.dfm

http://github.com/foxblock/PNDTools · Unknown · 518 lines · 517 code · 1 blank · 0 comment · 0 complexity · b9bbeef4294722093d24d1c5ac654601 MD5 · raw file

  1. object frmMain: TfrmMain
  2. Left = 100
  3. Top = 100
  4. Caption = 'PNDTools'
  5. ClientHeight = 578
  6. ClientWidth = 524
  7. Color = clBtnFace
  8. Constraints.MinHeight = 500
  9. Constraints.MinWidth = 450
  10. Font.Charset = DEFAULT_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -11
  13. Font.Name = 'Tahoma'
  14. Font.Style = []
  15. KeyPreview = True
  16. Menu = menMain
  17. OldCreateOrder = False
  18. Position = poDesigned
  19. OnClose = FormClose
  20. OnCreate = FormCreate
  21. OnShow = FormShow
  22. PixelsPerInch = 96
  23. TextHeight = 13
  24. object pnlButtons: TPanel
  25. AlignWithMargins = True
  26. Left = 4
  27. Top = 541
  28. Width = 516
  29. Height = 33
  30. Margins.Left = 4
  31. Margins.Top = 0
  32. Margins.Right = 4
  33. Margins.Bottom = 4
  34. Align = alBottom
  35. BevelOuter = bvNone
  36. TabOrder = 4
  37. object btnCreate: TButton
  38. AlignWithMargins = True
  39. Left = 407
  40. Top = 4
  41. Width = 105
  42. Height = 25
  43. Margins.Left = 4
  44. Margins.Top = 4
  45. Margins.Right = 4
  46. Margins.Bottom = 4
  47. Align = alRight
  48. Caption = 'Create PND...'
  49. TabOrder = 0
  50. OnClick = btnCreateClick
  51. end
  52. end
  53. object grbLog: TGroupBox
  54. AlignWithMargins = True
  55. Left = 4
  56. Top = 437
  57. Width = 516
  58. Height = 100
  59. Margins.Left = 4
  60. Margins.Top = 2
  61. Margins.Right = 4
  62. Margins.Bottom = 4
  63. Align = alBottom
  64. Caption = ' Log (double-click to hide/expand) '
  65. Constraints.MaxHeight = 100
  66. Constraints.MinHeight = 20
  67. TabOrder = 3
  68. OnDblClick = grbLogDblClick
  69. object redLog: TRichEdit
  70. AlignWithMargins = True
  71. Left = 6
  72. Top = 15
  73. Width = 504
  74. Height = 79
  75. Margins.Left = 4
  76. Margins.Top = 0
  77. Margins.Right = 4
  78. Margins.Bottom = 4
  79. Align = alClient
  80. HideSelection = False
  81. Lines.Strings = (
  82. 'Welcome to the PNDTools'
  83. 'To get started just drop some files in the top-most area to crea' +
  84. 'te a new PND'
  85. 'or load an existing PND via File -> Open PND...')
  86. ReadOnly = True
  87. ScrollBars = ssVertical
  88. TabOrder = 0
  89. end
  90. end
  91. object grbFiles: TGroupBox
  92. AlignWithMargins = True
  93. Left = 4
  94. Top = 4
  95. Width = 516
  96. Height = 337
  97. Margins.Left = 4
  98. Margins.Top = 4
  99. Margins.Right = 4
  100. Margins.Bottom = 4
  101. Align = alClient
  102. Caption = ' Files (drag&&drop stuff here) '
  103. TabOrder = 0
  104. object vstFiles: TVirtualStringTree
  105. AlignWithMargins = True
  106. Left = 6
  107. Top = 15
  108. Width = 504
  109. Height = 266
  110. Margins.Left = 4
  111. Margins.Top = 0
  112. Margins.Right = 4
  113. Margins.Bottom = 0
  114. Align = alClient
  115. ClipboardFormats.Strings = (
  116. 'Virtual Tree Data')
  117. DragMode = dmAutomatic
  118. DragOperations = [doMove]
  119. DrawSelectionMode = smBlendedRectangle
  120. Header.AutoSizeIndex = 0
  121. Header.Font.Charset = DEFAULT_CHARSET
  122. Header.Font.Color = clWindowText
  123. Header.Font.Height = -11
  124. Header.Font.Name = 'Tahoma'
  125. Header.Font.Style = []
  126. Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible]
  127. Header.SortColumn = 0
  128. Images = imlFileTree
  129. LineStyle = lsSolid
  130. TabOrder = 0
  131. TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
  132. TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toThemeAware, toFullVertGridLines]
  133. TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
  134. OnCompareNodes = vstFilesCompareNodes
  135. OnDragOver = vstFilesDragOver
  136. OnGetText = vstFilesGetText
  137. OnGetImageIndex = vstFilesGetImageIndex
  138. OnHeaderClick = vstFilesHeaderClick
  139. OnKeyDown = vstFilesKeyDown
  140. OnMouseUp = vstFilesMouseUp
  141. OnNodeMoving = vstFilesNodeMoving
  142. OnStructureChange = vstFilesStructureChange
  143. Columns = <
  144. item
  145. Position = 0
  146. Width = 300
  147. WideText = 'Filename'
  148. end
  149. item
  150. Position = 1
  151. Width = 70
  152. WideText = 'Size'
  153. end
  154. item
  155. Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coVisible, coAllowFocus]
  156. Position = 2
  157. Width = 150
  158. WideText = 'Source path'
  159. end>
  160. end
  161. object pnlFilesButtons: TPanel
  162. Left = 2
  163. Top = 302
  164. Width = 512
  165. Height = 33
  166. Align = alBottom
  167. BevelOuter = bvNone
  168. TabOrder = 2
  169. object btnFilesClear: TButton
  170. AlignWithMargins = True
  171. Left = 433
  172. Top = 4
  173. Width = 75
  174. Height = 25
  175. Margins.Left = 4
  176. Margins.Top = 4
  177. Margins.Right = 4
  178. Margins.Bottom = 4
  179. Align = alRight
  180. Caption = 'Clear'
  181. TabOrder = 3
  182. OnClick = btnFilesClearClick
  183. end
  184. object btnFilesFolder: TButton
  185. AlignWithMargins = True
  186. Left = 271
  187. Top = 4
  188. Width = 75
  189. Height = 25
  190. Margins.Left = 4
  191. Margins.Top = 4
  192. Margins.Right = 0
  193. Margins.Bottom = 4
  194. Align = alRight
  195. Caption = 'Add folder...'
  196. TabOrder = 1
  197. OnClick = btnFilesFolderClick
  198. end
  199. object btnFilesFile: TButton
  200. AlignWithMargins = True
  201. Left = 192
  202. Top = 4
  203. Width = 75
  204. Height = 25
  205. Margins.Left = 4
  206. Margins.Top = 4
  207. Margins.Right = 0
  208. Margins.Bottom = 4
  209. Align = alRight
  210. Caption = 'Add files...'
  211. TabOrder = 0
  212. OnClick = btnFilesFileClick
  213. end
  214. object cbxRecursive: TCheckBox
  215. AlignWithMargins = True
  216. Left = 350
  217. Top = 4
  218. Width = 79
  219. Height = 25
  220. Margins.Left = 4
  221. Margins.Top = 4
  222. Margins.Right = 0
  223. Margins.Bottom = 4
  224. Align = alRight
  225. Caption = 'Recursive'
  226. Checked = True
  227. State = cbChecked
  228. TabOrder = 2
  229. end
  230. end
  231. object pnlFilesInfo: TPanel
  232. Left = 2
  233. Top = 281
  234. Width = 512
  235. Height = 21
  236. Align = alBottom
  237. BevelOuter = bvNone
  238. TabOrder = 1
  239. object lblFilesSizeLbl: TLabel
  240. AlignWithMargins = True
  241. Left = 415
  242. Top = 4
  243. Width = 52
  244. Height = 13
  245. Margins.Left = 4
  246. Margins.Top = 4
  247. Margins.Right = 0
  248. Margins.Bottom = 4
  249. Align = alRight
  250. Alignment = taRightJustify
  251. Caption = 'Total size: '
  252. ExplicitLeft = 468
  253. ExplicitTop = 1
  254. end
  255. object lblFilesSize: TLabel
  256. AlignWithMargins = True
  257. Left = 471
  258. Top = 4
  259. Width = 31
  260. Height = 13
  261. Margins.Left = 4
  262. Margins.Top = 4
  263. Margins.Right = 10
  264. Margins.Bottom = 4
  265. Align = alRight
  266. Alignment = taRightJustify
  267. Caption = '0 Byte'
  268. ExplicitLeft = 588
  269. end
  270. end
  271. end
  272. object grbIcon: TGroupBox
  273. AlignWithMargins = True
  274. Left = 4
  275. Top = 345
  276. Width = 516
  277. Height = 42
  278. Margins.Left = 4
  279. Margins.Top = 0
  280. Margins.Right = 4
  281. Margins.Bottom = 4
  282. Align = alBottom
  283. Caption = ' Icon '
  284. TabOrder = 1
  285. object edtIcon: TEdit
  286. AlignWithMargins = True
  287. Left = 6
  288. Top = 15
  289. Width = 346
  290. Height = 21
  291. Margins.Left = 4
  292. Margins.Top = 0
  293. Margins.Right = 4
  294. Margins.Bottom = 4
  295. Align = alClient
  296. TabOrder = 0
  297. end
  298. object btnIconLoad: TButton
  299. AlignWithMargins = True
  300. Left = 356
  301. Top = 15
  302. Width = 75
  303. Height = 21
  304. Margins.Left = 0
  305. Margins.Top = 0
  306. Margins.Right = 4
  307. Margins.Bottom = 4
  308. Align = alRight
  309. Caption = 'Load icon...'
  310. TabOrder = 1
  311. OnClick = btnIconLoadClick
  312. end
  313. object btnIconClear: TButton
  314. AlignWithMargins = True
  315. Left = 435
  316. Top = 15
  317. Width = 75
  318. Height = 21
  319. Margins.Left = 0
  320. Margins.Top = 0
  321. Margins.Right = 4
  322. Margins.Bottom = 4
  323. Align = alRight
  324. Caption = 'Clear'
  325. TabOrder = 2
  326. OnClick = btnIconClearClick
  327. end
  328. end
  329. object grbPXML: TGroupBox
  330. AlignWithMargins = True
  331. Left = 4
  332. Top = 391
  333. Width = 516
  334. Height = 42
  335. Margins.Left = 4
  336. Margins.Top = 0
  337. Margins.Right = 4
  338. Margins.Bottom = 2
  339. Align = alBottom
  340. Caption = ' PXML '
  341. TabOrder = 2
  342. object btnPXMLLoad: TButton
  343. AlignWithMargins = True
  344. Left = 277
  345. Top = 15
  346. Width = 75
  347. Height = 21
  348. Margins.Left = 0
  349. Margins.Top = 0
  350. Margins.Right = 4
  351. Margins.Bottom = 4
  352. Align = alRight
  353. Caption = 'Load PXML...'
  354. TabOrder = 1
  355. OnClick = btnPXMLLoadClick
  356. end
  357. object edtPXML: TEdit
  358. AlignWithMargins = True
  359. Left = 6
  360. Top = 15
  361. Width = 267
  362. Height = 21
  363. Margins.Left = 4
  364. Margins.Top = 0
  365. Margins.Right = 4
  366. Margins.Bottom = 4
  367. Align = alClient
  368. TabOrder = 0
  369. OnChange = edtPXMLChange
  370. end
  371. object btnPXMLClear: TButton
  372. AlignWithMargins = True
  373. Left = 435
  374. Top = 15
  375. Width = 75
  376. Height = 21
  377. Margins.Left = 0
  378. Margins.Top = 0
  379. Margins.Right = 4
  380. Margins.Bottom = 4
  381. Align = alRight
  382. Caption = 'Clear'
  383. TabOrder = 3
  384. OnClick = btnPXMLClearClick
  385. end
  386. object btnPXMLEdit: TButton
  387. AlignWithMargins = True
  388. Left = 356
  389. Top = 15
  390. Width = 75
  391. Height = 21
  392. Margins.Left = 0
  393. Margins.Top = 0
  394. Margins.Right = 4
  395. Margins.Bottom = 4
  396. Align = alRight
  397. Caption = 'Create PXML'
  398. TabOrder = 2
  399. OnClick = btnPXMLEditClick
  400. end
  401. end
  402. object imlFileTree: TImageList
  403. Left = 272
  404. Top = 80
  405. end
  406. object opdFileAny: TOpenDialog
  407. FileName = 'H:\Delphi Projekte\PNDTools\PNDTools.bdsproj'
  408. Filter = 'Any file|*'
  409. FilterIndex = 0
  410. Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
  411. Title = 'Select file(s) to add to the PND'
  412. Left = 272
  413. Top = 48
  414. end
  415. object opdPXML: TOpenDialog
  416. DefaultExt = 'xml'
  417. Filter =
  418. 'PXML-file (pxml.xml)|PXML.xml;pxml.xml|XML-file (*.xml)|*.xml|An' +
  419. 'y file|*'
  420. FilterIndex = 0
  421. Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
  422. Title = 'Select PXML file'
  423. Left = 240
  424. Top = 48
  425. end
  426. object opdIcon: TOpenDialog
  427. Filter = 'PNG-Image (*.png)|*.png|Any file|*'
  428. FilterIndex = 0
  429. Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
  430. Title = 'Select icon for the PND'
  431. Left = 208
  432. Top = 48
  433. end
  434. object sadPND: TSaveDialog
  435. DefaultExt = 'pnd'
  436. Filter = 'PND files (*.pnd)|*.pnd'
  437. Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofCreatePrompt, ofEnableSizing]
  438. Title = 'Select a destination for the PND file'
  439. Left = 144
  440. Top = 48
  441. end
  442. object opdPND: TOpenDialog
  443. Filter = 'PND file (*.pnd)|*.pnd|Any file|*'
  444. Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
  445. Title = 'Select a PND file to open'
  446. Left = 176
  447. Top = 48
  448. end
  449. object menMain: TMainMenu
  450. Left = 240
  451. Top = 112
  452. object menMainFile: TMenuItem
  453. Caption = 'File'
  454. object menMainFileNew: TMenuItem
  455. Caption = 'New'
  456. OnClick = menMainFileNewClick
  457. end
  458. object menMainFileOpen: TMenuItem
  459. Caption = 'Open PND...'
  460. OnClick = menMainFileOpenClick
  461. end
  462. object N2: TMenuItem
  463. Caption = '-'
  464. end
  465. object menMainFileOptions: TMenuItem
  466. Caption = 'Options...'
  467. OnClick = menMainFileOptionsClick
  468. end
  469. object N3: TMenuItem
  470. Caption = '-'
  471. end
  472. object menMainFileExit: TMenuItem
  473. Caption = 'Exit'
  474. OnClick = menMainFileExitClick
  475. end
  476. end
  477. object menMainHelp: TMenuItem
  478. Caption = 'Help'
  479. object menMainHelpPXML: TMenuItem
  480. Caption = 'PXML specification (online)'
  481. OnClick = menMainHelpPXMLClick
  482. end
  483. object menMainHelpPND: TMenuItem
  484. Caption = 'PND quickstart (online)'
  485. OnClick = menMainHelpPNDClick
  486. end
  487. object menMainHelpThread: TMenuItem
  488. Caption = 'Website (online)'
  489. OnClick = menMainHelpThreadClick
  490. end
  491. object N1: TMenuItem
  492. Caption = '-'
  493. end
  494. object menMainHelpAbout: TMenuItem
  495. Caption = 'About'
  496. OnClick = menMainHelpAboutClick
  497. end
  498. end
  499. end
  500. object pomFiles: TPopupMenu
  501. AutoPopup = False
  502. Left = 272
  503. Top = 112
  504. object pomFilesOpen: TMenuItem
  505. Caption = 'Open'
  506. OnClick = pomFilesOpenClick
  507. end
  508. object pomFilesFolder: TMenuItem
  509. Caption = 'Open containing folder'
  510. OnClick = pomFilesFolderClick
  511. end
  512. object pomFilesDelete: TMenuItem
  513. Caption = 'Delete'
  514. OnClick = pomFilesDeleteClick
  515. end
  516. end
  517. end