D7snShanfengT/应收应付/U_YSCRKP.dfm

object frmYSCRKP: TfrmYSCRKP
  Left = 190
  Top = 126
  Width = 1171
  Height = 590
  Caption = #24212#25910#27454#24320#31080#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 1155
    Height = 31
    ButtonHeight = 30
    ButtonWidth = 83
    Caption = 'ToolBar1'
    Color = clSkyBlue
    DisabledImages = DataLink_YSYF.ThreeImgList
    Flat = True
    Images = DataLink_YSYF.ThreeImgList
    List = True
    ParentColor = False
    ShowCaptions = True
    TabOrder = 0
    object TBRafresh: TToolButton
      Left = 0
      Top = 0
      AutoSize = True
      Caption = #21047#26032
      ImageIndex = 9
      OnClick = TBRafreshClick
    end
    object ToolButton2: TToolButton
      Left = 63
      Top = 0
      AutoSize = True
      Caption = #36807#28388
      ImageIndex = 59
      OnClick = ToolButton2Click
    end
    object ToolButton4: TToolButton
      Left = 126
      Top = 0
      AutoSize = True
      Caption = #24320#31080#23436#25104
      ImageIndex = 41
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 213
      Top = 0
      AutoSize = True
      Caption = #25764#38144#24320#31080
      ImageIndex = 54
      OnClick = ToolButton5Click
    end
    object ToolButton1: TToolButton
      Left = 300
      Top = 0
      AutoSize = True
      Caption = #23548#20986
      ImageIndex = 53
      OnClick = ToolButton1Click
    end
    object TBClose: TToolButton
      Left = 363
      Top = 0
      AutoSize = True
      Caption = #20851#38381
      ImageIndex = 55
      OnClick = TBCloseClick
    end
    object TZDSC: TToolButton
      Left = 426
      Top = 0
      AutoSize = True
      Caption = #33258#21160#29983#25104
      ImageIndex = 54
      Visible = False
      OnClick = TZDSCClick
    end
    object ToolButton3: TToolButton
      Left = 513
      Top = 0
      AutoSize = True
      Caption = #22686#34892
      ImageIndex = 103
      Visible = False
      OnClick = ToolButton3Click
    end
    object TBDel: TToolButton
      Left = 576
      Top = 0
      AutoSize = True
      Caption = #21024#38500
      ImageIndex = 17
      Visible = False
      OnClick = TBDelClick
    end
    object Tchk: TToolButton
      Left = 639
      Top = 0
      AutoSize = True
      Caption = #25552#20132
      ImageIndex = 41
      Visible = False
      OnClick = TchkClick
    end
    object Tnochk: TToolButton
      Left = 702
      Top = 0
      AutoSize = True
      Caption = #25764#38144#25552#20132
      Enabled = False
      ImageIndex = 56
      Visible = False
      OnClick = TnochkClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 31
    Width = 1155
    Height = 72
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = clSkyBlue
    TabOrder = 1
    object Label1: TLabel
      Left = 199
      Top = 32
      Width = 60
      Height = 12
      Caption = #39033#30446#21450#25688#35201
    end
    object Label3: TLabel
      Left = 211
      Top = 8
      Width = 48
      Height = 12
      Caption = #23545#26041#21333#20301
    end
    object Label2: TLabel
      Left = 35
      Top = 8
      Width = 48
      Height = 12
      Caption = #26597#35810#26085#26399
    end
    object Label6: TLabel
      Left = 69
      Top = 32
      Width = 12
      Height = 12
      Caption = #33267
    end
    object Label4: TLabel
      Left = 364
      Top = 8
      Width = 24
      Height = 12
      Caption = #21697#21517
    end
    object Label5: TLabel
      Left = 364
      Top = 32
      Width = 24
      Height = 12
      Caption = #35268#26684
    end
    object Label7: TLabel
      Left = 728
      Top = 84
      Width = 24
      Height = 12
      Caption = #21333#20215
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label8: TLabel
      Left = 492
      Top = 8
      Width = 48
      Height = 12
      Caption = #25351#31034#21333#21495
    end
    object Label9: TLabel
      Left = 492
      Top = 32
      Width = 48
      Height = 12
      Caption = #39068'    '#33394
    end
    object Label10: TLabel
      Left = 216
      Top = 54
      Width = 98
      Height = 13
      Caption = #23454#38469#32467#31639#24635#25968#37327
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 404
      Top = 54
      Width = 28
      Height = 13
      Caption = #37329#39069
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label12: TLabel
      Left = 320
      Top = 54
      Width = 8
      Height = 13
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label13: TLabel
      Left = 438
      Top = 54
      Width = 8
      Height = 13
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label14: TLabel
      Left = 645
      Top = 8
      Width = 48
      Height = 12
      Caption = #21512' '#21516' '#21495
    end
    object Label17: TLabel
      Left = 645
      Top = 32
      Width = 48
      Height = 12
      Caption = #24320#31080#31867#22411
    end
    object Label15: TLabel
      Left = 801
      Top = 8
      Width = 24
      Height = 12
      Caption = #22791#27880
    end
    object YFName: TEdit
      Tag = 2
      Left = 259
      Top = 28
      Width = 89
      Height = 20
      TabOrder = 0
      OnChange = FactoryNameChange
    end
    object FactoryName: TEdit
      Tag = 2
      Left = 259
      Top = 4
      Width = 89
      Height = 20
      TabOrder = 1
      OnChange = FactoryNameChange
    end
    object begdate: TDateTimePicker
      Left = 85
      Top = 4
      Width = 97
      Height = 20
      Date = 41256.918237847230000000
      Time = 41256.918237847230000000
      TabOrder = 2
    end
    object Enddate: TDateTimePicker
      Left = 85
      Top = 28
      Width = 97
      Height = 20
      Date = 41256.918237847230000000
      Time = 41256.918237847230000000
      TabOrder = 3
    end
    object MP_CodeName: TEdit
      Tag = 2
      Left = 390
      Top = 4
      Width = 89
      Height = 20
      TabOrder = 4
      OnChange = FactoryNameChange
    end
    object MP_Spec: TEdit
      Tag = 2
      Left = 390
      Top = 28
      Width = 89
      Height = 20
      TabOrder = 5
      OnChange = FactoryNameChange
    end
    object Edit1: TEdit
      Left = 756
      Top = 84
      Width = 65
      Height = 20
      TabOrder = 6
      Visible = False
    end
    object Button1: TButton
      Left = 820
      Top = 84
      Width = 49
      Height = 21
      Caption = #30830#23450
      TabOrder = 7
      Visible = False
      OnClick = Button1Click
    end
    object CheckBox1: TCheckBox
      Left = 37
      Top = 51
      Width = 97
      Height = 17
      Caption = #20840#36873
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = CheckBox1Click
    end
    object MOrderNo: TEdit
      Tag = 2
      Left = 542
      Top = 4
      Width = 89
      Height = 20
      TabOrder = 9
      OnChange = FactoryNameChange
    end
    object PRTColor: TEdit
      Tag = 2
      Left = 542
      Top = 28
      Width = 89
      Height = 20
      TabOrder = 10
      OnChange = FactoryNameChange
    end
    object ConNoHZ: TEdit
      Tag = 2
      Left = 695
      Top = 4
      Width = 89
      Height = 20
      TabOrder = 11
      OnChange = FactoryNameChange
    end
    object KPType: TComboBox
      Tag = 2
      Left = 695
      Top = 28
      Width = 92
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 12
      OnChange = FactoryNameChange
      Items.Strings = (
        #19981#24320
        #38656#24320
        '')
    end
    object Note: TEdit
      Tag = 2
      Left = 827
      Top = 4
      Width = 89
      Height = 20
      TabOrder = 13
      OnChange = FactoryNameChange
    end
  end
  object cxGrid2: TcxGrid
    Left = 0
    Top = 125
    Width = 1155
    Height = 427
    Align = alClient
    TabOrder = 2
    object Tv2: TcxGridDBTableView
      PopupMenu = PopupMenu1
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.Delete.Enabled = False
      NavigatorButtons.Delete.Visible = False
      DataController.DataSource = DS_HZ
      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skSum
          Column = cxGridDBColumn5
        end
        item
          Kind = skSum
        end
        item
          Kind = skSum
          Column = VYB
        end
        item
          Kind = skSum
          Column = v2KP
        end
        item
          Kind = skSum
          Column = v2PS
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsCustomize.ColumnFiltering = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Styles.OnGetContentStyle = Tv2StylesGetContentStyle
      Styles.Header = DataLink_YSYF.FonePurple
      object v2Column5: TcxGridDBColumn
        Caption = #36873#25321
        DataBinding.FieldName = 'ssel'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.ImmediatePost = True
        Properties.NullStyle = nssUnchecked
        Properties.OnChange = v2Column5PropertiesChange
        HeaderAlignmentHorz = taCenter
        Width = 50
      end
      object cxGridDBColumn1: TcxGridDBColumn
        Caption = #26085#26399
        DataBinding.FieldName = 'CRTime'
        PropertiesClassName = 'TcxDateEditProperties'
        Properties.SaveTime = False
        Properties.ShowTime = False
        Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Styles.Header = DataLink_YSYF.Default
        Width = 82
      end
      object v2Column6: TcxGridDBColumn
        Caption = #23545#26041#21333#20301
        DataBinding.FieldName = 'FactoryName'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.ReadOnly = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Options.Focusing = False
        Width = 86
      end
      object cxGridDBColumn3: TcxGridDBColumn
        Caption = #39033#30446#21450#25688#35201
        DataBinding.FieldName = 'YFName'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Options.Focusing = False
        Styles.Header = DataLink_YSYF.Default
        Width = 110
      end
      object v2KPType: TcxGridDBColumn
        Caption = #24320#31080#31867#22411
        DataBinding.FieldName = 'KPType'
        PropertiesClassName = 'TcxComboBoxProperties'
        Properties.Items.Strings = (
          #19981#24320
          #38656#24320)
        Properties.OnEditValueChanged = v2KPTypePropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 70
      end
      object v2PS: TcxGridDBColumn
        Caption = #21305#25968
        DataBinding.FieldName = 'PS'
        PropertiesClassName = 'TcxTextEditProperties'
        Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Width = 56
      end
      object v2MaoQty: TcxGridDBColumn
        Caption = #27611#37325
        DataBinding.FieldName = 'MaoQty'
        PropertiesClassName = 'TcxTextEditProperties'
        Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Width = 70
      end
      object v2JZQty: TcxGridDBColumn
        Caption = #20928#37325
        DataBinding.FieldName = 'JZQty'
        PropertiesClassName = 'TcxTextEditProperties'
        Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Width = 70
      end
      object v2MQty: TcxGridDBColumn
        Caption = #31859#25968
        DataBinding.FieldName = 'MQty'
        PropertiesClassName = 'TcxTextEditProperties'
        Properties.OnEditValueChanged = v2PSPropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Width = 70
      end
      object cxGridDBColumn5: TcxGridDBColumn
        Caption = #23454#38469#32467#31639#25968#37327
        DataBinding.FieldName = 'Qty'
        PropertiesClassName = 'TcxTextEditProperties'
        Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Styles.Header = DataLink_YSYF.Default
        Width = 85
      end
      object cxGridDBColumn6: TcxGridDBColumn
        Caption = #25968#37327#21333#20301
        DataBinding.FieldName = 'QtyUnit'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Styles.Header = DataLink_YSYF.Default
        Width = 70
      end
      object v2Column1: TcxGridDBColumn
        Caption = #21333#20215
        DataBinding.FieldName = 'Price'
        PropertiesClassName = 'TcxTextEditProperties'
        Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Options.Focusing = False
        Width = 72
      end
      object VYB: TcxGridDBColumn
        Caption = #37329#39069
        DataBinding.FieldName = 'Money'
        PropertiesClassName = 'TcxTextEditProperties'
        Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Options.Focusing = False
        Width = 70
      end
      object VBZ: TcxGridDBColumn
        Caption = #24065#31181
        DataBinding.FieldName = 'BZType'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = VBZPropertiesButtonClick
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Width = 63
      end
      object v2KP: TcxGridDBColumn
        Caption = #24320#31080#37329#39069
        DataBinding.FieldName = 'KPMoney'
        PropertiesClassName = 'TcxTextEditProperties'
        Properties.OnEditValueChanged = v2KPMoneyPropertiesEditValueChanged
        Visible = False
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Width = 69
      end
      object v2ConNoHZ: TcxGridDBColumn
        Caption = #21512#21516#21495
        DataBinding.FieldName = 'ConNoHZ'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.ReadOnly = True
        Properties.OnButtonClick = v2ConNoHZPropertiesButtonClick
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Options.Focusing = False
        Width = 70
      end
      object VMOrderNo: TcxGridDBColumn
        Caption = #25351#31034#21333#21495
        DataBinding.FieldName = 'MOrderNo'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.ReadOnly = False
        Properties.OnButtonClick = v2Column7PropertiesButtonClick
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Width = 76
      end
      object v2MP_CodeName: TcxGridDBColumn
        Caption = #21697#21517
        DataBinding.FieldName = 'MP_CodeName'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = v2Column3PropertiesButtonClick
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Width = 66
      end
      object v2Column4: TcxGridDBColumn
        Caption = #35268#26684
        DataBinding.FieldName = 'MP_Spec'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = v2Column4PropertiesButtonClick
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Width = 61
      end
      object v2ComTaitou: TcxGridDBColumn
        Caption = #20844#21496#25260#22836
        DataBinding.FieldName = 'ComTaitou'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.OnButtonClick = v2ComTaitouPropertiesButtonClick
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Width = 70
      end
      object v2PRTColor: TcxGridDBColumn
        Caption = #39068#33394
        DataBinding.FieldName = 'PRTColor'
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Width = 70
      end
      object v2SOrdDefStr4: TcxGridDBColumn
        Caption = #39068#33394#33521#25991
        DataBinding.FieldName = 'SOrdDefStr4'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Options.Focusing = False
        Width = 70
      end
      object v2FeeType: TcxGridDBColumn
        Caption = #36153#29992#31867#22411
        DataBinding.FieldName = 'FeeType'
        PropertiesClassName = 'TcxComboBoxProperties'
        Properties.Items.Strings = (
          ''
          #20854#20182#36153#29992)
        Properties.OnEditValueChanged = cxGridDBColumn5PropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Options.Focusing = False
        Width = 58
      end
      object v2PBNote: TcxGridDBColumn
        Caption = #25104#21697#20986#24211#22791#27880
        DataBinding.FieldName = 'PBNote'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Options.Focusing = False
        Width = 84
      end
      object v2chkstatus: TcxGridDBColumn
        Caption = #29366#24577
        DataBinding.FieldName = 'chkstatus'
        Visible = False
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Options.Focusing = False
        Width = 70
      end
      object v2Column2: TcxGridDBColumn
        Caption = #22791#27880
        DataBinding.FieldName = 'Note'
        PropertiesClassName = 'TcxTextEditProperties'
        Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Options.Focusing = False
        Width = 98
      end
    end
    object cxGridLevel1: TcxGridLevel
      GridView = Tv2
    end
  end
  object cxTabControl1: TcxTabControl
    Left = 0
    Top = 103
    Width = 1155
    Height = 22
    Align = alTop
    Style = 9
    TabIndex = 0
    TabOrder = 3
    Tabs.Strings = (
      #26410#24320#31080
      #24050#24320#31080
      #20840#37096)
    OnChange = cxTabControl1Change
    ClientRectBottom = 22
    ClientRectRight = 1155
    ClientRectTop = 19
  end
  object ADOQueryTemp: TADOQuery
    Connection = DataLink_YSYF.ADOLink
    LockType = ltReadOnly
    Parameters = <>
    Left = 789
    Top = 9
  end
  object ADOQueryCmd: TADOQuery
    Connection = DataLink_YSYF.ADOLink
    Parameters = <>
    Left = 829
    Top = 1
  end
  object ADOQueryMain: TADOQuery
    Connection = DataLink_YSYF.ADOLink
    LockType = ltReadOnly
    Parameters = <>
    Left = 345
    Top = 209
  end
  object RM1: TRMGridReport
    ThreadPrepareReport = True
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
    DefaultCollate = False
    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
    PreviewOptions.RulerUnit = rmutScreenPixels
    PreviewOptions.RulerVisible = False
    PreviewOptions.DrawBorder = False
    PreviewOptions.BorderPen.Color = clGray
    PreviewOptions.BorderPen.Style = psDash
    Dataset = RMDB_Main
    CompressLevel = rmzcFastest
    CompressThread = False
    LaterBuildEvents = True
    OnlyOwnerDataSet = False
    Left = 448
    Top = 208
    ReportData = {}
  end
  object RMDB_Main: TRMDBDataSet
    Visible = True
    Left = 376
    Top = 208
  end
  object cxGridPopupMenu2: TcxGridPopupMenu
    Grid = cxGrid2
    PopupMenus = <>
    Left = 412
    Top = 208
  end
  object DS_HZ: TDataSource
    DataSet = CDS_HZ
    Left = 511
    Top = 209
  end
  object CDS_HZ: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 480
    Top = 208
  end
  object PopupMenu1: TPopupMenu
    Left = 316
    Top = 208
    object N1: TMenuItem
      Caption = #20840#36873
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20840#24323
      OnClick = N2Click
    end
  end
  object cxStyleRepository1: TcxStyleRepository
    object cxStyle1: TcxStyle
      AssignedValues = [svFont, svTextColor]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clRed
    end
  end
end