r, Shift As Integer, X As Single , Y As Single) picMouseDown = False Then Exit Subyt As Single, yd As Single, xl As Single, xr As Single
Якщо вибрано виділення рісункаOption1 (0). Value = True Then
Якщо був намальований прямокутник, то стираємо його
If picDrawFirst = False Then.Line (x0, y0) - (x1, y1),, BIf.DrawMode = vbCopyPen.DrawWidth = picDrawWidth
Picture1.DrawStyle = vbSolid
Пересуваємо Picture9 відповідно з координатами прямокутника
If x0
Малюємо на Picture9 зображення тієї частини малюнка, над якою він перебуває
Picture9.Cls.PaintPicture Picture1.image, 0, 0, xr - xl + 1, yd - yu + 1, xl, yu, xr - xl + 1, yd - yu + 1.ForeColor = Picture8 (0). BackColor
Стираємо ту частину малюнка, над якою знаходиться Picture9.DrawWidth = 1.Line (xl, yu) - (xr, yd),, BF.DrawWidth = picDrawWidth.Visible = True
Picture9.SetFocusIf
Якщо обраний ластик, то вказуємо його товщину
If Option1 (1). Value = True Then.DrawWidth = picDrawWidth
End If
Якщо обраний розпилювач, то вказуємо його товщину, а інтервал таймера встановлюємо в нуль
If Option1 (5). Value = True Then.DrawWidth = picDrawWidth.Interval = 0If
Якщо обрана вставка текстаOption1 (6). Value = True Then
Якщо був намальований прямокутник, то стираємо його
If picDrawFirst = False Then.Line (x0, y0) - (x1, y1),, BIf.DrawMode = vbCopyPen.DrawWidth = picDrawWidth.DrawStyle = vbSolid.Text = ""
Пересуваємо текстове віконце відповідно з координатами прямокутника
If x0
Робимо текст видимим і встановлюємо на нього фокус
Text1.Visible = True.SetFocusIf
Якщо обрана лініяOption1 (7). Value = True Then
Якщо лінія була намальована, то стираємо її і остаточно малюємо лінію з новими координатами
If picDrawFirst = False Then.Line (x0, y0) - (x1, y1) If.DrawMode = vbCopyPen.Line (x0, y0) - (X, Y) If
Якщо обраний прямоугольнікOption1 (8). Value = True Then
і якщо прямокутник був намальований, то стираємо його і остаточно малюємо прямокутник з новими координатами
If picDrawFirst = False Then.Line (x0, y0) - (x1, y1),, BIf.DrawMode = vbCopyPe...
