CreateDirectory.dfm 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122
  1. object CreateDirectoryDialog: TCreateDirectoryDialog
  2. Left = 408
  3. Top = 195
  4. HelpType = htKeyword
  5. HelpKeyword = 'ui_create_directory'
  6. BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  7. BorderStyle = bsDialog
  8. Caption = 'Create folder'
  9. ClientHeight = 253
  10. ClientWidth = 337
  11. Color = clBtnFace
  12. ParentFont = True
  13. OldCreateOrder = True
  14. Position = poOwnerFormCenter
  15. OnCloseQuery = FormCloseQuery
  16. OnShow = FormShow
  17. DesignSize = (
  18. 337
  19. 253)
  20. PixelsPerInch = 96
  21. TextHeight = 13
  22. object EditLabel: TLabel
  23. Left = 8
  24. Top = 8
  25. Width = 85
  26. Height = 13
  27. Caption = 'New &folder name:'
  28. end
  29. object DirectoryEdit: TEdit
  30. Left = 8
  31. Top = 25
  32. Width = 321
  33. Height = 21
  34. Anchors = [akLeft, akTop, akRight]
  35. MaxLength = 1000
  36. TabOrder = 0
  37. Text = 'DirectoryEdit'
  38. OnChange = DirectoryEditChange
  39. end
  40. object MorePanel: TPanel
  41. Left = 0
  42. Top = 50
  43. Width = 337
  44. Height = 169
  45. Anchors = [akLeft, akTop, akRight, akBottom]
  46. BevelOuter = bvNone
  47. TabOrder = 1
  48. DesignSize = (
  49. 337
  50. 169)
  51. object AttributesGroup: TGroupBox
  52. Left = 8
  53. Top = 3
  54. Width = 322
  55. Height = 157
  56. Anchors = [akLeft, akTop, akRight, akBottom]
  57. Caption = 'Attributes'
  58. TabOrder = 0
  59. inline RightsFrame: TRightsExtFrame
  60. Left = 7
  61. Top = 36
  62. Width = 239
  63. Height = 87
  64. TabOrder = 1
  65. inherited DirectoriesXCheck: TCheckBox
  66. Visible = False
  67. end
  68. end
  69. object SetRightsCheck: TCheckBox
  70. Left = 12
  71. Top = 16
  72. Width = 156
  73. Height = 17
  74. Caption = 'Set pe&rmissions'
  75. ParentShowHint = False
  76. ShowHint = True
  77. TabOrder = 0
  78. OnClick = ControlChange
  79. end
  80. object SaveSettingsCheck: TCheckBox
  81. Left = 12
  82. Top = 129
  83. Width = 301
  84. Height = 17
  85. Caption = 'Use &same settings next time'
  86. TabOrder = 2
  87. end
  88. end
  89. end
  90. object OKBtn: TButton
  91. Left = 91
  92. Top = 219
  93. Width = 75
  94. Height = 25
  95. Anchors = [akRight, akBottom]
  96. Caption = 'OK'
  97. Default = True
  98. ModalResult = 1
  99. TabOrder = 2
  100. end
  101. object CancelBtn: TButton
  102. Left = 171
  103. Top = 219
  104. Width = 75
  105. Height = 25
  106. Anchors = [akRight, akBottom]
  107. Cancel = True
  108. Caption = 'Cancel'
  109. ModalResult = 2
  110. TabOrder = 3
  111. end
  112. object HelpButton: TButton
  113. Left = 252
  114. Top = 219
  115. Width = 75
  116. Height = 25
  117. Anchors = [akRight, akBottom]
  118. Caption = '&Help'
  119. TabOrder = 4
  120. OnClick = HelpButtonClick
  121. end
  122. end