urealtimemileage.dfm

来自「a voice guide client ,it is the second p」· DFM 代码 · 共 1,078 行 · 第 1/5 页

object frmRealTimeMileage: TfrmRealTimeMileage
  Left = 65
  Top = 79
  Width = 833
  Height = 553
  Caption = #37324#31243#32479#35745
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object dxNavBar1: TdxNavBar
    Left = 657
    Top = 0
    Width = 168
    Height = 519
    Align = alRight
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #26032#23435#20307
    Font.Style = []
    ActiveGroupIndex = 1
    DragCopyCursor = -1119
    DragCursor = -1120
    DragDropFlags = [fAllowDragLink, fAllowDropLink, fAllowDragGroup, fAllowDropGroup]
    HotTrackedGroupCursor = crDefault
    HotTrackedLinkCursor = -1118
    LargeImages = ilLarge
    SmallImages = ilSmall
    View = 12
    object dxNavBar1Group3: TdxNavBarGroup
      Caption = #36873#23450#36710#36742
      LinksUseSmallImages = True
      SelectedLinkIndex = -1
      ShowAsIconView = False
      ShowControl = True
      TopVisibleLinkIndex = 0
      UseControl = True
      UseSmallImages = True
      Visible = True
      Links = <>
    end
    object dxNavBar1Group1: TdxNavBarGroup
      Caption = #31579#36873#26465#20214
      LargeImageIndex = 0
      LinksUseSmallImages = True
      SelectedLinkIndex = -1
      ShowAsIconView = False
      ShowControl = True
      TopVisibleLinkIndex = 0
      UseControl = True
      UseSmallImages = False
      Visible = True
      Links = <>
    end
    object dxNavBar1Group2: TdxNavBarGroup
      Caption = #24555#36895#31579#36873
      LargeImageIndex = 1
      LinksUseSmallImages = True
      SelectedLinkIndex = -1
      ShowAsIconView = False
      ShowControl = False
      TopVisibleLinkIndex = 0
      UseControl = False
      UseSmallImages = False
      Visible = True
      Links = <
        item
          Item = biToday
        end
        item
          Item = biYesterday
        end
        item
          Item = biThisMonth
        end
        item
          Item = biLastMonth
        end>
    end
    object biYesterday: TdxNavBarItem
      Tag = 1
      Caption = #26152#22825#30340#35760#24405
      Enabled = True
      LargeImageIndex = -1
      SmallImageIndex = 0
      Visible = True
      OnClick = biThisMonthClick
    end
    object biToday: TdxNavBarItem
      Caption = #20170#22825#30340#35760#24405
      Enabled = True
      LargeImageIndex = -1
      SmallImageIndex = 1
      Visible = True
      OnClick = biThisMonthClick
    end
    object biThisMonth: TdxNavBarItem
      Tag = 2
      Caption = #26412#26376#30340#35760#24405
      Enabled = True
      LargeImageIndex = -1
      SmallImageIndex = 3
      Visible = True
      OnClick = biThisMonthClick
    end
    object biLastMonth: TdxNavBarItem
      Tag = 3
      Caption = #19978#26376#30340#35760#24405
      Enabled = True
      LargeImageIndex = -1
      SmallImageIndex = 9
      Visible = True
      OnClick = biThisMonthClick
    end
    object dxNavBar1Group3Control: TdxNavBarGroupControl
      Left = 11
      Top = 32
      Width = 129
      Height = 210
      Caption = 'dxNavBar1Group3Control'
      TabOrder = 1
      GroupIndex = 0
      OriginalHeight = 209
      object vtCar: TVirtualStringTree
        Left = 0
        Top = 0
        Width = 129
        Height = 210
        Align = alClient
        Header.AutoSizeIndex = -1
        Header.Font.Charset = DEFAULT_CHARSET
        Header.Font.Color = clWindowText
        Header.Font.Height = -11
        Header.Font.Name = 'MS Sans Serif'
        Header.Font.Style = []
        Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
        TabOrder = 0
        TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
        TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
        TreeOptions.SelectionOptions = [toFullRowSelect]
        OnChecking = vtCarChecking
        OnGetText = vtCarGetText
        OnGetNodeDataSize = vtResGetNodeDataSize
        OnInitNode = vtCarInitNode
        Columns = <
          item
            Position = 0
            Width = 100
            WideText = #36710#29260
          end>
      end
    end
    object dxNavBar1Group1Control: TdxNavBarGroupControl
      Left = 11
      Top = 279
      Width = 129
      Height = 102
      Color = clWhite
      TabOrder = 0
      UseStyle = True
      DesignSize = (
        129
        102)
      GroupIndex = 1
      OriginalHeight = 101
      object cxLabel12: TcxLabel
        Left = 10
        Top = 5
        Width = 76
        Height = 16
        TabStop = False
        Caption = #36215#22987#26085#26399'(&S):'
        FocusControl = dtedtFrom
        Properties.Transparent = True
        TabOrder = 2
      end
      object dtedtFrom: TcxDateEdit
        Left = 10
        Top = 25
        Width = 106
        Height = 20
        Anchors = [akLeft, akTop, akRight]
        Properties.OnChange = dtedtFromPropertiesChange
        TabOrder = 0
      end
      object cxLabel13: TcxLabel
        Left = 10
        Top = 50
        Width = 76
        Height = 16
        TabStop = False
        Caption = #32456#27490#26085#26399'(&Z):'
        FocusControl = dtedtTo
        Properties.Transparent = True
        TabOrder = 3
      end
      object dtedtTo: TcxDateEdit
        Left = 10
        Top = 70
        Width = 106
        Height = 20
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 1
      end
    end
  end
  object vtRes: TVirtualStringTree
    Left = 0