fsoundplayer.form

来自「Gambas is a graphical development enviro」· FORM 代码 · 共 54 行

# Gambas Form File 1.0

{ FSoundPlayer Form
  Move(332,283,383,90)
  Text = ("Gambas Music Player")
  Icon = Picture["sound.png"]
  Border = Window.Fixed
  { btnOpen ToolButton
    Move(0,64,24,24)
    Text = ("")
    Picture = Picture["open.png"]
  }
  { btnPlay ToolButton
    Move(24,64,24,24)
    Text = ("")
    Picture = Picture["play.png"]
  }
  { btnPause ToolButton
    Move(48,64,24,24)
    Text = ("")
    Picture = Picture["pause.png"]
  }
  { btnStop ToolButton
    Move(72,64,24,24)
    Text = ("")
    Picture = Picture["stop.png"]
  }
  { sldPos Slider
    Move(0,40,360,24)
    MaxValue = 3600
    Step = 2
    Tracking = False
  }
  { lblPos Label
    Move(240,64,120,24)
    Font = Font["14,Bold"]
    Text = ("")
    Alignment = Align.Right
  }
  { timMusic #Timer
    #X = 120
    #Y = 64
  }
  { sldVolume Slider
    Move(360,0,24,88)
    MaxValue = 128
    PageStep = 8
  }
  { lblTitle TextLabel
    Move(0,0,360,40)
    Text = ("")
  }
}