unit_options.dfm

类似打蜜蜂的游戏

object frmSetting: TfrmSetting
  Left = 379
  Top = 235
  BorderStyle = bsDialog
  Caption = 'Options'
  ClientHeight = 234
  ClientWidth = 305
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 289
    Height = 193
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Setting'
      object lbGameSpeed: TLabel
        Left = 153
        Top = 48
        Width = 12
        Height = 13
        Caption = '70'
      end
      object lbWinTrans: TLabel
        Left = 150
        Top = 96
        Width = 18
        Height = 13
        Caption = '255'
      end
      object Label1: TLabel
        Left = 40
        Top = 24
        Width = 37
        Height = 13
        Caption = 'Speed :'
      end
      object Label2: TLabel
        Left = 8
        Top = 72
        Width = 68
        Height = 13
        Caption = 'Transparency:'
      end
      object tbGameSpeed: TTrackBar
        Left = 80
        Top = 24
        Width = 177
        Height = 25
        Max = 100
        Min = 20
        Frequency = 5
        Position = 70
        TabOrder = 0
        ThumbLength = 10
        OnChange = tbGameSpeedChange
      end
      object tbWinTrans: TTrackBar
        Left = 80
        Top = 72
        Width = 177
        Height = 25
        Max = 255
        Min = 10
        Frequency = 25
        Position = 255
        TabOrder = 1
        ThumbLength = 10
        OnChange = tbWinTransChange
      end
    end
  end
  object btnOk: TButton
    Left = 142
    Top = 206
    Width = 75
    Height = 22
    Caption = '&Ok'
    Default = True
    TabOrder = 1
    OnClick = btnOkClick
  end
  object btnCancel: TButton
    Left = 222
    Top = 206
    Width = 75
    Height = 22
    Caption = '&Cancel'
    TabOrder = 2
    OnClick = btnCancelClick
  end
end