home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
- Begin VB.Form frmPagerDemonstration
- BorderStyle = 3 'Fixed Dialog
- Caption = "Pager Demonstration"
- ClientHeight = 4695
- ClientLeft = 1470
- ClientTop = 1320
- ClientWidth = 6195
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Icon = "Pager.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 313
- ScaleMode = 3 'Pixel
- ScaleWidth = 413
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 'CenterScreen
- Begin VB.CommandButton cmdColor
- Caption = "&Colours..."
- Height = 375
- Left = 1980
- TabIndex = 13
- Top = 2250
- Width = 1185
- End
- Begin VB.ComboBox cboAppearance
- Height = 315
- ItemData = "Pager.frx":0E42
- Left = 135
- List = "Pager.frx":0E4C
- Style = 2 'Dropdown List
- TabIndex = 5
- Top = 2340
- Width = 1725
- End
- Begin VB.CheckBox chkEnabled
- Caption = "&Enabled"
- Height = 285
- Left = 4005
- TabIndex = 10
- Top = 765
- Value = 1 'Checked
- Width = 1965
- End
- Begin VB.ComboBox cboStyle
- Height = 315
- ItemData = "Pager.frx":0E6A
- Left = 135
- List = "Pager.frx":0E77
- Style = 2 'Dropdown List
- TabIndex = 3
- Top = 1665
- Width = 1590
- End
- Begin VB.CheckBox chkDoubleBottomBorder
- Caption = "DoubleBotto&mBorder"
- Height = 285
- Left = 4005
- TabIndex = 12
- Top = 1710
- Width = 1965
- End
- Begin VB.CheckBox chkDoubleTopBorder
- Caption = "Dou&bleTopBorder"
- Height = 285
- Left = 4005
- TabIndex = 11
- Top = 1395
- Width = 1965
- End
- Begin VB.ComboBox cboBorderStyle
- Height = 315
- ItemData = "Pager.frx":0EB1
- Left = 135
- List = "Pager.frx":0EC7
- Style = 2 'Dropdown List
- TabIndex = 1
- Top = 990
- Width = 1590
- End
- Begin VB.CheckBox chkBorderBottom
- Caption = "Border&Bottom"
- Height = 285
- Left = 1890
- TabIndex = 9
- Top = 1710
- Value = 1 'Checked
- Width = 1965
- End
- Begin VB.CheckBox chkBorderRight
- Caption = "Border&Right"
- Height = 285
- Left = 1890
- TabIndex = 8
- Top = 1395
- Value = 1 'Checked
- Width = 1965
- End
- Begin VB.CheckBox chkBorderLeft
- Caption = "Border&Left"
- Height = 285
- Left = 1890
- TabIndex = 7
- Top = 1080
- Value = 1 'Checked
- Width = 1965
- End
- Begin VB.CheckBox chkBorderTop
- Caption = "Border&Top"
- Height = 285
- Left = 1890
- TabIndex = 6
- Top = 765
- Value = 1 'Checked
- Width = 1965
- End
- Begin AIFCmp1.asxToolbar tbrStandard
- Height = 420
- Left = 495
- Top = 225
- Width = 8850
- _ExtentX = 15610
- _ExtentY = 741
- BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BorderStyle = 0
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Appearance = 1
- ButtonCount = 40
- AutoSize = -1 'True
- ButtonDescription1= "Open an existing ScrapBook Code Database"
- ButtonKey1 = "OpenDB"
- ButtonPicture1 = "Pager.frx":0F20
- ButtonToolTipText1= "Open Database"
- ButtonVisible1 = 0 'False
- ButtonKey2 = "S13"
- ButtonStyle2 = 2
- ButtonVisible2 = 0 'False
- ButtonDescription3= "Create a new code module"
- ButtonKey3 = "NewMod"
- ButtonPicture3 = "Pager.frx":1272
- ButtonToolTipText3= "New Module"
- ButtonDescription4= "Create a new code category"
- ButtonKey4 = "NewCat"
- ButtonPicture4 = "Pager.frx":15C4
- ButtonToolTipText4= "New Category"
- ButtonDescription5= "Create a new Internet Link"
- ButtonKey5 = "NewLink"
- ButtonPicture5 = "Pager.frx":1916
- ButtonToolTipText5= "New Internet Link"
- ButtonKey6 = "S1"
- ButtonStyle6 = 2
- ButtonDescription7= "Display the properties of the selected object"
- ButtonKey7 = "Properties"
- ButtonPicture7 = "Pager.frx":1C68
- ButtonToolTipText7= "Properties"
- ButtonDescription8= "Rename the selected object"
- ButtonKey8 = "Rename"
- ButtonPicture8 = "Pager.frx":1FBA
- ButtonToolTipText8= "Rename"
- ButtonVisible8 = 0 'False
- ButtonDescription9= "Delete the selected object"
- ButtonKey9 = "Delete"
- ButtonPicture9 = "Pager.frx":230C
- ButtonToolTipText9= "Delete"
- ButtonKey10 = "S2"
- ButtonStyle10 = 2
- ButtonDescription11= "Setup printer options"
- ButtonKey11 = "PrintSetup"
- ButtonPicture11 = "Pager.frx":265E
- ButtonToolTipText11= "Print Setup"
- ButtonVisible11 = 0 'False
- ButtonDescription12= "Print the contents of the selected view"
- ButtonKey12 = "Print"
- ButtonPicture12 = "Pager.frx":29B0
- ButtonToolTipText12= "Print"
- ButtonKey13 = "S3"
- ButtonStyle13 = 2
- ButtonDescription14= "Copy the selected text from the current view"
- ButtonKey14 = "Copy"
- ButtonPicture14 = "Pager.frx":2D02
- ButtonToolTipText14= "Copy"
- ButtonKey15 = "S12"
- ButtonStyle15 = 2
- ButtonDescription16= "Search for a text string within the current view"
- ButtonKey16 = "Find"
- ButtonPicture16 = "Pager.frx":3054
- ButtonToolTipText16= "Find"
- ButtonDescription17= "Repeat the last find operation"
- ButtonKey17 = "FindNext"
- ButtonPicture17 = "Pager.frx":33A6
- ButtonToolTipText17= "Find Next"
- ButtonKey18 = "S4"
- ButtonStyle18 = 2
- ButtonDescription19= "Import code from a variety of sources"
- ButtonKey19 = "Import"
- ButtonPicture19 = "Pager.frx":36F8
- ButtonToolTipText19= "Import"
- ButtonDescription20= "Export code to a variety of destinations"
- ButtonKey20 = "Export"
- ButtonPicture20 = "Pager.frx":3A4A
- ButtonToolTipText20= "Export"
- ButtonCaption21 = "Install"
- ButtonDescription21= "Installs a code update packet"
- ButtonKey21 = "Install"
- ButtonPicture21 = "Pager.frx":3D9C
- ButtonToolTipText21= "Install Packet"
- ButtonKey22 = "S5"
- ButtonStyle22 = 2
- ButtonDescription23= "Add's a new bookmark"
- ButtonKey23 = "AddBookmark"
- ButtonPicture23 = "Pager.frx":40EE
- ButtonToolTipText23= "Add Bookmark"
- ButtonDescription24= "Edits the selected bookmark"
- ButtonKey24 = "EditBookmark"
- ButtonPicture24 = "Pager.frx":4440
- ButtonToolTipText24= "Edit Bookmark"
- ButtonVisible24 = 0 'False
- ButtonDescription25= "Deletes the selected bookmark"
- ButtonKey25 = "DeleteBookmark"
- ButtonPicture25 = "Pager.frx":4792
- ButtonToolTipText25= "Delete Bookmark"
- ButtonVisible25 = 0 'False
- ButtonKey26 = "S6"
- ButtonStyle26 = 2
- ButtonDescription27= "Edit related document links"
- ButtonKey27 = "Links"
- ButtonPicture27 = "Pager.frx":4AE4
- ButtonToolTipText27= "Document Links"
- ButtonKey28 = "S7"
- ButtonStyle28 = 2
- ButtonDescription29= "Searches the all code modules for items"
- ButtonKey29 = "Search"
- ButtonPicture29 = "Pager.frx":4E36
- ButtonToolTipText29= "Search Database"
- ButtonDescription30= "Batch replace fields in the database"
- ButtonKey30 = "DBFind"
- ButtonPicture30 = "Pager.frx":5188
- ButtonToolTipText30= "Batch Replace"
- ButtonVisible30 = 0 'False
- ButtonDescription31= "Repair and compact the database"
- ButtonKey31 = "DBRepair"
- ButtonPicture31 = "Pager.frx":54DA
- ButtonToolTipText31= "Repair Database"
- ButtonVisible31 = 0 'False
- ButtonEnabled32 = 0 'False
- ButtonKey32 = "S8"
- ButtonUseMaskColor32= 0 'False
- ButtonStyle32 = 2
- ButtonDescription33= "Setup configuration options"
- ButtonKey33 = "Options"
- ButtonPicture33 = "Pager.frx":582C
- ButtonToolTipText33= "Options"
- ButtonKey34 = "S11"
- ButtonStyle34 = 2
- ButtonDescription35= "Display online help"
- ButtonKey35 = "Help"
- ButtonPicture35 = "Pager.frx":5B7E
- ButtonToolTipText35= "Help"
- ButtonDescription36= "Ariad Online Website menu"
- ButtonKey36 = "Internet"
- ButtonPicture36 = "Pager.frx":5ED0
- ButtonToolTipText36= "Ariad Online"
- ButtonDescription37= "Displays version and copyright information"
- ButtonKey37 = "About"
- ButtonPicture37 = "Pager.frx":6222
- ButtonToolTipText37= "About"
- ButtonEnabled38 = 0 'False
- ButtonKey38 = "S9"
- ButtonUseMaskColor38= 0 'False
- ButtonStyle38 = 2
- ButtonDescription39= "Exits Ariad ScrapBook Code Repository"
- ButtonKey39 = "Exit"
- ButtonPicture39 = "Pager.frx":6574
- ButtonToolTipText39= "Exit"
- ButtonEnabled40 = 0 'False
- ButtonKey40 = "S10"
- ButtonUseMaskColor40= 0 'False
- ButtonStyle40 = 2
- End
- Begin AIFCmp1.asxPager pgrDemo
- Height = 450
- Left = 135
- Top = 180
- Width = 4695
- _ExtentX = 8281
- _ExtentY = 794
- End
- Begin AriadIFceCompTest.EventList lstEvents
- Height = 1230
- Left = 135
- TabIndex = 17
- Top = 3330
- Width = 5910
- _ExtentX = 10425
- _ExtentY = 2170
- End
- Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1
- Height = 30
- Left = 90
- TabIndex = 14
- Top = 2700
- Width = 5955
- _ExtentX = 10504
- _ExtentY = 53
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Caption = ""
- TextColor = 0
- End
- Begin AIFCmp1.asxPowerButton btnAction
- Cancel = -1 'True
- Default = -1 'True
- Height = 420
- Index = 2
- Left = 4815
- TabIndex = 16
- Top = 2790
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "Pager.frx":68C6
- Caption = "C&lose"
- CaptionOffsetX = 8
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- PictureAlignment= 3
- End
- Begin AIFCmp1.asxPowerButton btnAction
- Height = 420
- Index = 1
- Left = 3555
- TabIndex = 15
- Top = 2790
- Width = 1230
- _ExtentX = 2170
- _ExtentY = 741
- Picture = "Pager.frx":6A20
- Caption = "&About..."
- CaptionOffsetX = 8
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- PictureAlignment= 3
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "&Appearance:"
- Height = 195
- Index = 0
- Left = 135
- TabIndex = 4
- Top = 2115
- Width = 930
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "St&yle:"
- Height = 195
- Index = 6
- Left = 135
- TabIndex = 2
- Top = 1440
- Width = 420
- End
- Begin VB.Label lblHdr
- AutoSize = -1 'True
- Caption = "Border&Style:"
- Height = 195
- Index = 1
- Left = 135
- TabIndex = 0
- Top = 765
- Width = 900
- End
- Attribute VB_Name = "frmPagerDemonstration"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- DefInt A-Z
- Private Sub btnAction_Click(Index As Integer)
- Select Case Index
- Case 1: pgrDemo.About
- Case 2: Unload Me
- End Select
- End Sub
- Private Sub cboAppearance_Click()
- pgrDemo.Appearance = cboAppearance.ListIndex
- End Sub
- Private Sub cboBorderStyle_Click()
- pgrDemo.BorderStyle = cboBorderStyle.ListIndex
- End Sub
- Private Sub cboStyle_Click()
- pgrDemo.Style = cboStyle.ListIndex
- End Sub
- Private Sub chkBorderBottom_Click()
- pgrDemo.BorderBottom = chkBorderBottom
- End Sub
- Private Sub chkBorderLeft_Click()
- pgrDemo.BorderLeft = chkBorderLeft
- End Sub
- Private Sub chkBorderRight_Click()
- pgrDemo.BorderRight = chkBorderRight
- End Sub
- Private Sub chkBorderTop_Click()
- pgrDemo.BorderTop = chkBorderTop
- End Sub
- Private Sub chkDoubleBottomBorder_Click()
- pgrDemo.DoubleBottomBorder = chkDoubleBottomBorder
- End Sub
- Private Sub chkDoubleTopBorder_Click()
- pgrDemo.DoubleTopBorder = chkDoubleTopBorder
- End Sub
- Private Sub chkEnabled_Click()
- pgrDemo.Enabled = chkEnabled
- End Sub
- Private Sub cmdColor_Click()
- PropPage.ShowPicker hWnd, "Object Colour", pgrDemo, ppickColor
- End Sub
- Private Sub Form_Load()
- cboBorderStyle.ListIndex = tbbsInset
- cboStyle.ListIndex = pgrsHorizontal
- cboAppearance.ListIndex = ifcaFlat
- Set pgrDemo.Child = tbrStandard
- End Sub
- Private Sub pgrDemo_Click()
- lstEvents.Add "pgrDemo_Click()"
- End Sub
- Private Sub pgrDemo_DblClick()
- lstEvents.Add "pgrDemo_DblClick()"
- End Sub
- Private Sub pgrDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "pgrDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
- End Sub
- Private Sub pgrDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
- lstEvents.Add "pgrDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
- End Sub
- Private Sub pgrDemo_Resize(ByVal NewWidth As Single, ByVal NewHeight As Single)
- lstEvents.Add "pgrDemo_Resize(" & NewWidth & "," & NewHeight & ")"
- End Sub
- Private Sub pgrDemo_Scroll(ByVal Direction As Integer)
- lstEvents.Add "pgrDemo_Scroll(" & Direction & ")"
- End Sub
-