uni_update.dfm

来自「一个非常不错的经费报销管理软件」· DFM 代码 · 共 117 行

object Frm_Update: TFrm_Update
  Left = 369
  Top = 374
  BorderStyle = bsDialog
  Caption = #32463#36153#31649#29702#21319#32423
  ClientHeight = 79
  ClientWidth = 354
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 161
    Height = 13
    AutoSize = False
    Caption = #21319#32423#23436#25104#21518#35831#37325#26032#21551#21160#31243#24207
  end
  object MCopy: TMemo
    Left = 16
    Top = 53
    Width = 249
    Height = 25
    Lines.Strings = (
      'XCOPY "\\Jck\d$\'#32463#36153#31649#29702'\*.*"  "D:\1\" /E /C')
    TabOrder = 0
    Visible = False
  end
  object BUpdate: TButton
    Left = 216
    Top = 28
    Width = 57
    Height = 25
    Caption = #30830#23450
    TabOrder = 1
    OnClick = BUpdateClick
  end
  object ProgressBar: TProgressBar
    Left = 16
    Top = 32
    Width = 193
    Height = 16
    TabOrder = 2
  end
  object Button1: TButton
    Left = 280
    Top = 28
    Width = 57
    Height = 25
    Caption = #21462#28040
    TabOrder = 3
    OnClick = Button1Click
  end
  object Timer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = TimerTimer
    Left = 224
  end
  object TimerCheck: TTimer
    Enabled = False
    Interval = 200
    OnTimer = TimerCheckTimer
    Left = 256
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    ControlUseTrueXPStyle = True
    BtnRoundArc = 5
    BtnOutLineBorderColor = 7552000
    BtnInnerBorderMoveColor = 3257087
    BtnInnerBorderFocusColor = 15183500
    BtnSurfaceNormalColor = 16251903
    BtnSurfaceDownColor = 14608359
    BtnSurfaceBottomLineColor = 14608359
    BtnSurfaceDownBottomLineColor = 15199215
    RdoChkControlChkColor = 41472
    ComboBoxChkColor = 9201994
    ComboboxSurfaceMoveColor = 16771030
    ControlDisabledBorderColor = 11913158
    Left = 320
  end
  object ImageList1: TImageList
    Left = 304
  end
end