PureBoard

Code: Alles auswählen

Enumeration
  ; JOB-FENSTER
  #job_string_title
  #job_explorer_quelle
  #job_explorer_ziel
  #job_checkbox_subdirs
  #job_checkbox_delete
  #job_checkbox_md5
  #job_frame_title
  #job_frame_quelle
  #job_frame_ziel
  #job_frame_includes
  #job_frame_excludes
  #job_string_includes
  #job_string_excludes
  #job_button_hinzu
  #job_string_quelle
  #job_string_ziel
  #job_option_includes
  #job_option_excludes
  #job_option_all_files
  #job_checkbox_enumerate_subdirs
EndEnumeration  
 
 ; Fonts laden
#font_arial_small=0
#font_arial=1
#font_arial_bold=2
If LoadFont(#font_arial_small, "Arial", 7)
EndIf
If LoadFont(#font_arial, "Arial", 8)
  SetGadgetFont(#PB_Default, FontID(#font_arial))
EndIf
If LoadFont(#font_arial_bold, "Arial", 9, #PB_Font_Bold)
  ;SetGadgetFont(#PB_Default, FontID(#font_arial_bold))
EndIf
 
  
  ; Fenster aufbauen
  win_job=OpenWindow(#PB_Any, 0, 0, 600, 520,  wintitle$, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_Invisible)
  If win_job
    If CreateGadgetList(WindowID(win_job))
      ; TITLE
      links=15 : oben=5 : abstand=15 : fensterhaelfte=WindowWidth(win_job)/2 : breite=fensterhaelfte-30
      Frame3DGadget(#job_frame_title, 5, oben, fensterhaelfte-10, 50, "1. Titel")
      If IsFont(#font_arial_bold) : SetGadgetFont(#job_frame_title, FontID(#font_arial_bold)) : EndIf
      oben+abstand+5
      StringGadget(#job_string_title, links, oben, breite, 20, "")
    
      ; QUELLE
      oben+40
      Frame3DGadget(#job_frame_quelle, 5, oben, fensterhaelfte-10, 290, "2. Quelle wählen ")
      If IsFont(#font_arial_bold) : SetGadgetFont(#job_frame_quelle, FontID(#font_arial_bold)) : EndIf
      oben+abstand+5
      ExplorerTreeGadget(#job_explorer_quelle, links, oben, breite, 185, "", #PB_Explorer_AlwaysShowSelection | #PB_Explorer_AutoSort | #PB_Explorer_NoFiles)
      GadgetToolTip(#job_explorer_quelle, "Wählen Sie hier das Quellverzeichnis aus")
      oben+190
      StringGadget(#job_string_quelle, links, oben, breite, 20, GetGadgetText(#job_explorer_quelle))
      GadgetToolTip(#job_string_quelle, "Wählen Sie oben ein Quellverzeichnis (wird hier angezeigt), oder geben Sie das Verzeichnis ein")
      oben+10+abstand
      CheckBoxGadget(#job_checkbox_subdirs, links, oben, fensterhaelfte-30, 20, "Unterverzeichnisse mit verarbeiten (in Quelle)")
      SetGadgetState(#job_checkbox_subdirs, #True)
      GadgetToolTip(#job_checkbox_subdirs, "Aktivieren Sie das Häkchen, wenn auch die Unterverzeichnisse eingelesen und synronisiert werden sollen")
      oben+10+abstand
      CheckBoxGadget(#job_checkbox_md5, links, oben, breite, 20, "Dateiinhalt mittels MD5-Filefingerprint vergleichen")
      SetGadgetState(#job_checkbox_md5, #True)
      GadgetToolTip(#job_checkbox_md5, "Aktivieren Sie das Häkchen, wird der Dateiinhalt auf Basis des MD5-Fingerprints verglichen (langsamer)")
           
      ; ZIEL      
      oben=65 : links=fensterhaelfte+15 ;oben+30
      Frame3DGadget(#job_frame_ziel, links-10, oben, fensterhaelfte-10, 290, "3. Ziel wählen ")
      If IsFont(#font_arial_bold) : SetGadgetFont(#job_frame_ziel, FontID(#font_arial_bold)) : EndIf
      oben+abstand+5
      ExplorerTreeGadget(#job_explorer_ziel, links, oben, fensterhaelfte-30, 185, "", #PB_Explorer_AlwaysShowSelection | #PB_Explorer_AutoSort | #PB_Explorer_NoFiles)
      GadgetToolTip(#job_explorer_ziel, "Wählen Sie hier das Zielverzeichnis aus")
      oben+190
      StringGadget(#job_string_ziel, links, oben, breite, 20, GetGadgetText(#job_explorer_ziel))
      GadgetToolTip(#job_string_ziel, "Wählen Sie oben ein Zielverzeichnis (wird hier angezeigt), oder geben Sie das Verzeichnis ein")
      oben+10+abstand
      CheckBoxGadget(#job_checkbox_enumerate_subdirs, links, oben, breite, 20, "Unterordner für jedes Backup anlegen")
      SetGadgetState(#job_checkbox_enumerate_subdirs, #False)
      GadgetToolTip(#job_checkbox_enumerate_subdirs, "Aktivieren Sie das Häkchen, wird für jedes Backup im Zielverzeichnis, ein neuer Ordner angelegt der das Datum und die Zeit des Backups trägt")
      DisableGadget(#job_checkbox_md5, GetGadgetState(#job_checkbox_enumerate_subdirs))

      oben+10+abstand
      CheckBoxGadget(#job_checkbox_delete, links, oben, breite, 20, "Überflüssige Dateien löschen (Spiegelung)")
      SetGadgetState(#job_checkbox_delete, #False)
      DisableGadget(#job_checkbox_delete, GetGadgetState(#job_checkbox_enumerate_subdirs))
      GadgetToolTip(#job_checkbox_delete, "Aktivieren Sie das Häkchen, werden Dateien auf Ziel gelöscht, die in Quelle fehlen")
      
      ; OPTIONEN
      oben+40 : optionbreite=fensterhaelfte : links=15
      Frame3DGadget(#job_frame_includes, 5, oben, WindowWidth(win_job)-10, 95, "4. Dateitypen") 
      If IsFont(#font_arial_bold) : SetGadgetFont(#job_frame_includes, FontID(#font_arial_bold)) : EndIf
      oben+abstand+5
      ; ##### WO IST FOLGENDES GADGET? #####
      OptionGadget(#job_option_all_files, links, oben, optionsbreite, 20, "Alle Dateien berücksichtigen")
      ; #####
      oben+abstand+10      
      OptionGadget(#job_option_includes, links, oben, optionbreite, 20, "NUR diese Dateiendungen berücksichtigen")       
      oben+abstand+10 
      OptionGadget(#job_option_excludes, links, oben, optionbreite, 20, "Diese Dateiendungen NICHT berücksichtigen")

      oben-abstand-10
      StringGadget(#job_string_excludes, fensterhaelfte+abstand, oben, optionbreite-links*2, 20, excludefiles$) 
      oben+abstand+10
      StringGadget(#job_string_includes, fensterhaelfte+abstand, oben, optionbreite-links*2, 20, includefiles$) 

      GadgetToolTip(#job_option_all_files, "Wählen Sie hier um ALLE Dateien in dem gewählten Ordner zu vergleichen")
      GadgetToolTip(#job_option_includes, "Wählen Sie hier, welche Dateiendungen von der Sicherung betroffen sein sollen")
      GadgetToolTip(#job_option_excludes, "Wählen Sie hier, welche Dateiendungen NICHT von der Sicherung betroffen sein sollen")       
      GadgetToolTip(#job_string_includes, "Wählen Sie hier, welche Dateiendungen von der Sicherung betroffen sein sollen. Beispiel: .jpg,.gif")
      GadgetToolTip(#job_string_excludes, "Wählen Sie hier, welche Dateiendungen NICHT von der Sicherung betroffen sein sollen. Beispiel: .jpg,.gif")
      
      If include
        SetGadgetState(#job_option_includes, #True)         
      Else
        SetGadgetState(#job_option_excludes, #True) 
      EndIf             
      DisableGadget(#job_string_includes, include)
      DisableGadget(#job_string_excludes, include!1)

      oben+40
      ButtonGadget(#job_button_hinzu, 5, oben, WindowWidth(win_job)-10, 30, "Job speichern", $8000)
      If IsFont(#font_arial_bold) : SetGadgetFont(#job_button_hinzu, FontID(#font_arial_bold)) : EndIf
      GadgetToolTip(#job_button_hinzu, "Klicken Sie hier wenn Sie oben Quelle und Ziel festgelegt haben und den Job übernehmen möchten")
      
      
      HideWindow(win_job, #False)
      While WindowEvent() : Wend
    Else
      End
    EndIf
  Else
    End
  EndIf
  
  
  
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow