; Codevorlage by HTTP://PureChannel.ath.cx
;
; Dieser Code soll demonstrieren wie man einen BlitzBasic Editor bzw. überhaupt einen Editor
; zusammenbastelt
; ich hoffe ihr findet gefallen dran, und der eine oder der andere  erstellt mit hilfe dieses codes
; einen guten editor der vieleicht kosten frei ist

; die Buttons
; Neu
; Öffnen
; Save
; Löschen

; habe ich extra noch nicht geproggt aus dem einfachen grunde ihr sollt auch mal etwas kreativ sein :)
;
; MFG Mathias Kwiatkowski
; by Purechannel 2005



; dim felder für die buttons
   Dim button(1)
   
;blitzbasic compiler wo befindet er sich bei euch?
bbcompiler$="C:/programme/blitzplus/bin/blitzcc.exe"

;analyse vom desktop

   deskw=ClientWidth(Desktop())
   deskh=ClientHeight(Desktop())

   deskh=deskh-30 ; 30 pixel abziehen wegen der startleiste
;editor erstellen
   
   window=CreateWindow("PureChannel Editor",0,0,1024,768-30,0)       ;fenster wird erstellt
   textarea=CreateTextArea(10,40,800,768-70-90,window)   ;TextFenster
   
   from=1
   alt_from=1
         
   Button_Neu=CreateButton("Neu",0,3,50,30,window)            ;button
   Button_Öffnen=CreateButton("Öffnen",60,3,50,30,window)      ;button
   Button_Speichern=CreateButton("Save",120,3,50,30,window)      ;button
   Button_del=CreateButton("Löschen",180,3,50,30,window)         ;button
   Button_run=CreateButton("Starten",240,3,50,30,window)         ;button
   Button_comp=CreateButton("Exe",300,3,50,30,window)            ;button
   Button_end=CreateButton("Beenden",360,3,50,30,window)         ;button

;font typen einladen

   font_a=LoadFont("Arial",14,1,0,0)   ;schriftart laden
   font_b=LoadFont("Arial",14,0,0,0)   ;schriftart laden

; weiteres bearbeiten (aufmachung / design)
   SetTextAreaFont textarea,font_a            ;setz die font ab
   SetTextAreaColor textarea,0,128,192,1      ;hintergrund farbe vom textarea
   SetTextAreaColor textarea,255,255,255      ;textfarbe

;Hauptschleife
   Repeat
   If WaitEvent(1)=$803 Then End      ;Wenn man oben Rechts auf X klickt wird das Programm geschlossen

      If  EventID()=$401 Then
         If EventSource()=Button_END=1 Then End      ;wenn man auf dem Button Beenden klickt wird das Programm ebenfalls geschlossen
   
   
         If EventSource()=Button_run=1 Then      ;Button start
            button(1)=button_run                ;button deaktiviren
            button_run=-1                      ; --           --
            a$=TextAreaText(textarea)         ;der inhalt aus dem schreibformular wird in einer datei übergeben
            dat=WriteFile("BB-files/temp.txt")   ;temp datei
            WriteLine dat,a$                  ;wird geschrieben
            CloseFile dat                     ;schlissen der datei , niemals vergessen
            ExecFile(bbcompiler$+" +q BB-files/temp.txt")    ;compaliert
            Delay 1000                        ;warte eine sec bis der button aktiviert wird
            button_run=button(1)               ;button aktiv
         EndIf
            
            
         If EventSource()=Button_comp=1 Then      ; eine exe erstellen
            button(1)=button_comp
            button_comp=-1
            a$=TextAreaText(textarea)
            dat=WriteFile("BB-files/temp.txt")
            WriteLine dat,a$
            CloseFile dat
            ExecFile(bbcompiler$+" -o dd.exe BB-files/temp.txt")
            Delay 1000
            button_comp=button(1)
         EndIf
         
      EndIf
   
   a$=TextAreaText(textarea)   
   
   Forever