tk16pfunit.dfm

16人格测试 16人格测试 16人格测试 16人格测试

object frm_16PF: Tfrm_16PF
  Left = 132
  Top = 114
  Width = 1036
  Height = 780
  AutoSize = True
  Caption = '16PF'#39064#24211
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object tv1: TRzTreeView
    Left = 0
    Top = 0
    Width = 217
    Height = 753
    SelectionPen.Color = clBtnFace
    Align = alLeft
    AutoSelect = True
    Ctl3D = False
    FrameVisible = True
    HideSelection = False
    Indent = 19
    ParentCtl3D = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = False
    TabOrder = 0
    OnMouseDown = tv1MouseDown
  end
  object rzpnl1: TRzPanel
    Left = 217
    Top = 0
    Width = 811
    Height = 753
    Align = alClient
    BorderOuter = fsNone
    TabOrder = 1
    object dbg_qryQuestion: TDBGridEh
      Left = 0
      Top = 44
      Width = 811
      Height = 709
      Align = alClient
      AutoFitColWidths = True
      DataSource = ds_qryQuestion
      EvenRowColor = clCream
      Flat = True
      FooterColor = clGradientActiveCaption
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FooterRowCount = 1
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind]
      ReadOnly = True
      RowHeight = 1
      RowLines = 2
      SumList.Active = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      UseMultiTitle = True
      OnDblClick = dbg_qryQuestionDblClick
      Columns = <
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'Factor'
          Footers = <>
          Layout = tlCenter
          Title.Caption = #22240
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'IDNum'
          Footers = <>
          Layout = tlCenter
          Title.Caption = #24207#21495
          Width = 30
        end
        item
          EditButtons = <>
          FieldName = 'Question'
          Footer.Alignment = taCenter
          Footer.DisplayFormat = #23567#35745#65306'0 '#20010#38382#39064
          Footer.ValueType = fvtCount
          Footers = <>
          Layout = tlCenter
          Title.Caption = #38382#39064
          Width = 300
        end
        item
          EditButtons = <>
          FieldName = 'CA'
          Footers = <>
          Layout = tlCenter
          Title.Caption = #36873#25321'A'
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'CB'
          Footers = <>
          Layout = tlCenter
          Title.Caption = #36873#25321'B'
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'CC'
          Footers = <>
          Layout = tlCenter
          Title.Caption = #36873#25321'C'
          Width = 100
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'RA'
          Footer.Alignment = taCenter
          Footer.FieldName = 'RA'
          Footer.ValueType = fvtSum
          Footers = <>
          Layout = tlCenter
          Title.Caption = #31572'A'
          Width = 20
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'RB'
          Footer.Alignment = taCenter
          Footer.FieldName = 'RB'
          Footer.ValueType = fvtSum
          Footers = <>
          Layout = tlCenter
          Title.Caption = #31572'B'
          Width = 20
        end
        item
          Alignment = taCenter
          EditButtons = <>
          FieldName = 'RC'
          Footer.Alignment = taCenter
          Footer.FieldName = 'RC'
          Footer.ValueType = fvtSum
          Footers = <>
          Layout = tlCenter
          Title.Caption = #31572'C'
          Width = 20
        end>
    end
    object rztlbr1: TRzToolbar
      Left = 0
      Top = 0
      Width = 811
      Height = 44
      Images = il1
      RowHeight = 40
      ButtonLayout = blGlyphTop
      ButtonWidth = 60
      ButtonHeight = 40
      ShowButtonCaptions = True
      TextOptions = ttoShowTextLabels
      BorderInner = fsNone
      BorderOuter = fsGroove
      BorderSides = [sdTop]