home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso / 00202 / s / disk3 / penmain.fr_ / penmain.bin
Text File  |  1993-04-28  |  6KB  |  198 lines
  1. VERSION 2.00
  2. Begin Form MainFrm 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Sample Pen Programs"
  6.    ControlBox      =   0   'False
  7.    Height          =   7035
  8.    Icon            =   PENMAIN.FRX:0000
  9.    Left            =   1605
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   6630
  15.    ScaleWidth      =   6285
  16.    Top             =   60
  17.    Width           =   6405
  18.    Begin SSPanel Panel3D2 
  19.       Alignment       =   6  'Center - TOP
  20.       BackColor       =   &H00C0C0C0&
  21.       BevelInner      =   1  'Inset
  22.       BevelWidth      =   2
  23.       BorderWidth     =   2
  24.       Caption         =   "Press Button to Activate Demonstration"
  25.       Font3D          =   1  'Raised w/light shading
  26.       FontBold        =   -1  'True
  27.       FontItalic      =   0   'False
  28.       FontName        =   "MS Sans Serif"
  29.       FontSize        =   12
  30.       FontStrikethru  =   0   'False
  31.       FontUnderline   =   0   'False
  32.       ForeColor       =   &H00000000&
  33.       Height          =   5535
  34.       Left            =   0
  35.       RoundedCorners  =   0   'False
  36.       TabIndex        =   2
  37.       Top             =   1080
  38.       Width           =   6255
  39.       Begin SSCommand SelectDemo 
  40.          BevelWidth      =   4
  41.          Caption         =   "Transfer Ink Data"
  42.          ForeColor       =   &H00000000&
  43.          Height          =   495
  44.          Index           =   6
  45.          Left            =   600
  46.          RoundedCorners  =   0   'False
  47.          TabIndex        =   10
  48.          Top             =   4200
  49.          Width           =   5055
  50.       End
  51.       Begin SSCommand SelectDemo 
  52.          BevelWidth      =   4
  53.          Caption         =   "Ink On Bitmap Control"
  54.          ForeColor       =   &H00000000&
  55.          Height          =   495
  56.          Index           =   5
  57.          Left            =   600
  58.          RoundedCorners  =   0   'False
  59.          TabIndex        =   9
  60.          Top             =   3600
  61.          Width           =   5055
  62.       End
  63.       Begin SSCommand SelectDemo 
  64.          BevelWidth      =   4
  65.          Caption         =   "Exit Pen Sample Programs"
  66.          ForeColor       =   &H00000000&
  67.          Height          =   495
  68.          Index           =   7
  69.          Left            =   360
  70.          RoundedCorners  =   0   'False
  71.          TabIndex        =   8
  72.          Top             =   4800
  73.          Width           =   5535
  74.       End
  75.       Begin SSCommand SelectDemo 
  76.          BevelWidth      =   4
  77.          Caption         =   "Custom Gesture Action"
  78.          ForeColor       =   &H00000000&
  79.          Height          =   495
  80.          Index           =   4
  81.          Left            =   600
  82.          RoundedCorners  =   0   'False
  83.          TabIndex        =   7
  84.          Top             =   3000
  85.          Width           =   5055
  86.       End
  87.       Begin SSCommand SelectDemo 
  88.          BevelWidth      =   4
  89.          Caption         =   "RcResult Samples"
  90.          ForeColor       =   &H00000000&
  91.          Height          =   495
  92.          Index           =   3
  93.          Left            =   600
  94.          RoundedCorners  =   0   'False
  95.          TabIndex        =   6
  96.          Top             =   2400
  97.          Width           =   5055
  98.       End
  99.       Begin SSCommand SelectDemo 
  100.          BevelWidth      =   4
  101.          Caption         =   "Save and Restore Ink"
  102.          ForeColor       =   &H00000000&
  103.          Height          =   495
  104.          Index           =   2
  105.          Left            =   600
  106.          RoundedCorners  =   0   'False
  107.          TabIndex        =   5
  108.          Top             =   1800
  109.          Width           =   5055
  110.       End
  111.       Begin SSCommand SelectDemo 
  112.          BevelWidth      =   4
  113.          Caption         =   "On-Screen Keyboard Button"
  114.          ForeColor       =   &H00000000&
  115.          Height          =   495
  116.          Index           =   1
  117.          Left            =   600
  118.          RoundedCorners  =   0   'False
  119.          TabIndex        =   4
  120.          Top             =   1200
  121.          Width           =   5055
  122.       End
  123.       Begin SSCommand SelectDemo 
  124.          BevelWidth      =   4
  125.          Caption         =   "DelayRecog and OnTap Properties"
  126.          ForeColor       =   &H00000000&
  127.          Height          =   495
  128.          Index           =   0
  129.          Left            =   600
  130.          RoundedCorners  =   0   'False
  131.          TabIndex        =   3
  132.          Top             =   600
  133.          Width           =   5055
  134.       End
  135.    End
  136.    Begin SSPanel Panel3D1 
  137.       Alignment       =   6  'Center - TOP
  138.       BackColor       =   &H00C0C0C0&
  139.       BevelInner      =   1  'Inset
  140.       BevelWidth      =   2
  141.       BorderWidth     =   2
  142.       Caption         =   "Sample Pen Programs"
  143.       Font3D          =   1  'Raised w/light shading
  144.       FontBold        =   -1  'True
  145.       FontItalic      =   0   'False
  146.       FontName        =   "MS Sans Serif"
  147.       FontSize        =   18
  148.       FontStrikethru  =   0   'False
  149.       FontUnderline   =   0   'False
  150.       ForeColor       =   &H00000000&
  151.       Height          =   1095
  152.       Left            =   0
  153.       RoundedCorners  =   0   'False
  154.       TabIndex        =   0
  155.       Top             =   0
  156.       Width           =   6255
  157.       Begin Label Label1 
  158.          Alignment       =   2  'Center
  159.          AutoSize        =   -1  'True
  160.          BackColor       =   &H00C0C0C0&
  161.          Caption         =   "Copyright (c) 1992, Microsoft Corp.  All rights reserved."
  162.          ForeColor       =   &H00000000&
  163.          Height          =   225
  164.          Index           =   1
  165.          Left            =   720
  166.          TabIndex        =   1
  167.          Top             =   600
  168.          Width           =   4725
  169.       End
  170.    End
  171. End
  172.  
  173. Sub SelectDemo_Click (Index As Integer)
  174.     Screen.MousePointer = 11
  175.     Select Case Index
  176.         Case 0
  177.             DelayFrm.Show
  178.         Case 1
  179.             KeyBrdFrm.Show
  180.         Case 2
  181.             InkFrm.Show
  182.         Case 3
  183.             RcFrm.Show
  184.         Case 4
  185.             GestFrm.Show
  186.         Case 5
  187.             IOBFrm.Show
  188.         Case 6
  189.             TransFrm.Show
  190.         Case 7
  191.             End
  192.     End Select
  193.  
  194.     MainFrm.Hide
  195.     Screen.MousePointer = 0
  196. End Sub
  197.  
  198.