home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / GenericContainer.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  9.5 KB  |  279 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmGenericContainerDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Generic Container Demonstration"
  6.    ClientHeight    =   4620
  7.    ClientLeft      =   2460
  8.    ClientTop       =   1545
  9.    ClientWidth     =   6090
  10.    Icon            =   "GenericContainer.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   308
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   406
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.CheckBox chkEnabled 
  20.       Caption         =   "&Enabled"
  21.       BeginProperty Font 
  22.          Name            =   "Tahoma"
  23.          Size            =   8.25
  24.          Charset         =   0
  25.          Weight          =   400
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.       Height          =   285
  31.       Left            =   270
  32.       TabIndex        =   6
  33.       Top             =   2250
  34.       Value           =   1  'Checked
  35.       Width           =   1815
  36.    End
  37.    Begin AIFCmp1.asxGenericContainer cntDemo 
  38.       Height          =   1995
  39.       Left            =   135
  40.       Top             =   135
  41.       Width           =   5820
  42.       _ExtentX        =   10266
  43.       _ExtentY        =   3519
  44.       Begin VB.CommandButton cmdColor 
  45.          Caption         =   "&Colours..."
  46.          BeginProperty Font 
  47.             Name            =   "Tahoma"
  48.             Size            =   8.25
  49.             Charset         =   0
  50.             Weight          =   400
  51.             Underline       =   0   'False
  52.             Italic          =   0   'False
  53.             Strikethrough   =   0   'False
  54.          EndProperty
  55.          Height          =   375
  56.          Left            =   135
  57.          TabIndex        =   4
  58.          Top             =   1485
  59.          Width           =   1185
  60.       End
  61.       Begin VB.ComboBox cboBackStyle 
  62.          BeginProperty Font 
  63.             Name            =   "Tahoma"
  64.             Size            =   8.25
  65.             Charset         =   0
  66.             Weight          =   400
  67.             Underline       =   0   'False
  68.             Italic          =   0   'False
  69.             Strikethrough   =   0   'False
  70.          EndProperty
  71.          Height          =   315
  72.          ItemData        =   "GenericContainer.frx":0E42
  73.          Left            =   135
  74.          List            =   "GenericContainer.frx":0E4C
  75.          Style           =   2  'Dropdown List
  76.          TabIndex        =   3
  77.          Top             =   1035
  78.          Width           =   1950
  79.       End
  80.       Begin VB.ComboBox cboBorderStyle 
  81.          BeginProperty Font 
  82.             Name            =   "Tahoma"
  83.             Size            =   8.25
  84.             Charset         =   0
  85.             Weight          =   400
  86.             Underline       =   0   'False
  87.             Italic          =   0   'False
  88.             Strikethrough   =   0   'False
  89.          EndProperty
  90.          Height          =   315
  91.          ItemData        =   "GenericContainer.frx":0E65
  92.          Left            =   135
  93.          List            =   "GenericContainer.frx":0E75
  94.          Style           =   2  'Dropdown List
  95.          TabIndex        =   1
  96.          Top             =   360
  97.          Width           =   1950
  98.       End
  99.       Begin VB.Label lblMsg 
  100.          AutoSize        =   -1  'True
  101.          Caption         =   $"GenericContainer.frx":0E9B
  102.          BeginProperty Font 
  103.             Name            =   "Tahoma"
  104.             Size            =   8.25
  105.             Charset         =   0
  106.             Weight          =   400
  107.             Underline       =   0   'False
  108.             Italic          =   0   'False
  109.             Strikethrough   =   0   'False
  110.          EndProperty
  111.          Height          =   975
  112.          Left            =   2475
  113.          TabIndex        =   5
  114.          Top             =   360
  115.          Visible         =   0   'False
  116.          Width           =   2850
  117.          WordWrap        =   -1  'True
  118.       End
  119.       Begin VB.Label lblHdr 
  120.          AutoSize        =   -1  'True
  121.          Caption         =   "&BackStyle:"
  122.          BeginProperty Font 
  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.          Height          =   195
  132.          Index           =   1
  133.          Left            =   135
  134.          TabIndex        =   2
  135.          Top             =   810
  136.          Width           =   750
  137.       End
  138.       Begin VB.Label lblHdr 
  139.          AutoSize        =   -1  'True
  140.          Caption         =   "Border&Style:"
  141.          BeginProperty Font 
  142.             Name            =   "Tahoma"
  143.             Size            =   8.25
  144.             Charset         =   0
  145.             Weight          =   400
  146.             Underline       =   0   'False
  147.             Italic          =   0   'False
  148.             Strikethrough   =   0   'False
  149.          EndProperty
  150.          Height          =   195
  151.          Index           =   0
  152.          Left            =   135
  153.          TabIndex        =   0
  154.          Top             =   135
  155.          Width           =   900
  156.       End
  157.    End
  158.    Begin AriadIFceCompTest.EventList lstEvents 
  159.       Height          =   1230
  160.       Left            =   135
  161.       TabIndex        =   10
  162.       Top             =   3285
  163.       Width           =   5820
  164.       _ExtentX        =   11298
  165.       _ExtentY        =   2170
  166.    End
  167.    Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1 
  168.       Height          =   30
  169.       Left            =   135
  170.       TabIndex        =   7
  171.       Top             =   2655
  172.       Width           =   5820
  173.       _ExtentX        =   10266
  174.       _ExtentY        =   53
  175.       Caption         =   ""
  176.       TextColor       =   0
  177.    End
  178.    Begin AIFCmp1.asxPowerButton btnAction 
  179.       Cancel          =   -1  'True
  180.       Default         =   -1  'True
  181.       Height          =   420
  182.       Index           =   2
  183.       Left            =   4725
  184.       TabIndex        =   9
  185.       Top             =   2745
  186.       Width           =   1230
  187.       _ExtentX        =   2170
  188.       _ExtentY        =   741
  189.       Picture         =   "GenericContainer.frx":0F3D
  190.       Caption         =   "C&lose"
  191.       CaptionOffsetX  =   8
  192.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  193.          Name            =   "Tahoma"
  194.          Size            =   8.25
  195.          Charset         =   0
  196.          Weight          =   400
  197.          Underline       =   0   'False
  198.          Italic          =   0   'False
  199.          Strikethrough   =   0   'False
  200.       EndProperty
  201.       PictureAlignment=   3
  202.    End
  203.    Begin AIFCmp1.asxPowerButton btnAction 
  204.       Height          =   420
  205.       Index           =   1
  206.       Left            =   3465
  207.       TabIndex        =   8
  208.       Top             =   2745
  209.       Width           =   1230
  210.       _ExtentX        =   2170
  211.       _ExtentY        =   741
  212.       Picture         =   "GenericContainer.frx":1097
  213.       Caption         =   "&About..."
  214.       CaptionOffsetX  =   8
  215.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  216.          Name            =   "Tahoma"
  217.          Size            =   8.25
  218.          Charset         =   0
  219.          Weight          =   400
  220.          Underline       =   0   'False
  221.          Italic          =   0   'False
  222.          Strikethrough   =   0   'False
  223.       EndProperty
  224.       PictureAlignment=   3
  225.    End
  226.    Begin VB.Shape Shape1 
  227.       FillStyle       =   7  'Diagonal Cross
  228.       Height          =   1995
  229.       Left            =   135
  230.       Shape           =   2  'Oval
  231.       Top             =   135
  232.       Width           =   5820
  233.    End
  234. Attribute VB_Name = "frmGenericContainerDemonstration"
  235. Attribute VB_GlobalNameSpace = False
  236. Attribute VB_Creatable = False
  237. Attribute VB_PredeclaredId = True
  238. Attribute VB_Exposed = False
  239. Option Explicit
  240. DefInt A-Z
  241. Private Sub btnAction_Click(Index As Integer)
  242.  Select Case Index
  243.   Case 1: cntDemo.About
  244.   Case 2: Unload Me
  245.  End Select
  246. End Sub
  247. Private Sub cboBackStyle_Click()
  248.  cntDemo.BackStyle = cboBackStyle.ListIndex
  249. End Sub
  250. Private Sub cboBorderStyle_Click()
  251.  cntDemo.BorderStyle = cboBorderStyle.ListIndex
  252. End Sub
  253. Private Sub chkEnabled_Click()
  254.  cntDemo.Enabled = chkEnabled
  255.  lblMsg.Visible = Not cntDemo.Enabled
  256. End Sub
  257. Private Sub cmdColor_Click()
  258.  PropPage.ShowPicker hWnd, "Object Colour", cntDemo, ppickColor
  259. End Sub
  260. Private Sub cntDemo_Click()
  261.  lstEvents.Add "cntDemo_Click()"
  262. End Sub
  263. Private Sub cntDemo_DblClick()
  264.  lstEvents.Add "cntDemo_DblClick()"
  265. End Sub
  266. Private Sub cntDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  267.  lstEvents.Add "cntDemo_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
  268. End Sub
  269. Private Sub cntDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  270.  lstEvents.Add "cntDemo_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
  271. End Sub
  272. Private Sub cntDemo_Resize(ByVal NewWidth As Single, ByVal NewHeight As Single)
  273.  lstEvents.Add "cntDemo_Resize(" & NewWidth & "," & NewHeight & ")"
  274. End Sub
  275. Private Sub Form_Load()
  276.  cboBorderStyle.ListIndex = ifcbsNone
  277.  cboBackStyle.ListIndex = ifbsOpaque
  278. End Sub
  279.