u_form1.~dfm

很好地delphi书籍源码

object Form1: TForm1
  Left = 247
  Top = 168
  Width = 557
  Height = 347
  Caption = #27979#35797#20202#34920#32452#20214#31243#24207
  Color = clInfoBk
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object CoolGauge1: TCoolGauge
    Left = 16
    Top = 24
    Width = 145
    Height = 145
    PointerDir = pdLeft
    Caption = #20202#34920#19968
    Brush.Color = clWindow
    GaugeStyle = csRoundRect
  end
  object CoolGauge3: TCoolGauge
    Left = 360
    Top = 24
    Width = 145
    Height = 145
    PointerDir = pdRight
    Caption = #20202#34920#19977
    Brush.Color = clAqua
    GaugeStyle = csRoundRect
  end
  object CoolGauge2: TCoolGauge
    Left = 188
    Top = 24
    Width = 145
    Height = 145
    Pos = csDown
    PointerDir = pdUp
    Caption = #20202#34920#20108
    Pen.Color = clRed
  end
  object SpinEdit1: TSpinEdit
    Left = 208
    Top = 176
    Width = 105
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 3
    Value = 0
    OnChange = SpinEdit1Change
  end
  object CoolGauge4: TCoolGauge
    Left = 40
    Top = 208
    PointerDir = pdLeft
    Pen.Style = psInsideFrame
    Brush.Color = clAqua
    Brush.Style = bsVertical
    GaugeStyle = csRoundRect
  end
  object CoolGauge5: TCoolGauge
    Left = 160
    Top = 208
    PointerDir = pdLeft
    Pen.Color = clRed
    Pen.Style = psInsideFrame
    Pen.Width = 2
    Brush.Style = bsClear
    GaugeStyle = csRoundRect
  end
  object CoolGauge6: TCoolGauge
    Left = 272
    Top = 208
    PointerDir = pdLeft
    Pen.Color = clHotLight
    Pen.Width = 2
    Brush.Color = clHighlightText
    GaugeStyle = csRoundRect
  end
  object CoolGauge7: TCoolGauge
    Left = 392
    Top = 208
    PointerDir = pdLeft
    Brush.Color = clGradientActiveCaption
    Brush.Style = bsDiagCross
    GaugeStyle = csRoundRect
  end
end