home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / SOFTSRC / vtrial15.exe / DATA.1 / NewLayer.frm < prev    next >
Text File  |  1997-03-20  |  3KB  |  105 lines
  1. VERSION 4.00
  2. Begin VB.Form NewNameForm 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "New Layer"
  5.    ClientHeight    =   1680
  6.    ClientLeft      =   1560
  7.    ClientTop       =   5190
  8.    ClientWidth     =   4575
  9.    Height          =   2085
  10.    Left            =   1500
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1680
  15.    ScaleWidth      =   4575
  16.    Top             =   4845
  17.    Width           =   4695
  18.    Begin VB.CommandButton CancelCmd 
  19.       Caption         =   "Cancel"
  20.       Height          =   375
  21.       Left            =   2640
  22.       TabIndex        =   3
  23.       Top             =   1200
  24.       Width           =   1455
  25.    End
  26.    Begin VB.CommandButton OKCmd 
  27.       Caption         =   "Accept"
  28.       Default         =   -1  'True
  29.       Height          =   375
  30.       Left            =   480
  31.       TabIndex        =   2
  32.       Top             =   1200
  33.       Width           =   1455
  34.    End
  35.    Begin VB.TextBox NewLayerName 
  36.       Height          =   375
  37.       Left            =   600
  38.       TabIndex        =   0
  39.       Text            =   "NewLayerName"
  40.       Top             =   600
  41.       Width           =   3375
  42.    End
  43.    Begin VB.Label Label1 
  44.       Alignment       =   2  'Center
  45.       Caption         =   "Enter Name for New Layer:"
  46.       Height          =   255
  47.       Left            =   120
  48.       TabIndex        =   1
  49.       Top             =   240
  50.       Width           =   4335
  51.    End
  52. End
  53. Attribute VB_Name = "NewNameForm"
  54. Attribute VB_Creatable = False
  55. Attribute VB_Exposed = False
  56. Private Sub CancelCmd_Click()
  57. '
  58. '   quit without saving new layer name
  59. '
  60.     Unload NewNameForm
  61. End Sub
  62.  
  63. Private Sub Form_Load()
  64. '
  65. '   get a new name form
  66. '
  67.     WindowOnTop hWnd
  68.     
  69.     NewNameForm.Left = (Screen.Width - NewNameForm.Width) / 2
  70.     NewNameForm.Top = (Screen.Height - NewNameForm.Height) / 2
  71.  
  72.  
  73.     Select Case gblMode
  74.         Case 1                      ' new layer name
  75.             NewNameForm.Caption = "New Layer"
  76.             Label1.Caption = "Enter Name for New Layer"
  77.         Case 2
  78.             NewNameForm.Caption = "New Text Style"
  79.             Label1.Caption = "Enter name for New Text Style"
  80.     End Select
  81.     NewLayerName.Text = ""
  82. End Sub
  83.  
  84.  
  85. Private Sub OKCmd_Click()
  86. '
  87. '   ok, take the entry as a new layer
  88. '
  89.  
  90.     Select Case gblMode
  91.         Case 1                  ' new layer name
  92.             If (Len(NewLayerName.Text) > 0) Then
  93.                 MainForm.LayerList.AddItem NewLayerName.Text
  94.             End If
  95.             
  96.         Case 2                  ' new text style name
  97.             If (Len(NewLayerName.Text) > 0) Then
  98.                 MainForm.TextStyleList.AddItem NewLayerName.Text
  99.             End If
  100.     End Select
  101.     Unload NewNameForm
  102. End Sub
  103.  
  104.  
  105.