Neuer InternetBrowser

Für allgemeine Fragen zur Programmierung mit PureBasic.
Antworten
Benutzeravatar
Programie
Beiträge: 1280
Registriert: 06.08.2005 22:56
Computerausstattung: https://www.sysprofile.de/id160800
Wohnort: Gernsbach
Kontaktdaten:
Kontaktdaten von Programie

Neuer InternetBrowser

Beitrag von Programie »

Ich habe mein neuen InternetBrowser (v8.0) fast fertig geproggt. Nur eins fehlt noch: Ich möchte, dass man mit ihm Dateien öffnen kann (z.B. Ich doppelklicke auf die Datei Test.htm und dann soll diese Datei in meinem InternetBrowser angezeigt werden (Der Inhalt!)). Weiß jemand, wie dass geht??? :mrgreen:
BildBildBildBild
Nach oben
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:
Kontaktdaten von MVXA

Beitrag von MVXA »

Ja, dein Programm in die Registry eintragen. Foren haben ne echt geile
Funktion, die nennt sich "Suchen". Das was ganz tolles mit dem man dem
Forum den Befehl gibt etwas zu suchen.
Bild
Nach oben
Benutzeravatar
Programie
Beiträge: 1280
Registriert: 06.08.2005 22:56
Computerausstattung: https://www.sysprofile.de/id160800
Wohnort: Gernsbach
Kontaktdaten:
Kontaktdaten von Programie

Beitrag von Programie »

Ich meine damit nicht, dass Programm zu den Erweiterungen zu hinzufügen, sondern ich suche eine Funktion, mit der mann (oder Frau) den Pfad einer Externen Datei anzeigt (Beispiel: siehe oben).
BildBildBildBild
Nach oben
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:
Kontaktdaten von MVXA

Beitrag von MVXA »

PB-Hilfe hat geschrieben:SetGadgetText()

Syntax

SetGadgetText(#Gadget, Text$)
Beschreibung

Ändert den Inhalt des Gadget-Textes im angegebenen #Gadget. Dieser Befehl ist insbesondere nützlich bei:

- WebGadget(): ändert die aktuelle URL.
Meintest du das? Da kannst du auch den PFad zu einer Datei angeben.
Bild
Nach oben
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

Hallo Programie!!!

Ich freue mich für dich, dass du (bald) (d)ein neues release deines browsers rausbringst.

Aber ich sehe hier keinen downloadlink?

Jedenfalls: Version 8 ! Ist ja Hammer! Weißt du noch damals, Programie, als du deine erste Version veröffentlicht hast? Klick hier: http://forums.purebasic.com/german/view ... he&start=9

Allerdings warst du da doch noch Anfänger, oder? Naja, jedenfalls: LASS MAL DEN LINK SPRINGEN! ;-)
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Nach oben
Benutzeravatar
Programie
Beiträge: 1280
Registriert: 06.08.2005 22:56
Computerausstattung: https://www.sysprofile.de/id160800
Wohnort: Gernsbach
Kontaktdaten:
Kontaktdaten von Programie

Beitrag von Programie »

Die Version 8 vom InternetBrowser ist zwar nicht ganz fertig (95%), aber hier ist mal der Code zum testen (Und noch einmal: er ist noch nicht fertig! :roll: )

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
BildBildBildBild
Nach oben
Benutzeravatar
Programie
Beiträge: 1280
Registriert: 06.08.2005 22:56
Computerausstattung: https://www.sysprofile.de/id160800
Wohnort: Gernsbach
Kontaktdaten:
Kontaktdaten von Programie

Beitrag von Programie »

Großer code aber es ist der InternetBrowser 8!

Hab noch was vergessen:

Eine frage. Wie kann man Programme in das Internet setzen? :shock:
BildBildBildBild
Nach oben
Benutzeravatar
Batze
Beiträge: 1492
Registriert: 03.06.2005 21:58
Wohnort: Berlin
Kontaktdaten:
Kontaktdaten von Batze

Beitrag von Batze »

Um deine Programme zu posten brauchst du Webspace.
http://forums.purebasic.com/german/viewtopic.php?t=5035
Hier sind meine Codes (aber die Seite geht gerade nicht):
http://www.basicpure.de.vu
Nach oben
ramseier
Beiträge: 15
Registriert: 11.11.2004 14:54
Kontaktdaten:
Kontaktdaten von ramseier

Beitrag von ramseier »

Hmm.. ich komme nicht über den Userdialog hinaus.
Egal was ich anklicke sagt er mir "kann User nicht laden"
Nach oben
Benutzeravatar
Programie
Beiträge: 1280
Registriert: 06.08.2005 22:56
Computerausstattung: https://www.sysprofile.de/id160800
Wohnort: Gernsbach
Kontaktdaten:
Kontaktdaten von Programie

Beitrag von Programie »

Kann mir jemand erklären, wie ich Webspace für meine PureBasic Projekte bekomme?
BildBildBildBild
Nach oben
Antworten

Zurück zu „Allgemein“