Skip to content
Permalink
Browse files

Auto-complete sort and cboSend event changes

- Should implement #4: Make tab auto-complete go to the shortest matching name first.
- Auto-complete now doesn't use MatchClosest(), this means we lose "@" auto-completion! May come back soon.
- Using the ALT+PGUP, ALT+PGDN, ALT+HOME, ALT+END, and ALT+INS/ALT+N
  keys now uses the normal listview highlighting ability (instead of .Ghosted)
- Using internal commands with free-form arguments such as /ban, /w, etc are now not processed by the command system:
  this means that lines starting like that will not be split with ";", etc.
  (the list of commands can be customized with Config.ServerCommandList)
  • Loading branch information...
nmbook committed May 1, 2016
1 parent 18c589b commit 87c496df07e30db7a474578b9262343dccfd2cae
Showing with 558 additions and 521 deletions.
  1. +11 −0 trunk/clsConfig.cls
  2. +455 −431 trunk/frmChat.frm
  3. +3 −3 trunk/frmDBManager.frm
  4. +2 −0 trunk/modGlobals.bas
  5. +38 −38 trunk/modOtherCode.bas
  6. +49 −49 trunk/modParsing.bas
@@ -213,6 +213,7 @@ Private m_RealmServerPassword As String
Private m_ProtocolID As Long
Private m_PlatformID As String
Private m_ProductLanguage As String
Private m_ServerCommandList As String
Private m_VersionBytes(8) As Long 'XXVerByte
Private m_LogonSystems(8) As Long 'XXLogonSystem

@@ -1461,6 +1462,14 @@ Public Property Let ProductLanguage(ByVal sValue As String)
m_ProductLanguage = sValue
End Property

Public Property Get ServerCommandList() As String
ServerCommandList = m_ServerCommandList
End Property

Public Property Let ServerCommandList(ByVal sValue As String)
m_ServerCommandList = sValue
End Property


'-------------------------
' SECTION: DEBUG
@@ -1743,6 +1752,7 @@ Public Sub Save(Optional ByVal sFilePath As String = vbNullString)
WriteSetting SECTION_EMULATION, "ProtocolID", m_ProtocolID
WriteSetting SECTION_EMULATION, "PlatformID", m_PlatformID
WriteSetting SECTION_EMULATION, "ProductLanguage", m_ProductLanguage
WriteSetting SECTION_EMULATION, "ServerCommandList", m_ServerCommandList

WriteSetting SECTION_DEBUG, "Warden", m_DebugWarden

@@ -1934,6 +1944,7 @@ Private Sub LoadDefaults()
m_ProtocolID = 0
m_PlatformID = "IX86"
m_ProductLanguage = vbNullString
m_ServerCommandList = "w %,whisper %,m %,msg %,f m,clan mail,c mail,clan motd,c motd,away,dnd,ban %,kick %,j,join,channel,me,emote"

Dim i As Integer
For i = LBound(m_ProductKeys) To UBound(m_ProductKeys)

0 comments on commit 87c496d

Please sign in to comment.
You can’t perform that action at this time.