ProjGatherSelectFrm.dfm 3.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157
  1. object ProjGatherSelectForm: TProjGatherSelectForm
  2. Left = 454
  3. Top = 235
  4. Width = 758
  5. Height = 554
  6. Caption = #36873#25321#27719#24635#39033#30446
  7. Color = clBtnFace
  8. Font.Charset = ANSI_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -12
  11. Font.Name = #23435#20307
  12. Font.Style = []
  13. OldCreateOrder = False
  14. DesignSize = (
  15. 750
  16. 523)
  17. PixelsPerInch = 96
  18. TextHeight = 12
  19. object lblProjectList: TLabel
  20. Left = 11
  21. Top = 8
  22. Width = 72
  23. Height = 12
  24. Caption = #21487#36873#39033#30446#21015#34920
  25. Font.Charset = ANSI_CHARSET
  26. Font.Color = clBlue
  27. Font.Height = -12
  28. Font.Name = #23435#20307
  29. Font.Style = []
  30. ParentFont = False
  31. end
  32. object lblResult: TLabel
  33. Left = 384
  34. Top = 8
  35. Width = 48
  36. Height = 12
  37. Caption = #25152#36873#32467#26524
  38. Font.Charset = ANSI_CHARSET
  39. Font.Color = clBlue
  40. Font.Height = -12
  41. Font.Name = #23435#20307
  42. Font.Style = []
  43. ParentFont = False
  44. end
  45. object zgSelectProject: TZJGrid
  46. Left = 8
  47. Top = 24
  48. Width = 369
  49. Height = 457
  50. Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection, goShowTreeLine]
  51. OptionsEx = []
  52. ColCount = 3
  53. RowCount = 1
  54. ShowGridLine = False
  55. DefaultColWidth = 35
  56. DefaultFixedColWidth = 25
  57. DefaultFixedRowHeight = 25
  58. Selection.AlphaBlend = False
  59. Selection.TransparentColor = False
  60. FrozenCol = 0
  61. FrozenRow = 0
  62. OnGetCellText = zgSelectProjectGetCellText
  63. OnSetCellText = zgSelectProjectSetCellText
  64. OnCellTextChanged = zgSelectProjectCellTextChanged
  65. OnDrawCellText = zgSelectProjectDrawCellText
  66. end
  67. object zgResult: TZJGrid
  68. Left = 384
  69. Top = 24
  70. Width = 360
  71. Height = 457
  72. OptionsEx = []
  73. ColCount = 2
  74. RowCount = 1
  75. ShowGridLine = False
  76. DefaultColWidth = 308
  77. DefaultFixedColWidth = 25
  78. DefaultFixedRowHeight = 25
  79. Selection.AlphaBlend = False
  80. Selection.TransparentColor = False
  81. FrozenCol = 0
  82. FrozenRow = 0
  83. OnGetCellText = zgResultGetCellText
  84. OnSetCellText = zgResultSetCellText
  85. end
  86. object btnOk: TButton
  87. Left = 583
  88. Top = 489
  89. Width = 74
  90. Height = 25
  91. Anchors = [akTop, akRight]
  92. Caption = #30830' '#23450
  93. TabOrder = 2
  94. OnClick = btnOkClick
  95. end
  96. object btnCancel: TButton
  97. Left = 670
  98. Top = 489
  99. Width = 74
  100. Height = 25
  101. Anchors = [akTop, akRight]
  102. Caption = #21462' '#28040
  103. ModalResult = 2
  104. TabOrder = 3
  105. end
  106. object stdSelectProject: TsdGridTreeDBA
  107. Columns = <
  108. item
  109. Title.Caption = #36873#25321
  110. Title.CaptionAcrossCols = '1'
  111. Title.Font.Charset = GB2312_CHARSET
  112. Title.Font.Color = clWindowText
  113. Title.Font.Height = -12
  114. Title.Font.Name = #23435#20307
  115. Title.Font.Style = []
  116. Alignment = taLeftJustify
  117. EditType = sgeCheckBox
  118. Font.Charset = GB2312_CHARSET
  119. Font.Color = clWindowText
  120. Font.Height = -12
  121. Font.Name = #23435#20307
  122. Font.Style = []
  123. Width = 35
  124. ReadOnly = False
  125. end
  126. item
  127. Title.Caption = #21517#31216
  128. Title.CaptionAcrossCols = '1'
  129. Title.Font.Charset = GB2312_CHARSET
  130. Title.Font.Color = clWindowText
  131. Title.Font.Height = -12
  132. Title.Font.Name = #23435#20307
  133. Title.Font.Style = []
  134. Alignment = taLeftJustify
  135. Font.Charset = GB2312_CHARSET
  136. Font.Color = clWindowText
  137. Font.Height = -12
  138. Font.Name = #23435#20307
  139. Font.Style = []
  140. FieldName = 'Name'
  141. Width = 280
  142. ReadOnly = True
  143. end>
  144. Grid = zgSelectProject
  145. ExtendRowCount = 0
  146. Options = [aoAllowEdit]
  147. AutoExpand = True
  148. TreeCellCol = 2
  149. KeyFieldName = 'ID'
  150. ParentFieldName = 'ParentID'
  151. NextSiblingFieldName = 'NextSiblingID'
  152. TreeOptions = []
  153. TopLevelBold = True
  154. Left = 120
  155. Top = 160
  156. end
  157. end