home *** CD-ROM | disk | FTP | other *** search
/ Total C++ 2 / TOTALCTWO.iso / vb5.0 / tools / unsupprt / calendar / appear.pag < prev    next >
Text File  |  1997-01-16  |  13KB  |  356 lines
  1. VERSION 5.00
  2. Begin VB.PropertyPage ppAppearance 
  3.    Caption         =   "Appearance"
  4.    ClientHeight    =   3405
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   6375
  8.    LockControls    =   -1  'True
  9.    PaletteMode     =   0  'Halftone
  10.    ScaleHeight     =   3405
  11.    ScaleWidth      =   6375
  12.    Begin VB.Frame Frames 
  13.       Caption         =   "Days of Week"
  14.       Height          =   1695
  15.       Index           =   0
  16.       Left            =   120
  17.       TabIndex        =   4
  18.       Top             =   1560
  19.       Width           =   2355
  20.       Begin VB.ComboBox cbxStartOfWeek 
  21.          Height          =   315
  22.          Left            =   120
  23.          Style           =   2  'Dropdown List
  24.          TabIndex        =   8
  25.          Top             =   1260
  26.          Width           =   2115
  27.       End
  28.       Begin VB.ComboBox cbxDayFormat 
  29.          Height          =   315
  30.          ItemData        =   "Appear.pgx":0000
  31.          Left            =   120
  32.          List            =   "Appear.pgx":000D
  33.          Style           =   2  'Dropdown List
  34.          TabIndex        =   6
  35.          Top             =   540
  36.          Width           =   2115
  37.       End
  38.       Begin VB.Label Labels 
  39.          AutoSize        =   -1  'True
  40.          Caption         =   "Start Of Week:"
  41.          Height          =   195
  42.          Index           =   0
  43.          Left            =   120
  44.          TabIndex        =   7
  45.          Top             =   1020
  46.          Width           =   1065
  47.       End
  48.       Begin VB.Label Labels 
  49.          AutoSize        =   -1  'True
  50.          Caption         =   "Day Name Format:"
  51.          Height          =   195
  52.          Index           =   1
  53.          Left            =   120
  54.          TabIndex        =   5
  55.          Top             =   300
  56.          Width           =   1320
  57.       End
  58.    End
  59.    Begin VB.Frame Frames 
  60.       Caption         =   "Preview"
  61.       Height          =   3135
  62.       Index           =   2
  63.       Left            =   2640
  64.       TabIndex        =   9
  65.       Top             =   120
  66.       Width           =   3615
  67.       Begin MSVBCalendar.Calendar calPreview 
  68.          Height          =   2775
  69.          Left            =   240
  70.          TabIndex        =   10
  71.          Top             =   240
  72.          Width           =   3255
  73.          _ExtentX        =   5741
  74.          _ExtentY        =   4895
  75.          Day             =   12
  76.          Month           =   9
  77.          Year            =   1996
  78.          BeginProperty DayNameFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  79.             Name            =   "MS Sans Serif"
  80.             Size            =   8.25
  81.             Charset         =   0
  82.             Weight          =   700
  83.             Underline       =   0   'False
  84.             Italic          =   0   'False
  85.             Strikethrough   =   0   'False
  86.          EndProperty
  87.          BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  88.             Name            =   "MS Sans Serif"
  89.             Size            =   8.25
  90.             Charset         =   0
  91.             Weight          =   400
  92.             Underline       =   0   'False
  93.             Italic          =   0   'False
  94.             Strikethrough   =   0   'False
  95.          EndProperty
  96.          Locked          =   -1  'True
  97.       End
  98.    End
  99.    Begin VB.Frame Frames 
  100.       Caption         =   "Navigation"
  101.       Height          =   1335
  102.       Index           =   1
  103.       Left            =   120
  104.       TabIndex        =   0
  105.       Top             =   120
  106.       Width           =   2355
  107.       Begin VB.CheckBox chkShowIterration 
  108.          Caption         =   "Show Iterration Buttons"
  109.          Height          =   195
  110.          Left            =   180
  111.          TabIndex        =   3
  112.          Top             =   960
  113.          Width           =   1995
  114.       End
  115.       Begin VB.CheckBox chkYearRO 
  116.          Caption         =   "Year Read-Only"
  117.          Height          =   195
  118.          Left            =   180
  119.          TabIndex        =   2
  120.          Top             =   630
  121.          Width           =   1695
  122.       End
  123.       Begin VB.CheckBox chkMonthRO 
  124.          Caption         =   "Month Read-Only"
  125.          Height          =   195
  126.          Left            =   180
  127.          TabIndex        =   1
  128.          Top             =   300
  129.          Width           =   1695
  130.       End
  131.    End
  132. End
  133. Attribute VB_Name = "ppAppearance"
  134. Attribute VB_GlobalNameSpace = False
  135. Attribute VB_Creatable = True
  136. Attribute VB_PredeclaredId = False
  137. Attribute VB_Exposed = True
  138. '----------------------------------------------------------------------
  139. ' Appearance.pag
  140. '----------------------------------------------------------------------
  141. ' Implementation file for the appearance property page
  142. ' for the VB calendar control.
  143. '----------------------------------------------------------------------
  144. ' Copyright (c) 1996, Microsoft Corporation
  145. '              All Rights Reserved
  146. '
  147. ' Information Contained Herin is Proprietary and Confidential
  148. '----------------------------------------------------------------------
  149. Option Explicit
  150.  
  151.  
  152. '======================================================================
  153. ' Private Data Members
  154. '======================================================================
  155.  
  156.  
  157. '======================================================================
  158. ' Private Event Handles
  159. '======================================================================
  160.  
  161. '----------------------------------------------------------------------
  162. ' SelectionChanged Event
  163. '----------------------------------------------------------------------
  164. ' Purpose:  Called when the selected controls are changed
  165. '           set all controls to reflect property settings
  166. '           of the selected control(s)
  167. ' Inputs:   None
  168. ' Outputs:  None
  169. '----------------------------------------------------------------------
  170. Private Sub PropertyPage_SelectionChanged()
  171.     Dim cal As Calendar     'reference to selected ctl
  172.     Dim ctl As Control
  173.     
  174.     If PropertyPage.SelectedControls.Count = 0 Then
  175.         'daveste -- 8/16/96
  176.         'REVIEW:
  177.         'what the heck do we do here?
  178.     Else
  179.         'get the first selected control (might be the only)
  180.         Set cal = PropertyPage.SelectedControls(0)
  181.         
  182.         'load the start of week combo
  183.         LoadStartOfWeekCombo
  184.         
  185.         'set the control's values according to current
  186.         'property settings
  187.         chkMonthRO.Value = Abs(cal.MonthReadOnly)
  188.         chkYearRO.Value = Abs(cal.YearReadOnly)
  189.         chkShowIterration.Value = Abs(cal.ShowIterrationButtons)
  190.         
  191.         calPreview.MonthReadOnly = cal.MonthReadOnly
  192.         calPreview.YearReadOnly = cal.YearReadOnly
  193.         calPreview.ShowIterrationButtons = cal.ShowIterrationButtons
  194.         
  195.         cbxDayFormat.ListIndex = cal.DayNameFormat
  196.         cbxStartOfWeek.ListIndex = cal.StartOfWeek
  197.         
  198.         'setting list index on the combos triggers the
  199.         'Click event so we don't need to set the
  200.         'preview's props since they will be set in the
  201.         'click events themselves
  202.             
  203.         'reset the control's data changed state
  204.         'so they are clean
  205.         On Error Resume Next
  206.         For Each ctl In PropertyPage.Controls
  207.             ctl.datachange = False
  208.         Next
  209.     
  210.         'initialize the page's change flag to false
  211.         PropertyPage.Changed = False
  212.         
  213.     End If 'no controls selected
  214.     
  215. End Sub 'PropertyPage_Load()
  216.  
  217. '----------------------------------------------------------------------
  218. ' ApplyChanges Event
  219. '----------------------------------------------------------------------
  220. ' Purpose:  Called when the user applies changes to the property
  221. '           settings.  Set properties of the selected control(s)
  222. ' Inputs:   None
  223. ' Outputs:  None
  224. '----------------------------------------------------------------------
  225. Private Sub PropertyPage_ApplyChanges()
  226.     Dim cal As Calendar
  227.     
  228.     'get the control to set properties on
  229.     Set cal = PropertyPage.SelectedControls(0)
  230.     
  231.     'set the properties if they've changed
  232.     If chkMonthRO.DataChanged Then
  233.         cal.MonthReadOnly = CBool(chkMonthRO.Value)
  234.     End If
  235.     
  236.     If chkYearRO.DataChanged Then
  237.         cal.YearReadOnly = CBool(chkYearRO.Value)
  238.     End If
  239.     
  240.     If chkShowIterration.DataChanged Then
  241.         cal.ShowIterrationButtons = CBool(chkShowIterration.Value)
  242.     End If
  243.     
  244.     If cbxDayFormat.DataChanged Then
  245.         cal.DayNameFormat = cbxDayFormat.ListIndex
  246.     End If
  247.     
  248.     If cbxStartOfWeek.DataChanged Then
  249.         cal.StartOfWeek = cbxStartOfWeek.ListIndex
  250.     End If
  251.     
  252. End Sub 'PropertyPage_ApplyChanges()
  253.  
  254. '----------------------------------------------------------------------
  255. ' LoadStartOfWeekCombo()
  256. '----------------------------------------------------------------------
  257. ' Purpose:  Loads the start of week combo box with the names of the
  258. '           week days in the local language
  259. ' Inputs:   None
  260. ' Outputs:  None
  261. '----------------------------------------------------------------------
  262. Private Sub LoadStartOfWeekCombo()
  263.     Dim nDay As Long
  264.     
  265.     'add the "use system" option first
  266.     'daveste -- 8/16/96
  267.     'TODO: Add code for getting this out of the string table
  268.     cbxStartOfWeek.AddItem "Use System"
  269.     
  270.     'add the long day names
  271.     For nDay = 1 To 7
  272.         cbxStartOfWeek.AddItem Format(DateSerial(1996, 8, 3 + nDay), "dddd")
  273.     Next nDay
  274. End Sub 'LoadStartOfWeekCombo()
  275.  
  276.  
  277. '----------------------------------------------------------------------
  278. ' chkMonthRO_Click Event
  279. '----------------------------------------------------------------------
  280. ' Purpose:  Called when the user changes the state of the month
  281. '           read-only check box.
  282. ' Inputs:   None
  283. ' Outputs:  None
  284. '----------------------------------------------------------------------
  285. Private Sub chkMonthRO_Click()
  286.     'change the preview
  287.     calPreview.MonthReadOnly = CBool(chkMonthRO.Value)
  288.     
  289.     'set the page's change flag to True
  290.     PropertyPage.Changed = True
  291. End Sub 'chkMonthRO_Click()
  292.  
  293. '----------------------------------------------------------------------
  294. ' chkYearRO_Click Event
  295. '----------------------------------------------------------------------
  296. ' Purpose:  Called when the user changes the state of the year
  297. '           read-only check box.
  298. ' Inputs:   None
  299. ' Outputs:  None
  300. '----------------------------------------------------------------------
  301. Private Sub chkYearRO_Click()
  302.     'change the preview
  303.     calPreview.YearReadOnly = CBool(chkYearRO.Value)
  304.     
  305.     'set the page's change flag to True
  306.     PropertyPage.Changed = True
  307. End Sub 'chkYearRO_Click()
  308.  
  309. '----------------------------------------------------------------------
  310. ' chkShowIterration_Click Event
  311. '----------------------------------------------------------------------
  312. ' Purpose:  Called when the user changes the state of the show
  313. '           iterration buttons check box
  314. ' Inputs:   None
  315. ' Outputs:  None
  316. '----------------------------------------------------------------------
  317. Private Sub chkShowIterration_Click()
  318.     'change the preview
  319.     calPreview.ShowIterrationButtons = CBool(chkShowIterration.Value)
  320.  
  321.     'set the page's change flag to True
  322.     PropertyPage.Changed = True
  323. End Sub 'chkShowIterration_Click()
  324.  
  325. '----------------------------------------------------------------------
  326. ' cbxStartOfWeek_Click Event
  327. '----------------------------------------------------------------------
  328. ' Purpose:  Called when the user changes the selected item in the
  329. '           start of week combo box
  330. ' Inputs:   None
  331. ' Outputs:  None
  332. '----------------------------------------------------------------------
  333. Private Sub cbxStartOfWeek_Click()
  334.     'change the preview
  335.     calPreview.StartOfWeek = cbxStartOfWeek.ListIndex
  336.  
  337.     'set the page's change flag to True
  338.     PropertyPage.Changed = True
  339. End Sub 'cbxStartOfWeek_Click()
  340.  
  341. '----------------------------------------------------------------------
  342. ' cbxDayFormat_Click Event
  343. '----------------------------------------------------------------------
  344. ' Purpose:  Called when the user changes the selected item in the
  345. '           day format combo box
  346. ' Inputs:   None
  347. ' Outputs:  None
  348. '----------------------------------------------------------------------
  349. Private Sub cbxDayFormat_Click()
  350.     'change the preview
  351.     calPreview.DayNameFormat = cbxDayFormat.ListIndex
  352.  
  353.     'set the page's change flag to True
  354.     PropertyPage.Changed = True
  355. End Sub 'cbxDayFormat_Click()
  356.