rmSelectProjectFrm.dfm 3.9 KB

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