"justify"> TextExit і
PictureExit If Text1.Visible = True Then TextExitPicture9.Visible = True Then PictureExit
End Sub
Процедура Private Sub TextExit () переносить текст з текстового поля в малюнок і приховує це поле
Private Sub TextExit (). Visible = FalsePicture1.Font = Text1.Font.CurrentX = Text1.Left + 2.CurrentY = Text1.Top + 2.ForeColor = Picture8 (1). BackColor.Print Text1.TextSub
Процедура PictureExit () переносить малюнок з графічного вікна в основний малюнок і приховує це вікно
Private Sub PictureExit (). Visible = False.PaintPicture Picture9.image, Picture9.Left + 1, _.Top + 1, Picture9.Width - 2, Picture9.Height - 2, _
, 0, Picture9.Width - 2, Picture9.Height - 2Sub
Процедура Picture1_MouseDown визначає набір дій при натисканні на кнопку миші
Private Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Якщо вікна для вставки тексту або картинки видимі, то прибираємо їх, використовуючи відповідні процедури
If Text1.Visible = True Then TextExitPicture9.Visible = True Then PictureExitButton = 1 Then Picture1.ForeColor = Picture8 (1). BackColor _
Else Picture1.ForeColor = Picture8 (0). BackColor
Якщо в списку інструментів обрані виділення малюнка або вставка тексту, то визначаємо товщину, режим і стиль малювання
If Option1 (0). Value = True Or Option1 (6). Value = True Then.DrawWidth = 1.DrawMode = vbInvert.DrawStyle = vbDot
End If
Якщо обраний ластик, то задаємо ширину і колір як у фону:
If Option1 (1). Value = True Then.DrawWidth = 5.ForeColor = Picture8 (0). BackColor.PSet (X, Y)
End If
Якщо обрана заливка, то встановлюємо стиль і колір заливки:
If Option1 (2). Value = True Then.FillStyle = 0.FillColor = Picture1.ForeColor
Зафарбовуємо замкнутий ділянку рісункаPicture1.hdc, X, Y, Picture1.Point (X, Y), 1
Picture1.FillStyle = 1If
Якщо обрана установка кольору
If Option1 (3). Value = True Then (1). BackColor = Picture1.Point (X, Y) If
Якщо обраний карандашOption1 (4). Value = True Then.PSet (X, Y) If
Якщо обраний розпилювач, встановлюється його товщина в одиницю а інтервал таймера встановлює...
