| 007wan |
Отправлено: 16 Сентября, 2019 - 14:52:30 
|
Эксперт
Покинул форум
Сообщений всего: 1838
Дата рег-ции: Март 2017
Репутация: -2
|
Dantes3000 пишет: 007wan пишет: мне кажется, что ты знаешь, но не делаешь специально.
007wan , мне кажется ты его зае6ал
(Добавление)
-----
WS_VSCROLL - Создает окно с вертикальной полосой прокрутки.
Где и в чем обработать эту полосу прокрутки?
(Добавление)
Дантес, я же тебя не достал еще. |
| |
|
| Zireael |
Отправлено: 19 Сентября, 2019 - 13:39:58
|
Эксперт
Покинул форум
Сообщений всего: 4397
Дата рег-ции: Нояб. 2017
Репутация: 580
|
Tab (Отобразить)CODE:#define GWL_HINSTANCE -6
#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824
#define TCIF_TEXT 1
#define TCM_INSERTITEM 4871
#define TCM_GETCURSEL 4875
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "GetWindowLong", "GetWindowLongA", "User32.dll" );
int histance;
int tab, current_tab=0;
char text[99];
int tagTCITEMA[7]={TCIF_TEXT, 0, 0, address(#text[0]), size(#text[0]), 0, 0}
createdialog(0);
showdialog(0, "Dialog", 200, 200, 400, 300, 1, 1);
enabletimer(0);
loop()sleep(100);
function getmessage(0, WM_CREATE)
{
histance=GetWindowLong(gethwnd(0), GWL_HINSTANCE);
tab=CreateWindow(0, "SysTabControl32", "", WS_VISIBLE | WS_CHILD, 10, 10, 300, 150, gethwnd(0), 0, histance, 0, 0);
strcpy(#text[0], "Вкладка0");
sendmessage(TCM_INSERTITEM, 0, address(#tagTCITEMA[0]), formatiw(tab));
strcpy(#text[0], "Вкладка1");
sendmessage(TCM_INSERTITEM, 1, address(#tagTCITEMA[0]), formatiw(tab));
strcpy(#text[0], "Вкладка2");
sendmessage(TCM_INSERTITEM, 2, address(#tagTCITEMA[0]), formatiw(tab));
}
CREATE_TIMER(0, 100)
{
current_tab=sendmessage(TCM_GETCURSEL, 0, 0, formatiw(tab));
textbkcolor(255, 65280);
textout(0, 300, 300, "Выбрана вкладка: "+format(current_tab), 0);
} |
| |
|
| 007wan |
Отправлено: 19 Сентября, 2019 - 13:52:22
|
Эксперт
Покинул форум
Сообщений всего: 1838
Дата рег-ции: Март 2017
Репутация: -2
|
Zireael , Серьезнооооо?) Огоооооо, нафига себе! Крутооо! спасибо спасибо спасибо спасибо спасибо спасибо спасибо спасибо, реально крутяк, я уже думал всё, придется без этого, Ваууу, круто! Спасибо большое от души)))))))))
(Добавление)
Спасибо, благодарен тебе и очень рад, спасибо!)
(Добавление)
Это круто. ТОгда меню не понадобится, оно будет только для открытия настроек и BUTTON GROUP с рамкой тоже не понадобится - это означает, что окно будет уменьшено как минимум в 2 раза! Просто ШИК |
| |
|
| 007wan |
Отправлено: 19 Сентября, 2019 - 14:35:41
|
Эксперт
Покинул форум
Сообщений всего: 1838
Дата рег-ции: Март 2017
Репутация: -2
|
Zireael пишет: Tab (Отобразить)CODE:#define GWL_HINSTANCE -6
#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824
#define TCIF_TEXT 1
#define TCM_INSERTITEM 4871
#define TCM_GETCURSEL 4875
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "GetWindowLong", "GetWindowLongA", "User32.dll" );
int histance;
int tab, current_tab=0;
char text[99];
int tagTCITEMA[7]={TCIF_TEXT, 0, 0, address(#text[0]), size(#text[0]), 0, 0}
createdialog(0);
showdialog(0, "Dialog", 200, 200, 400, 300, 1, 1);
enabletimer(0);
loop()sleep(100);
function getmessage(0, WM_CREATE)
{
histance=GetWindowLong(gethwnd(0), GWL_HINSTANCE);
tab=CreateWindow(0, "SysTabControl32", "", WS_VISIBLE | WS_CHILD, 10, 10, 300, 150, gethwnd(0), 0, histance, 0, 0);
strcpy(#text[0], "Вкладка0");
sendmessage(TCM_INSERTITEM, 0, address(#tagTCITEMA[0]), formatiw(tab));
strcpy(#text[0], "Вкладка1");
sendmessage(TCM_INSERTITEM, 1, address(#tagTCITEMA[0]), formatiw(tab));
strcpy(#text[0], "Вкладка2");
sendmessage(TCM_INSERTITEM, 2, address(#tagTCITEMA[0]), formatiw(tab));
}
CREATE_TIMER(0, 100)
{
current_tab=sendmessage(TCM_GETCURSEL, 0, 0, formatiw(tab));
textbkcolor(255, 65280);
textout(0, 300, 300, "Выбрана вкладка: "+format(current_tab), 0);
} |
| |
|
|
Помощь
Поиск
Пользователи
Кибор » Кибор - Интегрированная среда разработки ботов » Вопросы и решение проблем
Описание: Продолжение
