home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / INTERNET / USENET / PAPERBOY / SOURCE.ZIP / FRMCHED.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-10-02  |  2.5 KB  |  88 lines
  1. VERSION 2.00
  2. Begin Form frmched 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Editor Setup"
  6.    ClientHeight    =   2028
  7.    ClientLeft      =   2376
  8.    ClientTop       =   3096
  9.    ClientWidth     =   5292
  10.    ClipControls    =   0   'False
  11.    Height          =   2448
  12.    Left            =   2328
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2028
  17.    ScaleWidth      =   5292
  18.    Top             =   2724
  19.    Width           =   5388
  20.    Begin CommandButton cmdcancel 
  21.       Cancel          =   -1  'True
  22.       Caption         =   "C&ancel"
  23.       Height          =   372
  24.       Left            =   3000
  25.       TabIndex        =   3
  26.       Top             =   1440
  27.       Width           =   972
  28.    End
  29.    Begin CommandButton cmdok 
  30.       Caption         =   "&OK"
  31.       Default         =   -1  'True
  32.       Height          =   372
  33.       Left            =   1680
  34.       TabIndex        =   2
  35.       Top             =   1440
  36.       Width           =   972
  37.    End
  38.    Begin TextBox txtexted 
  39.       BackColor       =   &H00C0C0C0&
  40.       Enabled         =   0   'False
  41.       Height          =   372
  42.       Left            =   1200
  43.       TabIndex        =   1
  44.       Top             =   720
  45.       Width           =   3372
  46.    End
  47.    Begin CheckBox chkexted 
  48.       BackColor       =   &H00C0C0C0&
  49.       Caption         =   "&Use External Editor"
  50.       Height          =   372
  51.       Left            =   840
  52.       TabIndex        =   0
  53.       Top             =   240
  54.       Width           =   3132
  55.    End
  56. Option Explicit
  57. Sub chkexted_Click ()
  58.     If chkexted.Value = 0 Then
  59.         txtexted.Enabled = False
  60.     Else
  61.         txtexted.Enabled = True
  62.     End If
  63. End Sub
  64. Sub cmdcancel_Click ()
  65.     frmched.Hide
  66. End Sub
  67. Sub cmdok_Click ()
  68.     If chkexted.Value Then
  69.         SetINI "Editor", "UseExternalEditor", "Y"
  70.     Else
  71.         SetINI "Editor", "UseExternalEditor", "N"
  72.     End If
  73.     SetINI "Editor", "ExternalEditor", txtexted.Text
  74.     frmched.Hide
  75. End Sub
  76. Sub Form_Load ()
  77.     left = (screen.Width - frmched.Width) / 2
  78.     top = (screen.Height - frmched.Height) / 2
  79.     If UCase$(GetINI("Editor", "UseExternalEditor", "Y")) = "Y" Then
  80.         chkexted.Value = 1
  81.         txtexted.Enabled = True
  82.     Else
  83.         chkexted.Value = 0
  84.         txtexted.Enabled = False
  85.     End If
  86.     txtexted = GetINI("Editor", "ExternalEditor", "notepad.exe")
  87. End Sub
  88.