home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / Toolbar.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  16.2 KB  |  462 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmToolbarDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Toolbar Demonstration"
  6.    ClientHeight    =   4965
  7.    ClientLeft      =   1485
  8.    ClientTop       =   1455
  9.    ClientWidth     =   6645
  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            =   "Toolbar.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   331
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   443
  26.    ShowInTaskbar   =   0   'False
  27.    Begin VB.CheckBox chkDithered 
  28.       Caption         =   "Dithered"
  29.       Height          =   240
  30.       Left            =   630
  31.       TabIndex        =   13
  32.       Top             =   2880
  33.       Width           =   1365
  34.    End
  35.    Begin VB.CommandButton cmdProperties 
  36.       Caption         =   "Font..."
  37.       Height          =   375
  38.       Index           =   1
  39.       Left            =   2565
  40.       TabIndex        =   8
  41.       Top             =   1035
  42.       Width           =   1185
  43.    End
  44.    Begin VB.CommandButton cmdProperties 
  45.       Caption         =   "Colours..."
  46.       Height          =   375
  47.       Index           =   0
  48.       Left            =   2565
  49.       TabIndex        =   7
  50.       Top             =   630
  51.       Width           =   1185
  52.    End
  53.    Begin VB.ComboBox cboCaptionAlignment 
  54.       Height          =   315
  55.       ItemData        =   "Toolbar.frx":0E42
  56.       Left            =   630
  57.       List            =   "Toolbar.frx":0E52
  58.       Style           =   2  'Dropdown List
  59.       TabIndex        =   6
  60.       Top             =   2475
  61.       Width           =   1725
  62.    End
  63.    Begin VB.CheckBox chkFlatToolbar 
  64.       Caption         =   "Flat Toolbar"
  65.       Height          =   240
  66.       Left            =   630
  67.       TabIndex        =   0
  68.       Top             =   630
  69.       Width           =   1365
  70.    End
  71.    Begin VB.CheckBox chkPicture 
  72.       Caption         =   "Show Picture"
  73.       Height          =   240
  74.       Left            =   630
  75.       TabIndex        =   1
  76.       Top             =   900
  77.       Width           =   1365
  78.    End
  79.    Begin VB.CheckBox chkEnabled 
  80.       Caption         =   "Enabled"
  81.       Height          =   240
  82.       Left            =   630
  83.       TabIndex        =   2
  84.       Top             =   1170
  85.       Value           =   1  'Checked
  86.       Width           =   1365
  87.    End
  88.    Begin VB.ComboBox cboCaption 
  89.       Height          =   315
  90.       ItemData        =   "Toolbar.frx":0EA8
  91.       Left            =   630
  92.       List            =   "Toolbar.frx":0EB5
  93.       Style           =   2  'Dropdown List
  94.       TabIndex        =   4
  95.       Top             =   1800
  96.       Width           =   1725
  97.    End
  98.    Begin AIFCmp1.asxToolbar tbrFontDemo 
  99.       Height          =   465
  100.       Left            =   4320
  101.       Top             =   630
  102.       Width           =   1410
  103.       _ExtentX        =   2487
  104.       _ExtentY        =   820
  105.       BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  106.          Name            =   "MS Sans Serif"
  107.          Size            =   8.25
  108.          Charset         =   0
  109.          Weight          =   400
  110.          Underline       =   0   'False
  111.          Italic          =   0   'False
  112.          Strikethrough   =   0   'False
  113.       EndProperty
  114.       ButtonGap       =   6
  115.       BorderStyle     =   3
  116.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  117.          Name            =   "Tahoma"
  118.          Size            =   8.25
  119.          Charset         =   0
  120.          Weight          =   400
  121.          Underline       =   0   'False
  122.          Italic          =   0   'False
  123.          Strikethrough   =   0   'False
  124.       EndProperty
  125.       ButtonCount     =   3
  126.       SolidChecked    =   -1  'True
  127.       ShowSeparators  =   -1  'True
  128.       ButtonChecked1  =   -1  'True
  129.       ButtonKey1      =   "Left"
  130.       ButtonPicture1  =   "Toolbar.frx":0EEE
  131.       ButtonToolTipText1=   "Left"
  132.       ButtonGroupID1  =   1
  133.       ButtonKey2      =   "Center"
  134.       ButtonPicture2  =   "Toolbar.frx":1240
  135.       ButtonToolTipText2=   "Center"
  136.       ButtonGroupID2  =   1
  137.       ButtonKey3      =   "Right"
  138.       ButtonPicture3  =   "Toolbar.frx":1592
  139.       ButtonToolTipText3=   "Right"
  140.       ButtonGroupID3  =   1
  141.    End
  142.    Begin AIFCmp1.asxToolbar tbrDemo 
  143.       Align           =   1  'Align Top
  144.       Height          =   510
  145.       Left            =   0
  146.       Top             =   0
  147.       Width           =   6645
  148.       _ExtentX        =   11721
  149.       _ExtentY        =   900
  150.       BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  151.          Name            =   "MS Sans Serif"
  152.          Size            =   8.25
  153.          Charset         =   0
  154.          Weight          =   400
  155.          Underline       =   0   'False
  156.          Italic          =   0   'False
  157.          Strikethrough   =   0   'False
  158.       EndProperty
  159.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  160.          Name            =   "Tahoma"
  161.          Size            =   8.25
  162.          Charset         =   0
  163.          Weight          =   400
  164.          Underline       =   0   'False
  165.          Italic          =   0   'False
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       ButtonCount     =   15
  169.       CaptionOptions  =   2
  170.       ButtonCaption1  =   "Back"
  171.       ButtonDescription1=   "Display previous page from History"
  172.       ButtonPicture1  =   "Toolbar.frx":18E4
  173.       ButtonPictureOver1=   "Toolbar.frx":1DE6
  174.       ButtonToolTipText1=   "Back"
  175.       ButtonCaption2  =   "Next"
  176.       ButtonDescription2=   "Display next page from history"
  177.       ButtonPicture2  =   "Toolbar.frx":22E8
  178.       ButtonPictureOver2=   "Toolbar.frx":27EA
  179.       ButtonToolTipText2=   "Next"
  180.       ButtonDescription3=   "Stop loading a page"
  181.       ButtonPicture3  =   "Toolbar.frx":2CEC
  182.       ButtonPictureOver3=   "Toolbar.frx":31EE
  183.       ButtonToolTipText3=   "Stop"
  184.       ButtonCaption4  =   "Refresh"
  185.       ButtonDescription4=   "Refresh the current page"
  186.       ButtonPicture4  =   "Toolbar.frx":36F0
  187.       ButtonPictureOver4=   "Toolbar.frx":3BF2
  188.       ButtonToolTipText4=   "Refresh"
  189.       ButtonAlwaysShowCaption4=   -1  'True
  190.       ButtonDescription5=   "Displays your home page"
  191.       ButtonPicture5  =   "Toolbar.frx":40F4
  192.       ButtonPictureOver5=   "Toolbar.frx":45F6
  193.       ButtonToolTipText5=   "Home"
  194.       ButtonStyle6    =   2
  195.       ButtonDescription7=   "Displays a search engine"
  196.       ButtonPicture7  =   "Toolbar.frx":4AF8
  197.       ButtonPictureOver7=   "Toolbar.frx":4FFA
  198.       ButtonToolTipText7=   "Search"
  199.       ButtonDescription8=   "Displays your favourites menu"
  200.       ButtonPicture8  =   "Toolbar.frx":54FC
  201.       ButtonPictureOver8=   "Toolbar.frx":59FE
  202.       ButtonToolTipText8=   "Favourites"
  203.       ButtonDescription9=   "Displays your history list"
  204.       ButtonPicture9  =   "Toolbar.frx":5F00
  205.       ButtonPictureOver9=   "Toolbar.frx":6402
  206.       ButtonToolTipText9=   "History"
  207.       ButtonStyle10   =   2
  208.       ButtonDescription11=   "Allows you to set options"
  209.       ButtonPicture11 =   "Toolbar.frx":6904
  210.       ButtonPictureOver11=   "Toolbar.frx":6E06
  211.       ButtonPictureDown11=   "Toolbar.frx":7308
  212.       ButtonToolTipText11=   "Options"
  213.       ButtonStyle12   =   2
  214.       ButtonDescription13=   "Displays the page full screen"
  215.       ButtonPicture13 =   "Toolbar.frx":780A
  216.       ButtonPictureOver13=   "Toolbar.frx":7D0C
  217.       ButtonToolTipText13=   "Full Screen"
  218.       ButtonDescription14=   "Allows the page to be edited"
  219.       ButtonPicture14 =   "Toolbar.frx":820E
  220.       ButtonPictureOver14=   "Toolbar.frx":8760
  221.       ButtonToolTipText14=   "Edit"
  222.       ButtonStyle15   =   2
  223.    End
  224.    Begin AIFCmp1.asxToolbar tbrHeader 
  225.       Height          =   2580
  226.       Left            =   0
  227.       Top             =   540
  228.       Width           =   510
  229.       _ExtentX        =   900
  230.       _ExtentY        =   4551
  231.       BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  232.          Name            =   "MS Sans Serif"
  233.          Size            =   8.25
  234.          Charset         =   0
  235.          Weight          =   400
  236.          Underline       =   0   'False
  237.          Italic          =   0   'False
  238.          Strikethrough   =   0   'False
  239.       EndProperty
  240.       TextColor       =   12582912
  241.       TextDisabledColor=   8421504
  242.       ButtonGap       =   6
  243.       BorderStyle     =   0
  244.       BackColor       =   255
  245.       HighlightColor  =   12632319
  246.       ShadowColor     =   192
  247.       HighlightDarkColor=   8421631
  248.       ShadowDarkColor =   128
  249.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  250.          Name            =   "Tahoma"
  251.          Size            =   8.25
  252.          Charset         =   0
  253.          Weight          =   400
  254.          Underline       =   0   'False
  255.          Italic          =   0   'False
  256.          Strikethrough   =   0   'False
  257.       EndProperty
  258.       ButtonCount     =   3
  259.       ShowSeparators  =   -1  'True
  260.       ButtonCaption1  =   "Code"
  261.       ButtonKey1      =   "Code"
  262.       ButtonPicture1  =   "Toolbar.frx":8CB2
  263.       ButtonToolTipText1=   "Display Code Module"
  264.       ButtonGroupID1  =   1
  265.       ButtonCaption2  =   "Notes"
  266.       ButtonKey2      =   "Notes"
  267.       ButtonPicture2  =   "Toolbar.frx":9004
  268.       ButtonToolTipText2=   "Display Code Description"
  269.       ButtonGroupID2  =   1
  270.       ButtonKey3      =   "Example"
  271.       ButtonPicture3  =   "Toolbar.frx":9356
  272.       ButtonToolTipText3=   "Display examples on using the code"
  273.       ButtonGroupID3  =   1
  274.    End
  275.    Begin AriadIFceCompTest.EventList lstEvents 
  276.       Height          =   1050
  277.       Left            =   90
  278.       TabIndex        =   12
  279.       Top             =   3825
  280.       Width           =   6450
  281.       _ExtentX        =   11377
  282.       _ExtentY        =   1852
  283.    End
  284.    Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1 
  285.       Height          =   30
  286.       Left            =   45
  287.       TabIndex        =   9
  288.       Top             =   3240
  289.       Width           =   6495
  290.       _ExtentX        =   11456
  291.       _ExtentY        =   53
  292.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  293.          Name            =   "Tahoma"
  294.          Size            =   8.25
  295.          Charset         =   0
  296.          Weight          =   400
  297.          Underline       =   0   'False
  298.          Italic          =   0   'False
  299.          Strikethrough   =   0   'False
  300.       EndProperty
  301.       Caption         =   ""
  302.       TextColor       =   0
  303.    End
  304.    Begin AIFCmp1.asxPowerButton btnAction 
  305.       Cancel          =   -1  'True
  306.       Default         =   -1  'True
  307.       Height          =   420
  308.       Index           =   2
  309.       Left            =   5310
  310.       TabIndex        =   11
  311.       Top             =   3330
  312.       Width           =   1230
  313.       _ExtentX        =   2170
  314.       _ExtentY        =   741
  315.       Picture         =   "Toolbar.frx":96A8
  316.       Caption         =   "C&lose"
  317.       CaptionOffsetX  =   8
  318.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  319.          Name            =   "Tahoma"
  320.          Size            =   8.25
  321.          Charset         =   0
  322.          Weight          =   400
  323.          Underline       =   0   'False
  324.          Italic          =   0   'False
  325.          Strikethrough   =   0   'False
  326.       EndProperty
  327.       PictureAlignment=   3
  328.    End
  329.    Begin AIFCmp1.asxPowerButton btnAction 
  330.       Height          =   420
  331.       Index           =   1
  332.       Left            =   4050
  333.       TabIndex        =   10
  334.       Top             =   3330
  335.       Width           =   1230
  336.       _ExtentX        =   2170
  337.       _ExtentY        =   741
  338.       Picture         =   "Toolbar.frx":9802
  339.       Caption         =   "&About..."
  340.       CaptionOffsetX  =   8
  341.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  342.          Name            =   "Tahoma"
  343.          Size            =   8.25
  344.          Charset         =   0
  345.          Weight          =   400
  346.          Underline       =   0   'False
  347.          Italic          =   0   'False
  348.          Strikethrough   =   0   'False
  349.       EndProperty
  350.       PictureAlignment=   3
  351.    End
  352.    Begin VB.Label lblHdr 
  353.       AutoSize        =   -1  'True
  354.       Caption         =   "CaptionAlignment:"
  355.       Height          =   195
  356.       Index           =   0
  357.       Left            =   630
  358.       TabIndex        =   5
  359.       Top             =   2250
  360.       Width           =   1320
  361.    End
  362.    Begin VB.Image imgBackground 
  363.       Height          =   960
  364.       Left            =   5355
  365.       Picture         =   "Toolbar.frx":995C
  366.       Top             =   1665
  367.       Visible         =   0   'False
  368.       Width           =   960
  369.    End
  370.    Begin VB.Label lblHdr 
  371.       AutoSize        =   -1  'True
  372.       Caption         =   "CaptionOptions:"
  373.       Height          =   195
  374.       Index           =   4
  375.       Left            =   630
  376.       TabIndex        =   3
  377.       Top             =   1575
  378.       Width           =   1170
  379.    End
  380. Attribute VB_Name = "frmToolbarDemonstration"
  381. Attribute VB_GlobalNameSpace = False
  382. Attribute VB_Creatable = False
  383. Attribute VB_PredeclaredId = True
  384. Attribute VB_Exposed = False
  385. Option Explicit
  386. DefInt A-Z
  387. Private Sub btnAction_Click(Index As Integer)
  388.  Select Case Index
  389.   Case 1: tbrDemo.About
  390.   Case 2: Unload Me
  391.  End Select
  392. End Sub
  393. Private Sub cboCaption_Click()
  394.  tbrDemo.CaptionOptions = cboCaption.ListIndex
  395. End Sub
  396. Private Sub cboCaptionAlignment_Click()
  397.  tbrDemo.CaptionAlignment = cboCaptionAlignment.ListIndex
  398. End Sub
  399. Private Sub chkDithered_Click()
  400.  Dim I
  401.  For I = 1 To tbrDemo.ButtonCount
  402.   tbrDemo.ButtonDithered(I) = chkDithered
  403.  Next
  404. End Sub
  405. Private Sub chkEnabled_Click()
  406.  Dim V As Boolean
  407.  V = chkEnabled
  408.  tbrDemo.Enabled = V
  409.  tbrFontDemo.Enabled = V
  410.  tbrHeader.Enabled = V
  411. End Sub
  412. Private Sub chkFlatToolbar_Click()
  413.  Dim A As IFCAppearances
  414.  A = IIf(chkFlatToolbar, ifcaFlat, ifcaStandard)
  415.  tbrDemo.Appearance = A
  416.  tbrFontDemo.Appearance = A
  417.  tbrHeader.Appearance = A
  418. End Sub
  419. Private Sub chkPicture_Click()
  420.  Set tbrDemo.Picture = IIf(chkPicture, imgBackground, Nothing)
  421. End Sub
  422. Private Sub cmdProperties_Click(Index As Integer)
  423.  Select Case Index
  424.   Case 0: PropPage.ShowPicker hWnd, "Object Colour", tbrDemo, ppickColor
  425.   Case 1: PropPage.ShowPicker hWnd, "Object Font", tbrDemo, ppickFont
  426.  End Select
  427. End Sub
  428. Private Sub Form_Load()
  429.  cboCaption.ListIndex = iftoSelectedLabels
  430.  cboCaptionAlignment.ListIndex = ifcaCaptionOnRight
  431. End Sub
  432. Private Sub tbrDemo_BeforeButtonClick(ByVal ButtonIndex As Integer, ByVal ButtonKey As String, Cancel As Boolean)
  433.  lstEvents.Add "tbrDemo_BeforeButtonClick(" & ButtonIndex & "," & ButtonKey & ")"
  434. End Sub
  435. Private Sub tbrDemo_ButtonClick(ByVal ButtonIndex As Integer, ByVal ButtonKey As String)
  436.  lstEvents.Add "tbrDemo_ButtonClick(" & ButtonIndex & "," & ButtonKey & ")"
  437. End Sub
  438. Private Sub tbrDemo_ButtonMouseOver(ByVal ButtonIndex As Integer, ByVal ButtonKey As String)
  439.  lstEvents.Add "tbrDemo_ButtonMouseOver(" & ButtonIndex & "," & ButtonKey & ")"
  440. End Sub
  441. Private Sub tbrDemo_ButtonRightClick(ByVal ButtonIndex As Integer, ByVal ButtonKey As String, CancelBeep As Boolean)
  442.  lstEvents.Add "tbrDemo_ButtonRightClick(" & ButtonIndex & "," & ButtonKey & ")"
  443. End Sub
  444. Private Sub tbrDemo_Click()
  445.  lstEvents.Add "tbrDemo_Click()"
  446. End Sub
  447. Private Sub tbrDemo_DblClick()
  448.  lstEvents.Add "tbrDemo_DblClick()"
  449. End Sub
  450. Private Sub tbrDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  451.  lstEvents.Add "tbrDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
  452. End Sub
  453. Private Sub tbrDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  454.  lstEvents.Add "tbrDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
  455. End Sub
  456. Private Sub tbrDemo_Resize(ByVal NewWidth As Single, ByVal NewHeight As Single)
  457.  lstEvents.Add "tbrDemo_Resize(" & NewWidth & "," & NewHeight & ")"
  458. End Sub
  459. Private Sub tbrDemo_RightClick()
  460.  lstEvents.Add "tbrDemo_RightClick()"
  461. End Sub
  462.