VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H8000000A&
   BorderStyle     =   1  'Fest Einfach
   Caption         =   "ccol : Add-on für den Neurotec-Chat"
   ClientHeight    =   5310
   ClientLeft      =   1215
   ClientTop       =   1500
   ClientWidth     =   5100
   Icon            =   "ccol.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   PaletteMode     =   1  'ZReihenfolge
   ScaleHeight     =   354
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   340
   Begin VB.CommandButton Command6 
      Caption         =   "Letzter Eingabetext"
      Height          =   375
      Left            =   2760
      TabIndex        =   39
      Top             =   3240
      Width           =   2175
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Credits"
      Height          =   375
      Left            =   2760
      TabIndex        =   7
      TabStop         =   0   'False
      Top             =   4320
      Width           =   2175
   End
   Begin VB.Frame Frame4 
      Caption         =   "Spezielles"
      Height          =   1215
      Left            =   120
      TabIndex        =   13
      Top             =   3480
      Width           =   2535
      Begin VB.TextBox Text5 
         Height          =   285
         Left            =   1320
         MaxLength       =   250
         TabIndex        =   37
         Top             =   840
         Width           =   1095
      End
      Begin VB.TextBox Text4 
         Height          =   285
         Left            =   1320
         MaxLength       =   250
         TabIndex        =   36
         Top             =   480
         Width           =   1095
      End
      Begin VB.CheckBox Check3 
         Caption         =   "Text hinten:"
         Height          =   195
         Left            =   120
         TabIndex        =   35
         Top             =   840
         Width           =   1815
      End
      Begin VB.CheckBox Check2 
         Caption         =   "Text vorne:"
         Height          =   195
         Left            =   120
         TabIndex        =   34
         Top             =   480
         Width           =   1215
      End
      Begin VB.CheckBox Check1 
         Caption         =   "/ME-Befehl anhängen"
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   240
         Width           =   1935
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Farbwechsel"
      Height          =   1215
      Left            =   120
      TabIndex        =   9
      Top             =   2160
      Width           =   2535
      Begin VB.OptionButton Option2 
         Caption         =   "nach Anzahl Zeichen:"
         Height          =   375
         Left            =   120
         TabIndex        =   12
         Top             =   720
         Value           =   -1  'True
         Width           =   1935
      End
      Begin VB.OptionButton Option3 
         Caption         =   "nach Leerzeichen"
         Height          =   375
         Left            =   120
         TabIndex        =   11
         Top             =   480
         Width           =   1815
      End
      Begin VB.OptionButton Option1 
         Caption         =   "automatisch"
         Height          =   375
         Left            =   120
         TabIndex        =   10
         Top             =   240
         Width           =   1815
      End
      Begin VB.TextBox Text3 
         Height          =   285
         Left            =   2040
         MaxLength       =   1
         TabIndex        =   2
         Text            =   "3"
         Top             =   720
         Width           =   375
      End
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Abbruch"
      Height          =   375
      Left            =   2760
      TabIndex        =   6
      TabStop         =   0   'False
      Top             =   3720
      Width           =   2175
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H8000000A&
      Caption         =   "Farben"
      Height          =   1215
      Left            =   120
      TabIndex        =   8
      Top             =   0
      Width           =   4815
      Begin VB.PictureBox Picture18 
         BackColor       =   &H00000000&
         Height          =   135
         Left            =   3000
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   33
         Top             =   960
         Width           =   255
      End
      Begin VB.PictureBox Picture17 
         BackColor       =   &H00404040&
         Height          =   135
         Left            =   3000
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   32
         Top             =   720
         Width           =   255
      End
      Begin VB.PictureBox Picture16 
         BackColor       =   &H00C000C0&
         Height          =   135
         Left            =   2640
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   31
         Top             =   960
         Width           =   255
      End
      Begin VB.PictureBox Picture15 
         BackColor       =   &H00C00000&
         Height          =   135
         Left            =   2280
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   30
         Top             =   960
         Width           =   255
      End
      Begin VB.PictureBox Picture14 
         BackColor       =   &H00C0C000&
         Height          =   135
         Left            =   1920
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   29
         Top             =   960
         Width           =   255
      End
      Begin VB.CommandButton Command5 
         Caption         =   "Löschen"
         Height          =   255
         Left            =   3360
         TabIndex        =   28
         TabStop         =   0   'False
         Top             =   840
         Width           =   1335
      End
      Begin VB.PictureBox Picture13 
         BackColor       =   &H0000C000&
         Height          =   135
         Left            =   1560
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   27
         Top             =   960
         Width           =   255
      End
      Begin VB.PictureBox Picture12 
         BackColor       =   &H0000C0C0&
         Height          =   135
         Left            =   1200
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   26
         Top             =   960
         Width           =   255
      End
      Begin VB.PictureBox Picture11 
         BackColor       =   &H000040C0&
         Height          =   135
         Left            =   840
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   25
         Top             =   960
         Width           =   255
      End
      Begin VB.PictureBox Picture10 
         BackColor       =   &H000000C0&
         Height          =   135
         Left            =   480
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   24
         Top             =   960
         Width           =   255
      End
      Begin VB.PictureBox Picture9 
         BackColor       =   &H00808080&
         Height          =   135
         Left            =   120
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   23
         Top             =   960
         Width           =   255
      End
      Begin VB.PictureBox Picture8 
         BackColor       =   &H00FF00FF&
         Height          =   135
         Left            =   2640
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   22
         Top             =   720
         Width           =   255
      End
      Begin VB.PictureBox Picture7 
         BackColor       =   &H00FF0000&
         Height          =   135
         Left            =   2280
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   21
         Top             =   720
         Width           =   255
      End
      Begin VB.PictureBox Picture6 
         BackColor       =   &H00FFFF00&
         Height          =   135
         Left            =   1920
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   20
         Top             =   720
         Width           =   255
      End
      Begin VB.PictureBox Picture5 
         BackColor       =   &H0000FF00&
         Height          =   135
         Left            =   1560
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   19
         Top             =   720
         Width           =   255
      End
      Begin VB.PictureBox Picture4 
         BackColor       =   &H0000FFFF&
         Height          =   135
         Left            =   1200
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   18
         Top             =   720
         Width           =   255
      End
      Begin VB.PictureBox Picture3 
         BackColor       =   &H000080FF&
         Height          =   135
         Left            =   840
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   17
         Top             =   720
         Width           =   255
      End
      Begin VB.PictureBox Picture2 
         BackColor       =   &H000000FF&
         Height          =   135
         Left            =   480
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   16
         Top             =   720
         Width           =   255
      End
      Begin VB.PictureBox Picture1 
         BackColor       =   &H00C0C0C0&
         Height          =   135
         Left            =   120
         ScaleHeight     =   75
         ScaleWidth      =   195
         TabIndex        =   15
         Top             =   720
         Width           =   255
      End
      Begin VB.TextBox Text2 
         BackColor       =   &H00FFFF00&
         Height          =   375
         Left            =   120
         MaxLength       =   139
         TabIndex        =   0
         Text            =   "501050,101050,101010,505050,105050,105010,505010"
         Top             =   240
         Width           =   4575
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Text"
      Height          =   735
      Left            =   120
      TabIndex        =   3
      Top             =   1320
      Width           =   4815
      Begin VB.TextBox Text1 
         Height          =   375
         Left            =   120
         MaxLength       =   250
         TabIndex        =   1
         Top             =   240
         Width           =   4575
      End
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Text löschen"
      Height          =   375
      Left            =   2760
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   2760
      Width           =   2175
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Ok"
      Default         =   -1  'True
      Height          =   375
      Left            =   2760
      TabIndex        =   4
      TabStop         =   0   'False
      Top             =   2280
      Width           =   2175
   End
   Begin VB.Label Label1 
      Height          =   255
      Left            =   0
      TabIndex        =   38
      Top             =   5040
      Width           =   5055
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00FFFFFF&
      X1              =   0
      X2              =   344
      Y1              =   329
      Y2              =   329
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      X1              =   0
      X2              =   344
      Y1              =   328
      Y2              =   328
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim lasttext$
Sub addcol(ac$)
  Dim h$
  h$ = Trim$(Text2.Text)
  If Right$(h$, 1) = "," Or h$ = "" Then
    h$ = h$ + ac$
  Else
    h$ = h$ + "," + ac$
  End If
  Text2.Text = h$
  Text2.SelStart = Len(h$)
  Text2.SetFocus
