help me please?

[picaxe]

Try this

expandcollapse popup

#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>

#NoTrayIcon

Global $defaultstatus = "Ready", $numinput, $status, $readnum

$MainWindow = GUICreate("# = Save Name", 200, 100, -1, -1)
    $numspot = GUICtrlCreateGroup("Special Number", 8, 0, 147, 49)
        $numinput = GUICtrlCreateInput("", 24, 16, 123, 21,$ES_NUMBER)
        GUICtrlCreateGroup("", -99, -99, 1, 1)    
    $statuslabel = GUICtrlCreateLabel ($defaultstatus,1,58,198,16,BitOr($SS_SIMPLE,$SS_SUNKEN))

    $filemenu = GUICtrlCreateMenu ("&File")
        $fileitem = GUICtrlCreateMenuitem ("Open",$filemenu)
            GUICtrlSetState(-1,$GUI_DEFBUTTON)
        $recentfilesmenu = GUICtrlCreateMenu ("Recent Files",$filemenu,1)
        $separator1 = GUICtrlCreateMenuitem ("",$filemenu,2)
        $saveitem = GUICtrlCreateMenuitem ("Save",$filemenu)
            GUICtrlSetState(-1,$GUI_DISABLE)
        $saveasitem = GUICtrlCreateMenuitem ("Save As",$filemenu)    
        $separator2 = GUICtrlCreateMenuitem ("",$filemenu,5)
        $exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)
    
    $helpmenu = GUICtrlCreateMenu ("Help")
        $infoitem = GUICtrlCreateMenuitem ("Info",$helpmenu)

    $viewmenu = GUICtrlCreateMenu("View",-1,1)
        $viewstatusitem = GUICtrlCreateMenuitem ("Statusbar",$viewmenu)
            GUICtrlSetState(-1,$GUI_CHECKED)
        $readonlyitem = GUICtrlCreateMenuitem ("Read Only",$viewmenu)
            GUICtrlSetState(-1,$GUI_UNCHECKED)

GUISetState ()
While 1
    $msg = GUIGetMsg()

    If $msg = $fileitem Then
        $file = FileOpenDialog("Choose file...",@ScriptDir & "\Test","Configeration Files (*.ini)|Text files (*.txt)|All (*.*))")
        If @error <> 1 Then 
            _load($file)
            GUICtrlSetState($saveitem, $GUI_ENABLE)    
            GUICtrlCreateMenuitem ($file,$recentfilesmenu)
        EndIf
    ElseIf $msg = $saveasitem Then
        $file = FileSaveDialog( "Choose a name.",@ScriptDir & "\Test","Configeration Files (*.ini)|Text files (*.txt)|All (*.*)",0, GUICtrlRead($numinput))
        If @error <> 1 Then
            If StringInStr($file, ".") = 0 Then $file &= ".ini"
            _save($file)
            GUICtrlSetState($saveitem, $GUI_ENABLE)    
            GUICtrlCreateMenuitem ($file,$recentfilesmenu)
        EndIf        
    ElseIf $msg = $saveitem Then
        _save($file)
        GUICtrlCreateMenuitem ($file,$recentfilesmenu)
    Endif

    If $msg = $viewstatusitem Then
        If BitAnd(GUICtrlRead($viewstatusitem),$GUI_CHECKED) = $GUI_CHECKED Then
            GUICtrlSetState($viewstatusitem,$GUI_UNCHECKED)
            GUICtrlSetState($statuslabel,$GUI_HIDE)
        Else
            GUICtrlSetState($viewstatusitem,$GUI_CHECKED)
            GUICtrlSetState($statuslabel,$GUI_SHOW)
        EndIf
    EndIf
    If $msg = $readonlyitem Then
        If BitAnd(GUICtrlRead($readonlyitem ),$GUI_CHECKED) = $GUI_CHECKED Then
            GUICtrlSetState($readonlyitem,$GUI_UNCHECKED)
            GUICtrlSetState($numinput,$GUI_ENABLE)
        Else
            _disable()
        EndIf
    EndIf
    If $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Then Exit
    If $msg = $infoitem Then About()
