NewFolderUnit.dfm 1.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. object NewFolderForm: TNewFolderForm
  2. Left = 166
  3. Top = 129
  4. ActiveControl = InputBox
  5. BorderIcons = [biSystemMenu]
  6. BorderStyle = bsDialog
  7. Caption = 'New Folder'
  8. ClientHeight = 118
  9. ClientWidth = 265
  10. Color = clBtnFace
  11. Font.Charset = DEFAULT_CHARSET
  12. Font.Color = clWindowText
  13. Font.Height = -11
  14. Font.Name = 'MS Sans Serif'
  15. Font.Style = []
  16. OldCreateOrder = False
  17. Position = poScreenCenter
  18. PixelsPerInch = 96
  19. TextHeight = 13
  20. object Label1: TLabel
  21. Left = 16
  22. Top = 20
  23. Width = 63
  24. Height = 13
  25. Caption = '&Folder Name:'
  26. FocusControl = InputBox
  27. end
  28. object Bevel1: TBevel
  29. Left = 8
  30. Top = 56
  31. Width = 249
  32. Height = 2
  33. Shape = bsTopLine
  34. end
  35. object InputBox: TEdit
  36. Left = 88
  37. Top = 16
  38. Width = 161
  39. Height = 21
  40. TabOrder = 0
  41. Text = 'TI-GCC'
  42. OnChange = InputBoxChange
  43. end
  44. object ButtonOK: TButton
  45. Left = 40
  46. Top = 76
  47. Width = 81
  48. Height = 25
  49. Caption = '&OK'
  50. Default = True
  51. ModalResult = 1
  52. TabOrder = 1
  53. end
  54. object ButtonCancel: TButton
  55. Left = 144
  56. Top = 76
  57. Width = 81
  58. Height = 25
  59. Cancel = True
  60. Caption = '&Cancel'
  61. ModalResult = 2
  62. TabOrder = 2
  63. end
  64. end