wincit/editinfo.frm

   1 VERSION 4.00
   2 Begin VB.Form EditInfo
   3    Appearance      =   0  'Flat
   4    BackColor       =   &H00C0C0C0&
   5    BorderStyle     =   0  'None
   6    ClientHeight    =   6915
   7    ClientLeft      =   -420
   8    ClientTop       =   1950
   9    ClientWidth     =   9600
  10    ControlBox      =   0   'False
  11    BeginProperty Font
  12       name            =   "MS Serif"
  13       charset         =   0
  14       weight          =   700
  15       size            =   6.75
  16       underline       =   0   'False
  17       italic          =   0   'False
  18       strikethrough   =   0   'False
  19    EndProperty
  20    ForeColor       =   &H80000008&
  21    Height          =   7320
  22    Left            =   -480
  23    LinkTopic       =   "Form1"
  24    MaxButton       =   0   'False
  25    MDIChild        =   -1  'True
  26    MinButton       =   0   'False
  27    ScaleHeight     =   6915
  28    ScaleWidth      =   9600
  29    Top             =   1605
  30    Width           =   9720
  31    Begin VB.CommandButton ShowFmt
  32       Appearance      =   0  'Flat
  33       BackColor       =   &H80000005&
  34       Caption         =   "Show &Formatted"
  35       BeginProperty Font
  36          name            =   "MS Sans Serif"
  37          charset         =   0
  38          weight          =   700
  39          size            =   8.25
  40          underline       =   0   'False
  41          italic          =   0   'False
  42          strikethrough   =   0   'False
  43       EndProperty
  44       Height          =   372
  45       Left            =   5520
  46       TabIndex        =   2
  47       Top             =   6480
  48       Width           =   1572
  49    End
  50    Begin Threed.SSPanel message_panel
  51       Height          =   6375
  52       Left            =   0
  53       TabIndex        =   3
  54       Top             =   0
  55       Width           =   9615
  56       _Version        =   65536
  57       _ExtentX        =   16960
  58       _ExtentY        =   11245
  59       _StockProps     =   15
  60       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  61          name            =   "MS Sans Serif"
  62          charset         =   0
  63          weight          =   700
  64          size            =   8.25
  65          underline       =   0   'False
  66          italic          =   0   'False
  67          strikethrough   =   0   'False
  68       EndProperty
  69       BevelWidth      =   9
  70       BorderWidth     =   0
  71       BevelOuter      =   1
  72       Begin VB.TextBox message_text
  73          Appearance      =   0  'Flat
  74          BackColor       =   &H00C0C0C0&
  75          BorderStyle     =   0  'None
  76          BeginProperty Font
  77             name            =   "Courier New"
  78             charset         =   0
  79             weight          =   400
  80             size            =   12
  81             underline       =   0   'False
  82             italic          =   0   'False
  83             strikethrough   =   0   'False
  84          EndProperty
  85          Height          =   6135
  86          Left            =   120
  87          MultiLine       =   -1  'True
  88          ScrollBars      =   2  'Vertical
  89          TabIndex        =   1
  90          Top             =   120
  91          Width           =   9375
  92       End
  93    End
  94    Begin VB.CommandButton save_button
  95       Appearance      =   0  'Flat
  96       BackColor       =   &H80000005&
  97       Caption         =   "&Save"
  98       BeginProperty Font
  99          name            =   "MS Sans Serif"
 100          charset         =   0
 101          weight          =   700
 102          size            =   8.25
 103          underline       =   0   'False
 104          italic          =   0   'False
 105          strikethrough   =   0   'False
 106       EndProperty
 107       Height          =   372
 108       Left            =   7200
 109       TabIndex        =   4
 110       Top             =   6480
 111       Width           =   1092
 112    End
 113    Begin VB.CommandButton cancel_button
 114       Appearance      =   0  'Flat
 115       BackColor       =   &H80000005&
 116       Caption         =   "&Cancel"
 117       BeginProperty Font
 118          name            =   "MS Sans Serif"
 119          charset         =   0
 120          weight          =   700
 121          size            =   8.25
 122          underline       =   0   'False
 123          italic          =   0   'False
 124          strikethrough   =   0   'False
 125       EndProperty
 126       Height          =   372
 127       Left            =   8400
 128       TabIndex        =   0
 129       Top             =   6480
 130       Width           =   1092
 131    End
 132 End
 133 Attribute VB_Name = "EditInfo"
 134 Attribute VB_Creatable = False
 135 Attribute VB_Exposed = False
 136
 137 Private Sub cancel_button_Click()
 138     Unload EditInfo
 139     Load RoomPrompt
 140 End Sub
 141
 142 Private Sub Form_Load()
 143
 144     EditInfo.Caption = "Room Info for " + CurrRoomName$
 145     message_text.FontName = GetPrivateProfileVBString("Preferences", "VariFontName", "MS Serif", "WINCIT.INI")
 146     message_text.FontSize = GetPrivateProfileInt("Preferences", "VariFontSize", 12, "WINCIT.INI")
 147
 148     Show
 149     DoEvents
 150
 151     If begin_trans() = True Then
 152         serv_puts ("RINF")
 153         a$ = serv_gets()
 154         If Left$(a$, 1) = "1" Then
 155             b$ = ""
 156             Do
 157                 c$ = serv_gets()
 158                 If c$ <> "000" Then b$ = b$ + c$ + Chr$(13) + Chr$(10)
 159                 Loop Until c$ = "000"
 160             message_text.Text = Cit_Format(b$)
 161             End If
 162         Call end_trans
 163         End If
 164
 165     message_text.SetFocus
 166
 167 End Sub
 168
 169 Private Sub Form_Resize()
 170     EditInfo.Left = 0
 171     EditInfo.Top = 0
 172     EditInfo.Width = MainWin.Width
 173     EditInfo.Height = MainWin.Height - 450
 174
 175     cancel_button.Top = Abs(EditInfo.Height - 520)
 176     save_button.Top = Abs(EditInfo.Height - 520)
 177     ShowFmt.Top = Abs(EditInfo.Height - 520)
 178     message_text.Width = Abs(EditInfo.Width - 336)
 179     message_text.Height = Abs(EditInfo.Height - 864)
 180     message_panel.Height = Abs(EditInfo.Height - 624)
 181     message_panel.Width = Abs(EditInfo.Width - 100)
 182 End Sub
 183
 184 Private Sub hold_button_Click()
 185     HoldMessage$ = message_text.Text
 186     Unload EditInfo
 187     Load RoomPrompt
 188 End Sub
 189
 190 Private Sub InsQuote_Click()
 191
 192      message_text.SelText = Clipboard.GetText()
 193      Call ShowFmt_Click
 194
 195 End Sub
 196
 197 Private Sub save_button_Click()
 198
 199     a$ = message_text.Text
 200     Do While Right$(a$, 2) = Chr$(13) + Chr$(10)
 201         a$ = Left$(a$, Len(a$) - 2)
 202         Loop
 203     message_text.Text = Cit_Format(a$)
 204     DoEvents
 205
 206     If begin_trans() = True Then
 207         a$ = "EINF 1"
 208         serv_puts (a$)
 209         a$ = serv_gets()
 210         If Left$(a$, 1) <> "4" Then
 211             Call end_trans
 212             MsgBox a$
 213         Else
 214             Transmit_Buffer (message_text.Text)
 215             serv_puts ("000")
 216             Call end_trans
 217             HoldMessage$ = ""
 218             Unload EditInfo
 219             Load RoomPrompt
 220             End If
 221         End If
 222
 223 End Sub
 224
 225 Private Sub ShowFmt_Click()
 226     a$ = message_text.Text
 227     Do While Right$(a$, 2) = Chr$(13) + Chr$(10)
 228         a$ = Left$(a$, Len(a$) - 2)
 229         Loop
 230     message_text.Text = Cit_Format(a$)
 231
 232 End Sub
 233