home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / win / prg / zs20 / commentf.fr_ / COMMENTF.FRM
Text File  |  1994-11-21  |  2KB  |  68 lines
  1. VERSION 2.00
  2. Begin Form CommentForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Set the Zip comment..."
  6.    ClientHeight    =   2448
  7.    ClientLeft      =   2028
  8.    ClientTop       =   2196
  9.    ClientWidth     =   4260
  10.    Height          =   2868
  11.    Left            =   1980
  12.    LinkTopic       =   "Form3"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2448
  16.    ScaleWidth      =   4260
  17.    Top             =   1824
  18.    Width           =   4356
  19.    Begin CommandButton CancelBtn 
  20.       Caption         =   "Cancel"
  21.       Height          =   360
  22.       Left            =   3084
  23.       TabIndex        =   2
  24.       Top             =   2016
  25.       Width           =   1104
  26.    End
  27.    Begin CommandButton OkBtn 
  28.       Caption         =   "OK"
  29.       Default         =   -1  'True
  30.       Height          =   360
  31.       Left            =   1920
  32.       TabIndex        =   1
  33.       Top             =   2016
  34.       Width           =   1104
  35.    End
  36.    Begin TextBox CommentText 
  37.       FontBold        =   0   'False
  38.       FontItalic      =   0   'False
  39.       FontName        =   "MS Sans Serif"
  40.       FontSize        =   7.8
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       Height          =   1932
  44.       Left            =   36
  45.       MultiLine       =   -1  'True
  46.       ScrollBars      =   3  'Both
  47.       TabIndex        =   0
  48.       Top             =   48
  49.       Width           =   4152
  50.    End
  51. End
  52.  
  53. Sub CancelBtn_Click ()
  54. Unload CommentForm
  55.  
  56. End Sub
  57.  
  58. Sub OkBtn_Click ()
  59. If CommentText.Text <> "" Then
  60. Form1.VBZip1.Comment = CommentText
  61. Else
  62. Form1.VBZip1.Action = 6
  63. End If
  64. Unload CommentForm
  65.  
  66. End Sub
  67.  
  68.