unitprogressbar.dfm

来自「串口短信猫收发软件。支持西门子TC35i设备」· DFM 代码 · 共 90 行

object ProgressBarForm: TProgressBarForm
  Left = 248
  Top = 183
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'TransCtlSrv'
  ClientHeight = 86
  ClientWidth = 396
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDesktopCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 396
    Height = 86
    Align = alClient
    BorderWidth = 4
    Caption = 'Panel1'
    TabOrder = 0
    object Panel: TPanel
      Left = 5
      Top = 5
      Width = 386
      Height = 76
      Align = alClient
      Alignment = taRightJustify
      AutoSize = True
      BevelInner = bvRaised
      BevelOuter = bvNone
      BiDiMode = bdRightToLeftNoAlign
      BorderWidth = 6
      BorderStyle = bsSingle
      Color = clSilver
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentBiDiMode = False
      ParentFont = False
      TabOrder = 0
      object ProgressLabel: TLabel
        Left = 36
        Top = 19
        Width = 329
        Height = 21
        AutoSize = False
        Caption = #27491#22312#21021#22987#21270#36890#35759#35774#22791#65292#35831#31245#31561'...'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object ProgressBar: TProgressBar
        Left = 7
        Top = 49
        Width = 368
        Height = 16
        Align = alBottom
        Min = 0
        Max = 100
        Smooth = True
        TabOrder = 0
      end
      object Animate1: TAnimate
        Left = 14
        Top = 20
        Width = 16
        Height = 16
        Active = True
        CommonAVI = aviFindComputer
        StopFrame = 8
      end
    end
  end
end