home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / StatusBar.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  9.7 KB  |  292 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmStatusBarDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "StatusBar Demonstration"
  6.    ClientHeight    =   4035
  7.    ClientLeft      =   840
  8.    ClientTop       =   1530
  9.    ClientWidth     =   6585
  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            =   "StatusBar.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   269
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   439
  26.    ShowInTaskbar   =   0   'False
  27.    StartUpPosition =   2  'CenterScreen
  28.    Begin AIFCmp1.asxStatusBar asxStatusBar1 
  29.       Height          =   330
  30.       Left            =   2385
  31.       Top             =   1845
  32.       Width           =   4065
  33.       _ExtentX        =   7170
  34.       _ExtentY        =   582
  35.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.          Name            =   "Tahoma"
  37.          Size            =   8.25
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       PanelCount      =   2
  45.       PanelCaption1   =   "An AutoSized Panel"
  46.       PanelKey1       =   "Icon"
  47.       PanelPicture1   =   "StatusBar.frx":0E42
  48.       PanelToolTipText1=   "Icon"
  49.       PanelWidth1     =   117.987
  50.       PanelAutoSize1  =   -1  'True
  51.    End
  52.    Begin AriadIFceCompTest.EventList lstEvents 
  53.       Height          =   1050
  54.       Left            =   90
  55.       TabIndex        =   10
  56.       Top             =   2880
  57.       Width           =   6405
  58.       _ExtentX        =   11298
  59.       _ExtentY        =   1852
  60.    End
  61.    Begin VB.CommandButton cmdProperties 
  62.       Caption         =   "Colours..."
  63.       Height          =   375
  64.       Index           =   0
  65.       Left            =   2385
  66.       TabIndex        =   5
  67.       Top             =   810
  68.       Width           =   1185
  69.    End
  70.    Begin VB.CommandButton cmdProperties 
  71.       Caption         =   "Font..."
  72.       Height          =   375
  73.       Index           =   1
  74.       Left            =   2385
  75.       TabIndex        =   6
  76.       Top             =   1215
  77.       Width           =   1185
  78.    End
  79.    Begin VB.CheckBox chkBackground 
  80.       Caption         =   "Background &Picture"
  81.       Height          =   285
  82.       Left            =   90
  83.       TabIndex        =   4
  84.       Top             =   1890
  85.       Width           =   1965
  86.    End
  87.    Begin VB.ComboBox cboBorderStyle 
  88.       Height          =   315
  89.       ItemData        =   "StatusBar.frx":1194
  90.       Left            =   90
  91.       List            =   "StatusBar.frx":11AA
  92.       Style           =   2  'Dropdown List
  93.       TabIndex        =   1
  94.       Top             =   810
  95.       Width           =   1725
  96.    End
  97.    Begin VB.CheckBox chkDisabled 
  98.       Caption         =   "DisabledText&3D"
  99.       Height          =   285
  100.       Left            =   90
  101.       TabIndex        =   3
  102.       Top             =   1575
  103.       Value           =   1  'Checked
  104.       Width           =   1965
  105.    End
  106.    Begin VB.CheckBox chkEnabled 
  107.       Caption         =   "&Enabled"
  108.       Height          =   285
  109.       Left            =   90
  110.       TabIndex        =   2
  111.       Top             =   1260
  112.       Value           =   1  'Checked
  113.       Width           =   1965
  114.    End
  115.    Begin AIFCmp1.asxStatusBar sbrDemo 
  116.       Height          =   330
  117.       Left            =   90
  118.       Top             =   90
  119.       Width           =   6360
  120.       _ExtentX        =   11218
  121.       _ExtentY        =   582
  122.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  123.          Name            =   "Tahoma"
  124.          Size            =   8.25
  125.          Charset         =   0
  126.          Weight          =   400
  127.          Underline       =   0   'False
  128.          Italic          =   0   'False
  129.          Strikethrough   =   0   'False
  130.       EndProperty
  131.       PanelCount      =   4
  132.       PanelWidth1     =   60
  133.       PanelAlignment1 =   2
  134.       PanelMode1      =   5
  135.       PanelWidth3     =   40
  136.       PanelAlignment3 =   2
  137.       PanelMode3      =   1
  138.       PanelWidth4     =   40
  139.       PanelAlignment4 =   2
  140.       PanelMode4      =   2
  141.    End
  142.    Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1 
  143.       Height          =   30
  144.       Left            =   90
  145.       TabIndex        =   7
  146.       Top             =   2295
  147.       Width           =   6360
  148.       _ExtentX        =   11218
  149.       _ExtentY        =   53
  150.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  151.          Name            =   "Tahoma"
  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.       Caption         =   ""
  160.       TextColor       =   0
  161.    End
  162.    Begin AIFCmp1.asxPowerButton btnAction 
  163.       Cancel          =   -1  'True
  164.       Default         =   -1  'True
  165.       Height          =   420
  166.       Index           =   2
  167.       Left            =   5220
  168.       TabIndex        =   9
  169.       Top             =   2385
  170.       Width           =   1230
  171.       _ExtentX        =   2170
  172.       _ExtentY        =   741
  173.       Picture         =   "StatusBar.frx":1203
  174.       Caption         =   "C&lose"
  175.       CaptionOffsetX  =   8
  176.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  177.          Name            =   "Tahoma"
  178.          Size            =   8.25
  179.          Charset         =   0
  180.          Weight          =   400
  181.          Underline       =   0   'False
  182.          Italic          =   0   'False
  183.          Strikethrough   =   0   'False
  184.       EndProperty
  185.       PictureAlignment=   3
  186.    End
  187.    Begin AIFCmp1.asxPowerButton btnAction 
  188.       Height          =   420
  189.       Index           =   1
  190.       Left            =   3960
  191.       TabIndex        =   8
  192.       Top             =   2385
  193.       Width           =   1230
  194.       _ExtentX        =   2170
  195.       _ExtentY        =   741
  196.       Picture         =   "StatusBar.frx":135D
  197.       Caption         =   "&About..."
  198.       CaptionOffsetX  =   8
  199.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  200.          Name            =   "Tahoma"
  201.          Size            =   8.25
  202.          Charset         =   0
  203.          Weight          =   400
  204.          Underline       =   0   'False
  205.          Italic          =   0   'False
  206.          Strikethrough   =   0   'False
  207.       EndProperty
  208.       PictureAlignment=   3
  209.    End
  210.    Begin VB.Label lblHdr 
  211.       AutoSize        =   -1  'True
  212.       Caption         =   "Border&Style:"
  213.       Height          =   195
  214.       Index           =   0
  215.       Left            =   90
  216.       TabIndex        =   0
  217.       Top             =   585
  218.       Width           =   900
  219.    End
  220.    Begin VB.Image imgTile 
  221.       Height          =   2865
  222.       Left            =   2565
  223.       Picture         =   "StatusBar.frx":14B7
  224.       Top             =   585
  225.       Visible         =   0   'False
  226.       Width           =   3900
  227.    End
  228. Attribute VB_Name = "frmStatusBarDemonstration"
  229. Attribute VB_GlobalNameSpace = False
  230. Attribute VB_Creatable = False
  231. Attribute VB_PredeclaredId = True
  232. Attribute VB_Exposed = False
  233. Option Explicit
  234. DefInt A-Z
  235. Private Sub btnAction_Click(Index As Integer)
  236.  Select Case Index
  237.   Case 1: sbrDemo.About
  238.   Case 2: Unload Me
  239.  End Select
  240. End Sub
  241. Private Sub cboBorderStyle_Click()
  242.  sbrDemo.BorderStyle = cboBorderStyle.ListIndex
  243. End Sub
  244. Private Sub chkBackground_Click()
  245.  Set sbrDemo.Picture = IIf(chkBackground, imgTile, Nothing)
  246. End Sub
  247. Private Sub chkDisabled_Click()
  248.  sbrDemo.DisabledText3D = chkDisabled
  249. End Sub
  250. Private Sub chkEnabled_Click()
  251.  sbrDemo.Enabled = chkEnabled
  252. End Sub
  253. Private Sub cmdProperties_Click(Index As Integer)
  254.  Select Case Index
  255.   Case 0: PropPage.ShowPicker hWnd, "Object Colour", sbrDemo, ppickColor
  256.   Case 1: PropPage.ShowPicker hWnd, "Object Font", sbrDemo, ppickFont
  257.  End Select
  258. End Sub
  259. Private Sub Form_Load()
  260.  cboBorderStyle.ListIndex = tbbsNone
  261. End Sub
  262. Private Sub sbrDemo_Click()
  263.  lstEvents.Add "sbrDemo_Click()"
  264. End Sub
  265. Private Sub sbrDemo_DblClick()
  266.  lstEvents.Add "sbrDemo_DblClick()"
  267. End Sub
  268. Private Sub sbrDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  269.  lstEvents.Add "sbrDemo_MouseDown(" & Button & "," & Shift & "," & Y & ")"
  270. End Sub
  271. Private Sub sbrDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  272.  lstEvents.Add "sbrDemo_MouseUp(" & Button & "," & Shift & "," & Y & ")"
  273. End Sub
  274. Private Sub sbrDemo_PanelClick(ByVal PanelIndex As Integer, ByVal PanelKey As String)
  275.  lstEvents.Add "sbrDemo_PanelClick(" & PanelIndex & "," & PanelKey & ")"
  276. End Sub
  277. Private Sub sbrDemo_PanelDblClick(ByVal PanelIndex As Integer, ByVal PanelKey As String)
  278.  lstEvents.Add "sbrDemo_PanelDblClick(" & PanelIndex & "," & PanelKey & ")"
  279. End Sub
  280. Private Sub sbrDemo_PanelMouseOver(ByVal PanelIndex As Integer, ByVal PanelKey As String)
  281.  lstEvents.Add "sbrDemo_PanelMouseOver(" & PanelIndex & "," & PanelKey & ")"
  282. End Sub
  283. Private Sub sbrDemo_PanelRightClick(ByVal PanelIndex As Integer, ByVal PanelKey As String)
  284.  lstEvents.Add "sbrDemo_PanelRightClick(" & PanelIndex & "," & PanelKey & ")"
  285. End Sub
  286. Private Sub sbrDemo_Resize()
  287.  lstEvents.Add "sbrDemo_Resize()"
  288. End Sub
  289. Private Sub sbrDemo_RightClick()
  290.  lstEvents.Add "sbrDemo_RightClick()"
  291. End Sub
  292.