SimpleEditor

   VerifPreVi:
       laptime%=laptime%+1
       if file_exists(PreviewFile$)=1
         Timer_off TimerPreVi%
         NomCourt(PreviewFile$)
         PreviewFileCourt$ = court$
         execute PreviewFileCourt$         
      else   
         if file_exists(ficlog$)=1
            Timer_off TimerPreVi%
            file_open_read F_or%,ficlog$
            file_readln F_or%,v$ : ErrorLine%=val(v$)
            file_readln F_or%,v$ : ErrorType%=val(v$)
            file_readln F_or%,v$ : ErrorDef$ =v$
            file_close F_or%
            file_delete ficlog$
            mess2$ = "ERROR !"+chr$(13)+"line "+str$(ErrorLine%)+" - Type "+str$(ErrorType%)+chr$(13)
            mess2$ = mess$+ErrorDef$
            m2%= message_warning_ok()
            GotoLine(ErrorLine%)
         end_if
      end_if
      if laptime%=40
         Timer_off TimerPreVi%
         m2% = message_warning_ok(PreviewFile$+chr$(13)+"Ce fichier est introuvable !")
      end_if
   return

' ! FICHIERS
 dim Kgf$       : Kgf$   = Path$+"fic\dll\KGF.dll"
 dim User32$    : User32$="User32.dll"
 dim IOdll$     : IOdll$ = Path$+"fic\dll\inpout32.dll"
 
 dim Kgf_help$  : Kgf_help$  = Path$+"fic\chm\KGF.chm"
 dim Chee_help$ : Chee_help$ = Path$+"fic\chm\Cheetah.chm"
 dim Pano_help$ : Pano_help$ = Path$+"fic\chm\Panoramic.chm"
 dim Edit_help$ : Edit_help$ = Path$+"fic\chm\SimpleEditor.chm"

 dim Syntaxe$   : Syntaxe$ = Path$+"fic\param\Panoramic.ini"
 dim SynColfile$: SynColfile$=Path$+"fic\param\SyneditColor.ini"
 dim Param$     : Param$ = Path$+"fic\param\Parametres.inf"
 
 dim AppPano$ : AppPano$ = Path$+"fic\param\PanoApp.txt"
 dim AppEditor$ : AppEditor$ = Path$+"fic\param\EditorApp.txt"
 
 dim MakeExe$ : MakeExe$ = Path$+"fic\plug\Make_Exe.exe"
 dim PanoExe$ : PanoExe$ = Path$+"fic\plug\PANORAMIC.exe"
  
 dim ImgToolbar$     : ImgToolbar$ =Path$+"fic\img\toolbar.bmp"
 dim ImgExeBar$     : ImgExeBar$  =Path$+"fic\img\execute.bmp"
 dim ImgSignBar$     : ImgSignBar$ =Path$+"fic\img\Signbar.bmp"
 dim ImgBtnOn$(21)   : for i%=1 to 21 : ImgBtnOn$(i%)  =Path$+"fic\img\btn_"+str$(i%)+"1.bmp"  : next i%
 dim ImgBtnClc$(21) : for i%=1 to 21 : ImgBtnClc$(i%) =Path$+"fic\img\btn_"+str$(i%)+"2.bmp"  : next i%
 dim ImgBtnOff$(21) : for i%=1 to 21 : ImgBtnOff$(i%) =Path$+"fic\img\btn_"+str$(i%)+"3.bmp"  : next i%
 dim ImgSignOn$(9)   : for i%=0 to 9  : ImgSignOn$(i%) =Path$+"fic\img\Sign_"+str$(i%)+"1.bmp" : next i%
 dim ImgSignClc$(9) : for i%=0 to 9  : ImgSignClc$(i%)=Path$+"fic\img\Sign_"+str$(i%)+"2.bmp" : next i%
 dim ImgSignOff$(9) : for i%=0 to 9  : ImgSignOff$(i%)=Path$+"fic\img\Sign_"+str$(i%)+"3.bmp" : next i%
 dim ImgPanoLogo$   : ImgPanoLogo$ =Path$+"fic\img\PanoLogo.bmp"
 dim ImgEditLogo$   : ImgEditLogo$ =Path$+"fic\img\EditLogo.bmp"
 dim ImgBtnDelelete$ : ImgBtnDelelete$ =Path$+"fic\img\btndelete.bmp"
 dim ImgBtnValid$ : ImgBtnValid$ =Path$+"fic\img\btnvalid.bmp"
 dim ImgPictRappel$  : ImgPictRappel$=Path$+"fic\img\horloge.bmp"
 
 dim ImgAnnul$       : ImgAnnul$=Path$+"fic\img\annul.bmp"
   ' -

   sub Preview()
      dim_local i%,res%,Cl%,Cc%,SyNbline%,l$,f$,Tmp_file$,TmpFileCourt$,log$,exe$,m%,mess$,v$
      
      if NbOnglet%=0
         if Langue%=1
            m%=message_information_ok("Impossible."+chr$(13)+"Maybe you should open a program source...")
         else
            m%=message_information_ok("Opération impossible."+chr$(13)+"Peut être devriez vous ouvrir un programme...")
         end_if
         exit_SUB      
      end_if
      
      clear PvListe%
      ' memorisation de la position du curseur
      Cl% = dll_call3("SyneditFunction",ActiveSE%,30,0)
      ' assemblage
      SyNbline% = dll_call3("SyneditFunction",ActiveSE%,28,0)   

      if SyNbline% =0
         if Langue%=1
            m%=message_warning_ok("Hey, Where is your program ?!...")
         else
            m%=message_warning_ok("Ben, il est où le code ?!...")
         end_if
         exit_SUB      
      end_if
      
      res% = dll_call3("SyneditFunction",ActiveSE%,18,1)   
      res% = dll_call3("SyneditFunction",ActiveSE%,14,SyNbline%)
      res% = dll_call3("SyneditFunction",ActiveSE%,17,handle(PvListe%))   
      ' verification des #include
      for i%=1 to count(PvListe%)
         l$=trim$(item_read$(PvListe%,i%))
         if left$(l$,1)="#"
            f$=mid$(l$,11,len(l$)-11)
            if instr(f$,"\")=0
               f$ = ActiveDir$+f$
            end_if
            file_add PvListe%,f$
            l$="' "+l$
            item_delete PvListe%,i%
            item_insert PvListe%,i%,l$
         end_if
      next i%
      file_save PvListe%,ActiveDir$+"Temp_"+ActiveFile$
      res% = dll_call3("SyneditFunction",ActiveSE%,18,Cl%)
      
      Tmp_file$ = ActiveDir$+"Temp_"+ActiveFile$
      NomCourt(Tmp_file$)
      TmpFileCourt$ = court$
         
      NomCourt(MakeExe$)
      log$ = court$         

      PreviewFile$ = left$(Tmp_file$,len(Tmp_file$)-3)+"exe"
      NomCourt(PreviewFile$)
      PreviewFile$ = court$
      if file_exists(PreviewFile$)=1 : file_delete PreviewFile$ : end_if
            
      ficlog$ = left$(Tmp_file$,len(Tmp_file$)-3)+"log"
      NomCourt(ficlog$)
      ficlog$ = court$      
      if file_exists(ficlog$)=1 : file_delete ficlog$ : end_if            
               
      execute_wait log$+chr$(32)+"-e"+chr$(32)+TmpFileCourt$
      file_delete Tmp_file$
      
      if file_exists(PreviewFile$)=1
         execute PreviewFile$
      else
         if file_exists(ficlog$)=1
            Timer_off TimerPreVi%
            file_open_read F_or%,ficlog$
            file_readln F_or%,v$ : ErrorLine%=val(v$)
            file_readln F_or%,v$ : ErrorType%=val(v$)
            file_readln F_or%,v$ : ErrorDef$ =v$
            file_close F_or%
            file_delete ficlog$
            mess2$ = "ERROR !"+chr$(13)+"line "+str$(ErrorLine%)+" - Type "+str$(ErrorType%)+chr$(13)
            mess2$ = mess$+ErrorDef$
            m2%= message_warning_ok()
            GotoLine(ErrorLine%)
         end_if      
      end_if
   end_sub

court$ = string$(255," ")

court$ = trim$(court$)