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

Text File | 1995-02-26 | 10KB | 303 lines

VERSION 2.00
Begin Form w_clip_demo
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "ctCLIP Demo"
   ClientHeight    =   4605
   ClientLeft      =   1035
   ClientTop       =   2055
   ClientWidth     =   7365
   Height          =   5130
   Icon            =   CT_CLIP.FRX:0000
   Left            =   975
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   4605
   ScaleWidth      =   7365
   Top             =   1590
   Width           =   7485
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Animation"
      ForeColor       =   &H00000000&
      Height          =   2835
      Left            =   300
      TabIndex        =   14
      Top             =   1560
      Width           =   1995
      Begin ctCLIP thumb
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   2  'Raised
         Height          =   600
         Left            =   720
         PicCols         =   4
         PicRows         =   4
         Picture         =   CT_CLIP.FRX:0302
         RepeatRate      =   20
         ShadowColor     =   &H00808080&
         TabIndex        =   3
         Top             =   480
         Width           =   540
      End
      Begin Label Label3
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "Click on the picture and continue to hold down the left button."
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00000000&
         Height          =   765
         Left            =   300
         TabIndex        =   4
         Top             =   1440
         Width           =   1395
      End
   End
   Begin Frame Frame2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Buttons"
      ForeColor       =   &H00000000&
      Height          =   2835
      Left            =   2580
      TabIndex        =   10
      Top             =   1560
      Width           =   2355
      Begin PictureBox Picture1
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   1125
         Left            =   240
         Picture         =   CT_CLIP.FRX:277C
         ScaleHeight     =   1125
         ScaleWidth      =   1875
         TabIndex        =   13
         Top             =   1560
         Width           =   1875
      End
      Begin ctCLIP nPic
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   1  'None
         Height          =   270
         Left            =   1020
         PicCols         =   6
         PicRows         =   4
         Picture         =   CT_CLIP.FRX:38D6
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   11
         Top             =   300
         Width           =   300
      End
      Begin Label Label4
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "This push button contains 24 different images. The entire bitmap is located below."
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00000000&
         Height          =   645
         Left            =   120
         TabIndex        =   12
         Top             =   780
         Width           =   2115
      End
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "General Pictures"
      ForeColor       =   &H00000000&
      Height          =   2355
      Left            =   5220
      TabIndex        =   5
      Top             =   1560
      Width           =   1935
      Begin CommandButton Command4
         Caption         =   "Picture #3"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   345
         Left            =   240
         TabIndex        =   9
         Top             =   1920
         Width           =   1455
      End
      Begin CommandButton Command3
         Caption         =   "Picture #2"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   345
         Left            =   240
         TabIndex        =   8
         Top             =   1500
         Width           =   1455
      End
      Begin CommandButton Command2
         Caption         =   "Picture #1"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   345
         Left            =   240
         TabIndex        =   7
         Top             =   1080
         Width           =   1455
      End
      Begin ctCLIP ctSlot
         ActivePicture   =   1
         BackColor       =   &H00FFFFFF&
         BorderColor     =   &H00000000&
         BorderType      =   3  'Lowered
         Height          =   540
         Left            =   660
         PicCols         =   3
         PicRows         =   1
         Picture         =   CT_CLIP.FRX:4A30
         RepeatRate      =   0
         ShadowColor     =   &H00808080&
         TabIndex        =   6
         Top             =   420
         Width           =   540
      End
   End
   Begin CommandButton Command1
      Caption         =   "E&xit"
      Height          =   375
      Left            =   6240
      TabIndex        =   0
      Top             =   4110
      Width           =   915
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      Caption         =   "This can be very useful when you want to create animated objects, buttons with a variety of different faces, or display some type of picture that can have its image easily changed."
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00800000&
      Height          =   735
      Left            =   120
      TabIndex        =   2
      Top             =   660
      Width           =   7095
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      Caption         =   "The ctCLIP VBX is a custom control that uses one large bitmap image but is able to only display a piece of it at a time."
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00800000&
      Height          =   645
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   6975
   End
End
Dim nActive As Integer

Sub Command1_Click ()
   Unload w_clip_demo
End Sub

Sub Command2_Click ()
   ctSlot = 1
End Sub

Sub Command3_Click ()
   ctSlot = 2
End Sub

Sub Command4_Click ()
   ctSlot = 3
End Sub

Sub Form_Load ()
   ' Center the window on the screen
   Move (Screen.Width - Width) / 2, (Screen.Height - Height) * .25

   w_mdi_main.bt_clip = BUTTON_DISABLE
   nActive = 1
End Sub

Sub Form_Unload (Cancel As Integer)
   w_mdi_main.bt_clip = BUTTON_UP
End Sub

Sub nPic_Click ()
   If nActive >= 12 Then
      nActive = 1
   Else
      nActive = nActive + 1
   End If
   nPic = nActive
End Sub

Sub nPic_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (nPic <= 12) Then
      nPic = nPic + 12
   End If
End Sub

Sub nPic_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (Button = 1) Then
      If X <= 0 Or X > nPic.Width Or Y < 0 Or Y > nPic.Height Then
         If (nPic > 12) Then
            nPic = nPic - 12
         End If
      Else
         If (nPic <= 12) Then
            nPic = nPic + 12
         End If
      End If
   End If
End Sub

Sub nPic_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If (nPic > 12) Then
      nPic = nPic - 12
   End If

End Sub

Sub thumb_Click ()
   If (thumb = 16) Then
      thumb = 1
   Else
      thumb = thumb + 1
   End If
End Sub