| Вопрос: как вырезать несколько областей на форме? | Добавлено: 19.02.14 14:53 |
Автор вопроса:  Vitalysan®
|
|
Доброго всем времени.
Не получается добиться успеха в данном вопросе. Не могу вникнуть в API-функции... Задача: вырезать несколько областей на форме. Пока получилось вырезать только одну с координатами 0,0,10,10: Dim lngSkin As Long, lngCut As Long lngSkin = CreateRectRgn(0, 0, ScaleWidth, ScaleHeight) lngCut = CreateRectRgn(0, 0, 10, 10) Call CombineRgn(lngSkin, lngSkin, lngCut, 4) Call SetWindowRgn(hwnd, lngSkin, True) Надо вырезать область с координатами 0,20,10,30 По идее надо работать уже с этой областью: lngVotEtaOblast = CombineRgn(lngSkin, lngSkin, lngCut, 4)
lngSkin = CreateRectRgn(0, 0, ScaleWidth, ScaleHeight)
lngCut = CreateRectRgn(0, 0, 10, 10) lngVotEtaOblast = CombineRgn(lngSkin, lngSkin, lngCut, 4) lngCut = CreateRectRgn(0, 20, 10, 30) Call CombineRgn(lngVotEtaOblast, lngVotEtaOblast, lngCut, 4) Call SetWindowRgn(hwnd, lngVotEtaOblast, True) но результат.... Может кто подскажет как работать с регионами? Заранее благодарен |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Vitalysan® Вопросов: 25 Ответов: 61 |
Профиль | | #1 | Добавлено: 19.02.14 21:06 |
| Вроде как разобрался....пока проблема с большим количеством переменных. Завтра попробую, может пойму CreatePolygonRgn | ||
Страница: 1 |