Programming Tool Box/SIMS_2.iso/tool/various/ctdemo/ct_list.frm

Visual Basic Form | 1995-02-26 | 10.1 KB | 298 lines

VERSION 2.00
Begin Form w_ctlist_demo
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "ctLIST (Virtual Picture List) Demo"
   ClientHeight    =   5625
   ClientLeft      =   1740
   ClientTop       =   1305
   ClientWidth     =   8220
   Height          =   6150
   Icon            =   CT_LIST.FRX:0000
   Left            =   1680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   5625
   ScaleWidth      =   8220
   Top             =   840
   Width           =   8340
   Begin ctLIST ctList2
      BackColor       =   &H00FFFFFF&
      BorderType      =   5  'Inset
      Columns         =   3
      ColumnWidths    =   "100,70"
      ForeColor       =   &H00000000&
      GridLineColor   =   &H00C0C0C0&
      GridLines       =   -1  'True
      Height          =   2655
      HeightOffset    =   0
      HScroll         =   -1  'True
      Left            =   4260
      ListCount       =   20
      PicCols         =   6
      PicRows         =   4
      Picture         =   CT_LIST.FRX:0302
      PicXOffset      =   0
      PicYOffset      =   0
      Range           =   0
      Selected        =   -1
      SelectedBackColor=   &H00800000&
      SelectedTextColor=   &H00FFFFFF&
      ShadowColor     =   &H00808080&
      Style           =   0  'Normal
      TabIndex        =   8
      TextPosition    =   0  'Right
      TextXOffset     =   0
      TextYOffset     =   0
      Top             =   1620
      UpdateList      =   0
      VScroll         =   -1  'True
      Width           =   3795
   End
   Begin ctGROUP ctGroup1
      Alignment       =   0  'Left
      BackColor       =   &H00C0C0C0&
      BorderColor     =   &H00808080&
      BorderType      =   4  'Lowered Inset
      Caption         =   "Text Position"
      ForeColor       =   &H00000000&
      Height          =   1155
      Left            =   300
      TabIndex        =   3
      TextPosition    =   0  'Top
      Top             =   4200
      Width           =   3015
      Begin ctRADIO ctRadio4
         Alignment       =   0  'Left Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Bottom"
         DisableColor    =   &H00808080&
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   1740
         PicStyle        =   1  'Style #1
         ShowFocus       =   -1  'True
         TabIndex        =   7
         Top             =   720
         Value           =   0   'False
         Width           =   975
      End
      Begin ctRADIO ctRadio3
         Alignment       =   0  'Left Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Top"
         DisableColor    =   &H00808080&
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   1740
         PicStyle        =   1  'Style #1
         ShowFocus       =   -1  'True
         TabIndex        =   6
         Top             =   360
         Value           =   0   'False
         Width           =   915
      End
      Begin ctRADIO ctRadio2
         Alignment       =   0  'Left Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Right"
         DisableColor    =   &H00808080&
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   270
         PicStyle        =   1  'Style #1
         ShowFocus       =   -1  'True
         TabIndex        =   5
         Top             =   720
         Value           =   -1  'True
         Width           =   915
      End
      Begin ctRADIO ctRadio1
         Alignment       =   0  'Left Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Left"
         DisableColor    =   &H00808080&
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   270
         PicStyle        =   1  'Style #1
         ShowFocus       =   -1  'True
         TabIndex        =   4
         Top             =   360
         Value           =   0   'False
         Width           =   945
      End
   End
   Begin CommandButton Command1
      Caption         =   "E&xit"
      Height          =   435
      Left            =   6900
      TabIndex        =   1
      Top             =   4980
      Width           =   975
   End
   Begin ctLIST ctList1
      BackColor       =   &H00C0C0C0&
      BorderType      =   0  'Regular
      Columns         =   1
      ColumnWidths    =   "15"
      ForeColor       =   &H00000000&
      GridLineColor   =   &H00C0C0C0&
      GridLines       =   0   'False
      Height          =   2445
      HeightOffset    =   1
      HScroll         =   0   'False
      Left            =   240
      ListCount       =   20
      PicCols         =   6
      PicRows         =   4
      Picture         =   CT_LIST.FRX:145C
      PicXOffset      =   0
      PicYOffset      =   0
      Range           =   0
      Selected        =   -1
      SelectedBackColor=   &H00808080&
      SelectedTextColor=   &H00000000&
      ShadowColor     =   &H00808080&
      Style           =   1  'Raised
      TabIndex        =   0
      TextPosition    =   0  'Right
      TextXOffset     =   0
      TextYOffset     =   0
      Top             =   1620
      UpdateList      =   0
      VScroll         =   0   'False
      Width           =   3705
   End
   Begin Label Label4
      BackColor       =   &H00C0C0C0&
      Caption         =   "Double click on any of the records above to change the image"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00800000&
      Height          =   435
      Left            =   4260
      TabIndex        =   11
      Top             =   4440
      Width           =   2655
   End
   Begin Label Label3
      BackColor       =   &H00C0C0C0&
      Caption         =   "List with pictures"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   240
      TabIndex        =   10
      Top             =   1320
      Width           =   1455
   End
   Begin Label Label2
      BackColor       =   &H00C0C0C0&
      Caption         =   "List with grid lines, horizontal scroll bar, and option to change a rows background color"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   435
      Left            =   4260
      TabIndex        =   9
      Top             =   1140
      Width           =   3615
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "the ctLIST VBX is a virtual list box capable of displaying a variety of different images. The image, alignment, color, and text can all be declared as the control is being painted. Since a virtual list box does not directly store the data, it can display very large amounts of data. In this case, the control can display up to 32,767 records."
      ForeColor       =   &H00800000&
      Height          =   825
      Left            =   360
      TabIndex        =   2
      Top             =   180
      Width           =   7635
   End
