VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H00004040&
   Caption         =   "Графический редактор"
   ClientHeight    =   5820
   ClientLeft      =   2568
   ClientTop       =   1428
   ClientWidth     =   6696
   LinkTopic       =   "Form1"
   PaletteMode     =   2  'Custom
   ScaleHeight     =   5820
   ScaleWidth      =   6696
   Begin VB.CommandButton txtCls 
      Caption         =   "Очистить"
      Height          =   375
      Left            =   120
      TabIndex        =   11
      Top             =   4920
      Width           =   1695
   End
   Begin VB.CommandButton cmdCircle 
      Caption         =   "Окружность"
      Height          =   495
      Left            =   120
      TabIndex        =   6
      Top             =   3840
      Width           =   1695
   End
   Begin VB.CommandButton cmdPoint 
      Caption         =   "Точка"
      Height          =   495
      Left            =   120
      TabIndex        =   5
      Top             =   960
      Width           =   1695
   End
   Begin VB.CommandButton cmdLineBF 
      Caption         =   "Закрашенный прямоугольник"
      Height          =   495
      Left            =   120
      TabIndex        =   4
      Top             =   3120
      Width           =   1695
   End
   Begin VB.CommandButton cmdLineB 
      Caption         =   "Прямоугольник"
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   2400
      Width           =   1695
   End
   Begin VB.CommandButton cmdLine 
      Caption         =   "Линия"
      Height          =   495
      Left            =   120
      TabIndex        =   2
      Top             =   1680
      Width           =   1695
   End
   Begin VB.PictureBox picPaint 
      BackColor       =   &H00FFFFFF&
      DrawWidth       =   5
      Height          =   4000
      Left            =   2160
      ScaleHeight     =   3945
      ScaleMode       =   0  'User
      ScaleWidth      =   3495.017
      TabIndex        =   1
      Top             =   240
      Width           =   4000
   End
   Begin VB.CommandButton cmdScale 
      Caption         =   "Система координат"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   1695
   End
   Begin VB.Label lblY2ReZ 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   4560
      TabIndex        =   15
      Top             =   5160
      Width           =   975
   End
   Begin VB.Label lblX2Rez 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   4560
      TabIndex        =   14
      Top             =   4560
      Width           =   975
   End
   Begin VB.Label lblY1Rez 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   2880
      TabIndex        =   13
      Top             =   5160
      Width           =   975
   End
   Begin VB.Label lblX1Rez 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   2880
      TabIndex        =   12
      Top             =   4560
      Width           =   975
   End
   Begin VB.Label lblY2 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "Y2"
      Height          =   375
      Left            =   4320
      TabIndex        =   10
      Top             =   5160
      Width           =   255
   End
   Begin VB.Label lblX2 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "X2"
      Height          =   375
      Left            =   4320
      TabIndex        =   9
      Top             =   4560
      Width           =   255
   End
   Begin VB.Label lblY1 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "Y1"
      Height          =   375
      Left            =   2640
      TabIndex        =   8
      Top             =   5160
      Width           =   255
   End
   Begin VB.Label lblX1 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "X1"
      Height          =   375
      Left            =   2640
      TabIndex        =   7
      Top             =   4560
      Width           =   255
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public sngX1, sngX2, sngY1, sngY2, sngA1, sngA2, sngAsp As Single
Private Sub cmdScale_Click()
picPaint.Scale (0, 100)-(100, 0)
End Sub
Private Sub cmdPoint_Click()
picPaint.PSet (sngX1, sngY1), vbBlue
End Sub
Private Sub cmdLine_Click()
picPaint.Line (sngX1, sngY1)-(sngX2, sngY2), vbGreen
End Sub
Private Sub cmdLineB_Click()
picPaint.Line (sngX1, sngY1)-(sngX2, sngY2), vbRed, B
End Sub
Private Sub cmdLineBF_Click()
picPaint.Line (sngX1, sngY1)-(sngX2, sngY2), vbMagenta, BF
End Sub
Private Sub cmdCircle_Click()
picPaint.Circle (sngX1, sngY1), sngX2, vbCyan
End Sub
Private Sub txtCls_Click()
picPaint.Cls
End Sub
Private Sub picPaint_MouseDown(Button As Integer, Shift As Integer, sngX As Single, sngY As Single)
Select Case Button
Case Is = 1
sngX1 = sngX: sngY1 = sngY: lblX1Rez = sngX1: lblY1Rez = sngY1
Case Is = 2
sngX2 = sngX: sngY2 = sngY: lblX2Rez = sngX2: lblY2ReZ = sngY2
End Select
End Sub
