object ProjectSelectForm: TProjectSelectForm Left = 363 Top = 160 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu] BorderStyle = bsSingle ClientHeight = 520 ClientWidth = 727 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False DesignSize = ( 727 520) PixelsPerInch = 96 TextHeight = 12 object lblProjectList: TLabel Left = 11 Top = 8 Width = 72 Height = 12 Caption = #21487#36873#39033#30446#21015#34920 Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object lblResult: TLabel Left = 384 Top = 8 Width = 48 Height = 12 Caption = #25152#36873#32467#26524 Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object zgSelectProject: TZJGrid Left = 8 Top = 24 Width = 369 Height = 457 Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection, goShowTreeLine] OptionsEx = [] ColCount = 3 ShowGridLine = False DefaultColWidth = 35 DefaultFixedColWidth = 25 DefaultFixedRowHeight = 25 Selection.AlphaBlend = False Selection.TransparentColor = False FrozenCol = 0 FrozenRow = 0 OnGetCellText = zgSelectProjectGetCellText OnSetCellText = zgSelectProjectSetCellText OnCellTextChanging = zgSelectProjectCellTextChanging OnCellTextChanged = zgSelectProjectCellTextChanged OnDrawCellText = zgSelectProjectDrawCellText end object btnOk: TButton Left = 559 Top = 489 Width = 74 Height = 25 Anchors = [akTop, akRight] Caption = #30830' '#23450 TabOrder = 1 OnClick = btnOkClick end object btnCancel: TButton Left = 646 Top = 489 Width = 74 Height = 25 Anchors = [akTop, akRight] Caption = #21462' '#28040 ModalResult = 2 TabOrder = 2 end object zgResult: TZJGrid Left = 384 Top = 24 Width = 337 Height = 457 OptionsEx = [] ColCount = 2 RowCount = 1 ShowGridLine = False DefaultColWidth = 200 DefaultFixedColWidth = 25 DefaultFixedRowHeight = 30 Selection.AlphaBlend = False Selection.TransparentColor = False FrozenCol = 0 FrozenRow = 0 OnGetCellText = zgResultGetCellText OnSetCellText = zgResultSetCellText end object stdSelectProject: TsdGridTreeDBA Columns = < item Title.Caption = #36873#25321 Title.CaptionAcrossCols = '1' Title.Font.Charset = GB2312_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -12 Title.Font.Name = #23435#20307 Title.Font.Style = [] Alignment = taLeftJustify EditType = sgeCheckBox Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Width = 35 ReadOnly = False end item Title.Caption = #21517#31216 Title.CaptionAcrossCols = '1' Title.Font.Charset = GB2312_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -12 Title.Font.Name = #23435#20307 Title.Font.Style = [] Alignment = taLeftJustify Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] FieldName = 'Name' Width = 280 ReadOnly = True end> Grid = zgSelectProject ExtendRowCount = 0 Options = [aoAllowEdit] AutoExpand = False TreeCellCol = 2 TreeOptions = [] TopLevelBold = True Left = 120 Top = 160 end end