home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / Panel.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  15.2 KB  |  483 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmPanelDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Panel Demonstration"
  6.    ClientHeight    =   5505
  7.    ClientLeft      =   480
  8.    ClientTop       =   765
  9.    ClientWidth     =   7935
  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            =   "Panel.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   5505
  24.    ScaleWidth      =   7935
  25.    ShowInTaskbar   =   0   'False
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin VB.CommandButton cmdProperties 
  28.       Caption         =   "Font..."
  29.       Height          =   375
  30.       Index           =   1
  31.       Left            =   1350
  32.       TabIndex        =   29
  33.       Top             =   3600
  34.       Width           =   1185
  35.    End
  36.    Begin VB.CommandButton cmdProperties 
  37.       Caption         =   "Colours..."
  38.       Height          =   375
  39.       Index           =   0
  40.       Left            =   135
  41.       TabIndex        =   28
  42.       Top             =   3600
  43.       Width           =   1185
  44.    End
  45.    Begin AIFCmp1.asxPanel pnlDemo 
  46.       Height          =   3255
  47.       Left            =   5895
  48.       Top             =   135
  49.       Width           =   1905
  50.       _ExtentX        =   3360
  51.       _ExtentY        =   5741
  52.       Picture         =   "Panel.frx":0E42
  53.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  54.          Name            =   "Tahoma"
  55.          Size            =   8.25
  56.          Charset         =   0
  57.          Weight          =   400
  58.          Underline       =   0   'False
  59.          Italic          =   0   'False
  60.          Strikethrough   =   0   'False
  61.       EndProperty
  62.    End
  63.    Begin VB.CheckBox chkBorderTop 
  64.       Caption         =   "Border&Top"
  65.       Height          =   285
  66.       Left            =   3780
  67.       TabIndex        =   20
  68.       Top             =   135
  69.       Value           =   1  'Checked
  70.       Width           =   1965
  71.    End
  72.    Begin VB.CheckBox chkBorderLeft 
  73.       Caption         =   "Border&Left"
  74.       Height          =   285
  75.       Left            =   3780
  76.       TabIndex        =   21
  77.       Top             =   450
  78.       Value           =   1  'Checked
  79.       Width           =   1965
  80.    End
  81.    Begin VB.CheckBox chkBorderRight 
  82.       Caption         =   "Border&Right"
  83.       Height          =   285
  84.       Left            =   3780
  85.       TabIndex        =   22
  86.       Top             =   765
  87.       Value           =   1  'Checked
  88.       Width           =   1965
  89.    End
  90.    Begin VB.CheckBox chkBorderBottom 
  91.       Caption         =   "Border&Bottom"
  92.       Height          =   285
  93.       Left            =   3780
  94.       TabIndex        =   23
  95.       Top             =   1080
  96.       Value           =   1  'Checked
  97.       Width           =   1965
  98.    End
  99.    Begin VB.ComboBox cboStyle 
  100.       Height          =   315
  101.       ItemData        =   "Panel.frx":1D3C
  102.       Left            =   135
  103.       List            =   "Panel.frx":1D52
  104.       Style           =   2  'Dropdown List
  105.       TabIndex        =   1
  106.       Top             =   315
  107.       Width           =   1725
  108.    End
  109.    Begin VB.CheckBox chkDragHandle 
  110.       Caption         =   "&DragHandle"
  111.       Height          =   285
  112.       Left            =   3780
  113.       TabIndex        =   26
  114.       Top             =   2160
  115.       Width           =   1965
  116.    End
  117.    Begin VB.CheckBox chkDoubleTopBorder 
  118.       Caption         =   "Dou&bleTopBorder"
  119.       Height          =   285
  120.       Left            =   3780
  121.       TabIndex        =   24
  122.       Top             =   1530
  123.       Width           =   1965
  124.    End
  125.    Begin VB.CheckBox chkUseMaskColor 
  126.       Caption         =   "&UseMaskColor"
  127.       Height          =   285
  128.       Left            =   2205
  129.       TabIndex        =   18
  130.       Top             =   2790
  131.       Value           =   1  'Checked
  132.       Width           =   1965
  133.    End
  134.    Begin VB.CheckBox chkDoubleBottomBorder 
  135.       Caption         =   "Do&ubleBottomBorder"
  136.       Height          =   285
  137.       Left            =   3780
  138.       TabIndex        =   25
  139.       Top             =   1845
  140.       Width           =   1965
  141.    End
  142.    Begin VB.TextBox txtCaption 
  143.       Height          =   285
  144.       Index           =   0
  145.       Left            =   135
  146.       TabIndex        =   3
  147.       Top             =   990
  148.       Width           =   2940
  149.    End
  150.    Begin VB.CheckBox chkTilePicture 
  151.       Caption         =   "T&ilePicture"
  152.       Height          =   285
  153.       Left            =   135
  154.       TabIndex        =   16
  155.       Top             =   2790
  156.       Width           =   1965
  157.    End
  158.    Begin VB.ComboBox lstAlign 
  159.       Height          =   315
  160.       Index           =   0
  161.       ItemData        =   "Panel.frx":1DAB
  162.       Left            =   135
  163.       List            =   "Panel.frx":1DCA
  164.       Style           =   2  'Dropdown List
  165.       TabIndex        =   5
  166.       Top             =   1665
  167.       Width           =   1725
  168.    End
  169.    Begin VB.ComboBox lstAlign 
  170.       Height          =   315
  171.       Index           =   1
  172.       ItemData        =   "Panel.frx":1E5E
  173.       Left            =   135
  174.       List            =   "Panel.frx":1E7D
  175.       Style           =   2  'Dropdown List
  176.       TabIndex        =   11
  177.       Top             =   2340
  178.       Width           =   1725
  179.    End
  180.    Begin VB.TextBox txtCaption 
  181.       Height          =   285
  182.       Index           =   1
  183.       Left            =   2025
  184.       TabIndex        =   7
  185.       Top             =   1665
  186.       Width           =   690
  187.    End
  188.    Begin VB.TextBox txtCaption 
  189.       Height          =   285
  190.       Index           =   2
  191.       Left            =   2025
  192.       TabIndex        =   13
  193.       Top             =   2340
  194.       Width           =   690
  195.    End
  196.    Begin VB.TextBox txtCaption 
  197.       Height          =   285
  198.       Index           =   3
  199.       Left            =   2925
  200.       TabIndex        =   9
  201.       Top             =   1665
  202.       Width           =   690
  203.    End
  204.    Begin VB.TextBox txtCaption 
  205.       Height          =   285
  206.       Index           =   4
  207.       Left            =   2925
  208.       TabIndex        =   15
  209.       Top             =   2340
  210.       Width           =   690
  211.    End
  212.    Begin VB.CheckBox chkEnabled 
  213.       Caption         =   "&Enabled"
  214.       Height          =   285
  215.       Left            =   135
  216.       TabIndex        =   17
  217.       Top             =   3150
  218.       Value           =   1  'Checked
  219.       Width           =   1965
  220.    End
  221.    Begin VB.CheckBox chkChecked 
  222.       Caption         =   "Chec&ked"
  223.       Height          =   285
  224.       Left            =   2205
  225.       TabIndex        =   19
  226.       Top             =   3150
  227.       Width           =   1965
  228.    End
  229.    Begin AriadIFceCompTest.EventList lstEvents 
  230.       Height          =   1230
  231.       Left            =   135
  232.       TabIndex        =   32
  233.       Top             =   4140
  234.       Width           =   7665
  235.       _ExtentX        =   13520
  236.       _ExtentY        =   2170
  237.    End
  238.    Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1 
  239.       Height          =   30
  240.       Left            =   135
  241.       TabIndex        =   27
  242.       Top             =   3510
  243.       Width           =   7665
  244.       _ExtentX        =   13520
  245.       _ExtentY        =   53
  246.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  247.          Name            =   "Tahoma"
  248.          Size            =   8.25
  249.          Charset         =   0
  250.          Weight          =   400
  251.          Underline       =   0   'False
  252.          Italic          =   0   'False
  253.          Strikethrough   =   0   'False
  254.       EndProperty
  255.       Caption         =   ""
  256.       TextColor       =   0
  257.    End
  258.    Begin AIFCmp1.asxPowerButton btnAction 
  259.       Cancel          =   -1  'True
  260.       Default         =   -1  'True
  261.       Height          =   420
  262.       Index           =   2
  263.       Left            =   6570
  264.       TabIndex        =   31
  265.       Top             =   3600
  266.       Width           =   1230
  267.       _ExtentX        =   2170
  268.       _ExtentY        =   741
  269.       Picture         =   "Panel.frx":1F11
  270.       Caption         =   "C&lose"
  271.       CaptionOffsetX  =   8
  272.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  273.          Name            =   "Tahoma"
  274.          Size            =   8.25
  275.          Charset         =   0
  276.          Weight          =   400
  277.          Underline       =   0   'False
  278.          Italic          =   0   'False
  279.          Strikethrough   =   0   'False
  280.       EndProperty
  281.       PictureAlignment=   3
  282.    End
  283.    Begin AIFCmp1.asxPowerButton btnAction 
  284.       Height          =   420
  285.       Index           =   1
  286.       Left            =   5310
  287.       TabIndex        =   30
  288.       Top             =   3600
  289.       Width           =   1230
  290.       _ExtentX        =   2170
  291.       _ExtentY        =   741
  292.       Picture         =   "Panel.frx":206B
  293.       Caption         =   "&About..."
  294.       CaptionOffsetX  =   8
  295.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  296.          Name            =   "Tahoma"
  297.          Size            =   8.25
  298.          Charset         =   0
  299.          Weight          =   400
  300.          Underline       =   0   'False
  301.          Italic          =   0   'False
  302.          Strikethrough   =   0   'False
  303.       EndProperty
  304.       PictureAlignment=   3
  305.    End
  306.    Begin VB.Label lblHdr 
  307.       AutoSize        =   -1  'True
  308.       Caption         =   "Border&Style:"
  309.       Height          =   195
  310.       Index           =   0
  311.       Left            =   135
  312.       TabIndex        =   0
  313.       Top             =   90
  314.       Width           =   900
  315.    End
  316.    Begin VB.Label lblHdr 
  317.       AutoSize        =   -1  'True
  318.       Caption         =   "&Caption:"
  319.       Height          =   195
  320.       Index           =   1
  321.       Left            =   135
  322.       TabIndex        =   2
  323.       Top             =   765
  324.       Width           =   615
  325.    End
  326.    Begin VB.Label lblHdr 
  327.       AutoSize        =   -1  'True
  328.       Caption         =   "Caption Ali&gnment:"
  329.       Height          =   195
  330.       Index           =   2
  331.       Left            =   135
  332.       TabIndex        =   4
  333.       Top             =   1440
  334.       Width           =   1365
  335.    End
  336.    Begin VB.Label lblHdr 
  337.       AutoSize        =   -1  'True
  338.       Caption         =   "&Picture Alignment:"
  339.       Height          =   195
  340.       Index           =   3
  341.       Left            =   135
  342.       TabIndex        =   10
  343.       Top             =   2115
  344.       Width           =   1305
  345.    End
  346.    Begin VB.Label lblHdr 
  347.       AutoSize        =   -1  'True
  348.       Caption         =   "Offset X:"
  349.       Height          =   195
  350.       Index           =   4
  351.       Left            =   2025
  352.       TabIndex        =   6
  353.       Top             =   1440
  354.       Width           =   660
  355.    End
  356.    Begin VB.Label lblHdr 
  357.       AutoSize        =   -1  'True
  358.       Caption         =   "Offset X:"
  359.       Height          =   195
  360.       Index           =   5
  361.       Left            =   2025
  362.       TabIndex        =   12
  363.       Top             =   2115
  364.       Width           =   660
  365.    End
  366.    Begin VB.Label lblHdr 
  367.       AutoSize        =   -1  'True
  368.       Caption         =   "Offset Y:"
  369.       Height          =   195
  370.       Index           =   6
  371.       Left            =   2925
  372.       TabIndex        =   8
  373.       Top             =   1440
  374.       Width           =   660
  375.    End
  376.    Begin VB.Label lblHdr 
  377.       AutoSize        =   -1  'True
  378.       Caption         =   "Offset Y:"
  379.       Height          =   195
  380.       Index           =   7
  381.       Left            =   2925
  382.       TabIndex        =   14
  383.       Top             =   2115
  384.       Width           =   660
  385.    End
  386. Attribute VB_Name = "frmPanelDemonstration"
  387. Attribute VB_GlobalNameSpace = False
  388. Attribute VB_Creatable = False
  389. Attribute VB_PredeclaredId = True
  390. Attribute VB_Exposed = False
  391. Option Explicit
  392. DefInt A-Z
  393. Private Sub btnAction_Click(Index As Integer)
  394.  Select Case Index
  395.   Case 1: pnlDemo.About
  396.   Case 2: Unload Me
  397.  End Select
  398. End Sub
  399. Private Sub cboStyle_Click()
  400.  pnlDemo.BorderStyle = cboStyle.ListIndex
  401. End Sub
  402. Private Sub chkChecked_Click()
  403.  pnlDemo.Checked = chkChecked
  404. End Sub
  405. Private Sub chkDragHandle_Click()
  406.  pnlDemo.DragHandle = chkDragHandle
  407. End Sub
  408. Private Sub chkEnabled_Click()
  409.  pnlDemo.Enabled = chkEnabled
  410. End Sub
  411. Private Sub chkTilePicture_Click()
  412.  pnlDemo.TilePicture = chkTilePicture
  413. End Sub
  414. Private Sub chkUseMaskColor_Click()
  415.  pnlDemo.UseMaskColor = chkUseMaskColor
  416. End Sub
  417. Private Sub cmdProperties_Click(Index As Integer)
  418.  Select Case Index
  419.   Case 0: PropPage.ShowPicker hWnd, "Object Colour", pnlDemo, ppickColor
  420.   Case 1: PropPage.ShowPicker hWnd, "Object Font", pnlDemo, ppickFont
  421.   'Case 2: PropPage.ShowPicker hWnd, "Object Picture", pnlDemo, ppickPicture
  422.  End Select
  423. End Sub
  424. Private Sub Form_Load()
  425.  cboStyle.ListIndex = tbbsRaised
  426.  lstAlign(0).ListIndex = aiaCenterCenter
  427.  lstAlign(1).ListIndex = aiaCenterCenter
  428. End Sub
  429. Private Sub chkBorderBottom_Click()
  430.  pnlDemo.BorderBottom = chkBorderBottom
  431. End Sub
  432. Private Sub chkBorderLeft_Click()
  433.  pnlDemo.BorderLeft = chkBorderLeft
  434. End Sub
  435. Private Sub chkBorderRight_Click()
  436.  pnlDemo.BorderRight = chkBorderRight
  437. End Sub
  438. Private Sub chkBorderTop_Click()
  439.  pnlDemo.BorderTop = chkBorderTop
  440. End Sub
  441. Private Sub chkDoubleBottomBorder_Click()
  442.  pnlDemo.DoubleBottomBorder = chkDoubleBottomBorder
  443. End Sub
  444. Private Sub chkDoubleTopBorder_Click()
  445.  pnlDemo.DoubleTopBorder = chkDoubleTopBorder
  446. End Sub
  447. Private Sub lstAlign_Click(Index As Integer)
  448.  Select Case Index
  449.   Case 0: pnlDemo.CaptionAlignment = lstAlign(Index).ListIndex
  450.   Case 1: pnlDemo.PictureAlignment = lstAlign(Index).ListIndex
  451.  End Select
  452. End Sub
  453. Private Sub pnlDemo_Click()
  454.  lstEvents.Add "pnlDemo_Click()"
  455. End Sub
  456. Private Sub pnlDemo_DblClick()
  457.  lstEvents.Add "pnlDemo_DblClick()"
  458. End Sub
  459. Private Sub pnlDemo_HandleMouseDown(Button As Integer, Shift As Integer)
  460.  lstEvents.Add "pnlDemo_HandleMouseDown(" & Button & "," & Shift & ")"
  461. End Sub
  462. Private Sub pnlDemo_HandleMouseUp(Button As Integer, Shift As Integer)
  463.  lstEvents.Add "pnlDemo_HandleMouseUp(" & Button & "," & Shift & ")"
  464. End Sub
  465. Private Sub pnlDemo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  466.  lstEvents.Add "pnlDemo_MouseDown(" & Button & "," & Shift & X & "," & Y & ")"
  467. End Sub
  468. Private Sub pnlDemo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  469.  lstEvents.Add "pnlDemo_MouseUp(" & Button & "," & Shift & X & "," & Y & ")"
  470. End Sub
  471. Private Sub pnlDemo_Resize(ByVal NewWidth As Single, ByVal NewHeight As Single)
  472.  lstEvents.Add "pnlDemo_Resize(" & NewWidth & "," & NewHeight & ")"
  473. End Sub
  474. Private Sub txtCaption_Change(Index As Integer)
  475.  Select Case Index
  476.   Case 0: pnlDemo.Caption = txtCaption(Index)
  477.   Case 1: pnlDemo.CaptionOffsetX = Val(txtCaption(Index))
  478.   Case 2: pnlDemo.CaptionOffsetY = Val(txtCaption(Index))
  479.   Case 3: pnlDemo.PictureOffsetX = Val(txtCaption(Index))
  480.   Case 4: pnlDemo.PictureOffsetY = Val(txtCaption(Index))
  481.  End Select
  482. End Sub
  483.