powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Рамка формы нестандартного вида.
7 сообщений из 7, страница 1 из 1
Рамка формы нестандартного вида.
    #33037370
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
отрисовываю форму в load
Dim mRGN As Long, Cnt As Long, mBrush As Long, r As RECT
Dim rr As RECT

GetClientRect Me.hwnd, rr
mRGN = CreateRoundRectRgn(rr.Left, rr.Top, rr.Right, rr.Bottom, (rr.Right - rr.Left) / 2, (rr.Bottom - rr.Top) / 2)
SetWindowRgn Me.hwnd, mRGN, True
DeleteObject mRGN

borderstyle = none

получается форма в виде квадрата с закругленными концами. а как сделать, чтобы вокруг нее появилась черная рамка?
...
Рейтинг: 0 / 0
Рамка формы нестандартного вида.
    #33037640
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Рисовать самостоятельно.
...
Рейтинг: 0 / 0
Рамка формы нестандартного вида.
    #33039443
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А по моему это можно сделать если покопать под CombineRgn и совместить ее с FrameRgn . Даже BaloonTip обвели рамкой.
...
Рейтинг: 0 / 0
Рамка формы нестандартного вида.
    #33039572
CLilian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть у меня хорошиий пример. Можешь посмотреть, вдруг подойдет!
...
Рейтинг: 0 / 0
Рамка формы нестандартного вида.
    #33044722
Фотография Andrey13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
XP_Form_Style.rar просто и красиво.
...
Рейтинг: 0 / 0
Рамка формы нестандартного вида.
    #33045298
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
XP_Form_Style.rar не подходит. скорей всего надо делать, как сказал SmeL_md. только я не знаю, как. подскажите.
...
Рейтинг: 0 / 0
Рамка формы нестандартного вида.
    #33045319
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо за подсказку, разобралась сама. оказалось все просто. добавила строку перед SetWindowRgn.
FrameRgn hDC, mRGN, CreateSolidBrush(QBColor(0)), 1, 1
И все получилось. вопрос закрыт.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Рамка формы нестандартного вида.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]