home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / ColorMate_212596962008.psc / About.frm < prev    next >
Text File  |  2007-10-28  |  4KB  |  137 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   " About ColorMate"
  5.    ClientHeight    =   3690
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4800
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "About.frx":0000
  19.    LinkTopic       =   "Form1"
  20.    LockControls    =   -1  'True
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   3690
  24.    ScaleWidth      =   4800
  25.    ShowInTaskbar   =   0   'False
  26.    StartUpPosition =   3  'Windows Default
  27.    Begin VB.CommandButton cmdClose 
  28.       Caption         =   "Close"
  29.       Height          =   285
  30.       Left            =   4080
  31.       TabIndex        =   2
  32.       Top             =   3300
  33.       Width           =   615
  34.    End
  35.    Begin VB.Image Image1 
  36.       Height          =   480
  37.       Left            =   120
  38.       Picture         =   "About.frx":08CA
  39.       Top             =   120
  40.       Width           =   480
  41.    End
  42.    Begin VB.Line Line2 
  43.       BorderColor     =   &H00C00000&
  44.       X1              =   120
  45.       X2              =   3990
  46.       Y1              =   3400
  47.       Y2              =   3400
  48.    End
  49.    Begin VB.Line Line1 
  50.       BorderColor     =   &H00C00000&
  51.       X1              =   120
  52.       X2              =   120
  53.       Y1              =   720
  54.       Y2              =   3400
  55.    End
  56.    Begin VB.Label Label2 
  57.       Caption         =   "⌐ 2007 by S.W. Rasmussen. All rights reserved."
  58.       BeginProperty Font 
  59.          Name            =   "Tahoma"
  60.          Size            =   6.75
  61.          Charset         =   0
  62.          Weight          =   400
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       ForeColor       =   &H00400000&
  68.       Height          =   195
  69.       Left            =   60
  70.       TabIndex        =   3
  71.       Top             =   3480
  72.       Width           =   3315
  73.    End
  74.    Begin VB.Label lblAbout 
  75.       Appearance      =   0  'Flat
  76.       ForeColor       =   &H00404040&
  77.       Height          =   2500
  78.       Left            =   420
  79.       TabIndex        =   1
  80.       Top             =   720
  81.       Width           =   3975
  82.    End
  83.    Begin VB.Label Label1 
  84.       Caption         =   "ColorMate ver. 4.5"
  85.       BeginProperty Font 
  86.          Name            =   "Tahoma"
  87.          Size            =   15.75
  88.          Charset         =   0
  89.          Weight          =   700
  90.          Underline       =   0   'False
  91.          Italic          =   -1  'True
  92.          Strikethrough   =   0   'False
  93.       EndProperty
  94.       ForeColor       =   &H00C00000&
  95.       Height          =   435
  96.       Left            =   780
  97.       TabIndex        =   0
  98.       Top             =   180
  99.       Width           =   3555
  100.    End
  101. End
  102. Attribute VB_Name = "frmAbout"
  103. Attribute VB_GlobalNameSpace = False
  104. Attribute VB_Creatable = False
  105. Attribute VB_PredeclaredId = True
  106. Attribute VB_Exposed = False
  107. Option Explicit
  108.  
  109. Private Sub cmdClose_Click()
  110.  
  111. On Error GoTo errhandler
  112.     
  113.     Unload Me
  114.     
  115. errhandler:
  116.     Exit Sub
  117. End Sub
  118.  
  119. Private Sub Form_Load()
  120.     
  121.     form_StayOnTop frmAbout, "ABSOLUTE", "C"
  122.     
  123.     Label1.Caption = "ColorMate ver. " & App.Major & "." & App.Minor & "." & App.Revision
  124.     
  125.     lblAbout.Caption = "This application is intended to assist you managing " & _
  126.                        "color usage in your web design." & vbCrLf & vbCrLf & _
  127.                        "Grab color information from any pixel on your screen. Store the color in an " & _
  128.                        "advanced editor for flexible adjustment of colors." & vbCrLf & vbCrLf & _
  129.                        "Up to 10 colors can be saved and later loaded into ColorMate facilitating " & _
  130.                        "consistent management of colors on your web pages." & vbCrLf & vbCrLf & _
  131.                        "Suggestions and idears to:" & vbCrLf & _
  132.                        "S°ren W. Rasmussen - swr@seqtools.dk"
  133.  
  134.     
  135. End Sub
  136.  
  137.