home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / BMPVWS / BMPVWS.ZIP / BMPABOUT.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1993-09-21  |  5.2 KB  |  141 lines
  1. VERSION 2.00
  2. Begin Form BmpAbout 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "About Bitmap Viewer 2.0 (Public Domain)"
  5.    ClientHeight    =   2904
  6.    ClientLeft      =   3240
  7.    ClientTop       =   3912
  8.    ClientWidth     =   5424
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   3276
  12.    Icon            =   BMPABOUT.FRX:0000
  13.    Left            =   3216
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form2"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   2904
  19.    ScaleWidth      =   5424
  20.    Top             =   3564
  21.    Width           =   5472
  22.    Begin SSCommand Command3D1 
  23.       Caption         =   "&Close About"
  24.       Font3D          =   3  'Inset w/light shading
  25.       FontBold        =   -1  'True
  26.       FontItalic      =   0   'False
  27.       FontName        =   "MS Sans Serif"
  28.       FontSize        =   6.6
  29.       FontStrikethru  =   0   'False
  30.       FontUnderline   =   0   'False
  31.       ForeColor       =   &H00000000&
  32.       Height          =   612
  33.       Left            =   3960
  34.       TabIndex        =   4
  35.       Top             =   2040
  36.       Width           =   1212
  37.    End
  38.    Begin SSPanel Panel3D1 
  39.       Align           =   2  'Align Bottom
  40.       Alignment       =   0  'Left Justify - TOP
  41.       BackColor       =   &H00C0C0C0&
  42.       BevelInner      =   2  'Raised
  43.       BevelWidth      =   3
  44.       Caption         =   "Panel3D1"
  45.       FloodShowPct    =   0   'False
  46.       FloodType       =   4  'Bottom To Top
  47.       Font3D          =   0  'None
  48.       ForeColor       =   &H00000000&
  49.       Height          =   2916
  50.       Left            =   0
  51.       RoundedCorners  =   0   'False
  52.       ShadowColor     =   1  'Black
  53.       TabIndex        =   0
  54.       Top             =   -12
  55.       Width           =   5424
  56.       Begin Label Label3 
  57.          BackColor       =   &H00C0C0C0&
  58.          Caption         =   "Cntl F12 -  Normalize                Alt F12    -  Maximize"
  59.          FontBold        =   0   'False
  60.          FontItalic      =   0   'False
  61.          FontName        =   "MS Sans Serif"
  62.          FontSize        =   7.8
  63.          FontStrikethru  =   0   'False
  64.          FontUnderline   =   0   'False
  65.          ForeColor       =   &H00000000&
  66.          Height          =   252
  67.          Left            =   240
  68.          TabIndex        =   5
  69.          Top             =   1920
  70.          Width           =   3612
  71.       End
  72.       Begin Label Label2 
  73.          BackColor       =   &H00C0C0C0&
  74.          Caption         =   "Alt F4      -  Quit application     Shift F12 - Minimize"
  75.          FontBold        =   0   'False
  76.          FontItalic      =   0   'False
  77.          FontName        =   "MS Sans Serif"
  78.          FontSize        =   7.8
  79.          FontStrikethru  =   0   'False
  80.          FontUnderline   =   0   'False
  81.          ForeColor       =   &H00000000&
  82.          Height          =   252
  83.          Left            =   240
  84.          TabIndex        =   6
  85.          Top             =   1680
  86.          Width           =   3732
  87.       End
  88.       Begin Label Label5 
  89.          BackColor       =   &H00C0C0C0&
  90.          Caption         =   "Mike Young,  Compuserve {100031,764}"
  91.          FontBold        =   0   'False
  92.          FontItalic      =   0   'False
  93.          FontName        =   "MS Sans Serif"
  94.          FontSize        =   7.8
  95.          FontStrikethru  =   0   'False
  96.          FontUnderline   =   0   'False
  97.          ForeColor       =   &H00000000&
  98.          Height          =   252
  99.          Left            =   240
  100.          TabIndex        =   2
  101.          Top             =   2400
  102.          Width           =   3252
  103.       End
  104.       Begin Label Label4 
  105.          BackColor       =   &H00C0C0C0&
  106.          Caption         =   "The two uses for this program are to have your favourite bitmap on view with no title bar or buttons and vb's runtime vbrun300.dll loaded in memory increasing load time for other vb apps."
  107.          FontBold        =   0   'False
  108.          FontItalic      =   0   'False
  109.          FontName        =   "MS Sans Serif"
  110.          FontSize        =   7.8
  111.          FontStrikethru  =   0   'False
  112.          FontUnderline   =   0   'False
  113.          ForeColor       =   &H00000000&
  114.          Height          =   612
  115.          Left            =   240
  116.          TabIndex        =   3
  117.          Top             =   960
  118.          Width           =   4932
  119.       End
  120.       Begin Label Label1 
  121.          BackColor       =   &H00C0C0C0&
  122.          Caption         =   "Simple bitmap viewer, displays at true size, then allows instant resize. Opon exit the viewer can save the last bitmaps path, filename, co-ordinates and size for the next time the program is envoked."
  123.          FontBold        =   0   'False
  124.          FontItalic      =   0   'False
  125.          FontName        =   "MS Sans Serif"
  126.          FontSize        =   7.8
  127.          FontStrikethru  =   0   'False
  128.          FontUnderline   =   0   'False
  129.          ForeColor       =   &H00000000&
  130.          Height          =   612
  131.          Left            =   240
  132.          TabIndex        =   1
  133.          Top             =   240
  134.          Width           =   4932
  135.       End
  136.    End
  137. Option Explicit
  138. Sub Command3D1_Click ()
  139.     BmpAbout.Hide
  140. End Sub
  141.