| Вопрос: Закрасить треугольник c помощью API | Добавлено: 09.07.05 23:06 |
Автор вопроса:  ZagZag | ICQ: 295002202 |
|
Собственно, как нарисовать треугольник, используя полько API-функции
Дано: hDC, 3 пары координат (x,y) Нужно не только нарисовать, но и залить его определенным цветом. Рисую треугольник я более-менее нормально (с помощью MoveToEx и LineTo) Но какой функцией задавать цвет рисуемой линии и как заливать определенным цветом полученный треугольник (известно, что под областью треугольника сплошной цвет) |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #1 | Добавлено: 09.07.05 23:10 |
| FloodFill пойдёт ? | ||
|
Номер ответа: 2 Автор ответа: DaSharmICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #2 | Добавлено: 10.07.05 00:43 |
|
кусок из моего таб контрола:
Private Sub DrawTriangle(x1 As Long, y1 As Long, x2 As Long, y2 As Long, x3 As Long, y3 As Long, lColor As OLE_COLOR)
Dim poly(1 To 3) As COORD, NumCoords As Long, hBrush As Long, hRgn As Long NumCoords = 3 poly(1).x = x1 poly(1).y = y1 poly(2).x = x2 poly(2).y = y2 poly(3).x = x3 poly(3).y = y3 Polygon UserControl.hdc, poly(1), NumCoords hBrush = CreateSolidBrush(GetSysColor(lColor And &H1F&  )
hRgn = CreatePolygonRgn(poly(1), NumCoords, ALTERNATE) If hRgn Then FillRgn UserControl.hdc, hRgn, hBrush  eleteObject hRgn
End Sub |
||
|
Номер ответа: 3 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #3 | Добавлено: 10.07.05 08:26 |
| Ээээ... А постоянные утечки из-за неуничтоженного hBrush?.. | ||
Страница: 1 |