Jump to content

Scrolling Editbox? O.o


Guest InuTracy
 Share

Recommended Posts

Guest InuTracy

Well, i'm trying to make my editbox scroll for my chat log. Here's the code, if you can is there also another way to make it so you can't edit the contents? It's like a chat room but you can delete and type stuff into the edit box. X_x Don't worry I have it delete the Chatlog.txt when the program closes.

$ChatBox = GUICtrlCreateEdit ("", 5, 100,550,400,$ES_AUTOVSCROLL+$WS_VSCROLL)

_FileCreate ("ChatLog.txt")

Main()

Func Main()

                 While $Start=1

                              While $continue=1

                                          $Test = BYONDGetLine($WindowName)

                                          If $Test="0" Then

                                          Else

                                                      $FILE=FileOpen("Chatlog.txt",1)

                                                      FileWriteLine($FILE, ""&$Test&"")

                                                      FileClose($file)

                                                      $Chatzor = FileRead("ChatLog.txt", FileGetSize("ChatLog.txt"))

                                                      GuiCtrlSetData($Chatbox, $Chatzor)

                                                      Bot($Test)

                                          EndIf

                             WEnd

                 WEnd

EndFunc

Edited by InuTracy
Link to comment
Share on other sites

Guest InuTracy

Well, on another note. How can I make some kind of box or something with a chat log. Each line is retrieved with ByondGetLine($WindowName) as it is said, aka while 1. Can someone help me with that instead of my idea?

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...