home *** CD-ROM | disk | FTP | other *** search
/ Chip Special: HTML & Java / Chip-Special_1997-01_HTML-a-Java.bin / chatsdk / chatsdk.exe / UISET.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-12  |  8.9 KB  |  291 lines
  1. VERSION 4.00
  2. Begin VB.Form UISettings 
  3.    BackColor       =   &H00C0FFC0&
  4.    Caption         =   "MSChat Control UI Setting"
  5.    ClientHeight    =   5070
  6.    ClientLeft      =   6840
  7.    ClientTop       =   2730
  8.    ClientWidth     =   4800
  9.    Height          =   5475
  10.    Left            =   6780
  11.    LinkTopic       =   "UISettings"
  12.    ScaleHeight     =   5070
  13.    ScaleWidth      =   4800
  14.    Top             =   2385
  15.    Width           =   4920
  16.    Begin VB.CommandButton cmdApply 
  17.       Caption         =   "Apply"
  18.       Height          =   375
  19.       Left            =   3480
  20.       TabIndex        =   14
  21.       Top             =   4560
  22.       Width           =   1215
  23.    End
  24.    Begin VB.CommandButton cmdCancel 
  25.       Caption         =   "Cancel"
  26.       Height          =   375
  27.       Left            =   2160
  28.       TabIndex        =   13
  29.       Top             =   4560
  30.       Width           =   1215
  31.    End
  32.    Begin VB.CommandButton cmdOK 
  33.       Caption         =   "OK"
  34.       Default         =   -1  'True
  35.       Height          =   375
  36.       Left            =   840
  37.       TabIndex        =   0
  38.       Top             =   4560
  39.       Width           =   1215
  40.    End
  41.    Begin VB.Frame Frame1 
  42.       BackColor       =   &H00C0FFC0&
  43.       Height          =   4215
  44.       Left            =   120
  45.       TabIndex        =   1
  46.       Top             =   120
  47.       Width           =   4575
  48.       Begin VB.CheckBox chkBut 
  49.          BackColor       =   &H00C0FFC0&
  50.          Caption         =   "Display Send Button?"
  51.          Height          =   255
  52.          Left            =   120
  53.          TabIndex        =   12
  54.          TabStop         =   0   'False
  55.          Top             =   3480
  56.          Width           =   4335
  57.       End
  58.       Begin VB.CheckBox chkMem 
  59.          BackColor       =   &H00C0FFC0&
  60.          Caption         =   "Display Member ListBox?"
  61.          Height          =   255
  62.          Left            =   120
  63.          TabIndex        =   11
  64.          TabStop         =   0   'False
  65.          Top             =   2400
  66.          Width           =   4335
  67.       End
  68.       Begin VB.CheckBox chkRec 
  69.          BackColor       =   &H00C0FFC0&
  70.          Caption         =   "Display Receive TextBox?"
  71.          Height          =   255
  72.          Left            =   120
  73.          TabIndex        =   10
  74.          TabStop         =   0   'False
  75.          Top             =   2760
  76.          Width           =   4335
  77.       End
  78.       Begin VB.CheckBox chkSen 
  79.          BackColor       =   &H00C0FFC0&
  80.          Caption         =   "Display Send TextBox?"
  81.          Height          =   255
  82.          Left            =   120
  83.          TabIndex        =   9
  84.          TabStop         =   0   'False
  85.          Top             =   3840
  86.          Width           =   4335
  87.       End
  88.       Begin VB.CheckBox chkDisplayError 
  89.          BackColor       =   &H00C0FFC0&
  90.          Caption         =   "Display error messages?"
  91.          Height          =   255
  92.          Left            =   120
  93.          TabIndex        =   8
  94.          Top             =   1680
  95.          Width           =   4335
  96.       End
  97.       Begin VB.CheckBox chkSensitiveURLs 
  98.          BackColor       =   &H00C0FFC0&
  99.          Caption         =   "Sensitive URLs in history window?"
  100.          Height          =   255
  101.          Left            =   120
  102.          TabIndex        =   7
  103.          Top             =   2040
  104.          Width           =   4335
  105.       End
  106.       Begin VB.CheckBox chkMemChg 
  107.          BackColor       =   &H00C0FFC0&
  108.          Caption         =   "Inform when privilege, alias changed or member kicked?"
  109.          Height          =   255
  110.          Left            =   120
  111.          TabIndex        =   6
  112.          Top             =   1320
  113.          Width           =   4335
  114.       End
  115.       Begin VB.CheckBox chkBlank 
  116.          BackColor       =   &H00C0FFC0&
  117.          Caption         =   "Insert blank line between revd messages?"
  118.          Height          =   255
  119.          Left            =   120
  120.          TabIndex        =   5
  121.          TabStop         =   0   'False
  122.          Top             =   240
  123.          Width           =   4335
  124.       End
  125.       Begin VB.CheckBox chkEnter 
  126.          BackColor       =   &H00C0FFC0&
  127.          Caption         =   "Inform when participant enters the room?"
  128.          Height          =   255
  129.          Left            =   120
  130.          TabIndex        =   4
  131.          TabStop         =   0   'False
  132.          Top             =   600
  133.          Width           =   4335
  134.       End
  135.       Begin VB.CheckBox chkLeave 
  136.          BackColor       =   &H00C0FFC0&
  137.          Caption         =   "Inform when participant leaves the room?"
  138.          Height          =   255
  139.          Left            =   120
  140.          TabIndex        =   3
  141.          TabStop         =   0   'False
  142.          Top             =   960
  143.          Width           =   4335
  144.       End
  145.       Begin VB.CheckBox chkWhi 
  146.          BackColor       =   &H00C0FFC0&
  147.          Caption         =   "Display Whisper Button?"
  148.          Height          =   255
  149.          Left            =   120
  150.          TabIndex        =   2
  151.          TabStop         =   0   'False
  152.          Top             =   3120
  153.          Width           =   4335
  154.       End
  155.    End
  156. Attribute VB_Name = "UISettings"
  157. Attribute VB_Creatable = False
  158. Attribute VB_Exposed = False
  159. Option Explicit
  160. Const SEND_BUTTON = 1
  161. Const WHISPER_BUTTON = 2
  162. Const PARTICIPANT_LISTBOX = 4
  163. Const RECEIVE_TEXTBOX = 8
  164. Const SEND_TEXTBOX = 16
  165. Const INFORM_JOIN = 32
  166. Const INFORM_LEAVE = 64
  167. Const INFORM_MEMCHG = 128
  168. Const INSERT_BLANK = 256
  169. Const DISPLAY_ERRORMESSAGES = 512
  170. Const ALLOW_RESIZING = 1024
  171. Const SENSITIVE_URLS = 2048
  172. Dim nUIOption As Integer
  173. Dim nOriginalUIOption As Integer
  174. Sub UpdateUIOption()
  175.     On Error GoTo UpdateUIOptionErr
  176.     nUIOption = chkBut.Value * SEND_BUTTON + chkWhi.Value * WHISPER_BUTTON + chkMem.Value * PARTICIPANT_LISTBOX + chkRec.Value * RECEIVE_TEXTBOX + chkSen.Value * SEND_TEXTBOX + chkEnter.Value * INFORM_JOIN + chkLeave.Value * INFORM_LEAVE + chkMemChg.Value * INFORM_MEMCHG + chkBlank.Value * INSERT_BLANK + chkDisplayError.Value * DISPLAY_ERRORMESSAGES + chkSensitiveURLs.Value * SENSITIVE_URLS
  177.     Exit Sub
  178. UpdateUIOptionErr:
  179.     MsgBox Err.Description
  180. End Sub
  181. Private Sub chkBlank_Click()
  182.     UpdateUIOption
  183. End Sub
  184. Private Sub chkBut_Click()
  185.     UpdateUIOption
  186. End Sub
  187. Private Sub chkDisplayError_Click()
  188.     UpdateUIOption
  189. End Sub
  190. Private Sub chkEnter_Click()
  191.     UpdateUIOption
  192. End Sub
  193. Private Sub chkLeave_Click()
  194.     UpdateUIOption
  195. End Sub
  196. Private Sub chkMem_Click()
  197.     UpdateUIOption
  198. End Sub
  199. Private Sub chkMemChg_Click()
  200.     UpdateUIOption
  201. End Sub
  202. Private Sub chkRec_Click()
  203.     UpdateUIOption
  204. End Sub
  205. Private Sub chkSen_Click()
  206.     UpdateUIOption
  207. End Sub
  208. Private Sub chkSensitiveURLs_Click()
  209.     UpdateUIOption
  210. End Sub
  211. Private Sub chkWhi_Click()
  212.     UpdateUIOption
  213. End Sub
  214. Private Sub cmdApply_Click()
  215.     On Error GoTo errApply_Click
  216.     Main.MSChat1.UIOption = nUIOption
  217.     Exit Sub
  218. errApply_Click:
  219.     Main.MSChat1.UIOption = nOriginalUIOption
  220. End Sub
  221. Private Sub cmdCancel_Click()
  222.     Main.MSChat1.UIOption = nOriginalUIOption
  223.     Hide
  224. End Sub
  225. Private Sub cmdOK_Click()
  226.     On Error GoTo errOK_Click
  227.     Main.MSChat1.UIOption = nUIOption
  228.     Hide
  229.     Exit Sub
  230. errOK_Click:
  231.     Main.MSChat1.UIOption = nOriginalUIOption
  232. End Sub
  233. Private Sub Form_Load()
  234.     nOriginalUIOption = Main.MSChat1.UIOption
  235.     If (nOriginalUIOption And SEND_BUTTON) Then
  236.         chkBut.Value = 1
  237.     Else
  238.         chkBut.Value = 0
  239.     End If
  240.     If (nOriginalUIOption And WHISPER_BUTTON) Then
  241.         chkWhi.Value = 1
  242.     Else
  243.         chkWhi.Value = 0
  244.     End If
  245.     If (nOriginalUIOption And PARTICIPANT_LISTBOX) Then
  246.         chkMem.Value = 1
  247.     Else
  248.         chkMem.Value = 0
  249.     End If
  250.     If (nOriginalUIOption And RECEIVE_TEXTBOX) Then
  251.         chkRec.Value = 1
  252.     Else
  253.         chkRec.Value = 0
  254.     End If
  255.     If (nOriginalUIOption And SEND_TEXTBOX) Then
  256.         chkSen.Value = 1
  257.     Else
  258.         chkSen.Value = 0
  259.     End If
  260.     If (nOriginalUIOption And INFORM_JOIN) Then
  261.         chkEnter.Value = 1
  262.     Else
  263.         chkEnter.Value = 0
  264.     End If
  265.     If (nOriginalUIOption And INFORM_LEAVE) Then
  266.         chkLeave.Value = 1
  267.     Else
  268.         chkLeave.Value = 0
  269.     End If
  270.     If (nOriginalUIOption And INFORM_MEMCHG) Then
  271.         chkMemChg.Value = 1
  272.     Else
  273.         chkMemChg.Value = 0
  274.     End If
  275.     If (nOriginalUIOption And INSERT_BLANK) Then
  276.         chkBlank.Value = 1
  277.     Else
  278.         chkBlank.Value = 0
  279.     End If
  280.     If (nOriginalUIOption And DISPLAY_ERRORMESSAGES) Then
  281.         chkDisplayError.Value = 1
  282.     Else
  283.         chkDisplayError.Value = 0
  284.     End If
  285.     If (nOriginalUIOption And SENSITIVE_URLS) Then
  286.         chkSensitiveURLs.Value = 1
  287.     Else
  288.         chkSensitiveURLs.Value = 0
  289.     End If
  290. End Sub
  291.