PureBasic

Code : Tout sélectionner

Global info1$ = "truc bidule"
Global truc

Enumeration ; gadget
  #Gad_Msg : #Gad_BtnOk
EndEnumeration

Enumeration ; menu
  #menu_ChangerInfo
  #menu_Info
  #menu_LireInfo
EndEnumeration

;{ procedures
Procedure Message(title$,text$)
  w=480 : h = 320
  OpenWindow(1,0,0,w,h,title$,#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  EditorGadget(#Gad_Msg,10,30,w-20,h-80,#PB_Editor_ReadOnly|#PB_Editor_WordWrap)
  SetGadgetText(#Gad_msg,text$)
  ButtonGadget(#Gad_BtnOk, w-100,h-40, 80,20,"OK")
EndProcedure


Procedure ReadCallback(Status, Filename$, File, Size)
  
  Select Status
    Case #PB_Status_Loaded
      ; File correctly loaded
      Debug "ok file loaded : " + Filename$ + " (" + FileProgress(0) + "%)"
      Debug "File: " + Filename$ + " - Size read: " + Size + " bytes"
      line$ = "Line : "
      While Eof(0) = 0 And NbLine < 10 
        line$ = line$ + ReadString(0) 
        Debug line$         
        NbLine+1
      Wend
      
      
      
      info1$ = line$
      CloseFile(0)
      message("Information",info1$) 
        
      Case #PB_Status_Progress
        ; File loading in progress, use FileProgress() get the current progress
        Debug "Loading file: " + Filename$ + " (" + FileProgress(0) + "%)"

      Case #PB_Status_Error
        ; File loading has failed
        Debug "Error loading file"
        
    EndSelect
    
EndProcedure
Procedure OpenFileRequesterCallback()
  If NextSelectedFile()
    Filename$ = SelectedFileName()
    ReadFile(0, SelectedFileID(), @ReadCallback(),#PB_LocalFile)
  EndIf
EndProcedure  
Procedure LoadDoc()
  Debug "ok, on lit le fichier"
   file$ = "info.txt"
   If ReadFile(0, file$, @ReadCallback())

   Else
     Debug "unable to read the file "+file$
   EndIf

  ; Filename$= OpenFileRequester("*.txt", @OpenFileRequesterCallback())
EndProcedure

; pour tester
Procedure ChangerInfos()
  
  info1$ = "machin chose"
  
EndProcedure
Procedure OpenInfos()
  
  truc + 1
  Debug info1$ +" : "+ truc
  
EndProcedure

; handle
Procedure Close_Window()
  WindowNumber = EventWindow()
  If WindowNumber > 0
    CloseWindow(WindowNumber)
  EndIf
EndProcedure
Procedure Menu_Handle()
  
  Select EventMenu()
     
    Case #menu_LireInfo
      LoadDoc()
      
    Case #menu_ChangerInfo
      ChangerInfos()
      
    Case #menu_Info
      OpenInfos()
      
  EndSelect
  
EndProcedure
Procedure Gadget_Handle()
  Select EventGadget()
    Case #Gad_BtnOk
      CloseWindow(1)
  EndSelect  
EndProcedure

;}


;{ window
ExamineDesktops()

gw = DesktopWidth(0)-50
gh = DesktopHeight(0)-50

flag = #PB_Window_Background 
info$ = "test de lecture de fichier"
OpenWindow(0, 0, 0, gw, gh, info$, flag)

CreateMenu(0, WindowID(0))
MenuTitle("Fichier")

MenuTitle("Edition")
MenuItem(#menu_ChangerInfo, "Changer infos")
MenuItem(#menu_LireInfo, "Lire infos")

MenuTitle("Affichage")

MenuTitle("Aide")
MenuItem(#menu_Info,"Infos")

OpenInfos()

BindEvent(#PB_Event_CloseWindow, @Close_Window())
BindEvent(#PB_Event_Menu, @Menu_Handle())
BindEvent(#PB_Event_Gadget, @gadget_Handle())

;}