Dim cString(20) As String
Dim nChecks(20) As Integer
Sub Command1_Click ()
   Unload w_ctlist_demo
End Sub
Sub ctList1_GetText (ListIndex As Integer, Text As String, Picture As Integer, Alignment As Integer, BackColor As Long, ForeColor As Long)
   Picture = ListIndex
   Text = cString(ListIndex)
End Sub
Sub ctList2_DblClick ()
   Dim nSel As Integer
   nSel = ctList2.Selected + 1
   If nSel > 0 Then
      If nChecks(nSel) = 5 Then
         nChecks(nSel) = 17
      Else
         nChecks(nSel) = 5
      End If
      ctList2.UpdateList = 0
   End If
End Sub
Sub ctList2_GetText (ListIndex As Integer, Text As String, Picture As Integer, Alignment As Integer, BackColor As Long, ForeColor As Long)
   Text = "Record #" + LTrim(Str(ListIndex)) + Chr(9) + "Column" + Chr(9) + cString(ListIndex)
   Picture = nChecks(ListIndex)
   If ListIndex = 5 Or ListIndex = 10 Or ListIndex = 15 Then
      ForeColor = RGB(255, 0, 0)
      BackColor = RGB(255, 255, 80)
   End If
End Sub
Sub ctRadio1_Click ()
   ctList1.TextPosition = 1
End Sub
Sub ctRadio2_Click ()
   ctList1.TextPosition = 0
End Sub
Sub ctRadio3_Click ()
   ctList1.TextPosition = 3
End Sub
Sub ctRadio4_Click ()
   ctList1.TextPosition = 2
End Sub
Sub Form_Load ()
   ' Center the window on the screen
   Move (Screen.Width - Width) / 2, (Screen.Height - Height) * .1
   w_mdi_main.bt_list = BUTTON_DISABLE
   cString(1) = "Stop Sign"
   cString(2) = "Happy Face"
   cString(3) = "Empty Diamond"
   cString(4) = "Blue Diamond"
   cString(5) = "Empty Box"
   cString(6) = "Cross Box"
   cString(7) = "Green Start"
   cString(8) = "Previous Page"
   cString(9) = "Last Record"
   cString(10) = "Next Record"
   cString(11) = "Next Page"
   cString(12) = "Green End"
   cString(13) = "Stop Sign (down)"
   cString(14) = "Happy Face (down)"
   cString(15) = "Empty Diamond (down)"
   cString(16) = "Blue Diamond (down)"
   cString(17) = "Empty Box (down)"
   cString(18) = "Cross Box (down)"
   cString(19) = "Green Start (down)"
   cString(20) = "Previous Page (down)"
   For nCntr = 1 To 20
      nChecks(nCntr) = 5
   Next
End Sub
Sub Form_Unload (Cancel As Integer)
   w_mdi_main.bt_list = BUTTON_UP
End Sub