home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / ChildFun_v2089571142007.psc / ChildFun / frmESettings.frm < prev    next >
Text File  |  2007-11-04  |  4KB  |  116 lines
  1. VERSION 5.00
  2. Begin VB.Form frmESettings 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Effects plugin settings"
  5.    ClientHeight    =   6960
  6.    ClientLeft      =   45
  7.    ClientTop       =   315
  8.    ClientWidth     =   5310
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   6960
  13.    ScaleWidth      =   5310
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton cmdOK 
  17.       Caption         =   "OK"
  18.       Height          =   495
  19.       Left            =   1560
  20.       TabIndex        =   7
  21.       Top             =   6240
  22.       Width           =   2295
  23.    End
  24.    Begin VB.Frame fraExample 
  25.       Caption         =   "Example"
  26.       Height          =   4215
  27.       Left            =   480
  28.       TabIndex        =   4
  29.       Top             =   1800
  30.       Width           =   4455
  31.       Begin VB.Image imgAfter 
  32.          BorderStyle     =   1  'Fixed Single
  33.          Height          =   1335
  34.          Left            =   1200
  35.          Stretch         =   -1  'True
  36.          Top             =   2520
  37.          Width           =   2055
  38.       End
  39.       Begin VB.Label lblAfter 
  40.          Caption         =   "After:"
  41.          Height          =   255
  42.          Left            =   2040
  43.          TabIndex        =   6
  44.          Top             =   2160
  45.          Width           =   495
  46.       End
  47.       Begin VB.Image imgBefore 
  48.          BorderStyle     =   1  'Fixed Single
  49.          Height          =   1335
  50.          Left            =   1200
  51.          Stretch         =   -1  'True
  52.          Top             =   720
  53.          Width           =   2055
  54.       End
  55.       Begin VB.Label lblBefore 
  56.          Caption         =   "Before:"
  57.          Height          =   255
  58.          Left            =   1920
  59.          TabIndex        =   5
  60.          Top             =   360
  61.          Width           =   615
  62.       End
  63.    End
  64.    Begin VB.Frame fraEffect 
  65.       Caption         =   "Effect"
  66.       Height          =   1575
  67.       Left            =   480
  68.       TabIndex        =   0
  69.       Top             =   120
  70.       Width           =   4455
  71.       Begin VB.CheckBox chkBounds 
  72.          Caption         =   "Allow me to choose area the effect will be applied to."
  73.          Height          =   255
  74.          Left            =   120
  75.          TabIndex        =   3
  76.          Top             =   1200
  77.          Width           =   4215
  78.       End
  79.       Begin VB.ComboBox cboEffect 
  80.          Height          =   315
  81.          ItemData        =   "frmESettings.frx":0000
  82.          Left            =   120
  83.          List            =   "frmESettings.frx":0013
  84.          Style           =   2  'Dropdown List
  85.          TabIndex        =   1
  86.          Top             =   720
  87.          Width           =   3135
  88.       End
  89.       Begin VB.Label lblEffect 
  90.          Caption         =   "Select an effect to apply:"
  91.          Height          =   255
  92.          Left            =   120
  93.          TabIndex        =   2
  94.          Top             =   360
  95.          Width           =   3135
  96.       End
  97.    End
  98. End
  99. Attribute VB_Name = "frmESettings"
  100. Attribute VB_GlobalNameSpace = False
  101. Attribute VB_Creatable = False
  102. Attribute VB_PredeclaredId = True
  103. Attribute VB_Exposed = False
  104. Private Sub cboEffect_Click()
  105. On Error Resume Next
  106.  
  107. imgBefore.Picture = LoadPicture(App.Path & "\plugins\effects_plugin_data\" & cboEffect.Text & " Before.bmp")
  108. imgAfter.Picture = LoadPicture(App.Path & "\plugins\effects_plugin_data\" & cboEffect.Text & " After.bmp")
  109. End Sub
  110.  
  111. Private Sub cmdOK_Click()
  112. If cboEffect.Text = "" Then cboEffect.SetFocus: Exit Sub
  113. effects_internal_OnSettOK
  114. End Sub
  115.  
  116.