;   ---   ---   Fenster erstellen   ---   --- 
Global window=CreateWindow("DBlitz by Daniel Sauter",240,212,800,600,0)

tabber=CreateTabber(5,25,ClientWidth(window)-10,ClientHeight(window)-30,window)
SetGadgetLayout tabber,1,1,1,1
AddGadgetItem tabber,"Help"

toolbar=CreateToolBar("Data\toolbar.bmp",0,0,96,32,window)

filemenu=CreateMenu("Datei",1,WindowMenu(window))
   newmenu=CreateMenu("Neu   Ctrl+N",4,filemenu)
   openmenu=CreateMenu("Öffnen   Ctrl+O",5,filemenu)
   strichmenu=CreateMenu("",6,filemenu)
   closemenu=CreateMenu("Schließen   Ctrl+F4",7,filemenu)
   closeallmenu=CreateMenu("Alle schließen",8,filemenu)
   strich2menu=CreateMenu("",9,filemenu)
   savemenu=CreateMenu("Speichern   Ctrl+S",10,filemenu)
   saveasmenu=CreateMenu("Speichern als...",11,filemenu)
   saveallmenu=CreateMenu("Alle speichern",12,filemenu)
   strich3menu=CreateMenu("",13,filemenu)
   nextfilemenu=CreateMenu("Nächste Datei   Ctrl+Tab",14,filemenu)
   previousmenu=CreateMenu("Vorherige Datei   Ctrl+Shift+Tab",15,filemenu)
   precentmenu=CreateMenu("Letzte Dateien",16,filemenu)
   strich4menu=CreateMenu("",17,filemenu)
   printmenu=CreateMenu("Drucken   Ctrl+P",18,filemenu)
   strich5menu=CreateMenu("",19,filemenu)
   exitmenu=CreateMenu("Beenden",20,filemenu)
editmenu=CreateMenu("Editieren",2,WindowMenu(window))
   cutmenu=CreateMenu("Ausschneiden   Ctrl+X",21,editmenu)
   copymenu=CreateMenu("Kopieren   Ctrl+C",22,editmenu)
   pastemenu=CreateMenu("Einfügen   Ctrl+V",23,editmenu)
   strich6menu=CreateMenu("",21,editmenu)
   selectallmenu=CreateMenu("Alles auswählen   Ctrl+A",24,editmenu)
   strich7menu=CreateMenu("",25,editmenu)
   findmenu=CreateMenu("Suchen   Ctrl+F",26,editmenu)
   findnextmenu=CreateMenu("Nächste suchen   F3",27,editmenu)
   replacemenu=CreateMenu("Ersetzen   Ctrl+R",28,editmenu)
   strich8menu=CreateMenu("",29,editmenu)
   showtoolbarmenu=CreateMenu("Toolbar anzeigen   Shift+Esc",30,editmenu)
programmenu=CreateMenu("Programm",3,WindowMenu(window))
   runprogmenu=CreateMenu("Programm starten   F5",31,programmenu)
   runprogagainmenu=CreateMenu("Programm erneut starten   F6",32,programmenu)
   checkerrorsmenu=CreateMenu("Auf Fehler prüfen   F7",33,programmenu)
   exemenu=CreateMenu("Exe erstellen",34,programmenu)
   strich9menu=CreateMenu("",35,programmenu)
   progcomlinemenu=CreateMenu("Programmbefehlszeile",35,programmenu)
   Debugmenu=CreateMenu("Debug an?",36,programmenu)
helpmenu=CreateMenu("Hilfe",3,WindowMenu(window))
   homemenu=CreateMenu("Startseite   Ctrl+H",37,helpmenu)
   backmenu=CreateMenu("Zurück",38,helpmenu)
   forwmenu=CreateMenu("Forwärts",39,helpmenu)
   qucommenu=CreateMenu("Schnelle Befehlshilfe   F1",40,helpmenu)
   aboutmenu=CreateMenu("Über DBlitz",41,helpmenu)
UpdateWindowMenu window

;   ---   ---   Ende Fenster erstellen   ---   --- 

;   ---   ---   Code Fenster   ---   ---
code=CreateTextArea( 5,5,ClientWidth(tabber)-10,ClientHeight(tabber)-10,tabber)
SetGadgetLayout code,1,1,1,1
SetTextAreaColor code, 34, 85, 119,1
SetTextAreaColor code, 255, 255, 255,0
HideGadget code
Dim codesp$(100)

;   ---   ---   Ende Code Fenster   ---   ---

;   ---   ---   Help Html Fenster   ---   ---
hilfe=CreateHtmlView( 5,5,ClientWidth(tabber)-10,ClientHeight(tabber)-10,tabber)
SetGadgetLayout hilfe,1,1,1,1
HtmlViewGo hilfe,"file://"+CurrentDir()+"help/index.html"
;   ---   ---   Ende Help Html Fenster   ---   ---


;   ---   ---   Befehle reinlesen   ---   ---   
Dim befehl$(738)
befehldatei=ReadFile("Data\commands.txt")
For befehllesen=1 To 738
   befehl$(befehllesen)=ReadLine(befehldatei)
Next
CloseFile befehldatei
befehllesen=0
;   ---   ---   Ende Befehle reinlesen   ---   ---   

While Not KeyHit(1)
If SelectedGadgetItem(tabber)=0 Then
   ShowGadget hilfe
   HideGadget code
EndIf
If SelectedGadgetItem(tabber)<>0 Then
   ShowGadget code
   HideGadget hilfe
EndIf

   Select WaitEvent()
      Case $803
         End
      Case $401
         If EventSource()=toolbar Then
         
         ;Code speichern
         If altertab<>SelectedGadgetItem(tabber) Then
            codesp$(altertab)=TextAreaText(code)
            SetGadgetText  code,codesp$(SelectedGadgetItem(tabber))
            altertab=SelectedGadgetItem(tabber)
         EndIf
         ;Ende Code speichern
         
            If EventData()=-1 And a<100 Then
            a=a+1
               AddGadgetItem tabber,"<untitled>"
         SelectGadgetItem tabber,a
            EndIf
            If EventData()=2 Then
               If SelectedGadgetItem(tabber)<>0 Then RemoveGadgetItem tabber, SelectedGadgetItem(tabber)
               a=a-1
            EndIf
            If EventData()=8 Then
               HtmlViewGo hilfe,"file://"+CurrentDir()+"help/index.html"
            EndIf
            If EventData()=9 Then
               HtmlViewBack hilfe
            EndIf
            If EventData()=10 Then
               HtmlViewForward hilfe
            EndIf
         EndIf
   End Select
Wend

End