PageRenderTime 24ms CodeModel.GetById 13ms app.highlight 5ms RepoModel.GetById 1ms app.codeStats 0ms

/MainForm.dfm

http://github.com/foxblock/PNDTools
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