home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / PowerBanner.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  10.6 KB  |  326 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmPowerBannerDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "PowerBanner Demonstration"
  6.    ClientHeight    =   4560
  7.    ClientLeft      =   135
  8.    ClientTop       =   375
  9.    ClientWidth     =   5235
  10.    Icon            =   "PowerBanner.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4560
  15.    ScaleWidth      =   5235
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.CommandButton cmdProperties 
  19.       Caption         =   "Colours..."
  20.       BeginProperty Font 
  21.          Name            =   "Tahoma"
  22.          Size            =   8.25
  23.          Charset         =   0
  24.          Weight          =   400
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   375
  30.       Index           =   0
  31.       Left            =   1890
  32.       TabIndex        =   8
  33.       Top             =   810
  34.       Width           =   1185
  35.    End
  36.    Begin VB.CommandButton cmdProperties 
  37.       Caption         =   "Font..."
  38.       BeginProperty Font 
  39.          Name            =   "Tahoma"
  40.          Size            =   8.25
  41.          Charset         =   0
  42.          Weight          =   400
  43.          Underline       =   0   'False
  44.          Italic          =   0   'False
  45.          Strikethrough   =   0   'False
  46.       EndProperty
  47.       Height          =   375
  48.       Index           =   1
  49.       Left            =   1890
  50.       TabIndex        =   7
  51.       Top             =   1215
  52.       Width           =   1185
  53.    End
  54.    Begin AIFCmp1.asxPowerBanner bnrDemo 
  55.       Height          =   2265
  56.       Left            =   3735
  57.       Top             =   180
  58.       Width           =   1365
  59.       _ExtentX        =   2408
  60.       _ExtentY        =   3995
  61.       FormatString    =   "Ariad Software"
  62.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  63.          Name            =   "Arial"
  64.          Size            =   12
  65.          Charset         =   0
  66.          Weight          =   700
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.    End
  72.    Begin VB.CheckBox chkEnabled 
  73.       Caption         =   "&Enabled"
  74.       BeginProperty Font 
  75.          Name            =   "Tahoma"
  76.          Size            =   8.25
  77.          Charset         =   0
  78.          Weight          =   400
  79.          Underline       =   0   'False
  80.          Italic          =   0   'False
  81.          Strikethrough   =   0   'False
  82.       EndProperty
  83.       Height          =   240
  84.       Left            =   1935
  85.       TabIndex        =   3
  86.       Top             =   1800
  87.       Value           =   1  'Checked
  88.       Width           =   1140
  89.    End
  90.    Begin VB.ComboBox cboOrientation 
  91.       BeginProperty Font 
  92.          Name            =   "Tahoma"
  93.          Size            =   8.25
  94.          Charset         =   0
  95.          Weight          =   400
  96.          Underline       =   0   'False
  97.          Italic          =   0   'False
  98.          Strikethrough   =   0   'False
  99.       EndProperty
  100.       Height          =   315
  101.       ItemData        =   "PowerBanner.frx":0E42
  102.       Left            =   135
  103.       List            =   "PowerBanner.frx":0E4C
  104.       Style           =   2  'Dropdown List
  105.       TabIndex        =   2
  106.       Top             =   1755
  107.       Width           =   1590
  108.    End
  109.    Begin VB.ComboBox cboBorderStyle 
  110.       BeginProperty Font 
  111.          Name            =   "Tahoma"
  112.          Size            =   8.25
  113.          Charset         =   0
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       Height          =   315
  120.       ItemData        =   "PowerBanner.frx":0E70
  121.       Left            =   135
  122.       List            =   "PowerBanner.frx":0E7A
  123.       Style           =   2  'Dropdown List
  124.       TabIndex        =   1
  125.       Top             =   1035
  126.       Width           =   1590
  127.    End
  128.    Begin VB.TextBox txtField 
  129.       BeginProperty Font 
  130.          Name            =   "Tahoma"
  131.          Size            =   8.25
  132.          Charset         =   0
  133.          Weight          =   400
  134.          Underline       =   0   'False
  135.          Italic          =   0   'False
  136.          Strikethrough   =   0   'False
  137.       EndProperty
  138.       Height          =   285
  139.       Left            =   135
  140.       TabIndex        =   0
  141.       Text            =   "Ariad Software"
  142.       Top             =   360
  143.       Width           =   3345
  144.    End
  145.    Begin AriadIFceCompTest.EventList lstEvents 
  146.       Height          =   1230
  147.       Left            =   135
  148.       TabIndex        =   9
  149.       Top             =   3195
  150.       Width           =   4965
  151.       _ExtentX        =   8758
  152.       _ExtentY        =   2170
  153.    End
  154.    Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1 
  155.       Height          =   30
  156.       Left            =   180
  157.       TabIndex        =   10
  158.       Top             =   2565
  159.       Width           =   4920
  160.       _ExtentX        =   8678
  161.       _ExtentY        =   53
  162.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  163.          Name            =   "Tahoma"
  164.          Size            =   8.25
  165.          Charset         =   0
  166.          Weight          =   400
  167.          Underline       =   0   'False
  168.          Italic          =   0   'False
  169.          Strikethrough   =   0   'False
  170.       EndProperty
  171.       Caption         =   ""
  172.       TextColor       =   0
  173.    End
  174.    Begin AIFCmp1.asxPowerButton btnAction 
  175.       Cancel          =   -1  'True
  176.       Default         =   -1  'True
  177.       Height          =   420
  178.       Index           =   2
  179.       Left            =   3870
  180.       TabIndex        =   11
  181.       Top             =   2655
  182.       Width           =   1230
  183.       _ExtentX        =   2170
  184.       _ExtentY        =   741
  185.       Picture         =   "PowerBanner.frx":0E9D
  186.       Caption         =   "C&lose"
  187.       CaptionOffsetX  =   8
  188.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  189.          Name            =   "Tahoma"
  190.          Size            =   8.25
  191.          Charset         =   0
  192.          Weight          =   400
  193.          Underline       =   0   'False
  194.          Italic          =   0   'False
  195.          Strikethrough   =   0   'False
  196.       EndProperty
  197.       PictureAlignment=   3
  198.    End
  199.    Begin AIFCmp1.asxPowerButton btnAction 
  200.       Height          =   420
  201.       Index           =   1
  202.       Left            =   2610
  203.       TabIndex        =   12
  204.       Top             =   2655
  205.       Width           =   1230
  206.       _ExtentX        =   2170
  207.       _ExtentY        =   741
  208.       Picture         =   "PowerBanner.frx":0FF7
  209.       Caption         =   "&About..."
  210.       CaptionOffsetX  =   8
  211.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  212.          Name            =   "Tahoma"
  213.          Size            =   8.25
  214.          Charset         =   0
  215.          Weight          =   400
  216.          Underline       =   0   'False
  217.          Italic          =   0   'False
  218.          Strikethrough   =   0   'False
  219.       EndProperty
  220.       PictureAlignment=   3
  221.    End
  222.    Begin VB.Label lblHdr 
  223.       AutoSize        =   -1  'True
  224.       Caption         =   "&Orientation:"
  225.       BeginProperty Font 
  226.          Name            =   "Tahoma"
  227.          Size            =   8.25
  228.          Charset         =   0
  229.          Weight          =   400
  230.          Underline       =   0   'False
  231.          Italic          =   0   'False
  232.          Strikethrough   =   0   'False
  233.       EndProperty
  234.       Height          =   195
  235.       Index           =   6
  236.       Left            =   135
  237.       TabIndex        =   6
  238.       Top             =   1530
  239.       Width           =   870
  240.    End
  241.    Begin VB.Label lblHdr 
  242.       AutoSize        =   -1  'True
  243.       Caption         =   "&BorderStyle:"
  244.       BeginProperty Font 
  245.          Name            =   "Tahoma"
  246.          Size            =   8.25
  247.          Charset         =   0
  248.          Weight          =   400
  249.          Underline       =   0   'False
  250.          Italic          =   0   'False
  251.          Strikethrough   =   0   'False
  252.       EndProperty
  253.       Height          =   195
  254.       Index           =   1
  255.       Left            =   135
  256.       TabIndex        =   5
  257.       Top             =   810
  258.       Width           =   900
  259.    End
  260.    Begin VB.Label lblHdr 
  261.       AutoSize        =   -1  'True
  262.       Caption         =   "&FormatString:"
  263.       BeginProperty Font 
  264.          Name            =   "Tahoma"
  265.          Size            =   8.25
  266.          Charset         =   0
  267.          Weight          =   400
  268.          Underline       =   0   'False
  269.          Italic          =   0   'False
  270.          Strikethrough   =   0   'False
  271.       EndProperty
  272.       Height          =   195
  273.       Index           =   2
  274.       Left            =   135
  275.       TabIndex        =   4
  276.       Top             =   135
  277.       Width           =   990
  278.    End
  279. Attribute VB_Name = "frmPowerBannerDemonstration"
  280. Attribute VB_GlobalNameSpace = False
  281. Attribute VB_Creatable = False
  282. Attribute VB_PredeclaredId = True
  283. Attribute VB_Exposed = False
  284. Option Explicit
  285. DefInt A-Z
  286. Private Sub bnrDemo_Click()
  287.  lstEvents.Add "bnrDemo_Click()"
  288. End Sub
  289. Private Sub bnrDemo_DblClick()
  290.  lstEvents.Add "bnrDemo_DblClick()"
  291. End Sub
  292. Private Sub bnrDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  293.  lstEvents.Add "bnrDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
  294. End Sub
  295. Private Sub bnrDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  296.  lstEvents.Add "bnrDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
  297. End Sub
  298. Private Sub btnAction_Click(Index As Integer)
  299.  Select Case Index
  300.   Case 1: bnrDemo.About
  301.   Case 2: Unload Me
  302.  End Select
  303. End Sub
  304. Private Sub cboBorderStyle_Click()
  305.  bnrDemo.BorderStyle = cboBorderStyle.ListIndex
  306. End Sub
  307. Private Sub cboOrientation_Click()
  308.  bnrDemo.Orientation = cboOrientation.ListIndex
  309. End Sub
  310. Private Sub chkEnabled_Click()
  311.  bnrDemo.Enabled = chkEnabled
  312. End Sub
  313. Private Sub cmdProperties_Click(Index As Integer)
  314.  Select Case Index
  315.   Case 0: PropPage.ShowPicker hWnd, "Object Colour", bnrDemo, ppickColor
  316.   Case 1: PropPage.ShowPicker hWnd, "Object Font", bnrDemo, ppickFont
  317.  End Select
  318. End Sub
  319. Private Sub Form_Load()
  320.  cboBorderStyle.ListIndex = ifcbsNone
  321.  cboOrientation.ListIndex = ifcoVertical
  322. End Sub
  323. Private Sub txtField_Change()
  324.  bnrDemo.FormatString = txtField
  325. End Sub
  326.