PureBoard

Code: Alles auswählen

If OpenFile(0,"Datei.txt") 
  WegDatei$=ReadString() 
  CloseFile(0) 
EndIf 
  
Enumeration 
  #Window_0 
  #Editor 
  #New 
  #Open 
  #Save 
  #Delet 
  #LDL 
  #Exit 
EndEnumeration 
mmessage.w=0 
Zeile.w=0 
If OpenWindow(#Window_0,0,0,500,350, #PB_Window_ScreenCentered,"Editor") 
  If CreateToolBar(0, WindowID()) 
    ToolBarStandardButton(#New, #PB_ToolBarIcon_New):ToolBarToolTip(#New,"Neu Strg+N") 
    ToolBarStandardButton(#Open, #PB_ToolBarIcon_Open):ToolBarToolTip(#Open,"Öffnen Strg+O") 
    ToolBarStandardButton(#Save, #PB_ToolBarIcon_Save):ToolBarToolTip(#Save,"Speichern Strg+S") 
    ToolBarStandardButton(#Delet, #PB_ToolBarIcon_Delete):ToolBarToolTip(#Delet,"Alles löschen Strg+L") 
    ToolBarStandardButton(#LDL, #PB_ToolBarIcon_Properties):ToolBarToolTip(#LDL,"Letzte Datei Laden") 
    ToolBarStandardButton(#Exit, #PB_ToolBarIcon_Delete):ToolBarToolTip(#Exit,"Programm beenden") 
  EndIf 
  If CreateGadgetList(WindowID()) 
    EditorGadget(#Editor,0,25,500,250) 
    
  EndIf 
  If CreatePopupMenu(0)    
    MenuItem(1, "Open")    
    MenuItem(2, "Save") 
    MenuItem(3, "Save as") 
    MenuItem(4, "Quit") 
  EndIf 
  
  Repeat 
    
    AddKeyboardShortcut(0, #PB_Shortcut_Control|#PB_Shortcut_N, #New) 
    AddKeyboardShortcut(0, #PB_Shortcut_Control|#PB_Shortcut_O, #Open) 
    AddKeyboardShortcut(0, #PB_Shortcut_Control|#PB_Shortcut_S, #Save) 
    AddKeyboardShortcut(0, #PB_Shortcut_Control|#PB_Shortcut_L, #Delet) 
    Select WaitWindowEvent() 
      Case #PB_Event_Menu 
        
        Select EventMenuID() 
          
          
          Case #New          
            
            message=MessageRequester("Neu","Möchten sie eine Neue Datei?",#PB_MessageRequester_YesNo) 
            If message=6 
              ClearGadgetItemList(#Editor) 
              Weg$="" 
            EndIf 
            
          Case #Open 
            Weg$=OpenFileRequester("Was möchten sie öffnen?",Satndertweg$,"*.txt",0) 
            If Weg$<>"" 
              OpenFile(0,Weg$) 
              Repeat 
                
                AddGadgetItem(#Editor,Zeile,ReadString()) 
                
                
                
                Zeile+1 
              Until Eof(0) 
              CloseFile(0) 
            EndIf 
          Case #Save 
            Zeile=0 
            If Weg$<>"" 
              CreateFile(0,Weg$) 
              Ende=0 
              Repeat 
                
                
                String.s=GetGadgetItemText(#Editor,Zeile,0) 
                WriteStringN(String) 
                
                If GetGadgetItemText(#Editor,Zeile,0)="" 
                  Ende+1 
                Else 
                  Ende=0 
                EndIf 
                Zeile+1 
              Until Ende=10 
              CloseFile(0) 
            Else 
              Weg$=SaveFileRequester("Speichern","C:\","*.txt",0) 
              CreateFile(0,Weg$+".txt") 
              Ende=0 
              Repeat 
                
                
                String.s=GetGadgetItemText(#Editor,Zeile,0) 
                WriteStringN(String) 
                
                If GetGadgetItemText(#Editor,Zeile,0)="" 
                  Ende+1 
                Else 
                  Ende=0 
                EndIf 
                Zeile+1 
              Until Ende=10 
              CloseFile(0) 
            EndIf 
            
            
          Case #Delet 
            message=MessageRequester("Löschen","Möchten sie alles Löschen?",#PB_MessageRequester_YesNo) 
            If message=6 
              ClearGadgetItemList(#Editor) 
            EndIf 
            
          Case #Exit 
            Exit=1 
          Case #LDL 
            
            If WegDatei$<>"" 
              If OpenFile(0,WegDatei$) 
                Zeile=0 
                Repeat 
                  
                  AddGadgetItem(#Editor,Zeile,ReadString()) 
                  
                  
                  
                  Zeile+1 
                Until Eof(0) 
                CloseFile(0) 
              EndIf  
              
            EndIf 
        EndSelect 
        
      Case #WM_RBUTTONUP 
        DisplayPopupMenu(0,WindowID())
        
      Case #PB_Event_Menu 
        Select EventMenuID() 
          Case 4 ; Quit 
            Quit =1 
        EndSelect 
    EndSelect 
    
  Until Exit=1 
EndIf 

CreateFile(0,"Datei.txt") 
WriteString(Weg$) 
CloseFile(0) 
End