home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso / 00202 / s / disk3 / transfrm.fr_ / transfrm.bin
Text File  |  1993-04-28  |  11KB  |  327 lines
  1. VERSION 2.00
  2. Begin Form TransFrm 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Transfer Ink Data"
  6.    ControlBox      =   0   'False
  7.    FontBold        =   0   'False
  8.    FontItalic      =   0   'False
  9.    FontName        =   "MS Sans Serif"
  10.    FontSize        =   8.25
  11.    FontStrikethru  =   0   'False
  12.    FontUnderline   =   0   'False
  13.    Height          =   7170
  14.    Left            =   930
  15.    LinkTopic       =   "Form1"
  16.    ScaleHeight     =   6765
  17.    ScaleWidth      =   7665
  18.    Top             =   15
  19.    Width           =   7785
  20.    Begin PictureBox Picture2 
  21.       BackColor       =   &H00C0C0C0&
  22.       Height          =   915
  23.       Left            =   120
  24.       ScaleHeight     =   885
  25.       ScaleWidth      =   7365
  26.       TabIndex        =   17
  27.       Top             =   5220
  28.       Width           =   7395
  29.       Begin Label Label2 
  30.          Alignment       =   2  'Center
  31.          BackStyle       =   0  'Transparent
  32.          Caption         =   "When the InkDataString is assigned, the InkDataMode property is checked to see whether the new ink data replaces or is merged with existing ink.  When ink is transferred to an HEdit, the ink is recognized as if it had been written there."
  33.          FontBold        =   0   'False
  34.          FontItalic      =   0   'False
  35.          FontName        =   "MS Sans Serif"
  36.          FontSize        =   9.75
  37.          FontStrikethru  =   0   'False
  38.          FontUnderline   =   0   'False
  39.          ForeColor       =   &H00000000&
  40.          Height          =   735
  41.          Left            =   120
  42.          TabIndex        =   18
  43.          Top             =   120
  44.          Width           =   7095
  45.       End
  46.    End
  47.    Begin PictureBox Picture1 
  48.       BackColor       =   &H00C0C0C0&
  49.       Height          =   735
  50.       Left            =   120
  51.       ScaleHeight     =   705
  52.       ScaleWidth      =   7365
  53.       TabIndex        =   15
  54.       Top             =   120
  55.       Width           =   7395
  56.       Begin Label Label1 
  57.          Alignment       =   2  'Center
  58.          BackStyle       =   0  'Transparent
  59.          Caption         =   "This demonstration shows how Ink can be easily copied from one control to another by assigning the InkDataString property."
  60.          FontBold        =   -1  'True
  61.          FontItalic      =   0   'False
  62.          FontName        =   "MS Sans Serif"
  63.          FontSize        =   9.75
  64.          FontStrikethru  =   0   'False
  65.          FontUnderline   =   0   'False
  66.          ForeColor       =   &H00000000&
  67.          Height          =   555
  68.          Left            =   120
  69.          TabIndex        =   16
  70.          Top             =   120
  71.          Width           =   7155
  72.       End
  73.    End
  74.    Begin CommandButton EndTransferDemo 
  75.       Caption         =   "Return to Main Menu"
  76.       FontBold        =   -1  'True
  77.       FontItalic      =   0   'False
  78.       FontName        =   "MS Sans Serif"
  79.       FontSize        =   9.75
  80.       FontStrikethru  =   0   'False
  81.       FontUnderline   =   0   'False
  82.       Height          =   435
  83.       Left            =   120
  84.       TabIndex        =   14
  85.       Top             =   6240
  86.       Width           =   7395
  87.    End
  88.    Begin CommandButton EraseInkButton 
  89.       Caption         =   "Erase Ink"
  90.       FontBold        =   -1  'True
  91.       FontItalic      =   0   'False
  92.       FontName        =   "MS Sans Serif"
  93.       FontSize        =   9.75
  94.       FontStrikethru  =   0   'False
  95.       FontUnderline   =   0   'False
  96.       Height          =   555
  97.       Left            =   120
  98.       TabIndex        =   13
  99.       Top             =   3840
  100.       Width           =   3615
  101.    End
  102.    Begin Frame Frame3 
  103.       BackColor       =   &H00FFFFFF&
  104.       Caption         =   "Hedit DelayRecog"
  105.       ForeColor       =   &H00000000&
  106.       Height          =   615
  107.       Left            =   3900
  108.       TabIndex        =   6
  109.       Top             =   3780
  110.       Width           =   3615
  111.       Begin OptionButton OptDelayFalse 
  112.          BackColor       =   &H00FFFFFF&
  113.          Caption         =   "False"
  114.          FontBold        =   -1  'True
  115.          FontItalic      =   0   'False
  116.          FontName        =   "MS Sans Serif"
  117.          FontSize        =   9.75
  118.          FontStrikethru  =   0   'False
  119.          FontUnderline   =   0   'False
  120.          ForeColor       =   &H00000000&
  121.          Height          =   315
  122.          Left            =   1860
  123.          TabIndex        =   12
  124.          Top             =   255
  125.          Value           =   -1  'True
  126.          Width           =   1275
  127.       End
  128.       Begin OptionButton OptDelayTrue 
  129.          BackColor       =   &H00FFFFFF&
  130.          Caption         =   "True"
  131.          FontBold        =   -1  'True
  132.          FontItalic      =   0   'False
  133.          FontName        =   "MS Sans Serif"
  134.          FontSize        =   9.75
  135.          FontStrikethru  =   0   'False
  136.          FontUnderline   =   0   'False
  137.          ForeColor       =   &H00000000&
  138.          Height          =   315
  139.          Left            =   420
  140.          TabIndex        =   11
  141.          Top             =   240
  142.          Width           =   1335
  143.       End
  144.    End
  145.    Begin Frame Frame2 
  146.       BackColor       =   &H00FFFFFF&
  147.       Caption         =   "HEdit InkDataMode"
  148.       ForeColor       =   &H00000000&
  149.       Height          =   615
  150.       Left            =   3900
  151.       TabIndex        =   5
  152.       Top             =   4500
  153.       Width           =   3615
  154.       Begin OptionButton OptHEditMerge 
  155.          BackColor       =   &H00FFFFFF&
  156.          Caption         =   "Merge"
  157.          FontBold        =   -1  'True
  158.          FontItalic      =   0   'False
  159.          FontName        =   "MS Sans Serif"
  160.          FontSize        =   9.75
  161.          FontStrikethru  =   0   'False
  162.          FontUnderline   =   0   'False
  163.          ForeColor       =   &H00000000&
  164.          Height          =   315
  165.          Left            =   1860
  166.          TabIndex        =   10
  167.          Top             =   240
  168.          Width           =   1275
  169.       End
  170.       Begin OptionButton OptHEditReplace 
  171.          BackColor       =   &H00FFFFFF&
  172.          Caption         =   "Replace"
  173.          FontBold        =   -1  'True
  174.          FontItalic      =   0   'False
  175.          FontName        =   "MS Sans Serif"
  176.          FontSize        =   9.75
  177.          FontStrikethru  =   0   'False
  178.          FontUnderline   =   0   'False
  179.          ForeColor       =   &H00000000&
  180.          Height          =   315
  181.          Left            =   360
  182.          TabIndex        =   9
  183.          Top             =   240
  184.          Value           =   -1  'True
  185.          Width           =   1335
  186.       End
  187.    End
  188.    Begin Frame Frame1 
  189.       BackColor       =   &H00FFFFFF&
  190.       Caption         =   "InkOnBitmap InkDataMode"
  191.       ForeColor       =   &H00000000&
  192.       Height          =   615
  193.       Left            =   120
  194.       TabIndex        =   4
  195.       Top             =   4500
  196.       Width           =   3615
  197.       Begin OptionButton OptIOBMerge 
  198.          BackColor       =   &H00FFFFFF&
  199.          Caption         =   "Merge"
  200.          FontBold        =   -1  'True
  201.          FontItalic      =   0   'False
  202.          FontName        =   "MS Sans Serif"
  203.          FontSize        =   9.75
  204.          FontStrikethru  =   0   'False
  205.          FontUnderline   =   0   'False
  206.          ForeColor       =   &H00000000&
  207.          Height          =   315
  208.          Left            =   1860
  209.          TabIndex        =   8
  210.          Top             =   240
  211.          Width           =   1275
  212.       End
  213.       Begin OptionButton OptIOBReplace 
  214.          BackColor       =   &H00FFFFFF&
  215.          Caption         =   "Replace"
  216.          FontBold        =   -1  'True
  217.          FontItalic      =   0   'False
  218.          FontName        =   "MS Sans Serif"
  219.          FontSize        =   9.75
  220.          FontStrikethru  =   0   'False
  221.          FontUnderline   =   0   'False
  222.          ForeColor       =   &H00000000&
  223.          Height          =   315
  224.          Left            =   360
  225.          TabIndex        =   7
  226.          Top             =   240
  227.          Value           =   -1  'True
  228.          Width           =   1335
  229.       End
  230.    End
  231.    Begin CommandButton CopyInktoIOB 
  232.       Caption         =   "Copy InkData to InkOnBitmap"
  233.       FontBold        =   -1  'True
  234.       FontItalic      =   0   'False
  235.       FontName        =   "MS Sans Serif"
  236.       FontSize        =   9.75
  237.       FontStrikethru  =   0   'False
  238.       FontUnderline   =   0   'False
  239.       Height          =   555
  240.       Left            =   3900
  241.       TabIndex        =   3
  242.       Top             =   3120
  243.       Width           =   3615
  244.    End
  245.    Begin CommandButton CopyInktoHEdit 
  246.       Caption         =   "Copy InkData to HEdit"
  247.       FontBold        =   -1  'True
  248.       FontItalic      =   0   'False
  249.       FontName        =   "MS Sans Serif"
  250.       FontSize        =   9.75
  251.       FontStrikethru  =   0   'False
  252.       FontUnderline   =   0   'False
  253.       Height          =   555
  254.       Left            =   120
  255.       TabIndex        =   2
  256.       Top             =   3120
  257.       Width           =   3615
  258.    End
  259.    Begin VHedit HEdit1 
  260.       BackColor       =   &H00FFFFFF&
  261.       ForeColor       =   &H00000000&
  262.       Height          =   2055
  263.       InflateBottom   =   270
  264.       InflateLeft     =   270
  265.       InflateRight    =   270
  266.       InflateTop      =   270
  267.       Left            =   3900
  268.       TabIndex        =   1
  269.       Text            =   "This is an HEdit control.  To its left is an InkOnBitmap.  Ink on the controls, and press the 'Copy ...' buttons below to transfer the ink between them."
  270.       Top             =   960
  271.       Version         =   268435458
  272.       Width           =   3615
  273.    End
  274.    Begin InkOnBitmap IOB1 
  275.       BackColor       =   &H00FFFFFF&
  276.       Height          =   2055
  277.       Left            =   120
  278.       TabIndex        =   0
  279.       Top             =   960
  280.       Version         =   268435458
  281.       Width           =   3615
  282.    End
  283. End
  284.  
  285. Sub CopyInktoHEdit_Click ()
  286.     HEdit1.InkDataString = IOB1.InkDataString
  287. End Sub
  288.  
  289. Sub CopyInktoIOB_Click ()
  290.     IOB1.InkDataString = HEdit1.InkDataString
  291. End Sub
  292.  
  293. Sub EndTransferDemo_Click ()
  294.     MainFrm.Show
  295.     TransFrm.Hide
  296. End Sub
  297.  
  298. Sub EraseInkButton_Click ()
  299.     IOB1.EraseInk = True
  300.     HEdit1.EraseInk = True
  301. End Sub
  302.  
  303. Sub OptDelayFalse_Click ()
  304.     HEdit1.DelayRecog = False
  305. End Sub
  306.  
  307. Sub OptDelayTrue_Click ()
  308.     HEdit1.DelayRecog = True
  309. End Sub
  310.  
  311. Sub OptHEditMerge_Click ()
  312.     HEdit1.InkDataMode = PEN_INKDATAMODE_MERGE
  313. End Sub
  314.  
  315. Sub OptHEditReplace_Click ()
  316.     HEdit1.InkDataMode = PEN_INKDATAMODE_REPLACE
  317. End Sub
  318.  
  319. Sub OptIOBMerge_Click ()
  320.     IOB1.InkDataMode = PEN_INKDATAMODE_MERGE
  321. End Sub
  322.  
  323. Sub OptIOBReplace_Click ()
  324.     IOB1.InkDataMode = PEN_INKDATAMODE_REPLACE
  325. End Sub
  326.  
  327.