Deltron

[keen]

It a simple beta text editor:

expandcollapse popup

#include <GUIConstants.au3>
#include <IE.au3>


$user = InputBox ("User" , "Please enter user:")
$Form1 = GUICreate("Deltron", 969, 744, 198, 124)
$Group1 = GUICtrlCreateGroup("Options", 232, 40, 457, 73)

$Button1 = GUICtrlCreateButton("New Document", 248, 72, 105, 25)
$SaveAs = GUICtrlCreateButton("Save", 408, 72, 105, 25)
$Open = GUICtrlCreateButton("Open", 568, 72, 105, 25)
GUICtrlCreateLabel("Logged in as: " & $user, 744, 8, 213, 20)
GUICtrlCreateLabel("Search:", 16, 8, 50, 20)
$Input1 = GUICtrlCreateInput("", 72, 8, 177, 24, -1, $WS_EX_CLIENTEDGE)
$Button4 = GUICtrlCreateButton("Go", 256, 8, 33, 25)
GUISetState(@SW_SHOW)


$Tab1 = GUICtrlCreateTab(24, 144, 921, 569)
GUICtrlCreateTabItem("Document One")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Two")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Three")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Four")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Five")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Six")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Seven")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")
GUICtrlCreateTabItem("Document Eight")
$Edit1 = GUICtrlCreateEdit("", 40, 175, 889, 520, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetData($Edit1, "")


While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
        
    Case $msg = $Button1
        GUICtrlSetData ($Edit1, "")
    Case $msg = $Button4
        $oIE = _IECreate ("http://www.google.com/search?hl=en&q="&$Input1)  
    Case $msg = $Open
            GUICtrlSetData($Edit1,Fileread(FileOpenDialog("Select a file to open",@ScriptDir, "All Files (*.*)")))
            If @error Then Exit
    Case $msg = $SaveAs
            $SaveDir = FileSaveDialog("Where would you like to save?",@MyDocumentsDir,"Text Document(*.txt)|Deltron Document (*.dtn)",16)
            If @error Then Exit
        

    EndSelect
WEnd
Exit

[keen]

Any comments?

[cool0403]

it doesnt save the file buddy plus it doesnt read files in document one only in document 8 need to work on it a lil bit more you thats a good headstart if you are a begginer . file save dialog will only choose the place to save it meaning it will only giv you the path of the place the user chose , it wont save it , for that you need filesave or filecreate