WEnd
Func _save($file)
    IniWrite($file, "Special Number", "Special Number", GUICtrlRead($numinput))
EndFunc
Func _load($file)
    $readnum = IniRead($file, "Special Number", "Special Number","not found")
    MsgBox(1,"test", $readnum)
    GUICtrlSetData($numinput, $readnum)
    _disable()
EndFunc    
Func About()
    Msgbox(0,"Info","Only a test...")
EndFunc
Func _disable()
    GUICtrlSetState($readonlyitem,$GUI_CHECKED)
    GUICtrlSetState($numinput,$GUI_DISABLE)
EndFunc

[Golbez]

his worked. . i was retarted and added something then forgot to take it out after i saved it..

another question...

i added a edit box so i could type my heart way... but when i disable it i can not use the scroll function anymore... is there a way to disable being able type in the box and be able to still scroll through the text?

expandcollapse popup

#include <GUIConstants.au3>
#include <editconstants.au3>
#include <staticconstants.au3>

#NoTrayIcon

Global $defaultstatus = "Ready", $numinput, $status, $readnum

$MainWindow = GUICreate("# = Save Name", 165, 200, -1, -1)
    $numspot = GUICtrlCreateGroup("Special Number", 8, 0, 147, 49)
        $numinput = GUICtrlCreateInput("", 24, 16, 123, 21,$ES_NUMBER)
        GUICtrlCreateGroup("", -99, -99, 1, 1)  
    $wordspot = GUICtrlCreateGroup("Special words", 8, 50, 147, 100)
        $wordinput = GUICtrlCreateEdit("", 24, 70, 120, 70, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
            GUICtrlCreateGroup("", -99, -99, 1, 1)

    $statuslabel = GUICtrlCreateLabel ($defaultstatus,0,164,165,16,BitOr($SS_SIMPLE,$SS_SUNKEN))

    $filemenu = GUICtrlCreateMenu ("&File")
        $newitem = GUICtrlCreateMenuitem ("New",$filemenu)
        $fileitem = GUICtrlCreateMenuitem ("Open",$filemenu)
            GUICtrlSetState(-1,$GUI_DEFBUTTON)
        $recentfilesmenu = GUICtrlCreateMenu ("Recent Files",$filemenu,1)
        $saveitem = GUICtrlCreateMenuitem ("Save",$filemenu)
           GUICtrlSetState(-1,$GUI_DISABLE)
        $saveasitem = GUICtrlCreateMenuitem ("Save As",$filemenu)  
        $exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)
  
    $helpmenu = GUICtrlCreateMenu ("Help")
        $infoitem = GUICtrlCreateMenuitem ("Info",$helpmenu)

    $viewmenu = GUICtrlCreateMenu("View",-1,1)
        $viewstatusitem = GUICtrlCreateMenuitem ("Statusbar",$viewmenu)
            GUICtrlSetState(-1,$GUI_CHECKED)
        $readonlyitem = GUICtrlCreateMenuitem ("Read Only",$viewmenu)
            GUICtrlSetState(-1,$GUI_UNCHECKED)

