paggeneral.pag

Abstract TimeList Control v1.0

VERSION 5.00
Begin VB.PropertyPage pagGeneral 
   Caption         =   "General"
   ClientHeight    =   3495
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5925
   PaletteMode     =   0  'Halftone
   ScaleHeight     =   3495
   ScaleWidth      =   5925
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   1785
      Left            =   0
      ScaleHeight     =   1755
      ScaleWidth      =   5895
      TabIndex        =   3
      Top             =   0
      Width           =   5925
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         Caption         =   "http://abstractvb.com/"
         ForeColor       =   &H00FF0000&
         Height          =   195
         Left            =   225
         MouseIcon       =   "pagGeneral.pgx":0000
         MousePointer    =   99  'Custom
         TabIndex        =   4
         Top             =   1335
         Width           =   1635
      End
      Begin VB.Image Image1 
         Height          =   1590
         Left            =   495
         Picture         =   "pagGeneral.pgx":030A
         Top             =   75
         Width           =   4770
      End
   End
   Begin VB.CheckBox chkIntegralHeight 
      Caption         =   "IntegralHeight"
      Height          =   285
      Left            =   150
      TabIndex        =   2
      Top             =   2595
      Width           =   2700
   End
   Begin VB.TextBox txtCaption 
      Height          =   330
      Left            =   150
      TabIndex        =   1
      Top             =   2190
      Width           =   2700
   End
   Begin VB.Label lblCaption 
      Caption         =   "Caption:"
      Height          =   240
      Left            =   150
      TabIndex        =   0
      Top             =   1935
      Width           =   2700
   End
End
Attribute VB_Name = "pagGeneral"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub chkIntegralHeight_Click()
    Changed = True
End Sub

Private Sub Label1_Click()
    Dim X As Long
    X = ShellExecute(0, "Open", Label1.Caption, "", "", vbNormalFocus)
End Sub

Private Sub txtCaption_Change()
    Changed = True
End Sub

Private Sub txtValue_Change()
    Changed = True
End Sub

Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).IntegralHeight = (chkIntegralHeight.Value = vbChecked)
    SelectedControls(0).Caption = txtCaption.Text
End Sub

Private Sub PropertyPage_SelectionChanged()
    chkIntegralHeight.Value = (SelectedControls(0).IntegralHeight And vbChecked)
    txtCaption.Text = SelectedControls(0).Caption
End Sub