PureBoard

Code: Alles auswählen

#Open         = 0
#Save         = 1
#Quit         = 2
#Load         = 3
#Back         = 4
#Forward      = 5
#Stop         = 6
#Preferences  = 7
#UsePage      = 8
#EmptyPage    = 9
#Minimize     =10
#Hide         =11
#Fav          =12
#Explorer     =13
#Help         =14
#About        =15
#ChangeUser   =16
#Home         =17
#Maximize     =18
#Refresh      =19
#Print        =20
#DeleteStart  =21

Enumeration 1 
  #OLECMDID_OPEN          
  #OLECMDID_NEW        
  #OLECMDID_SAVE          
  #OLECMDID_SAVEAS            
  #OLECMDID_SAVECOPYAS    
  #OLECMDID_PRINT        
  #OLECMDID_PRINTPREVIEW        
  #OLECMDID_PAGESETUP        
  #OLECMDID_SPELL            
  #OLECMDID_PROPERTIES  
  #OLECMDID_CUT          
  #OLECMDID_COPY        
  #OLECMDID_PASTE            
  #OLECMDID_PASTESPECIAL    
  #OLECMDID_UNDO            
  #OLECMDID_REDO          
  #OLECMDID_SELECTALL        
  #OLECMDID_CLEARSELECTION 
  #OLECMDID_ZOOM            
  #OLECMDID_GETZOOMRANGE      
  #OLECMDID_UPDATECOMMANDS  
  #OLECMDID_REFRESH            
  #OLECMDID_STOP              
  #OLECMDID_HIDETOOLBARS      
  #OLECMDID_SETPROGRESSMAX    
  #OLECMDID_SETPROGRESSPOS  
  #OLECMDID_SETPROGRESSTEXT    
  #OLECMDID_SETTITLE          
  #OLECMDID_SETDOWNLOADSTATE  
  #OLECMDID_STOPDOWNLOAD      
EndEnumeration 

Enumeration 0 
  #OLECMDEXECOPT_DODEFAULT      
  #OLECMDEXECOPT_PROMPTUSER        
  #OLECMDEXECOPT_DONTPROMPTUSER    
  #OLECMDEXECOPT_SHOWHELP        
EndEnumeration

