' Gambas class file
PUBLIC X1 AS Integer
PUBLIC Y1 AS Integer
PUBLIC action AS Boolean
PUBLIC action3 AS Boolean
PUBLIC position AS Integer = 0
PUBLIC XR1 AS Integer 
PUBLIC XR2 AS Integer 
PUBLIC YR1 AS Integer 
PUBLIC YR2 AS Integer 
PUBLIC TRX1 AS Integer
PUBLIC TRY1 AS Integer
PUBLIC DifX1 AS Integer
PUBLIC DifY1 AS Integer

PUBLIC SUB Form_open()
  DIM mypic AS Picture
mypic = picture["lecteur.png"]
ME.Width = mypic.Width
ME.Height = mypic.Height
ME.Mask = mypic
ME.Center
ToolButton2.Move(388, 13)
ToolButton4.Move(323, 13)
ToolButton5.Move(257, 13)
ToolButton1.Move(193, 13)
'ComboBox1.Move(216, 70)
'ToolButton3.Move(192, 70)
Label2.Move(40, 225, 400, 12)
Label1.Move(200, 100, 200, 60)
ToolButton3.Move(20, 223)
DrawingArea1.Move(140, 65)
XR1 = 0
XR2 = 39
YR1 = 10
YR2 = 26
Music.Volume = 1 - 10 / 145
Dessiner()
END

PUBLIC SUB Form_MouseDown()
  X1 = Mouse.X
  Y1 = Mouse.Y
  action = TRUE
END

PUBLIC SUB Form_MouseUp()
action = FALSE
END

PUBLIC SUB Form_MouseMove()
  IF action = TRUE THEN 
  ME.Move(ME.X - (X1 - Mouse.X), ME.Y - (Y1 - Mouse.Y))
  ENDIF 
END

 PUBLIC SUB Form_DblClick()
Music.Stop
  ME.Close
END

PUBLIC SUB ToolButton2_Click()
 Music.Stop
  ME.Close
END

PUBLIC SUB ToolButton5_Click()
IF position = 0 THEN
  IF Label2.Text = "" THEN RETURN 
    Music.Load(label2.Text)
    ENDIF 
  Music.Play      
CATCH 
Message.Error("Une erreur est survenue", "Ok")
END

PUBLIC SUB ToolButton3_Click()
 Dialog.Title = "Choisir un fichier musique"
  Dialog.Filter = ["*.*", "Tous les fichiers", "*.mp3", "Fichiers mp3", "*.wav", "Fichiers wave"]
     IF Dialog.OpenFile() THEN RETURN
     Label2.Text = Dialog.Path
     Label1.Text = File.Name(Dialog.Path)
 Position = 0
END

PUBLIC SUB ToolButton4_Click()
      Music.Stop
             Position = 0
               ToolButton5.Enabled = TRUE
Label1.Text = ""
END

PUBLIC SUB ToolButton1_Click()
  ToolButton5.Enabled = TRUE
 position = Music.Pos
  Music.Pause
END

PUBLIC SUB DrawingArea1_MouseMove()
  IF action3 = TRUE THEN 
IF Mouse.X > 0 AND Mouse.X < 39 AND Mouse.Y > 10 AND Mouse.Y < 145 THEN
Draw.Begin(DrawingArea1)
Draw.Tile(picture["barrelecteur.PNG"], 0, 0, 41, 156)
Draw.Tile(picture["curseurlecteur.PNG"], 0, Mouse.Y - DifY1, 39, 16)
Draw.End
XR1 = Mouse.X - DifX1
YR1 = Mouse.Y - DifY1
 Music.Volume = 1 - Mouse.Y / 145
XR2 = XR1 + 39
YR2 = YR1 + 16
ELSE 
action3 = FALSE
ENDIF 
ENDIF
END

PUBLIC SUB DrawingArea1_MouseDown()
  IF Mouse.X > XR1 AND Mouse.X < XR2 AND Mouse.Y > YR1 AND Mouse.Y < YR2 THEN 
TRX1 = Mouse.X
TRY1 = Mouse.Y
DifX1 = TRX1 - XR1
DifY1 = TRY1 - YR1
action3 = TRUE
ENDIF 
END


PUBLIC SUB DrawingArea1_MouseUp()
 action3 = FALSE
END

PUBLIC SUB Dessiner()
    DIM mypic1 AS Picture
mypic1 = picture["barrelecteur.PNG"]
DrawingArea1.Width = mypic1.Width
DrawingArea1.Height = mypic1.Height
Draw.Begin(DrawingArea1)
Draw.Tile(picture["barrelecteur.PNG"], 0, 0, mypic1.Width, mypic1.Height)
Draw.Tile(picture["curseurlecteur.PNG"], 0, 10, 39, 16)
Draw.End
END