End Sub
Private Sub Command1_Click()
  Dim a$(100)
  Dim aanz%
  Dim e$
  Dim b$
  Dim c$
  Dim i%
  Dim j%
  Dim s%
  Dim z%
  Dim vl%
' syntaxcheck bei den farben
  b$ = UCase$(Trim$(Text2.Text))             ' farben holen
  For i% = 1 To Len(b$)
    If InStr(",0123456789ABCDEF", Mid$(b$, i%, 1)) = 0 Then
      Text2.SetFocus
      Exit Sub
    End If
  Next i%
  Text2.Text = b$
  If b$ = "" Then
    Label1.Caption = "Fehlerhafte Farbwerte!"
    Text2.SetFocus
    Exit Sub
  End If
' farben heraustrennen
  j% = 1
  For i% = 1 To 20
    a$(i%) = Trim$(Mid$(b$, j%, 6))
    j% = j% + 7
    If Len(a$(i%)) = 0 Then
      aanz% = i% - 1
      Exit For
    End If
    If Len(a$(i%)) <> 6 Then
      Text2.SetFocus
      Exit Sub
    End If
  Next i%
' syntaxcheck bei anzahlzeichen
  s% = Val(Text3.Text)
  If s% = 0 Then
    Label1.Caption = "Fehler bei Anzahl Zeichen!"
    Text3.SetFocus
    Exit Sub
  End If
