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