/Gedemin/Transaction/gdv_dlgSelectDocument_unit.dfm

http://gedemin.googlecode.com/ · Unknown · 326 lines · 326 code · 0 blank · 0 comment · 0 complexity · 7bf309b73436b994f1206fbc1675ef88 MD5 · raw file

  1. object dlgSelectDocument: TdlgSelectDocument
  2. Left = 241
  3. Top = 183
  4. Width = 693
  5. Height = 493
  6. BorderWidth = 5
  7. Caption = '????? ?????????'
  8. Color = clBtnFace
  9. Font.Charset = DEFAULT_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -11
  12. Font.Name = 'MS Sans Serif'
  13. Font.Style = []
  14. OldCreateOrder = False
  15. Position = poScreenCenter
  16. OnCreate = FormCreate
  17. OnShow = FormShow
  18. PixelsPerInch = 96
  19. TextHeight = 13
  20. object Splitter1: TSplitter
  21. Left = 216
  22. Top = 0
  23. Width = 3
  24. Height = 426
  25. Cursor = crHSplit
  26. end
  27. object Panel1: TPanel
  28. Left = 0
  29. Top = 426
  30. Width = 675
  31. Height = 30
  32. Align = alBottom
  33. BevelOuter = bvNone
  34. TabOrder = 0
  35. object Bevel1: TBevel
  36. Left = 0
  37. Top = 0
  38. Width = 675
  39. Height = 3
  40. Align = alTop
  41. Shape = bsTopLine
  42. end
  43. object Button1: TButton
  44. Left = 598
  45. Top = 9
  46. Width = 77
  47. Height = 21
  48. Action = actcancel
  49. Anchors = [akTop, akRight]
  50. Cancel = True
  51. TabOrder = 0
  52. end
  53. object Button2: TButton
  54. Left = 518
  55. Top = 9
  56. Width = 77
  57. Height = 21
  58. Action = actOk
  59. Anchors = [akTop, akRight]
  60. Default = True
  61. TabOrder = 1
  62. end
  63. object Button3: TButton
  64. Left = 0
  65. Top = 9
  66. Width = 75
  67. Height = 21
  68. Action = acthelp
  69. TabOrder = 2
  70. end
  71. end
  72. object Panel2: TPanel
  73. Left = 0
  74. Top = 0
  75. Width = 216
  76. Height = 426
  77. Align = alLeft
  78. BevelOuter = bvLowered
  79. Ctl3D = True
  80. FullRepaint = False
  81. ParentCtl3D = False
  82. TabOrder = 1
  83. object tvDocumentType: TgsDBTreeView
  84. Left = 1
  85. Top = 1
  86. Width = 214
  87. Height = 424
  88. DataSource = dsDocumentType
  89. KeyField = 'ID'
  90. ParentField = 'PARENT'
  91. DisplayField = 'NAME'
  92. Align = alClient
  93. BorderStyle = bsNone
  94. Ctl3D = True
  95. HideSelection = False
  96. Indent = 19
  97. ParentCtl3D = False
  98. SortType = stText
  99. TabOrder = 0
  100. MainFolderHead = True
  101. MainFolder = False
  102. MainFolderCaption = '???'
  103. WithCheckBox = False
  104. end
  105. end
  106. object Panel3: TPanel
  107. Left = 219
  108. Top = 0
  109. Width = 456
  110. Height = 426
  111. Align = alClient
  112. BevelOuter = bvNone
  113. TabOrder = 2
  114. object sLine: TSplitter
  115. Left = 0
  116. Top = 256
  117. Width = 456
  118. Height = 3
  119. Cursor = crVSplit
  120. Align = alBottom
  121. end
  122. object pLine: TPanel
  123. Left = 0
  124. Top = 259
  125. Width = 456
  126. Height = 167
  127. Align = alBottom
  128. BevelOuter = bvNone
  129. FullRepaint = False
  130. TabOrder = 0
  131. object gDocumentLine: TgsIBGrid
  132. Left = 0
  133. Top = 16
  134. Width = 456
  135. Height = 151
  136. Align = alClient
  137. BorderStyle = bsNone
  138. Ctl3D = True
  139. DataSource = dsDocumentLine
  140. Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
  141. ParentCtl3D = False
  142. TabOrder = 0
  143. InternalMenuKind = imkWithSeparator
  144. Expands = <>
  145. ExpandsActive = False
  146. ExpandsSeparate = False
  147. TitlesExpanding = False
  148. Conditions = <>
  149. ConditionsActive = False
  150. CheckBox.FieldName = 'ID'
  151. CheckBox.Visible = True
  152. CheckBox.CheckBoxEvent = gDocumentLineClickCheck
  153. CheckBox.FirstColumn = True
  154. MinColWidth = 40
  155. RememberPosition = False
  156. SaveSettings = False
  157. ColumnEditors = <>
  158. Aliases = <>
  159. ShowTotals = False
  160. OnClickCheck = gDocumentLineClickCheck
  161. end
  162. object Panel6: TPanel
  163. Left = 0
  164. Top = 0
  165. Width = 456
  166. Height = 16
  167. Align = alTop
  168. Alignment = taLeftJustify
  169. BevelOuter = bvNone
  170. BorderStyle = bsSingle
  171. Caption = ' ??????? ?????????'
  172. Color = clWindow
  173. Ctl3D = False
  174. Font.Charset = DEFAULT_CHARSET
  175. Font.Color = clWindowText
  176. Font.Height = -11
  177. Font.Name = 'MS Sans Serif'
  178. Font.Style = [fsBold]
  179. ParentCtl3D = False
  180. ParentFont = False
  181. TabOrder = 1
  182. end
  183. end
  184. object Panel5: TPanel
  185. Left = 0
  186. Top = 0
  187. Width = 456
  188. Height = 256
  189. Align = alClient
  190. BevelOuter = bvNone
  191. FullRepaint = False
  192. TabOrder = 1
  193. object gDocument: TgsIBGrid
  194. Left = 0
  195. Top = 42
  196. Width = 456
  197. Height = 214
  198. Align = alClient
  199. BorderStyle = bsNone
  200. Ctl3D = True
  201. DataSource = dsDocument
  202. Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
  203. ParentCtl3D = False
  204. TabOrder = 0
  205. OnDblClick = gDocumentDblClick
  206. InternalMenuKind = imkWithSeparator
  207. Expands = <>
  208. ExpandsActive = False
  209. ExpandsSeparate = False
  210. TitlesExpanding = False
  211. Conditions = <>
  212. ConditionsActive = False
  213. CheckBox.FieldName = 'ID'
  214. CheckBox.Visible = True
  215. CheckBox.CheckBoxEvent = gDocumentClickCheck
  216. CheckBox.FirstColumn = True
  217. MinColWidth = 40
  218. RememberPosition = False
  219. SaveSettings = False
  220. ColumnEditors = <>
  221. Aliases = <>
  222. ShowTotals = False
  223. OnClickCheck = gDocumentClickCheck
  224. end
  225. object TBDock1: TTBDock
  226. Left = 0
  227. Top = 16
  228. Width = 456
  229. Height = 26
  230. object TBToolbar1: TTBToolbar
  231. Left = 0
  232. Top = 0
  233. Caption = 'TBToolbar1'
  234. DockMode = dmCannotFloat
  235. FullSize = True
  236. Images = dmImages.il16x16
  237. TabOrder = 0
  238. object TBItem3: TTBItem
  239. Action = actNewDocument
  240. end
  241. object TBItem2: TTBItem
  242. Action = actEditDocument
  243. end
  244. object TBSeparatorItem1: TTBSeparatorItem
  245. end
  246. object TBItem1: TTBItem
  247. Action = actDeleteDocument
  248. end
  249. end
  250. end
  251. object Panel4: TPanel
  252. Left = 0
  253. Top = 0
  254. Width = 456
  255. Height = 16
  256. Align = alTop
  257. Alignment = taLeftJustify
  258. BevelOuter = bvNone
  259. BorderStyle = bsSingle
  260. Caption = ' ????????'
  261. Color = clWindow
  262. Ctl3D = False
  263. Font.Charset = DEFAULT_CHARSET
  264. Font.Color = clWindowText
  265. Font.Height = -11
  266. Font.Name = 'MS Sans Serif'
  267. Font.Style = [fsBold]
  268. ParentCtl3D = False
  269. ParentFont = False
  270. TabOrder = 2
  271. end
  272. end
  273. end
  274. object gdcDocumentType: TgdcBaseDocumentType
  275. AfterScroll = gdcDocumentTypeAfterScroll
  276. Left = 64
  277. Top = 152
  278. end
  279. object dsDocumentType: TDataSource
  280. DataSet = gdcDocumentType
  281. Left = 96
  282. Top = 152
  283. end
  284. object dsDocument: TDataSource
  285. Left = 337
  286. Top = 80
  287. end
  288. object ActionList: TActionList
  289. Images = dmImages.il16x16
  290. Left = 401
  291. Top = 136
  292. object actOk: TAction
  293. Caption = 'Ok'
  294. OnExecute = actOkExecute
  295. end
  296. object actcancel: TAction
  297. Caption = '??????'
  298. OnExecute = actcancelExecute
  299. end
  300. object acthelp: TAction
  301. Caption = '???????'
  302. end
  303. object actNewDocument: TAction
  304. Caption = 'actNewDocument'
  305. ImageIndex = 0
  306. OnExecute = actNewDocumentExecute
  307. OnUpdate = actNewDocumentUpdate
  308. end
  309. object actEditDocument: TAction
  310. Caption = 'actEditDocument'
  311. ImageIndex = 1
  312. OnExecute = actEditDocumentExecute
  313. OnUpdate = actNewDocumentUpdate
  314. end
  315. object actDeleteDocument: TAction
  316. Caption = 'actDeleteDocument'
  317. ImageIndex = 2
  318. OnExecute = actDeleteDocumentExecute
  319. OnUpdate = actNewDocumentUpdate
  320. end
  321. end
  322. object dsDocumentLine: TDataSource
  323. Left = 337
  324. Top = 304
  325. end
  326. end