home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / Pager.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  17.3 KB  |  491 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmPagerDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Pager Demonstration"
  6.    ClientHeight    =   4695
  7.    ClientLeft      =   1470
  8.    ClientTop       =   1320
  9.    ClientWidth     =   6195
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "Pager.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   313
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   413
  26.    ShowInTaskbar   =   0   'False
  27.    StartUpPosition =   2  'CenterScreen
  28.    Begin VB.CommandButton cmdColor 
  29.       Caption         =   "&Colours..."
  30.       Height          =   375
  31.       Left            =   1980
  32.       TabIndex        =   13
  33.       Top             =   2250
  34.       Width           =   1185
  35.    End
  36.    Begin VB.ComboBox cboAppearance 
  37.       Height          =   315
  38.       ItemData        =   "Pager.frx":0E42
  39.       Left            =   135
  40.       List            =   "Pager.frx":0E4C
  41.       Style           =   2  'Dropdown List
  42.       TabIndex        =   5
  43.       Top             =   2340
  44.       Width           =   1725
  45.    End
  46.    Begin VB.CheckBox chkEnabled 
  47.       Caption         =   "&Enabled"
  48.       Height          =   285
  49.       Left            =   4005
  50.       TabIndex        =   10
  51.       Top             =   765
  52.       Value           =   1  'Checked
  53.       Width           =   1965
  54.    End
  55.    Begin VB.ComboBox cboStyle 
  56.       Height          =   315
  57.       ItemData        =   "Pager.frx":0E6A
  58.       Left            =   135
  59.       List            =   "Pager.frx":0E77
  60.       Style           =   2  'Dropdown List
  61.       TabIndex        =   3
  62.       Top             =   1665
  63.       Width           =   1590
  64.    End
  65.    Begin VB.CheckBox chkDoubleBottomBorder 
  66.       Caption         =   "DoubleBotto&mBorder"
  67.       Height          =   285
  68.       Left            =   4005
  69.       TabIndex        =   12
  70.       Top             =   1710
  71.       Width           =   1965
  72.    End
  73.    Begin VB.CheckBox chkDoubleTopBorder 
  74.       Caption         =   "Dou&bleTopBorder"
  75.       Height          =   285
  76.       Left            =   4005
  77.       TabIndex        =   11
  78.       Top             =   1395
  79.       Width           =   1965
  80.    End
  81.    Begin VB.ComboBox cboBorderStyle 
  82.       Height          =   315
  83.       ItemData        =   "Pager.frx":0EB1
  84.       Left            =   135
  85.       List            =   "Pager.frx":0EC7
  86.       Style           =   2  'Dropdown List
  87.       TabIndex        =   1
  88.       Top             =   990
  89.       Width           =   1590
  90.    End
  91.    Begin VB.CheckBox chkBorderBottom 
  92.       Caption         =   "Border&Bottom"
  93.       Height          =   285
  94.       Left            =   1890
  95.       TabIndex        =   9
  96.       Top             =   1710
  97.       Value           =   1  'Checked
  98.       Width           =   1965
  99.    End
  100.    Begin VB.CheckBox chkBorderRight 
  101.       Caption         =   "Border&Right"
  102.       Height          =   285
  103.       Left            =   1890
  104.       TabIndex        =   8
  105.       Top             =   1395
  106.       Value           =   1  'Checked
  107.       Width           =   1965
  108.    End
  109.    Begin VB.CheckBox chkBorderLeft 
  110.       Caption         =   "Border&Left"
  111.       Height          =   285
  112.       Left            =   1890
  113.       TabIndex        =   7
  114.       Top             =   1080
  115.       Value           =   1  'Checked
  116.       Width           =   1965
  117.    End
  118.    Begin VB.CheckBox chkBorderTop 
  119.       Caption         =   "Border&Top"
  120.       Height          =   285
  121.       Left            =   1890
  122.       TabIndex        =   6
  123.       Top             =   765
  124.       Value           =   1  'Checked
  125.       Width           =   1965
  126.    End
  127.    Begin AIFCmp1.asxToolbar tbrStandard 
  128.       Height          =   420
  129.       Left            =   495
  130.       Top             =   225
  131.       Width           =   8850
  132.       _ExtentX        =   15610
  133.       _ExtentY        =   741
  134.       BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  135.          Name            =   "MS Sans Serif"
  136.          Size            =   8.25
  137.          Charset         =   0
  138.          Weight          =   400
  139.          Underline       =   0   'False
  140.          Italic          =   0   'False
  141.          Strikethrough   =   0   'False
  142.       EndProperty
  143.       BorderStyle     =   0
  144.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  145.          Name            =   "Tahoma"
  146.          Size            =   8.25
  147.          Charset         =   0
  148.          Weight          =   400
  149.          Underline       =   0   'False
  150.          Italic          =   0   'False
  151.          Strikethrough   =   0   'False
  152.       EndProperty
  153.       Appearance      =   1
  154.       ButtonCount     =   40
  155.       AutoSize        =   -1  'True
  156.       ButtonDescription1=   "Open an existing ScrapBook Code Database"
  157.       ButtonKey1      =   "OpenDB"
  158.       ButtonPicture1  =   "Pager.frx":0F20
  159.       ButtonToolTipText1=   "Open Database"
  160.       ButtonVisible1  =   0   'False
  161.       ButtonKey2      =   "S13"
  162.       ButtonStyle2    =   2
  163.       ButtonVisible2  =   0   'False
  164.       ButtonDescription3=   "Create a new code module"
  165.       ButtonKey3      =   "NewMod"
  166.       ButtonPicture3  =   "Pager.frx":1272
  167.       ButtonToolTipText3=   "New Module"
  168.       ButtonDescription4=   "Create a new code category"
  169.       ButtonKey4      =   "NewCat"
  170.       ButtonPicture4  =   "Pager.frx":15C4
  171.       ButtonToolTipText4=   "New Category"
  172.       ButtonDescription5=   "Create a new Internet Link"
  173.       ButtonKey5      =   "NewLink"
  174.       ButtonPicture5  =   "Pager.frx":1916
  175.       ButtonToolTipText5=   "New Internet Link"
  176.       ButtonKey6      =   "S1"
  177.       ButtonStyle6    =   2
  178.       ButtonDescription7=   "Display the properties of the selected object"
  179.       ButtonKey7      =   "Properties"
  180.       ButtonPicture7  =   "Pager.frx":1C68
  181.       ButtonToolTipText7=   "Properties"
  182.       ButtonDescription8=   "Rename the selected object"
  183.       ButtonKey8      =   "Rename"
  184.       ButtonPicture8  =   "Pager.frx":1FBA
  185.       ButtonToolTipText8=   "Rename"
  186.       ButtonVisible8  =   0   'False
  187.       ButtonDescription9=   "Delete the selected object"
  188.       ButtonKey9      =   "Delete"
  189.       ButtonPicture9  =   "Pager.frx":230C
  190.       ButtonToolTipText9=   "Delete"
  191.       ButtonKey10     =   "S2"
  192.       ButtonStyle10   =   2
  193.       ButtonDescription11=   "Setup printer options"
  194.       ButtonKey11     =   "PrintSetup"
  195.       ButtonPicture11 =   "Pager.frx":265E
  196.       ButtonToolTipText11=   "Print Setup"
  197.       ButtonVisible11 =   0   'False
  198.       ButtonDescription12=   "Print the contents of the selected view"
  199.       ButtonKey12     =   "Print"
  200.       ButtonPicture12 =   "Pager.frx":29B0
  201.       ButtonToolTipText12=   "Print"
  202.       ButtonKey13     =   "S3"
  203.       ButtonStyle13   =   2
  204.       ButtonDescription14=   "Copy the selected text from the current view"
  205.       ButtonKey14     =   "Copy"
  206.       ButtonPicture14 =   "Pager.frx":2D02
  207.       ButtonToolTipText14=   "Copy"
  208.       ButtonKey15     =   "S12"
  209.       ButtonStyle15   =   2
  210.       ButtonDescription16=   "Search for a text string within the current view"
  211.       ButtonKey16     =   "Find"
  212.       ButtonPicture16 =   "Pager.frx":3054
  213.       ButtonToolTipText16=   "Find"
  214.       ButtonDescription17=   "Repeat the last find operation"
  215.       ButtonKey17     =   "FindNext"
  216.       ButtonPicture17 =   "Pager.frx":33A6
  217.       ButtonToolTipText17=   "Find Next"
  218.       ButtonKey18     =   "S4"
  219.       ButtonStyle18   =   2
  220.       ButtonDescription19=   "Import code from a variety of sources"
  221.       ButtonKey19     =   "Import"
  222.       ButtonPicture19 =   "Pager.frx":36F8
  223.       ButtonToolTipText19=   "Import"
  224.       ButtonDescription20=   "Export code to a variety of destinations"
  225.       ButtonKey20     =   "Export"
  226.       ButtonPicture20 =   "Pager.frx":3A4A
  227.       ButtonToolTipText20=   "Export"
  228.       ButtonCaption21 =   "Install"
  229.       ButtonDescription21=   "Installs a code update packet"
  230.       ButtonKey21     =   "Install"
  231.       ButtonPicture21 =   "Pager.frx":3D9C
  232.       ButtonToolTipText21=   "Install Packet"
  233.       ButtonKey22     =   "S5"
  234.       ButtonStyle22   =   2
  235.       ButtonDescription23=   "Add's a new bookmark"
  236.       ButtonKey23     =   "AddBookmark"
  237.       ButtonPicture23 =   "Pager.frx":40EE
  238.       ButtonToolTipText23=   "Add Bookmark"
  239.       ButtonDescription24=   "Edits the selected bookmark"
  240.       ButtonKey24     =   "EditBookmark"
  241.       ButtonPicture24 =   "Pager.frx":4440
  242.       ButtonToolTipText24=   "Edit Bookmark"
  243.       ButtonVisible24 =   0   'False
  244.       ButtonDescription25=   "Deletes the selected bookmark"
  245.       ButtonKey25     =   "DeleteBookmark"
  246.       ButtonPicture25 =   "Pager.frx":4792
  247.       ButtonToolTipText25=   "Delete Bookmark"
  248.       ButtonVisible25 =   0   'False
  249.       ButtonKey26     =   "S6"
  250.       ButtonStyle26   =   2
  251.       ButtonDescription27=   "Edit related document links"
  252.       ButtonKey27     =   "Links"
  253.       ButtonPicture27 =   "Pager.frx":4AE4
  254.       ButtonToolTipText27=   "Document Links"
  255.       ButtonKey28     =   "S7"
  256.       ButtonStyle28   =   2
  257.       ButtonDescription29=   "Searches the all code modules for items"
  258.       ButtonKey29     =   "Search"
  259.       ButtonPicture29 =   "Pager.frx":4E36
  260.       ButtonToolTipText29=   "Search Database"
  261.       ButtonDescription30=   "Batch replace fields in the database"
  262.       ButtonKey30     =   "DBFind"
  263.       ButtonPicture30 =   "Pager.frx":5188
  264.       ButtonToolTipText30=   "Batch Replace"
  265.       ButtonVisible30 =   0   'False
  266.       ButtonDescription31=   "Repair and compact the database"
  267.       ButtonKey31     =   "DBRepair"
  268.       ButtonPicture31 =   "Pager.frx":54DA
  269.       ButtonToolTipText31=   "Repair Database"
  270.       ButtonVisible31 =   0   'False
  271.       ButtonEnabled32 =   0   'False
  272.       ButtonKey32     =   "S8"
  273.       ButtonUseMaskColor32=   0   'False
  274.       ButtonStyle32   =   2
  275.       ButtonDescription33=   "Setup configuration options"
  276.       ButtonKey33     =   "Options"
  277.       ButtonPicture33 =   "Pager.frx":582C
  278.       ButtonToolTipText33=   "Options"
  279.       ButtonKey34     =   "S11"
  280.       ButtonStyle34   =   2
  281.       ButtonDescription35=   "Display online help"
  282.       ButtonKey35     =   "Help"
  283.       ButtonPicture35 =   "Pager.frx":5B7E
  284.       ButtonToolTipText35=   "Help"
  285.       ButtonDescription36=   "Ariad Online Website menu"
  286.       ButtonKey36     =   "Internet"
  287.       ButtonPicture36 =   "Pager.frx":5ED0
  288.       ButtonToolTipText36=   "Ariad Online"
  289.       ButtonDescription37=   "Displays version and copyright information"
  290.       ButtonKey37     =   "About"
  291.       ButtonPicture37 =   "Pager.frx":6222
  292.       ButtonToolTipText37=   "About"
  293.       ButtonEnabled38 =   0   'False
  294.       ButtonKey38     =   "S9"
  295.       ButtonUseMaskColor38=   0   'False
  296.       ButtonStyle38   =   2
  297.       ButtonDescription39=   "Exits Ariad ScrapBook Code Repository"
  298.       ButtonKey39     =   "Exit"
  299.       ButtonPicture39 =   "Pager.frx":6574
  300.       ButtonToolTipText39=   "Exit"
  301.       ButtonEnabled40 =   0   'False
  302.       ButtonKey40     =   "S10"
  303.       ButtonUseMaskColor40=   0   'False
  304.       ButtonStyle40   =   2
  305.    End
  306.    Begin AIFCmp1.asxPager pgrDemo 
  307.       Height          =   450
  308.       Left            =   135
  309.       Top             =   180
  310.       Width           =   4695
  311.       _ExtentX        =   8281
  312.       _ExtentY        =   794
  313.    End
  314.    Begin AriadIFceCompTest.EventList lstEvents 
  315.       Height          =   1230
  316.       Left            =   135
  317.       TabIndex        =   17
  318.       Top             =   3330
  319.       Width           =   5910
  320.       _ExtentX        =   10425
  321.       _ExtentY        =   2170
  322.    End
  323.    Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1 
  324.       Height          =   30
  325.       Left            =   90
  326.       TabIndex        =   14
  327.       Top             =   2700
  328.       Width           =   5955
  329.       _ExtentX        =   10504
  330.       _ExtentY        =   53
  331.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  332.          Name            =   "Tahoma"
  333.          Size            =   8.25
  334.          Charset         =   0
  335.          Weight          =   400
  336.          Underline       =   0   'False
  337.          Italic          =   0   'False
  338.          Strikethrough   =   0   'False
  339.       EndProperty
  340.       Caption         =   ""
  341.       TextColor       =   0
  342.    End
  343.    Begin AIFCmp1.asxPowerButton btnAction 
  344.       Cancel          =   -1  'True
  345.       Default         =   -1  'True
  346.       Height          =   420
  347.       Index           =   2
  348.       Left            =   4815
  349.       TabIndex        =   16
  350.       Top             =   2790
  351.       Width           =   1230
  352.       _ExtentX        =   2170
  353.       _ExtentY        =   741
  354.       Picture         =   "Pager.frx":68C6
  355.       Caption         =   "C&lose"
  356.       CaptionOffsetX  =   8
  357.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  358.          Name            =   "Tahoma"
  359.          Size            =   8.25
  360.          Charset         =   0
  361.          Weight          =   400
  362.          Underline       =   0   'False
  363.          Italic          =   0   'False
  364.          Strikethrough   =   0   'False
  365.       EndProperty
  366.       PictureAlignment=   3
  367.    End
  368.    Begin AIFCmp1.asxPowerButton btnAction 
  369.       Height          =   420
  370.       Index           =   1
  371.       Left            =   3555
  372.       TabIndex        =   15
  373.       Top             =   2790
  374.       Width           =   1230
  375.       _ExtentX        =   2170
  376.       _ExtentY        =   741
  377.       Picture         =   "Pager.frx":6A20
  378.       Caption         =   "&About..."
  379.       CaptionOffsetX  =   8
  380.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  381.          Name            =   "Tahoma"
  382.          Size            =   8.25
  383.          Charset         =   0
  384.          Weight          =   400
  385.          Underline       =   0   'False
  386.          Italic          =   0   'False
  387.          Strikethrough   =   0   'False
  388.       EndProperty
  389.       PictureAlignment=   3
  390.    End
  391.    Begin VB.Label lblHdr 
  392.       AutoSize        =   -1  'True
  393.       Caption         =   "&Appearance:"
  394.       Height          =   195
  395.       Index           =   0
  396.       Left            =   135
  397.       TabIndex        =   4
  398.       Top             =   2115
  399.       Width           =   930
  400.    End
  401.    Begin VB.Label lblHdr 
  402.       AutoSize        =   -1  'True
  403.       Caption         =   "St&yle:"
  404.       Height          =   195
  405.       Index           =   6
  406.       Left            =   135
  407.       TabIndex        =   2
  408.       Top             =   1440
  409.       Width           =   420
  410.    End
  411.    Begin VB.Label lblHdr 
  412.       AutoSize        =   -1  'True
  413.       Caption         =   "Border&Style:"
  414.       Height          =   195
  415.       Index           =   1
  416.       Left            =   135
  417.       TabIndex        =   0
  418.       Top             =   765
  419.       Width           =   900
  420.    End
  421. Attribute VB_Name = "frmPagerDemonstration"
  422. Attribute VB_GlobalNameSpace = False
  423. Attribute VB_Creatable = False
  424. Attribute VB_PredeclaredId = True
  425. Attribute VB_Exposed = False
  426. Option Explicit
  427. DefInt A-Z
  428. Private Sub btnAction_Click(Index As Integer)
  429.  Select Case Index
  430.   Case 1: pgrDemo.About
  431.   Case 2: Unload Me
  432.  End Select
  433. End Sub
  434. Private Sub cboAppearance_Click()
  435.  pgrDemo.Appearance = cboAppearance.ListIndex
  436. End Sub
  437. Private Sub cboBorderStyle_Click()
  438.  pgrDemo.BorderStyle = cboBorderStyle.ListIndex
  439. End Sub
  440. Private Sub cboStyle_Click()
  441.  pgrDemo.Style = cboStyle.ListIndex
  442. End Sub
  443. Private Sub chkBorderBottom_Click()
  444.  pgrDemo.BorderBottom = chkBorderBottom
  445. End Sub
  446. Private Sub chkBorderLeft_Click()
  447.  pgrDemo.BorderLeft = chkBorderLeft
  448. End Sub
  449. Private Sub chkBorderRight_Click()
  450.  pgrDemo.BorderRight = chkBorderRight
  451. End Sub
  452. Private Sub chkBorderTop_Click()
  453.  pgrDemo.BorderTop = chkBorderTop
  454. End Sub
  455. Private Sub chkDoubleBottomBorder_Click()
  456.  pgrDemo.DoubleBottomBorder = chkDoubleBottomBorder
  457. End Sub
  458. Private Sub chkDoubleTopBorder_Click()
  459.  pgrDemo.DoubleTopBorder = chkDoubleTopBorder
  460. End Sub
  461. Private Sub chkEnabled_Click()
  462.  pgrDemo.Enabled = chkEnabled
  463. End Sub
  464. Private Sub cmdColor_Click()
  465.  PropPage.ShowPicker hWnd, "Object Colour", pgrDemo, ppickColor
  466. End Sub
  467. Private Sub Form_Load()
  468.  cboBorderStyle.ListIndex = tbbsInset
  469.  cboStyle.ListIndex = pgrsHorizontal
  470.  cboAppearance.ListIndex = ifcaFlat
  471.  Set pgrDemo.Child = tbrStandard
  472. End Sub
  473. Private Sub pgrDemo_Click()
  474.  lstEvents.Add "pgrDemo_Click()"
  475. End Sub
  476. Private Sub pgrDemo_DblClick()
  477.  lstEvents.Add "pgrDemo_DblClick()"
  478. End Sub
  479. Private Sub pgrDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  480.  lstEvents.Add "pgrDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
  481. End Sub
  482. Private Sub pgrDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  483.  lstEvents.Add "pgrDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
  484. End Sub
  485. Private Sub pgrDemo_Resize(ByVal NewWidth As Single, ByVal NewHeight As Single)
  486.  lstEvents.Add "pgrDemo_Resize(" & NewWidth & "," & NewHeight & ")"
  487. End Sub
  488. Private Sub pgrDemo_Scroll(ByVal Direction As Integer)
  489.  lstEvents.Add "pgrDemo_Scroll(" & Direction & ")"
  490. End Sub
  491.