GUISetState ()
While 1
    $msg = GUIGetMsg()

    If $msg = $fileitem Then
        $file = FileOpenDialog("Choose file...",@ScriptDir & "\Test","Configeration Files (*.ini)|All (*.*))")
        If @error <> 1 Then
            _load($file)
            GUICtrlSetState($saveitem, $GUI_ENABLE)  
            GUICtrlCreateMenuitem ($file,$recentfilesmenu)
        EndIf
    ElseIf $msg = $saveasitem Then
        $file = FileSaveDialog( "Choose a name.",@ScriptDir & "\Test","Configeration Files (*.ini)|All (*.*)",0, GUICtrlRead($numinput))
        If @error <> 1 Then
            _save($file, StringRegExp($file,  "(.*)(\.ini)"))
            GUICtrlSetState($saveitem, $GUI_ENABLE)  
            GUICtrlCreateMenuitem ($file,$recentfilesmenu)
        EndIf
      
   ElseIf $msg = $saveitem Then
       $file = GUICtrlRead($numinput)
        _save($file, StringRegExp($file,  "(.*)(\.ini)"))
        GUICtrlCreateMenuitem ($file,$recentfilesmenu)
    Endif

    If $msg = $viewstatusitem Then
        If BitAnd(GUICtrlRead($viewstatusitem),$GUI_CHECKED) = $GUI_CHECKED Then
            GUICtrlSetState($viewstatusitem,$GUI_UNCHECKED)
            GUICtrlSetState($statuslabel,$GUI_HIDE)
        Else
            GUICtrlSetState($viewstatusitem,$GUI_CHECKED)
            GUICtrlSetState($statuslabel,$GUI_SHOW)
        EndIf
    EndIf
    If $msg = $readonlyitem Then
        If BitAnd(GUICtrlRead($readonlyitem ),$GUI_CHECKED) = $GUI_CHECKED Then
            _enable()
        Else
            _disable()
        EndIf
    EndIf
    If $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Then Exit
    If $msg = $infoitem Then About()
    If $msg = $newitem Then new()
WEnd
Func _save($file, $inifound)
    If $inifound = 0 Then
        $file = $file & ".ini"
    EndIf
    IniWrite($file, "Special", "Special Number", GUICtrlRead($numinput))
    IniWrite($file, "Special", "Special Word", GUICtrlRead($wordinput))
EndFunc
Func _load($file)
    $readnum = IniRead($file, "Special", "Special Number","Error reading.")
    $readword = IniRead($file, "Special", "Special Word","Error reading.")  
    GUICtrlSetData($numinput, $readnum)
    GUICtrlSetData($wordinput, $readword)
    _disable()
EndFunc  
Func About()
    Msgbox(0,"Info","Only a test...")
EndFunc
Func _enable()
    GUICtrlSetState($readonlyitem,$GUI_UNCHECKED)
    GUICtrlSetState($numinput,$GUI_ENABLE)
    GUICtrlSetState($wordinput,$GUI_ENABLE)
EndFunc
Func _disable()
    GUICtrlSetState($readonlyitem,$GUI_CHECKED)
    GUICtrlSetState($numinput,$GUI_DISABLE)
    GUICtrlSetState($wordinput,$GUI_DISABLE)
EndFunc
Func new()
    _enable()
    GUICtrlSetData($wordinput, "")
    GUICtrlSetData($numinput, "")
EndFunc

[Golbez]

got i hate the f***en sun im now a nice lovely red/pink

anyway.. i cant seem to figure it out..

[picaxe]

Try

Func _enable()
    GUICtrlSetState($readonlyitem,$GUI_UNCHECKED)
    GUICtrlSetState($numinput,$GUI_ENABLE)
    GUICtrlSetStyle($wordinput, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
EndFunc
Func _disable()
    GUICtrlSetState($readonlyitem,$GUI_CHECKED)
    GUICtrlSetState($numinput,$GUI_DISABLE)
    GUICtrlSetStyle($wordinput, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL,$ES_READONLY))
EndFunc

[Golbez]

Try

Func _enable()
    GUICtrlSetState($readonlyitem,$GUI_UNCHECKED)
    GUICtrlSetState($numinput,$GUI_ENABLE)
    GUICtrlSetStyle($wordinput, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
EndFunc
Func _disable()
    GUICtrlSetState($readonlyitem,$GUI_CHECKED)
    GUICtrlSetState($numinput,$GUI_DISABLE)
    GUICtrlSetStyle($wordinput, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL,$ES_READONLY))
EndFunc

ty i never thought of it that way