unitgauge.dfm

来自「中式财务栏 表格式录入 运行时设置可显示列、列名、列宽」· DFM 代码 · 共 35 行

object Frmgauge: TFrmgauge
  Left = 280
  Top = 297
  BorderStyle = bsNone
  BorderWidth = 1
  Caption = #35831#31245#20505
  ClientHeight = 20
  ClientWidth = 300
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Gauge: TGauge
    Left = 0
    Top = 0
    Width = 300
    Height = 20
    Align = alClient
    ForeColor = clBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clOlive
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Progress = 0
  end
end