home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Data / Utils / iface13m.exe / %MAINDIR% / FontLabel.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-18  |  11.7 KB  |  363 lines
  1. VERSION 5.00
  2. Object = "{FBC672E3-F04D-11D2-AFA5-E82C878FD532}#5.8#0"; "AS-IFCE1.OCX"
  3. Begin VB.Form frmFontLabelDemonstration 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "FontLabel Demonstration"
  6.    ClientHeight    =   6270
  7.    ClientLeft      =   510
  8.    ClientTop       =   420
  9.    ClientWidth     =   6585
  10.    Icon            =   "FontLabel.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   6270
  15.    ScaleWidth      =   6585
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.ComboBox cboAlignment 
  19.       BeginProperty Font 
  20.          Name            =   "Tahoma"
  21.          Size            =   8.25
  22.          Charset         =   0
  23.          Weight          =   400
  24.          Underline       =   0   'False
  25.          Italic          =   0   'False
  26.          Strikethrough   =   0   'False
  27.       EndProperty
  28.       Height          =   315
  29.       ItemData        =   "FontLabel.frx":0E42
  30.       Left            =   4500
  31.       List            =   "FontLabel.frx":0E61
  32.       Style           =   2  'Dropdown List
  33.       TabIndex        =   9
  34.       Top             =   3960
  35.       Width           =   1950
  36.    End
  37.    Begin VB.CheckBox chkPicture 
  38.       Caption         =   "&Picture"
  39.       Height          =   285
  40.       Left            =   4500
  41.       TabIndex        =   7
  42.       Top             =   3375
  43.       Width           =   1950
  44.    End
  45.    Begin VB.CommandButton cmdFont 
  46.       Caption         =   "&Fonts..."
  47.       Height          =   375
  48.       Left            =   1350
  49.       TabIndex        =   12
  50.       Top             =   4455
  51.       Width           =   1230
  52.    End
  53.    Begin AriadIFceCompTest.EventList lstEvents 
  54.       Height          =   1230
  55.       Left            =   90
  56.       TabIndex        =   15
  57.       Top             =   4905
  58.       Width           =   6405
  59.       _ExtentX        =   11298
  60.       _ExtentY        =   2170
  61.    End
  62.    Begin VB.ComboBox cboBorderStyle 
  63.       BeginProperty Font 
  64.          Name            =   "Tahoma"
  65.          Size            =   8.25
  66.          Charset         =   0
  67.          Weight          =   400
  68.          Underline       =   0   'False
  69.          Italic          =   0   'False
  70.          Strikethrough   =   0   'False
  71.       EndProperty
  72.       Height          =   315
  73.       ItemData        =   "FontLabel.frx":0F10
  74.       Left            =   4500
  75.       List            =   "FontLabel.frx":0F20
  76.       Style           =   2  'Dropdown List
  77.       TabIndex        =   4
  78.       Top             =   2295
  79.       Width           =   1950
  80.    End
  81.    Begin VB.ComboBox cboBackStyle 
  82.       BeginProperty Font 
  83.          Name            =   "Tahoma"
  84.          Size            =   8.25
  85.          Charset         =   0
  86.          Weight          =   400
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       Height          =   315
  92.       ItemData        =   "FontLabel.frx":0F46
  93.       Left            =   4500
  94.       List            =   "FontLabel.frx":0F50
  95.       Style           =   2  'Dropdown List
  96.       TabIndex        =   6
  97.       Top             =   2970
  98.       Width           =   1950
  99.    End
  100.    Begin VB.CommandButton cmdColor 
  101.       Caption         =   "&Colours..."
  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          =   375
  112.       Left            =   135
  113.       TabIndex        =   11
  114.       Top             =   4455
  115.       Width           =   1185
  116.    End
  117.    Begin VB.TextBox txtCaption 
  118.       BeginProperty Font 
  119.          Name            =   "Tahoma"
  120.          Size            =   8.25
  121.          Charset         =   0
  122.          Weight          =   400
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       Height          =   1995
  128.       Left            =   90
  129.       MultiLine       =   -1  'True
  130.       ScrollBars      =   2  'Vertical
  131.       TabIndex        =   2
  132.       Top             =   2295
  133.       Width           =   4290
  134.    End
  135.    Begin AIFCmp1.asxFontLabel flbData 
  136.       Height          =   1860
  137.       Left            =   90
  138.       TabIndex        =   0
  139.       Top             =   90
  140.       Width           =   6405
  141.       _ExtentX        =   11298
  142.       _ExtentY        =   3281
  143.       Caption         =   ""
  144.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  145.          Name            =   "Tahoma"
  146.          Size            =   8.25
  147.          Charset         =   0
  148.          Weight          =   400
  149.          Underline       =   0   'False
  150.          Italic          =   0   'False
  151.          Strikethrough   =   0   'False
  152.       EndProperty
  153.       WordWrap        =   -1  'True
  154.    End
  155.    Begin AIFCmp1.asxLineHeaderEx asxLineHeaderEx1 
  156.       Height          =   30
  157.       Left            =   135
  158.       TabIndex        =   10
  159.       Top             =   4320
  160.       Width           =   6360
  161.       _ExtentX        =   11218
  162.       _ExtentY        =   53
  163.       Caption         =   ""
  164.       TextColor       =   0
  165.    End
  166.    Begin AIFCmp1.asxPowerButton btnAction 
  167.       Cancel          =   -1  'True
  168.       Default         =   -1  'True
  169.       Height          =   420
  170.       Index           =   2
  171.       Left            =   5265
  172.       TabIndex        =   14
  173.       Top             =   4410
  174.       Width           =   1230
  175.       _ExtentX        =   2170
  176.       _ExtentY        =   741
  177.       Picture         =   "FontLabel.frx":0F69
  178.       Caption         =   "C&lose"
  179.       CaptionOffsetX  =   8
  180.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  181.          Name            =   "Tahoma"
  182.          Size            =   8.25
  183.          Charset         =   0
  184.          Weight          =   400
  185.          Underline       =   0   'False
  186.          Italic          =   0   'False
  187.          Strikethrough   =   0   'False
  188.       EndProperty
  189.       PictureAlignment=   3
  190.    End
  191.    Begin AIFCmp1.asxPowerButton btnAction 
  192.       Height          =   420
  193.       Index           =   1
  194.       Left            =   4005
  195.       TabIndex        =   13
  196.       Top             =   4410
  197.       Width           =   1230
  198.       _ExtentX        =   2170
  199.       _ExtentY        =   741
  200.       Picture         =   "FontLabel.frx":10C3
  201.       Caption         =   "&About..."
  202.       CaptionOffsetX  =   8
  203.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  204.          Name            =   "Tahoma"
  205.          Size            =   8.25
  206.          Charset         =   0
  207.          Weight          =   400
  208.          Underline       =   0   'False
  209.          Italic          =   0   'False
  210.          Strikethrough   =   0   'False
  211.       EndProperty
  212.       PictureAlignment=   3
  213.    End
  214.    Begin VB.Label lbLhdr 
  215.       AutoSize        =   -1  'True
  216.       Caption         =   "PictureA&lignment:"
  217.       BeginProperty Font 
  218.          Name            =   "Tahoma"
  219.          Size            =   8.25
  220.          Charset         =   0
  221.          Weight          =   400
  222.          Underline       =   0   'False
  223.          Italic          =   0   'False
  224.          Strikethrough   =   0   'False
  225.       EndProperty
  226.       Height          =   195
  227.       Index           =   3
  228.       Left            =   4500
  229.       TabIndex        =   8
  230.       Top             =   3735
  231.       Width           =   1260
  232.    End
  233.    Begin VB.Image imgAriad 
  234.       Height          =   480
  235.       Left            =   2655
  236.       MouseIcon       =   "FontLabel.frx":121D
  237.       Picture         =   "FontLabel.frx":1527
  238.       Top             =   4410
  239.       Visible         =   0   'False
  240.       Width           =   480
  241.    End
  242.    Begin VB.Label lbLhdr 
  243.       AutoSize        =   -1  'True
  244.       Caption         =   "Border&Style:"
  245.       BeginProperty Font 
  246.          Name            =   "Tahoma"
  247.          Size            =   8.25
  248.          Charset         =   0
  249.          Weight          =   400
  250.          Underline       =   0   'False
  251.          Italic          =   0   'False
  252.          Strikethrough   =   0   'False
  253.       EndProperty
  254.       Height          =   195
  255.       Index           =   2
  256.       Left            =   4500
  257.       TabIndex        =   3
  258.       Top             =   2070
  259.       Width           =   900
  260.    End
  261.    Begin VB.Label lbLhdr 
  262.       AutoSize        =   -1  'True
  263.       Caption         =   "&BackStyle:"
  264.       BeginProperty Font 
  265.          Name            =   "Tahoma"
  266.          Size            =   8.25
  267.          Charset         =   0
  268.          Weight          =   400
  269.          Underline       =   0   'False
  270.          Italic          =   0   'False
  271.          Strikethrough   =   0   'False
  272.       EndProperty
  273.       Height          =   195
  274.       Index           =   1
  275.       Left            =   4500
  276.       TabIndex        =   5
  277.       Top             =   2745
  278.       Width           =   750
  279.    End
  280.    Begin VB.Shape Shape1 
  281.       DrawMode        =   6  'Mask Pen Not
  282.       FillStyle       =   7  'Diagonal Cross
  283.       Height          =   1860
  284.       Left            =   90
  285.       Shape           =   2  'Oval
  286.       Top             =   90
  287.       Width           =   6405
  288.    End
  289.    Begin VB.Label lbLhdr 
  290.       AutoSize        =   -1  'True
  291.       Caption         =   "&Caption:"
  292.       BeginProperty Font 
  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.       Height          =   195
  302.       Index           =   0
  303.       Left            =   90
  304.       TabIndex        =   1
  305.       Top             =   2070
  306.       Width           =   615
  307.    End
  308. Attribute VB_Name = "frmFontLabelDemonstration"
  309. Attribute VB_GlobalNameSpace = False
  310. Attribute VB_Creatable = False
  311. Attribute VB_PredeclaredId = True
  312. Attribute VB_Exposed = False
  313. Option Explicit
  314. DefInt A-Z
  315. Private Sub btnAction_Click(Index As Integer)
  316.  Select Case Index
  317.   Case 1: flbData.About
  318.   Case 2: Unload Me
  319.  End Select
  320. End Sub
  321. Private Sub cboAlignment_Click()
  322.  flbData.PictureAlignment = cboAlignment.ListIndex
  323. End Sub
  324. Private Sub cboBackStyle_Click()
  325.  flbData.BackStyle = cboBackStyle.ListIndex
  326. End Sub
  327. Private Sub cboBorderStyle_Click()
  328.  flbData.BorderStyle = cboBorderStyle.ListIndex
  329. End Sub
  330. Private Sub chkPicture_Click()
  331.  Set flbData.Picture = IIf(chkPicture, imgAriad, Nothing)
  332. End Sub
  333. Private Sub cmdColor_Click()
  334.  PropPage.ShowPicker hWnd, "Object Colour", flbData, ppickColor
  335. End Sub
  336. Private Sub cmdFont_Click()
  337.  PropPage.ShowPicker hWnd, "Object Font", flbData, ppickFont
  338. End Sub
  339. Private Sub flbData_Changed()
  340.  lstEvents.Add "flbData_Changed()"
  341. End Sub
  342. Private Sub flbData_Click()
  343.  lstEvents.Add "fldData_Click()"
  344. End Sub
  345. Private Sub flbData_DblClick()
  346.  lstEvents.Add "fldData_DblClick()"
  347. End Sub
  348. Private Sub flbData_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  349.  lstEvents.Add "flbData_MouseDown(" & Button & "," & Shift & "," & X & "," & Y & ")"
  350. End Sub
  351. Private Sub flbData_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  352.  lstEvents.Add "flbData_MouseUp(" & Button & "," & Shift & "," & X & "," & Y & ")"
  353. End Sub
  354. Private Sub Form_Load()
  355.  cboBorderStyle.ListIndex = ifcbsNone
  356.  cboBackStyle.ListIndex = ifbsOpaque
  357.  cboAlignment.ListIndex = aiaCenterCenter
  358.  txtCaption = FLABEL$
  359. End Sub
  360. Private Sub txtCaption_Change()
  361.  flbData.Caption = txtCaption
  362. End Sub
  363.