Skip to content
Permalink
Browse files

"Enable URL detection" now applies to the whisper panel and individua…

…l whisper windows.
  • Loading branch information...
nmbook committed Oct 31, 2017
1 parent 521f418 commit c9d950e32a4dd61b079c2087e75b670ba5f15d66
Showing with 16 additions and 2 deletions.
  1. +3 −0 trunk/frmChat.frm
  2. +13 −2 trunk/frmWhisperWindow.frm
@@ -3297,6 +3297,7 @@ Sub Form_Unload(Cancel As Integer)
Call modWarden.WardenCleanup(WardenInstance)

DisableURLDetect frmChat.rtbChat.hWnd
DisableURLDetect frmChat.rtbWhispers.hWnd
UnhookWindowProc frmChat.hWnd

DestroyAllWWs
@@ -7265,8 +7266,10 @@ Sub ReloadConfig(Optional Mode As Byte = 0)

If Config.UrlDetection Then
EnableURLDetect rtbChat.hWnd
EnableURLDetect rtbWhispers.hWnd
Else
DisableURLDetect rtbChat.hWnd
DisableURLDetect rtbWhispers.hWnd
End If

' reload quotes file
@@ -122,13 +122,19 @@ Private Sub Form_Load()

With frmChat.rtbChat
rtbWhispers.Font.Name = .Font.Name
rtbWhispers.Font.Bold = .Font.Bold
rtbWhispers.Font.Size = .Font.Size
txtSend.Font.Name = .Font.Name
txtSend.Font.Bold = .Font.Bold
txtSend.Font.Size = .Font.Size
End With

#If (COMPILE_DEBUG = 0) Then
HookWindowProc Me.hWnd
#End If

If Config.UrlDetection Then
EnableURLDetect rtbWhispers.hWnd
End If

Form_Resize

' If Me.MyOldWndProc = 0 Then
@@ -138,6 +144,11 @@ End Sub

Private Sub Form_Unload(Cancel As Integer)
Call DestroyWW(m_imyIndex)

DisableURLDetect rtbWhispers.hWnd
#If (COMPILE_DEBUG = 0) Then
UnhookWindowProc Me.hWnd
#End If
End Sub

Private Sub mnuClose_Click()

0 comments on commit c9d950e

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