Jump to content
Sign in to follow this  
JavaScript_Freek

Make it all neat

Recommended Posts

JavaScript_Freek

Ok the problem is the thing is offseted. I was wondering if anyone could make the browser page and the tabs neat.

CODE

; *******************************************************

; Nelmen Browser by keen

; Special thanks to Dan!

; *******************************************************

;

#include <GUIConstants.au3>

#include <IE.au3>

#include <GuiTab.au3>

global $tabcount = 1

dim $aTabs[1]

_IEErrorHandlerRegister ()

GUISetState() ;Show GUI

$gui = GUICreate("Nelmen Browser", 1000, 850, _

(@DesktopWidth - 1300) / 2, (@DesktopHeight - 870) / 2, _

$WS_MAXIMIZE + $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

GUICtrlSetResizing (-1,$GUI_DOCKMENUBAR+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKBOTTOM)

$size = WinGetClientSize($gui)

$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)

$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)

$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)

$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)

$GUI_Button_AddTab = GUICtrlCreateButton ("Add Tab", 10, 10, 100)

$tab=GUICtrlCreateTab (3,60, 875,610)

GUICtrlSetResizing (-1,$GUI_DOCKMENUBAR+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKBOTTOM)

$oIE = _IECreateEmbedded ()

$GUIActiveX = GUICtrlCreateObj($oIE, 10, 100, 870, 600)

addtab()

GUISetState() ;Show GUI

_IENavigate ($oIE, "http://www.zetastyles.com")

; Waiting for user to close the window

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

Case $msg = $GUI_Button_Home

_IENavigate ($oIE, "http://www.zetastyles.com")

Case $msg = $GUI_Button_Back

_IEAction ($oIE, "back")

Case $msg = $GUI_Button_Forward

_IEAction ($oIE, "forward")

Case $msg = $GUI_Button_Stop

_IEAction ($oIE, "stop")

Case $msg = $GUI_Button_AddTab

addtab()

EndSelect

WEnd

func addtab()

redim $aTabs[$tabcount]

$aTabs[$tabcount-1] = GUICtrlCreateTabitem ("Tab "&$tabcount)

GUICtrlSetResizing (-1,$GUI_DOCKMENUBAR+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKBOTTOM)

GUICtrlSetStyle(-1,$WS_VISIBLE)

GUICtrlCreateTabitem (""); end tabitem definition

$tabcount += 1

EndFunc

GUIDelete()

Exit


[center]Cookyx.com :: Simple LAN Chat[/center]

Share this post


Link to post
Share on other sites
CWorks

this code gives loads of errors but does work

this will put the main window in center your code for this was all wrong

$gui = GUICreate("Nelmen Browser", 1000, 850, -1, -1, $WS_MAXIMIZE + $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

not sure what else to fix first :P

$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 720, 100, 30)

$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 720, 100, 30)

$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 720, 100, 30)

$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 720, 100, 30)

not sure what you want exactly

but with resizing enabled you would need to have a way to change button position so i just gave it a static size

i didn't fix your errors though

; *******************************************************
; Nelmen Browser by keen
; Special thanks to Dan!
; *******************************************************
;
#include <GUIConstants.au3>
#include <IE.au3>
#include <GuiTab.au3>
Global $tabcount = 1
Dim $aTabs[1]


_IEErrorHandlerRegister ()

GUISetState() ;Show GUI
GUICreate("Nelmen Browser", 890, 760, -1, -1)

$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 720, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 720, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 720, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 720, 100, 30)
$GUI_Button_AddTab = GUICtrlCreateButton("Add Tab", 10, 10, 100)

GUICtrlCreateTab(3, 60, 880, 645)

$oIE = _IECreateEmbedded ()
GUICtrlCreateObj ($oIE, 10, 100, 870, 600)


addtab()

GUISetState() ;Show GUI

_IENavigate ($oIE, "http://www.zetastyles.com")

; Waiting for user to close the window
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $GUI_Button_Home
            _IENavigate ($oIE, "http://www.zetastyles.com")
        Case $msg = $GUI_Button_Back
            _IEAction ($oIE, "back")
        Case $msg = $GUI_Button_Forward
            _IEAction ($oIE, "forward")
        Case $msg = $GUI_Button_Stop
            _IEAction ($oIE, "stop")
        Case $msg = $GUI_Button_AddTab
            addtab()
    EndSelect
WEnd


Func addtab()
    ReDim $aTabs[$tabcount]
    $aTabs[$tabcount - 1] = GUICtrlCreateTabItem("Tab " & $tabcount)
    GUICtrlSetStyle(-1, $WS_VISIBLE)
    GUICtrlCreateTabItem(""); end tabitem definition
    $tabcount += 1
EndFunc
Edited by CWorks

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.