Procedure.s GetSpecialFolderLocation(lngCSIDL.l)
  Protected lngRet.l
  Protected strLocation.s
  Protected pidl.l
  strLocation = Space(#MAX_PATH)
  lngRet = SHGetSpecialFolderLocation_(0, lngCSIDL, @pidl)
  If lngRet = #NOERROR
   BoolReturn = SHGetPathFromIDList_(pidl, @strLocation)
    If BoolReturn
      ProcedureReturn RTrim(strLocation)
    EndIf
    CoTaskMemFree_(pidl)
  EndIf
EndProcedure

Procedure.s GetAppPath()
    DefType.l lngBuffer,lngLen
    DefType.s strOut
           lngBuffer = AllocateMemory(#MAX_PATH+1)
            GetModuleFileName_(#Null, lngBuffer, #MAX_PATH)
            strOut = GetPathPart(PeekS(lngBuffer))
            If Right(strOut, 1)<>"\":strOut+"\":EndIf
            FreeMemory(lngBuffer)
    ProcedureReturn strOut
EndProcedure

Procedure.s GetAppName()
    DefType.l lngBuffer
    DefType.s strOut
           lngBuffer=AllocateMemory(#MAX_PATH+1)
            GetModuleFileName_(#Null,lngBuffer,#MAX_PATH)
            strOut=GetFilePart(PeekS(lngBuffer))
            FreeMemory(lngBuffer)
    ProcedureReturn strOut
EndProcedure

ProcedureDLL.s GetSysPath()
 Protected DLL, Result.s
 DLL = OpenLibrary(#PB_Any, "KERNEL32.dll") 
  If DLL
  Result = Space(260)
  CallFunction(DLL, "GetSystemDirectoryA", @Result, 260)
  CloseLibrary(DLL)
   If Result
    If Right(Result,1) <> "\" : Result + "\" : EndIf
 ProcedureReturn Result
    EndIf
   EndIf
EndProcedure

Windows$=GetSysPath()
System$ =GetAppPath()
StartUp$=System$+"Start.nwl"

OpenFile(0,"Lang.txt")
 L$=ReadString()
CloseFile(0)

OpenPreferences(Windows$+"Translate.inf")
 PreferenceGroup(L$)
  New$    =ReadPreferenceString("New"        ,"New")
  Load$   =ReadPreferenceString("Load"       ,"Load")
  Forward$=ReadPreferenceString("Forward"    ,"Forward")
  User$   =ReadPreferenceString("User"       ,"User")
  Create$ =ReadPreferenceString("Create"     ,"Create")
  CLU$    =ReadPreferenceString("CurrentUser","Current user")
  Error$  =ReadPreferenceString("Error"      ,"Error")
  ELU$    =ReadPreferenceString("ErrorLoad"  ,"Can not load the user")
  Quit$   =ReadPreferenceString("Quit"       ,"Quit")
  Login$  =ReadPreferenceString("Login"      ,"Login")
ClosePreferences()

ChooseUser:

If OpenWindow (0,300,300,150, 60,#PB_Window_SystemMenu,User$,0)
 If CreateGadgetList(WindowID())
  OptionGadget(0,  0,  0,150, 20,New$)
  OptionGadget(1,  0, 20,150, 20,Load$)
  ButtonGadget(2,  0, 40,150, 20,Forward$)
  TextGadget  (3,  0,  0,100, 20,User$)
  StringGadget(4,  0, 20,150, 20,User$,#PB_String_Password)
  ButtonGadget(5,  0, 40,150, 20,Create$)
  ButtonGadget(6,  0, 40,150, 20,Login$)
  StringGadget(7,  0, 20,150, 20,User$)
  For a=3 To 7
   HideGadget(a,1)
  Next
 EndIf
  Repeat
   Event=WaitWindowEvent()
    If Event=#PB_Event_Gadget
     Select EventGadgetID()
      Case 2
       If GetGadgetState(0)=1
        Create:
        SetGadgetState(0,1)
        SetGadgetState(1,0)
        For a=0 To 2
         HideGadget(a,1)
        Next
         HideGadget(3,0)
         HideGadget(5,0)
         HideGadget(6,1)
         HideGadget(7,0)
       EndIf
       If GetGadgetState(1)=1
        Index:
        For a=0 To 2
         HideGadget(a,1)
        Next
        For a=3 To 5
         HideGadget(a,1)
        Next
        HideGadget(3,0)
        HideGadget(4,0)
        HideGadget(6,0)
        HideGadget(7,1)
       EndIf
      Case 5
       CreateFile(0,System$+"User\"+GetGadgetText(7)+".user")
        WriteString(GetGadgetText(7))
       CloseFile(0)
       Goto Index:
      Case 6
       If ReadFile(0,System$+"User\"+GetGadgetText(4)+".user")
        C$ =ReadString()
        CU$=CLU$+": "+C$
          Count=1
        CloseFile(0)
       Else
        MessageRequester(Error$,ELU$+"!",#MB_ICONERROR)
       EndIf
     EndSelect
    EndIf
  Until Count=1 Or Event=#PB_Event_CloseWindow
Else
 MessageRequester(Error$,Error$+"!",#MB_ICONERROR):End
EndIf

If Count=0 Or Event=#PB_Event_CloseWindow
 End
EndIf

Setting$  =GetAppPath()+"User\"+C$+"_Setting.ini"
Fa$=GetSpecialFolderLocation($6)

OpenPreferences(Setting$)
 PreferenceGroup("Window")
  PosX$    =ReadPreferenceString("PosX"     ,"100")
  PosY$    =ReadPreferenceString("PosY"     ,"100")
  Width$   =ReadPreferenceString("Width"    ,"300")
  Height$  =ReadPreferenceString("Height"   ,"300")
  Title$   =ReadPreferenceString("Title"    ,"InternetBrowser 8")
  Transpa$ =ReadPreferenceString("Trans"    ,"100")
 PreferenceGroup("Path")
  HTML$    =ReadPreferenceString("HTML"     ,"HTML\")
 PreferenceGroup("Page")
  OpenPl$  =ReadPreferenceString("OPlattern","HTML/Link|*.htm;*.html;*.nwl")
  SavePl$  =ReadPreferenceString("SPlattern","Link|*.nwl")
 PreferenceGroup("Other")
  Language$=ReadPreferenceString("Language" ,"English")
  LangExt$ =ReadPreferenceString("LangExt"  ,"lang")
  StartIco$=ReadPreferenceString("HomeIcon" ,"Icons\Home.ico")
  StatusB$ =ReadPreferenceString("StatusBar","500")
  Maske$   =ReadPreferenceString("TimeDate" ,"%hh:%ii:%ss - %dd/%mm/%yyyy")
  SysTray$ =ReadPreferenceString("SysTray"  ,"Icons\Tray.ico")
  Mozilla$ =ReadPreferenceString("Mozilla"  ,"0")
ClosePreferences()

PosX          =Val(PosX$)
PosY          =Val(PosY$)
Trans         =Val(Transpa$)
Width         =Val(Width$)
Height        =Val(Height$)
StatusBarWidth=Val(StatusB$)
Mozilla       =Val(Mozilla$)
OpenPlattern$ =OpenPl$
SavePlattern$ =SavePl$

OpenFile(0,GetAppPath()+"Start.nwl")
 Start$=ReadString()
CloseFile(0)

If SaveLong=1
 Autosave=1
 Current =0
 Empty   =0
ElseIf SaveLong=2
 Autosave=0
 Current =1
 Empty   =0
Else
 Autosave=0
 Current =0
 Empty   =1
EndIf

Procedure CL(x,y)
 ConsoleLocate(x,y)
EndProcedure

Procedure Resize()
 ResizeGadget(0,  0,30,100,20)
 ResizeGadget(1,100,30,100,20)
 ResizeGadget(2,200,30,100,20)
 ResizeGadget(3,300,30,200,20)
 ResizeGadget(4,500,30,100,20)
 ResizeGadget(5,  5,60,WindowWidth()-10,WindowHeight()-105)
EndProcedure

Procedure SetWinTransparency(win,level)
 If level>=0 And level<101
  hLib = LoadLibrary_("user32.dll")
   If hLib
    adr = GetProcAddress_(hLib,"SetLayeredWindowAttributes")
     If adr
      SetWindowLong_(WindowID(win),#GWL_EXSTYLE,GetWindowLong_(WindowID(win),#GWL_EXSTYLE)|$00080000)
      CallFunctionFast(adr,WindowID(win),0,255*level/100,2)
     EndIf
      FreeLibrary_(hLib)
   EndIf
 EndIf
EndProcedure

If Mozilla=1
 MessageRequester(Title$,"Mozilla=1",#MB_ICONINFORMATION)
EndIf

OpenPreferences(System$+"Language\"+Language$+"."+LangExt$)
 File$       =ReadPreferenceString("File"       ,"File")
 Open$       =ReadPreferenceString("Open"       ,"Open")
 Save$       =ReadPreferenceString("Save"       ,"Save")
 Quit$       =ReadPreferenceString("Quit"       ,"Quit")
 Page$       =ReadPreferenceString("Page"       ,"Page")
 Load$       =ReadPreferenceString("Load"       ,"Load")
 Back$       =ReadPreferenceString("Back"       ,"Back")
 Forward$    =ReadPreferenceString("Next"       ,"Next")
 Stop$       =ReadPreferenceString("Stop"       ,"Stop")
 Option$     =ReadPreferenceString("Option"     ,"Option")
 Preferences$=ReadPreferenceString("Preferences","Preferences")
 UsePage$    =ReadPreferenceString("Use page"   ,"This page")
 EmptyPage$  =ReadPreferenceString("Empty page" ,"Empty page")
 Other$      =ReadPreferenceString("Other"      ,"Other")
 Minimize$   =ReadPreferenceString("Minimize"   ,"Minimize")
 Maximize$   =ReadPreferenceString("Maximize"   ,"Maximize")
 Lang$       =ReadPreferenceString("Language"   ,"Language")
 Startpage$  =ReadPreferenceString("Startpage"  ,"Startpage")
 OtherPage$  =ReadPreferenceString("Otherpage"  ,"Other page")
 Date$       =ReadPreferenceString("Date"       ,"Time/Date")
 JustDate$   =ReadPreferenceString("Justdate"   ,"Just date")
 JustTime$   =ReadPreferenceString("Justtime"   ,"Just time")
 Day$        =ReadPreferenceString("Day"        ,"Day")
 Month$      =ReadPreferenceString("Month"      ,"Month")
 Year$       =ReadPreferenceString("Year"       ,"Year")
 Hour$       =ReadPreferenceString("Hour"       ,"Hour")
 Minute$     =ReadPreferenceString("Minute"     ,"Minute")
 Secound$    =ReadPreferenceString("Secound"    ,"Secound")
 OK$         =ReadPreferenceString("OK"         ,"OK")
 Apply$      =ReadPreferenceString("Apply"      ,"Apply")
 Cancel$     =ReadPreferenceString("Cancel"     ,"Cancel")
 SavePrefs$  =ReadPreferenceString("Saveprefs"  ,"Save preferences?")
 ESavePrefs$ =ReadPreferenceString("Esaveprefs" ,"Can not save preferences!")
 CSavePrefs$ =ReadPreferenceString("Csaveprefs" ,"Saving canceled!")
 DSavePrefs$ =ReadPreferenceString("Dsaveprefs" ,"Saved preferences!")
 Import$     =ReadPreferenceString("Import"     ,"Import")
 Export$     =ReadPreferenceString("Export"     ,"Export")
 AllFiles$   =ReadPreferenceString("Allfiles"   ,"All files")
 Error$      =ReadPreferenceString("Error"      ,"Error")
 LP$         =ReadPreferenceString("Link/Pages" ,"Link and html")
 Help$       =ReadPreferenceString("Help"       ,"Help")
 About$      =ReadPreferenceString("About"      ,"About")
 Hide$       =ReadPreferenceString("Hide"       ,"Hide")
 Crtl$       =ReadPreferenceString("Crtl"       ,"Crtl")
 New$        =ReadPreferenceString("New"        ,"New")
 Name$       =ReadPreferenceString("Name"       ,"Name")
 Create$     =ReadPreferenceString("Create"     ,"Create")
 NoFoundUser$=ReadPreferenceString("NoFoundUser","Can not found the user")
 Fav$        =ReadPreferenceString("Favorits"   ,"Favorits")
 Explorer$   =ReadPreferenceString("Explorer"   ,"Explorer")
 ChangeUser$ =ReadPreferenceString("ChangeUser" ,"Change user")
 User$       =ReadPreferenceString("User"       ,"User")
 HTMLDoc$    =ReadPreferenceString("HTMLDoc"    ,"HTML-Document/Link")
 AllFiles$   =ReadPreferenceString("AllFiles"   ,"All files")
 Print$      =ReadPreferenceString("Print"      ,"Print")
 DeleteStart$=ReadPreferenceString("DeleteStart","Delete startfile")
ClosePreferences()

For a=0 To 7
 FreeGadget(a)
Next

OpenFile(3,StartUp$)
 Start$=ReadString()
CloseFile(3)

If OpenWindow    ( 0,PosX,PosY,Width,Height,#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget,Title$,0)
 SetWinTransparency(0,Trans)
 If CreateGadgetList(WindowID())
  ButtonGadget   ( 0,  0, 30,100, 20,Back$)
  ButtonGadget   ( 1,100, 30,100, 20,Forward$)
  ButtonGadget   ( 2,200, 30,100, 20,Stop$)
  StringGadget   ( 3,300, 30,100, 20,Start$)
  ButtonGadget   ( 4,400, 30,100, 20,Load$)
  WebGadget      ( 5,  5, 55,290,250,Start$,Mozilla)
  PanelGadget    ( 6,  0, 25,300,280)
  AddGadgetItem  ( 6, -1,Startpage$)
   OptionGadget  ( 7, 10, 10, 74, 20,EmptyPage$)
   OptionGadget  ( 8, 10, 30, 83, 20,UsePage$)
   OptionGadget  ( 9, 10, 50, 80, 20,OtherPage$)
   StringGadget  (10, 90, 50,100, 20,Start$):DisableGadget(10,1)
  AddGadgetItem  ( 6,-1,Lang$)
   ListViewGadget(11, 10, 10,280,190)
   ButtonGadget  (12, 10,200,280, 20,Load$)
   TextGadget    (13, 10,220,280, 20,"")
  AddGadgetItem  ( 6, -1,Date$)
   OptionGadget  (14, 10, 10,100, 20,JustDate$)
   OptionGadget  (15, 10, 30,100, 20,JustTime$)
   OptionGadget  (16, 10, 50,100, 20,Date$)
   OptionGadget  (17, 10, 70,100, 20,Other$)
  AddGadgetItem  ( 6, -1,Preferences$)
   ButtonGadget  (18, 10, 10,100, 20,Import$)
   ButtonGadget  (19, 10, 30,100, 20,Export$)
   Frame3DGadget (20,  5, 60,110,120,Export$)
   CheckBoxGadget(21, 10, 80,100, 20,Lang$)
   CheckBoxGadget(22, 10,100,100, 20,Preferences$)
   CheckBoxGadget(23, 10,120,100, 20,Startpage$)
   CheckBoxGadget(24, 10,140,100, 20,LP$)
  CloseGadgetList()
  ButtonGadget   (25,  0,305,100, 20,OK$)
  ButtonGadget   (26,100,305,100, 20,Apply$)
  ButtonGadget   (27,200,305,100, 20,Cancel$)
  Frame3DGadget  (28, 40, 40,180,180,About$)
  TextGadget     (29, 55, 55,150, 20,"Written by Michael Wieland")
  TextGadget     (30, 55, 85,150, 20,"Version 8.0")
  TextGadget     (31, 55,115,150, 20,"MultiLanguage: Yes")
  TextGadget     (32, 55,145,150, 20,"Written in PureBasic v3.94")
  ButtonGadget   (33, 55,175,150, 30,"OK",#PB_Button_Default)
 EndIf

 AddHotkey(0,2,#PB_Shortcut_O,#Open)
 AddHotkey(0,2,#PB_Shortcut_S,#Save)
 AddHotkey(0,1,#PB_Shortcut_F4,#Quit)
 AddHotkey(0,2,#PB_Shortcut_R,#Load)
 AddHotkey(0,2,#PB_Shortcut_B,#Back)
 AddHotkey(0,2,#PB_Shortcut_F,#Forward)
 AddHotkey(0,2,#PB_Shortcut_X,#Stop)
 AddHotkey(0,2,#PB_Shortcut_P,#Home)
 AddHotkey(0,0,#PB_Shortcut_F1,#Help)
 AddHotkey(0,0,#PB_Shortcut_Return,#Refresh)
 AddHotkey(0,2,#PB_Shortcut_C,#ChangeUser)
 AddHotkey(0,2,#PB_Shortcut_H,#Hide)
 AddHotkey(0,2,#PB_Shortcut_D,#DeleteStart)

 If CreateMenu(0,WindowID())
  MenuTitle(File$)
   MenuItem(#Open,Open$+Chr(9)+Crtl$+"+O")
   MenuItem(#Save,Save$+Chr(9)+Crtl$+"+S")
    MenuBar()
   MenuItem(#Quit,Quit$+Chr(9)+"Alt+F4")
  MenuTitle(Page$)
   MenuItem(#Load,Load$+Chr(9)+Crtl$+"+R")
    MenuBar()
   MenuItem(#Back,Back$+Chr(9)+Crtl$+"+B")
   MenuItem(#Forward,Forward$+Chr(9)+Crtl$+"+F")
    MenuBar()
   MenuItem(#Stop,Stop$+Chr(9)+Crtl$+"+X")
  MenuTitle(Option$)
   MenuItem(#Preferences,Preferences$)
    MenuBar()
   MenuItem(#UsePage,UsePage$)
   MenuItem(#EmptyPage,EmptyPage$)
  MenuTitle(Other$)
   MenuItem(#Minimize,Minimize$)
   MenuItem(#Hide,Hide$+Chr(9)+Crtl$+"+H")
    MenuBar()
   MenuItem(#Print,Print$)
    MenuBar()
   MenuItem(#Fav,Fav$)
   MenuItem(#Explorer,Explorer$)
  MenuTitle(Help$)
   MenuItem(#Help,Help$+Chr(9)+"F1")
    MenuBar()
   MenuItem(#About,About$)
  MenuTitle(User$)
   MenuItem(#ChangeUser,ChangeUser$+Chr(9)+Crtl$+"+C")
 EndIf

 If CreatePopupMenu(1)
  MenuTitle(File$)
   MenuItem(#Open,Open$)
   MenuItem(#Save,Save$)
    MenuBar()
   MenuItem(#Quit,Quit$)
  MenuTitle(Page$)
   MenuItem(#Load,Load$)
    MenuBar()
   MenuItem(#Back,Back$)
   MenuItem(#Forward,Forward$)
    MenuBar()
   MenuItem(#Stop,Stop$)
  MenuTitle(Option$)
   MenuItem(#Preferences,Preferences$)
    MenuBar()
   MenuItem(#UsePage,UsePage$)
   MenuItem(#EmptyPage,EmptyPage$)
  MenuTitle(Other$)
   MenuItem(#Maximize,Maximize$)
    MenuBar()
   MenuItem(#Explorer,Explorer$)
 EndIf

 If CreateStatusBar(0,WindowID())
  AddStatusBarField(StatusBarWidth)
  AddStatusBarField(115)
  AddStatusBarField(185)
 EndIf

 If CreateToolBar(0,WindowID())
  ToolBarStandardButton(#Open,#PB_ToolBarIcon_Open)
  ToolBarStandardButton(#Save,#PB_ToolBarIcon_Save)
   ToolBarSeparator()
  ToolBarStandardButton(#Back,#PB_ToolBarIcon_Undo)
  ToolBarStandardButton(#Forward,#PB_ToolBarIcon_Redo)
   ToolBarSeparator()
  ToolBarStandardButton(#Stop,#PB_ToolBarIcon_Delete)
  ToolBarImageButton   (#Home,LoadImage(1,StartIco$))
   ToolBarSeparator()
  ToolBarStandardButton(#Preferences,#PB_ToolBarIcon_Properties)
  ToolBarToolTip(#Open,Open$+"  "+Crtl$+"+O")
  ToolBarToolTip(#Save,Save$+"  "+Crtl$+"+S")
  ToolBarToolTip(#Back,Back$+"  "+Crtl$+"+B")
  ToolBarToolTip(#Forward,Forward$+"  "+Crtl$+"+F")
  ToolBarToolTip(#Stop,Stop$+"  "+Crtl$+"+X")
  ToolBarToolTip(#Home,Startpage$+"  "+Crtl$+"+P ["+Start$+"]")
  ToolBarToolTip(#Preferences,Preferences$)
 EndIf

  Resize()

  EndGadget=27
  For a=6 To EndGadget
   HideGadget(a,1)
  Next
  For a=28 To 33
   HideGadget(a,1)
  Next
  WebObject.IWebBrowser2=GetWindowLong_(GadgetID(5),#GWL_USERDATA) 

  Repeat
   Reset:
   If Transparency=1 Or Trans=0
    SetWinTransparency(0,0)
    OpenFile(0,GetSpecialFolderLocation($0)+"Transparency.txt")
     Transparency=ReadLong()
    CloseFile(0)
    Delay(1000)
   Else
    SetWinTransparency(0,Trans)
   EndIf

   If GetGadgetState(21)=1
    L=1
   Else
    L=0
   EndIf

   If GetGadgetState(22)=1
    P=1
   Else
    P=0
   EndIf

   If GetGadgetState(23)=1
    S=1
   Else
    S=0
   EndIf

   If GetGadgetState(24)=1
    LP=1
   Else
    LP=0
   EndIf

   If GetGadgetState(9)=1
    DisableGadget(10,0)
   Else
    DisableGadget(10,1)
   EndIf

   StatusBarText(0,0,GetGadgetText(5))
   StatusBarText(0,1,FormatDate(Maske$,Date()))
   StatusBarText(0,2,CU$)

   Event=WaitWindowEvent()
    Select Event

     Case #PB_Event_Hotkey
      Select EventwParam()
       Case #Open
        Goto MenuOpen:
       Case #Save
        Goto MenuSave:
       Case #Quit
        Goto MenuQuit:
       Case #Load
        Goto MenuRefresh:
       Case #Back
        Goto MenuBack:
       Case #Forward
        Goto MenuForward:
       Case #Stop
        Goto MenuStop:
       Case #Home
        Goto MenuHome:
       Case #Help
        Goto MenuHelp:
       Case #Refresh
        SetGadgetText(5,GetGadgetText(3))
       Case #ChangeUser
        Goto ChangeUser:
       Case #Hide
        Goto Hide:
       Case #DeleteStart
        Del=MessageRequester(Title$,DeleteStart$+"?",#PB_MessageRequester_YesNo|#MB_ICONQUESTION)
         If Del=6
          If DeleteFile(StartUp$)
           MessageRequester(Title$,DeleteStart$+"!",#MB_ICONINFORMATION)
          Else
           MessageRequester(Title$,Error$+"!",#MB_ICONERROR)
          EndIf
         EndIf
      EndSelect

     Case #PB_Event_Gadget
      Select EventGadgetID()
       Case 0
        SetGadgetState(5,#PB_Web_Back)
       Case 1
        SetGadgetState(5,#PB_Web_Forward)
       Case 2
        SetGadgetState(5,#PB_Web_Stop)
       Case 4
        If GetGadgetText(3)="Power_Off"
         Goto Quit:
        Else
         SetGadgetText(5,GetGadgetText(3))
        EndIf
       Case 7
        SetGadgetText(10,"about:blank")
       Case 8
        SetGadgetText(10,GetGadgetText(5))
       Case 12
        SetGadgetText(13,Language$)
        ClearGadgetItemList(11)
         If ExamineDirectory(0,System$+"Language\","*."+LangExt$)
          Repeat
           FileType=NextDirectoryEntry()
           If FileType
            FileName$=DirectoryEntryName()
             AddGadgetItem(11,-1,FileName$)
           EndIf
          Until FileType=0
         EndIf
       Case 14
        Maske$="%dd/%mm/%yyyy"
       Case 15
        Maske$="%hh:%ii:%ss"
       Case 16
        Maske$="%hh:%ii:%ss - %dd/%mm/%yyyy"
       Case 17
        If OpenConsole()
         ConsoleTitle(Title$)
          CL(0,10)
           PrintN(Other$)
          CL(0,12)
           PrintN("d")
           PrintN("h")
           PrintN("i")
           PrintN("m")
           PrintN("s")
           PrintN("y")
           PrintN("%")
          CL(1,20)
           Maske$=Input()
         CloseConsole()
        EndIf
       Case 18
        IO$=OpenFileRequester(Import$,"",Preferences$+"|*.prefs;*.ini;*.inf|"+AllFiles$+"|*.*",0)
         If IO$
          If ReadFile(0,IO$)
           If ReadString()="[Window]"
            CloseFile(0)
              CopyFile(IO$,System$+"Setting.ini")
            MessageRequester(Title$,"DONE!",#MB_ICONINFORMATION)
           Else
            MessageRequester(Title$,Error$+"!",#MB_ICONERROR)
           EndIf
          EndIf
         EndIf
       Case 19
        ES$=SaveFileRequester(Export$,"",AllFiles$+"|*.*",0)
         If ES$
          If S=1
           CopyFile(System$+"Start.nwl",GetPathPart(ES$)+"Start.nwl")
          EndIf
          If P=1
           CopyFile(System$+"Setting.ini",ES$)
          EndIf
          If LP=1
           If GetPathPart(ES$)+"HTML\"
           Else
            CreateDirectory(GetPathPart(ES$)+"HTML\")
           EndIf
           CopyDirectory(System$+"HTML\",GetPathPart(ES$)+"HTML\","*.htm;*.html;*.nwl",#PB_FileSystem_Recursive)
          EndIf
          If L=1
           If GetPathPart(ES$)+"Language\"
           Else
            CreateDirectory(GetPathPart(ES$)+"Language\")
           EndIf
           CopyDirectory(System$+"Language\",GetPathPart(ES$)+"Language\","*."+ExtLang$)
          EndIf
         EndIf
       Case 25
        OK=1
        Goto SavePreferences:
       Case 26
        SavePreferences:
        Prefs=MessageRequester(Title$,SavePrefs$,#PB_MessageRequester_YesNo|#MB_ICONQUESTION)
         If Prefs=6
          If CreatePreferences(Setting$)
            PreferenceGroup("Window")
             WritePreferenceString("PosX"     ,Str(WindowX()))
             WritePreferenceString("PosY"     ,Str(WindowY()))
             WritePreferenceString("Width"    ,Str(WindowWidth()))
             WritePreferenceString("Height"   ,Str(WindowHeight()))
             WritePreferenceString("Title"    ,GetWindowTitle(0))
             WritePreferenceString("Trans"    ,Transpa$)
            PreferenceGroup("Path")
             WritePreferenceString("HTML"     ,HTML$)
             WritePreferenceString("System"   ,GetAppPath())
            PreferenceGroup("Page")
             WritePreferenceString("OPlattern",OpenPlattern$)
             WritePreferenceString("SPlattern",SavePlattern$)
            PreferenceGroup("Other")
             WritePreferenceString("Language" ,Language$)
             WritePreferenceString("LangExt"  ,LangExt$)
             WritePreferenceString("HomeIcon" ,StartIco$)
             WritePreferenceString("StatusBar",Str(StatusBarWidth))
             WritePreferenceString("TimeDate" ,Maske$)
             WritePreferenceString("SysTray"  ,SysTray$)
             WritePreferenceString("Mozilla"  ,Mozilla$)
           ClosePreferences()
           CreateFile(1,StartUp$)
            WriteString(GetGadgetText(10))
           CloseFile(1)
           MessageRequester(Title$,DSavePrefs$,#MB_ICONINFORMATION)
          Else
           MessageRequester(Title$,ESavePrefs$,#MB_ICONERROR)
          EndIf
         Else
          MessageRequester(Title$,CSavePrefs$,#MB_ICONINFORMATION)
         EndIf
         If OK=1
          Goto CancelPreferences:
         EndIf
       Case 27
        CancelPreferences:
        OpenPreferences(Setting$)
         PreferenceGroup("Window")
          PosX$    =ReadPreferenceString("PosX"     ,"100")
          PosY$    =ReadPreferenceString("PosY"     ,"100")
          Width$   =ReadPreferenceString("Width"    ,"300")
          Height$  =ReadPreferenceString("Height"   ,"300")
          Title$   =ReadPreferenceString("Title"    ,"InternetBrowser 8")
          Transpa$ =ReadPreferenceString("Trans"    ,"100")
         PreferenceGroup("Path")
          HTML$    =ReadPreferenceString("HTML"     ,"HTML\")
          System$  =ReadPreferenceString("System"   ,GetAppPath())
         PreferenceGroup("Page")
          OpenPl$  =ReadPreferenceString("OPlattern","HTML/Link|*.htm,*.html*.nwl")
          SavePl$  =ReadPreferenceString("SPlattern","Link|*.nwl")
         PreferenceGroup("Other")
          Language$=ReadPreferenceString("Language" ,"English")
          LangExt$ =ReadPreferenceString("LangExt"  ,"lang")
          StartIco$=ReadPreferenceString("HomeIcon" ,"Icons\Home.ico")
          StatusB$ =ReadPreferenceString("StatusBar","1000")
          Maske$   =ReadPreferenceString("TimeDate" ,"%hh:%ii:%ss - %dd/%mm/%yyyy")
          SysTray$ =ReadPreferenceString("SysTray"  ,"Icons\Tray.ico")
          Mozilla$ =ReadPreferenceString("Mozilla"  ,"0")
        ClosePreferences()

          PosX          =Val(PosX$)
          PosY          =Val(PosY$)
          Trans         =Val(Transpa$)
          Width         =Val(Width$)
          Height        =Val(Height$)
          StatusBarWidth=Val(StatusB$)
          Mozilla       =Val(Mozilla$)
          OpenPlattern$ =OpenPl$
          SavePlattern$ =SavePl$

           If SaveLong=1
            Autosave=1
            Current =0
            Empty   =0
           ElseIf SaveLong=2
            Autosave=0
            Current =1
            Empty   =0
           Else
            Autosave=0
            Current =0
            Empty   =1
           EndIf

        For a=0 To 5
         HideGadget(a,0)
        Next
        For a=6 To EndGadget
         HideGadget(a,1)
        Next
       Case 33
        For a=0 To 5
         HideGadget(a,0)
        Next
        For a=6 To 33
         HideGadget(a,1)
        Next
      EndSelect

      Select EventType()
       Case 2
        RunProgram(Windows$+"Notepad.exe",System$+"Language\"+GetGadgetText(11),"C:\Windows\")
      EndSelect

     Case #PB_Event_Menu
      Select EventMenuID()
       Case #Open
        MenuOpen:
        Find$=OpenFileRequester(Open$,HTML$,"HTML/Link|*.htm;*.html;*.nwl|"+AllFiles$+"|*.*",0)
         If Find$
          If GetExtensionPart(Find$)="nwl"
           OpenFile(1,Find$)
            SetPage$=ReadString()
           CloseFile(1)
          Else
           SetPage$=Find$
          EndIf
          SetGadgetText(5,SetPage$)
         EndIf
       Case #Save
        MenuSave:
        Store$=SaveFileRequester(Save$,HTML$,SavePlattern$,0)
         If Store$
          If GetExtensionPart(Store$)="nwl"
           Ext$=""
          Else
           Ext$="nwl"
          EndIf
          CreateFile(1,Store$+Ext$)
           WriteString(GetGadgetText(5))
          CloseFile(1)
         EndIf
       Case #Quit
        MenuQuit:
        Quit:
         Quit=MessageRequester(Title$,Quit$+"?",#PB_MessageRequester_YesNo|#MB_ICONQUESTION)
          If Quit=6
           If Change  =1
            Change=0
            Goto ChooseUser:
           EndIf
           If Autosave=1
            CreateFile(2,System$+"Start.nwl")
             WriteString(GetGadgetText(5))
            CloseFile(2)
           EndIf
           CreateFile(4,"Save.sys")
            WriteLong(SaveLong)
           CloseFile(4)
           End
          Else
           Goto Reset:
          EndIf
       Case #Load
        MenuRefresh:
        SetGadgetState(5,#PB_Web_Refresh)
       Case #Back
        MenuBack:
        SetGadgetState(5,#PB_Web_Back)
       Case #Forward
        MenuForward:
        SetGadgetState(5,#PB_Web_Forward)
       Case #Stop
        MenuStop:
        SetGadgetState(5,#PB_Web_Stop)
       Case #Preferences
        For a=0 To 5
         HideGadget(a,1)
        Next
        For a=6 To EndGadget
         HideGadget(a,0)
        Next
       Case #UsePage
        CreateFile(3,StartUp$)
         WriteString(GetGadgetText(5))
        CloseFile(3)
       Case #EmptyPage
        CreateFile(0,StartUp$)
         WriteString("about:blank")
        CloseFile(0)
       Case #Minimize
        If AddSysTrayIcon(0,WindowID(),LoadImage(0,SysTray$))
         HideWindow(0,1)
         SysTrayIconToolTip(0,Title$)
        Else
         MessageRequester(Title$,"Kann kein Systrayicon finden (wird benützt?)!"+Chr(13)+"Can not found any Systrayicon (using?)!",#MB_ICONERROR)
        EndIf
       Case #Home
        MenuHome:
        SetGadgetText(5,Start$)
       Case #Help
        MenuHelp:
        SetGadgetText(5,System$+"Help\Help.htm")
       Case #About
        For a=0 To 27
         HideGadget(a,1)
        Next
        For a=28 To 33
         HideGadget(a,0)
        Next
       Case #Maximize
        Goto Maximize:
       Case #Hide
        Hide:
        If HideWindow=1
         HideWindow(0,0)
         HideWindow=0
        Else
         HideWindow(0,1)
         HideWindow=1
        EndIf
       Case #Explorer
        RunProgram(System$+"Data\Explorer.exe")
       Case #Fav
        SetGadgetText(5,Fa$)
       Case #ChangeUser
        ChangeUser:
        Change=MessageRequester(Title$,ChangeUser$+"?",#PB_MessageRequester_YesNo|#MB_ICONQUESTION)
         If Change=6
          Change=1
          Count =0
          Goto Quit:
         EndIf
       Case #Print
        WebObject\ExecWB(#OLECMDID_PRINT,#OLECMDEXECOPT_PROMPTUSER,0,0) 
      EndSelect

     Case #PB_Event_SysTray
      Select EventType()
       Case 1
        DisplayPopupMenu(1,WindowID())
       Case 2
        Maximize:
        HideWindow(0,0)
        RemoveSysTrayIcon(0)
      EndSelect

     Case #PB_Event_SizeWindow
      Resize()
    EndSelect

  Until Event=#PB_Event_CloseWindow
   Goto Quit:
EndIf