ProjGatherSelectFrm.dfm 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155
  1. object ProjGatherSelectForm: TProjGatherSelectForm
  2. Left = 454
  3. Top = 235
  4. Width = 735
  5. Height = 554
  6. Caption = 'ProjGatherSelectForm'
  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. 727
  16. 520)
  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 = 337
  71. Height = 457
  72. OptionsEx = []
  73. ColCount = 2
  74. RowCount = 1
  75. ShowGridLine = False
  76. DefaultColWidth = 200
  77. DefaultFixedColWidth = 25
  78. DefaultFixedRowHeight = 25
  79. Selection.AlphaBlend = False
  80. Selection.TransparentColor = False
  81. FrozenCol = 0
  82. FrozenRow = 0
  83. end
  84. object btnOk: TButton
  85. Left = 560
  86. Top = 489
  87. Width = 74
  88. Height = 25
  89. Anchors = [akTop, akRight]
  90. Caption = #30830' '#23450
  91. TabOrder = 2
  92. OnClick = btnOkClick
  93. end
  94. object btnCancel: TButton
  95. Left = 647
  96. Top = 489
  97. Width = 74
  98. Height = 25
  99. Anchors = [akTop, akRight]
  100. Caption = #21462' '#28040
  101. ModalResult = 2
  102. TabOrder = 3
  103. end
  104. object stdSelectProject: TsdGridTreeDBA
  105. Columns = <
  106. item
  107. Title.Caption = #36873#25321
  108. Title.CaptionAcrossCols = '1'
  109. Title.Font.Charset = GB2312_CHARSET
  110. Title.Font.Color = clWindowText
  111. Title.Font.Height = -12
  112. Title.Font.Name = #23435#20307
  113. Title.Font.Style = []
  114. Alignment = taLeftJustify
  115. EditType = sgeCheckBox
  116. Font.Charset = GB2312_CHARSET
  117. Font.Color = clWindowText
  118. Font.Height = -12
  119. Font.Name = #23435#20307
  120. Font.Style = []
  121. Width = 35
  122. ReadOnly = False
  123. end
  124. item
  125. Title.Caption = #21517#31216
  126. Title.CaptionAcrossCols = '1'
  127. Title.Font.Charset = GB2312_CHARSET
  128. Title.Font.Color = clWindowText
  129. Title.Font.Height = -12
  130. Title.Font.Name = #23435#20307
  131. Title.Font.Style = []
  132. Alignment = taLeftJustify
  133. Font.Charset = GB2312_CHARSET
  134. Font.Color = clWindowText
  135. Font.Height = -12
  136. Font.Name = #23435#20307
  137. Font.Style = []
  138. FieldName = 'Name'
  139. Width = 280
  140. ReadOnly = True
  141. end>
  142. Grid = zgSelectProject
  143. ExtendRowCount = 0
  144. Options = [aoAllowEdit]
  145. AutoExpand = True
  146. TreeCellCol = 2
  147. KeyFieldName = 'ID'
  148. ParentFieldName = 'ParentID'
  149. NextSiblingFieldName = 'NextSiblingID'
  150. TreeOptions = []
  151. TopLevelBold = True
  152. Left = 120
  153. Top = 160
  154. end
  155. end