' text einfärben
  e$ = "</font>"
  b$ = Trim$(Text1.Text)
  lasttext$ = b$
  c$ = ""
  j% = 1
'
  If InStr(b$, "</font>") > 0 Then   ' text mit tags nicht umwandeln
    Text1.SetFocus
    Exit Sub
  End If
'
  If Option1.Value = True Then     ' automatisch
    vl% = 250
    If Check1.Value <> 0 Then
      vl% = vl% - 4
    End If
    If Check2.Value <> 0 Then
      vl% = vl% - Len(Text4.Text)
    End If
    If Check3.Value <> 0 Then
      vl% = vl% - Len(Text5.Text)
    End If
    For s% = 1 To 20
      For i% = 1 To Len(b$) Step s%
        c$ = c$ + "<font color=" + a$(j%) + ">" + Mid$(b$, i%, s%) + e$
        j% = j% + 1
        If j% > aanz% Then
          j% = 1
        End If
      Next i%
      If Len(c$) <= vl% Then
        Exit For
      End If
      b$ = Trim$(Text1.Text)
      c$ = ""
      j% = 1
    Next s%
  End If
'
  If Option2.Value = True Then     ' nach anzahl zeichen
    For i% = 1 To Len(b$) Step s%
      c$ = c$ + "<font color=" + a$(j%) + ">" + Mid$(b$, i%, s%) + e$
      j% = j% + 1
      If j% > aanz% Then
        j% = 1
      End If
    Next i%
  End If
  If Option3.Value = True Then     ' nach blank
    c$ = "<font color=" + a$(j%) + ">"
    j% = j% + 1
    If j% > aanz% Then
      j% = 1
    End If
    For i% = 1 To Len(b$)
      If Mid$(b$, i%, 1) = " " Then
        c$ = c$ + e$ + "<font color=" + a$(j%) + ">" + Mid$(b$, i%, 1)
        j% = j% + 1
        If j% > aanz% Then
          j% = 1
        End If
      Else
        c$ = c$ + Mid$(b$, i%, 1)
      End If
    Next i%
    c$ = c$ + e$
  End If
  If Check1.Value <> 0 Then
    c$ = "/me " + c$
  End If
  If Check2.Value <> 0 Then
    c$ = Text4.Text + c$
  End If
  If Check3.Value <> 0 Then
    c$ = c$ + Text5.Text
  End If
  If Len(c$) > 250 Then
    Label1.Caption = "Eingabetext zu lang!"
    Text1.SetFocus
    Exit Sub
  End If
  Label1.Caption = ""
  Text1.Text = c$
  Text1.SelStart = 0
  Text1.SelLength = Len(c$)
  Text1.SetFocus
End Sub
Private Sub Command2_Click()
  Text1.Text = ""
  Text1.SetFocus
End Sub
Private Sub Command3_Click()
  End
End Sub
Private Sub Command4_Click()
  MsgBox "Code : Plogi" + Chr$(10) + _
    "Test : Tausendschön, Turtle, XLarge" + Chr$(10) + _
    "Moral Support : Anne" _
    , vbInformation
  Text1.SetFocus
End Sub

Private Sub Command5_Click()
  Text2.Text = ""
  Text2.SetFocus
End Sub

Private Sub Command6_Click()
  Text1.Text = lasttext$
  Text1.SetFocus
  Text1.SelStart = Len(lasttext$)
End Sub

Private Sub Form_Activate()
  Text1.SetFocus
End Sub

Private Sub Picture1_Click()
  addcol "C0C0C0"
End Sub

Private Sub Picture10_Click()
  addcol "C00000"
End Sub

Private Sub Picture11_Click()
  addcol "C04000"
End Sub

Private Sub Picture12_Click()
  addcol "C0C000"
End Sub

Private Sub Picture13_Click()
  addcol "00C000"
End Sub

Private Sub Picture14_Click()
  addcol "00C0C0"
End Sub

Private Sub Picture15_Click()
  addcol "0000C0"
End Sub

Private Sub Picture16_Click()
  addcol "C000C0"
End Sub

Private Sub Picture17_Click()
  addcol "404040"
End Sub

Private Sub Picture18_Click()
  addcol "000000"
End Sub

Private Sub Picture2_Click()
  addcol "FF0000"
End Sub

Private Sub Picture3_Click()
  addcol "FF8000"
End Sub

Private Sub Picture4_Click()
  addcol "FFFF00"
End Sub

Private Sub Picture5_Click()
  addcol "00FF00"
End Sub

Private Sub Picture6_Click()
  addcol "00FFFF"
End Sub

Private Sub Picture7_Click()
  addcol "0000FF"
End Sub

Private Sub Picture8_Click()
  addcol "FF00FF"
End Sub

Private Sub Picture9_Click()
  addcol "808080"
End Sub