unitposset.dfm

一个背单词程序。是我闲着没事做的。 给大家看看

object FrmPosSet: TFrmPosSet
  Left = 358
  Top = 202
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'FrmPosSet'
  ClientHeight = 33
  ClientWidth = 356
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = FrmMain.PopupMenu1
  PrintScale = poNone
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 356
    Height = 33
    Align = alClient
    BevelOuter = bvSpace
    Color = clSkyBlue
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 0
    object Label2: TLabel
      Left = 246
      Top = 10
      Width = 26
      Height = 13
      Caption = 'value'
    end
    object SpeedButton1: TSpeedButton
      Left = 305
      Top = 5
      Width = 41
      Height = 24
      Caption = #20851#38381
      Flat = True
      OnClick = SpeedButton1Click
    end
    object Label1: TLabel
      Left = 5
      Top = 10
      Width = 42
      Height = 12
      Caption = #25552#31034#31526':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object TrackBar1: TTrackBar
      Left = 66
      Top = 10
      Width = 181
      Height = 15
      Ctl3D = True
      Max = 255
      Min = 100
      Orientation = trHorizontal
      ParentCtl3D = False
      Frequency = 1
      Position = 100
      SelEnd = 0
      SelStart = 0
      TabOrder = 0
      ThumbLength = 11
      TickMarks = tmBottomRight
      TickStyle = tsNone
      OnChange = TrackBar1Change
    end
  end
end