# Defaultwerte für die Checkboxen setzen 
$chkExportAll      = false

# Überpüfen ob min. ein User Flag gesetzt ist. Das auslesen der Variable $d_UserFlag
# Funktioniert nur dann immer richtig wenn zuvor MFilter gesetzt wurde.
MFilter Expression=$d_UserFlag = .true.
If $d_UserFlag
   $chkExportTarget   = true
   $chkRunSpoilerSync = false
Else
   # Wenn keine User Flag gesetzt sind, werden diese zwei Optionen ausgeschaltet und eine Warnung angezeigt
   $chkExportTarget   = false
   $chkRunSpoilerSync = false
   $form = EditForm($form,"chkExportTarget","Enabled","No")
   $form = EditForm($form,"chkRunSpoilerSync","Enabled","No")
   MsgOK msg="Achtung keine User Flags gesetzt!"
Endif
CancelFilter

# Formular aufrufen
If ShowForm($form)
   If $cancel
      cancel
   EndIf
else
   cancel msg="form cancelled"
endif

# Erstellt alle generischen Trad_*.asc files
# Erstellt auch All Found asc
If $chkExportAll
   MACRO File="S:\private\Diverses\Geocaching\GSAK\Macros\Export_all_v1.02.txt"
EndIf

# GSAK 2 PDA export macro starten
# nimmt nur die "User Flag" Records
# Target asc und gpx files erstellen
If $chkExportTarget
   MACRO File="S:\private\Diverses\Geocaching\GSAK\Macros\GSAK2PDAexporter_v1.02.txt"
EndIf

# SpoilerSync starten und automatisch ausführen
# target.gpx muss dafür aktuell sein (siehe oben)
If $chkRunSpoilerSync
   runpgm pgm="C:\Program Files\SpoilerSync\spoilersync.exe" parms=-a
EndIf

# Formular definieren
<data> Varname=$form
Name=ExportForm
    Type=Form
    Caption=Export Dialog
    Height=200

Name=label01
    Type=Label
    Left=30
    Top=5
    Caption=Alle Caches exportieren

Name=label02
    Type=Label
    Left=30
    Top=25
    Caption=Targets (User Flag) exportieren und Track Files erstellen

Name=labInclude
    Type=Label
    Left=30
    Top=45
    Caption=Spoiler Sync nach Export Starten

Name=chkExportAll
    Type=checkbox
    Left=10
    Top=5
    
Name=chkExportTarget
    Type=checkbox
    Left=10
    Top=25
    
    
Name=chkRunSpoilerSync
    Type=checkbox
    Left=10
    Top=45

Name=ok
    type=Button
    top=80
    left=20
    caption=OK

name=cancel
    type=Button
    top=80
    left=120
    caption=Cancel

<enddata>