1
0

CreateDirectory.dfm 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125
  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 = 263
  10. ClientWidth = 337
  11. Color = clBtnFace
  12. Font.Charset = DEFAULT_CHARSET
  13. Font.Color = clWindowText
  14. Font.Height = -12
  15. Font.Name = 'Segoe UI'
  16. Font.Style = []
  17. Position = poOwnerFormCenter
  18. OnCloseQuery = FormCloseQuery
  19. OnShow = FormShow
  20. DesignSize = (
  21. 337
  22. 263)
  23. TextHeight = 15
  24. object EditLabel: TLabel
  25. Left = 8
  26. Top = 8
  27. Width = 94
  28. Height = 15
  29. Caption = 'New &folder name:'
  30. FocusControl = DirectoryEdit
  31. end
  32. object DirectoryEdit: TEdit
  33. Left = 8
  34. Top = 25
  35. Width = 321
  36. Height = 23
  37. Anchors = [akLeft, akTop, akRight]
  38. MaxLength = 1000
  39. TabOrder = 0
  40. Text = 'DirectoryEdit'
  41. OnChange = DirectoryEditChange
  42. end
  43. object MorePanel: TPanel
  44. Left = 0
  45. Top = 50
  46. Width = 337
  47. Height = 179
  48. Anchors = [akLeft, akTop, akRight, akBottom]
  49. BevelOuter = bvNone
  50. TabOrder = 1
  51. DesignSize = (
  52. 337
  53. 179)
  54. object AttributesGroup: TGroupBox
  55. Left = 8
  56. Top = 4
  57. Width = 321
  58. Height = 170
  59. Anchors = [akLeft, akTop, akRight, akBottom]
  60. Caption = 'Attributes'
  61. TabOrder = 0
  62. inline RightsFrame: TRightsFrame
  63. Left = 2
  64. Top = 39
  65. Width = 273
  66. Height = 98
  67. TabOrder = 1
  68. inherited DirectoriesXCheck: TCheckBox
  69. Visible = False
  70. end
  71. end
  72. object SetRightsCheck: TCheckBox
  73. Left = 11
  74. Top = 22
  75. Width = 156
  76. Height = 17
  77. Caption = 'Set pe&rmissions'
  78. ParentShowHint = False
  79. ShowHint = True
  80. TabOrder = 0
  81. OnClick = ControlChange
  82. end
  83. object SaveSettingsCheck: TCheckBox
  84. Left = 11
  85. Top = 143
  86. Width = 301
  87. Height = 17
  88. Caption = 'Use &same settings next time'
  89. TabOrder = 2
  90. end
  91. end
  92. end
  93. object OKBtn: TButton
  94. Left = 77
  95. Top = 230
  96. Width = 80
  97. Height = 25
  98. Anchors = [akRight, akBottom]
  99. Caption = 'OK'
  100. Default = True
  101. ModalResult = 1
  102. TabOrder = 2
  103. end
  104. object CancelBtn: TButton
  105. Left = 163
  106. Top = 230
  107. Width = 80
  108. Height = 25
  109. Anchors = [akRight, akBottom]
  110. Cancel = True
  111. Caption = 'Cancel'
  112. ModalResult = 2
  113. TabOrder = 3
  114. end
  115. object HelpButton: TButton
  116. Left = 249
  117. Top = 230
  118. Width = 80
  119. Height = 25
  120. Anchors = [akRight, akBottom]
  121. Caption = '&Help'
  122. TabOrder = 4
  123. OnClick = HelpButtonClick
  124. end
  125. end