KGL de Klaus

rem ' Programme de gestion de films vidéo - jjn4 - 04/06/2024 =================
  dim res%, MP%, f$ , NP$ , RC$
  NP$="  Gestion de films video - par jjn4 - 05/06/2024 - Cliquez sur un "
  NP$=NP$+"titre dans la liste bleue pour regarder une video"
  RC$=dir_current$+"\"
  label clic
 
rem Préparatifs initiaux ======================================================
  width 0,1365 : height 0,720 : caption 0,NP$
  color 0,0,0,255
  dll_on "KGF.dll"

rem Affichage de la façade ====================================================
  picture 100 : rem Emplacement du film
      width 100,860 : height 100,681
      if dir_exists("Data")=1
        dir_change "Data"
      end_if
      if file_exists("Famille-feuilleton.jpg")=1
        file_load 100,"Famille-feuilleton.jpg"
      end_if
  picture 110 : rem Commentaire n°1
      left 110,865 : top 110,5 : width 110,30 : height 110,300
      if file_exists("Deco-1.jpg")=1
        file_load 110,"Deco-1.jpg"
      end_if
  list 120 : rem Affichage des films mp4 en stock dans le répertoire
      left 120,900 : top 120,5 : width 120,440 : height 120,300
      font_size 120,24 : font_name 120,"Arial" : font_color 120,0,0,255
      color 120,97,255,253 : on_click 120,clic
  picture 130 : rem Commentaire n°2
      left 130,865 : top 130,310 : width 130,30 : height 130,365
      if file_exists("Deco-2.jpg")=1
        file_load 130,"Deco-2.jpg"
      end_if
  list 140 : rem Affichage des différentes séquences du film sélectionné
      left 140,900 : top 140,310 : width 140,440 : height 140,365
      color 140,155,255,55 : on_click 140,clic
      dir_change RC$ : rech()
     
end : ' Début des routiines ===================================================

sub choix() : rem Choix du film à regarder ====================================
  dim_local v1ch$
  if item_index(120)>0
      v1ch$=item_index$(120)
      hide 100
      MP% = dll_call5("CreateMultiPlayer",handle(0),0,0,width(0)-20,height(0)-80)
      f$=RC$+v1ch$
      res% = dll_call2("LoadFileIntoMultiPlayer",MP%,adr(f$))
      res% = dll_call1("PlayMultiPlayer",MP%)
  end_if
end_sub

clic: : rem Gestion des on-click ==============================================
  select number_click
      case 120 : choix()
      case 140 : docu()
  end_select
return

sub docu() : rem Liste des séquences incluses dans le film ====================
end_sub
 
sub rech() : rem Recherche des films disponibles ==============================
  dim_local v1re$
  v1re$=file_find_first$
  while v1re$<>"_"
      if right$(v1re$,4)=".mp4"
        item_add 120,v1re$
      end_if
      v1re$=file_find_next$
  end_while
  file_find_close
end_sub

res% = dll_call1("StopMultiPlayer",MP%)

res% = dll_call1("DeleteMultiPlayer",MP%)

res% = dll_call1("ResizeMultiPlayer",MP%,400,250)