rmSelectProjectFrm.dfm 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153
  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. OnGetCellText = zgSelectProjectGetCellText
  63. OnSetCellText = zgSelectProjectSetCellText
  64. OnCellTextChanging = zgSelectProjectCellTextChanging
  65. OnCellTextChanged = zgSelectProjectCellTextChanged
  66. OnDrawCellText = zgSelectProjectDrawCellText
  67. end
  68. object btnOk: TButton
  69. Left = 559
  70. Top = 489
  71. Width = 74
  72. Height = 25
  73. Anchors = [akTop, akRight]
  74. Caption = #30830' '#23450
  75. TabOrder = 1
  76. OnClick = btnOkClick
  77. end
  78. object btnCancel: TButton
  79. Left = 646
  80. Top = 489
  81. Width = 74
  82. Height = 25
  83. Anchors = [akTop, akRight]
  84. Caption = #21462' '#28040
  85. ModalResult = 2
  86. TabOrder = 2
  87. end
  88. object zgResult: TZJGrid
  89. Left = 384
  90. Top = 24
  91. Width = 337
  92. Height = 457
  93. OptionsEx = []
  94. ColCount = 2
  95. RowCount = 1
  96. ShowGridLine = False
  97. DefaultColWidth = 200
  98. DefaultFixedColWidth = 25
  99. DefaultFixedRowHeight = 30
  100. Selection.AlphaBlend = False
  101. Selection.TransparentColor = False
  102. OnGetCellText = zgResultGetCellText
  103. OnSetCellText = zgResultSetCellText
  104. end
  105. object stdSelectProject: TsdGridTreeDBA
  106. Columns = <
  107. item
  108. Title.Caption = #36873#25321
  109. Title.CaptionAcrossCols = '1'
  110. Title.Font.Charset = GB2312_CHARSET
  111. Title.Font.Color = clWindowText
  112. Title.Font.Height = -12
  113. Title.Font.Name = #23435#20307
  114. Title.Font.Style = []
  115. Alignment = taLeftJustify
  116. EditType = sgeCheckBox
  117. Font.Charset = GB2312_CHARSET
  118. Font.Color = clWindowText
  119. Font.Height = -12
  120. Font.Name = #23435#20307
  121. Font.Style = []
  122. Width = 35
  123. ReadOnly = False
  124. end
  125. item
  126. Title.Caption = #21517#31216
  127. Title.CaptionAcrossCols = '1'
  128. Title.Font.Charset = GB2312_CHARSET
  129. Title.Font.Color = clWindowText
  130. Title.Font.Height = -12
  131. Title.Font.Name = #23435#20307
  132. Title.Font.Style = []
  133. Alignment = taLeftJustify
  134. Font.Charset = GB2312_CHARSET
  135. Font.Color = clWindowText
  136. Font.Height = -12
  137. Font.Name = #23435#20307
  138. Font.Style = []
  139. FieldName = 'Name'
  140. Width = 280
  141. ReadOnly = True
  142. end>
  143. Grid = zgSelectProject
  144. ExtendRowCount = 0
  145. Options = [aoAllowEdit]
  146. AutoExpand = False
  147. TreeCellCol = 2
  148. TreeOptions = []
  149. TopLevelBold = True
  150. Left = 120
  151. Top = 160
  152. end
  153. end