привет всем
нужно нарисовать круговой сектор и закрасить его
делаю так:
Public Sub DrawPie(ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single, ByVal Y2 As Single, ByVal X3 As Single, ByVal Y3 As Single, ByVal X4 As Single, ByVal Y4 As Single, ByRef oPic As Object, ByVal lColor As OLE_COLOR)
Dim PointArray(3) As POINTAPI
Dim hBrush As Long
PointArray(0).x = X1
и тд
PointArray(3).y = Y4
hBrush = CreateSolidBrush(lColor)
Call SelectObject(oPic.hdc, hBrush)
'oPic - это pictureBox
Call Pie(oPic.hdc, PointArray(0).x, PointArray(0).y, PointArray(1).x, PointArray(1).y, PointArray(2).x, PointArray(2).y, PointArray(3).x, PointArray(3).y)
Call DeleteObject(hBrush)
End Sub
сектор рисуется но не закрашивается. Где я что не так делаю???
заранее спасибо.
закрасить сектор (pie)
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 6
• Страница 1 из 1
- evgm00
- Новичок
- Сообщения: 26
- Зарегистрирован: 12.02.2007 (Пн) 20:53
закрасить сектор (pie)
evgm00 » 12.02.2007 (Пн) 21:05
- BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 12.02.2007 (Пн) 23:36
Вместо кисти CreatePen(PS_SOLID, размер, цвет)
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
- tyomitch
- Пользователь #1352
-
- Сообщения: 12822
- Зарегистрирован: 20.10.2002 (Вс) 17:02
- Откуда: חיפה
Re: закрасить сектор (pie)
tyomitch » 13.02.2007 (Вт) 3:17
evgm00 писал(а):сектор рисуется но не закрашивается. Где я что не так делаю???
заранее спасибо.
Например, удаляешь выбранную кисть?
Проще не маяться с CreateSolidBrush, а установить нужные FillColor и FillStyle.
BV писал(а):Вместо кисти CreatePen(PS_SOLID, размер, цвет)
Ерунда: The pie is outlined by using the current pen and filled by using the current brush.
- evgm00
- Новичок
- Сообщения: 26
- Зарегистрирован: 12.02.2007 (Пн) 20:53
evgm00 » 13.02.2007 (Вт) 8:20
oPic.DrawWidth = 1
oPic.ForeColor = vbBlack
oPic.FillColor = vbBlack
oPic.DrawStyle = vbSolid
Call Pie(oPic.hdc, x1, y1, x2, y2, x3, y3, x4, y4)
рисует но черным не закрашивает!!!
...
hBrush = CreateSolidBrush(lColor)
Call SelectObject(oPic.hdc, hBrush)
hPen = CreatePen(0, 1, lColor)
Call SelectObject(oPic.hdc, hPen)
Call Pie(oPic.hdc, x1, y1, x2, y2, x3, y3, x4, y4)
Call DeleteObject(hBrush)
Call DeleteObject(hPen)
...
рисует но черным не закрашивает тоже!!!
oPic.ForeColor = vbBlack
oPic.FillColor = vbBlack
oPic.DrawStyle = vbSolid
Call Pie(oPic.hdc, x1, y1, x2, y2, x3, y3, x4, y4)
рисует но черным не закрашивает!!!
...
hBrush = CreateSolidBrush(lColor)
Call SelectObject(oPic.hdc, hBrush)
hPen = CreatePen(0, 1, lColor)
Call SelectObject(oPic.hdc, hPen)
Call Pie(oPic.hdc, x1, y1, x2, y2, x3, y3, x4, y4)
Call DeleteObject(hBrush)
Call DeleteObject(hPen)
...
рисует но черным не закрашивает тоже!!!
- tyomitch
- Пользователь #1352
-
- Сообщения: 12822
- Зарегистрирован: 20.10.2002 (Вс) 17:02
- Откуда: חיפה
tyomitch » 13.02.2007 (Вт) 9:56
tyomitch писал(а):Проще не маяться с CreateSolidBrush, а установить нужные FillColor и FillStyle.
evgm00 писал(а):oPic.DrawWidth = 1
oPic.ForeColor = vbBlack
oPic.FillColor = vbBlack
oPic.DrawStyle = vbSolid
Call Pie(oPic.hdc, x1, y1, x2, y2, x3, y3, x4, y4)
рисует но черным не закрашивает!!!
Найди одно отличие?
Сообщений: 6
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 83