Fenêtre de démarrage

 Hide 0
 dim i,no_objet%
 dir_change "Chemin du répertoire"
  ' form de la fenêtre de démarrage
  form 100:hide 100:left 100,430:top 100,200:width 100,500:height 100,300
  border_hide 100:command_target_is 100
  ' changer le look de la barre de titre (cacher le logo Panoramic et les boutons Maxi/Mini/Croix rouge)
  no_objet%=no_objet%+1
  picture no_objet%:width no_objet%,500:height no_objet%,30:file_load no_objet%,"chemin\fichier.jpg"
  ' texte sur la barre de titre
  no_objet%=no_objet%+1
  alpha no_objet%:left no_objet%,15:top no_objet%,10:width no_objet%,402:height no_objet%,230
  font_size no_objet%,9
  caption no_objet%," Progression de chargement  ":font_name no_objet%,"Verdana":font_bold no_objet%
  REM color no_objet%,219,229,241  ( ajuster la couleur à la couleur de la barre )
  ' creation d'un CONTAINER
  container 200:top 200,30:left 200,5:width 200,490:height 200,265
  ' background du container par un picture
  no_objet%=no_objet%+1
  picture no_objet%:width no_objet%,510:height no_objet%,270
  file_load no_objet%,"chemin\fichier_background.jpg":parent no_objet%,200
  top no_objet%,1:left no_objet%,0
  ' logo
  no_objet%=no_objet%+1
  picture no_objet%:width no_objet%,165:height no_objet%,188
  file_load no_objet%,"chemin\votre_logo_140x160.jpg"
  parent no_objet%,200:top no_objet%,10:left no_objet%,5
  ' Mes Exemples de titres (les couleurs sont ajustées par rapport à la couleur de fond du container)
  no_objet%=no_objet%+1
  alpha no_objet%:top no_objet%,15:left no_objet%,250: parent no_objet%,200
  font_name no_objet%,"Bookman Old Style":font_size no_objet%,16
  font_italic no_objet%:font_bold no_objet%:caption no_objet%," Page de demarrage "
  rem color no_objet%,243,243,248
  no_objet%=no_objet%+1
  alpha no_objet%:top no_objet%,55:left no_objet%,285: parent no_objet%,200
  font_name no_objet%,"Bookman Old Style":font_size no_objet%,12
  font_italic no_objet%:font_bold no_objet%:caption no_objet%,". Votre sous titre "
  rem color no_objet%,243,243,248
  no_objet%=no_objet%+1
  alpha no_objet%:top no_objet%,240:left no_objet%,180:parent no_objet%,200
  font_name no_objet%,"Swis721 ExBT":font_size no_objet%,8
  caption no_objet%,"Chargement en cours....:":rem color no_objet%,243,243,248
  no_objet%=no_objet%+1
  alpha no_objet%:top no_objet%,202:left no_objet%,428: parent no_objet%,200
  font_name no_objet%,"Swis721 ExBT":font_size no_objet%,8
  caption no_objet%,"ver. 1.0.0":rem color no_objet%,243,243,248

  show 100
  ' progress bar
  no_objet%=no_objet%+1
  progress_bar no_objet%:horizontal no_objet%:top no_objet%,223:left no_objet%,180
  height no_objet%,12:width no_objet%,295:parent no_objet%,200

  for i= 1 to 100
  position no_objet%,i
  wait 60
  next i
 
  hide 100
  show 0