Кибор :: Версия для печати :: вопрос по external и др [9]

81. 007wan - 25 Мая, 2019 - 07:19:30 - перейти к сообщению

Как узнать, что окно находится поверх над всеми окнами или нет? Так же узнать где находится окно в z-последовательности.

82. 007wan - 27 Мая, 2019 - 03:17:26 - перейти к сообщению

Я замучился искать константы в браузере. Не могу найти уже.
Ссылка из первой темы external на 6 странице. Не нашел. В поиске "#define ES_NUMBER 0" не помогло.
(Добавление)
И где найти стили Edit? я нашел стили только "функциональные" вот А мне надо стили "красоты" для контрола. Именно изменить рамку эдита
(Добавление)
Что бы рамка была "впуклая"
(Добавление)
Утопленной рамкой эдит.
(Добавление)
А вообще можно ли для эдита прикрепить стрелочки вверх и вниз треугольные, я видел такой контрол где-то
(Добавление)
А можно ли и как-то модифицировать это? А то показывает не точно. Сравнивал с гаджетом винды.

Узнать ЦП (Отобразить)

83. 007wan - 27 Мая, 2019 - 06:12:45 - перейти к сообщению

Код (Отобразить)

CODE:

#define CB_ADDSTRING 323
#define CB_DELETESTRING 324
#define CB_FINDSTRING 332
#define CB_GETCURSEL 327

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "GetWindowText", "GetWindowTextA", "User32.dll" );
external(INT, "SetWindowText", "SetWindowTextA", "User32.dll" );
external(INT, "GetFocus", "GetFocus", "User32.dll" );

int i, button1, button2, combo1, combo2, row;
string combo1_text[4]={"qwe", "rty", "asd", "123"}; // список строк для комбо1
string combo2_text[6]={"Строка1", "Строка2", "string1", "string2", "987", "654"}; // список строк для комбо2
char c[255];

//////////
createdialog(0);
showdialog(0, "Диалог", 258, 234, 250, 300, 1, 1);
//////////

loop() sleep(10);//Убрать после теста

function getmessage(0, WM_CREATE)
{
button1=CreateWindow(0, "BUTTON", "Добавить в список", 8192+1342177280, 130, 10, 100, 40, gethwnd(0), 0, 0, 0);
button2=CreateWindow(0, "BUTTON", "Удалить из списка", 8192+1342177280, 130, 60, 100, 40, gethwnd(0), 0, 0, 0);

combo1=CreateWindow(0, "COMBOBOX", "", 64+2097152+1342177280, 10, 10, 110, 120, gethwnd(0), 0, 0, 0);
// добавление строк в combo1 из массива combo1_text
for(i=0; i<sizearray(combo1_text); i++)
{
strcpy(#c[0], combo1_text[i]);
sendmessage(CB_ADDSTRING, 0, address(#c[0]), formatiw(combo1));
}

combo2=CreateWindow(0, "COMBOBOX", "", 3+64+2097152+1342177280, 10, 150, 110, 120, gethwnd(0), 0, 0, 0);
// добавление строк в combo2 из массива combo2_text
for(i=0; i<sizearray(combo2_text); i++)
{
strcpy(#c[0], combo2_text[i]);
sendmessage(CB_ADDSTRING, 0, address(#c[0]), formatiw(combo2));
}
}

function getmessage(0, WM_COMMAND)
{
if (message.lparam==button1) // если нажата 'Добавить в список'
{
GetWindowText(combo1, address(#c[0]), sizearray(c)); // получаем введённый текст

if(sendmessage(CB_FINDSTRING, 1, address(#c[0]), formatiw(combo1))==-1) // ищем есть ли он в списке
{
SetWindowText(combo1, ""); // удаляем текст из поля
sendmessage(CB_ADDSTRING, 1, address(#c[0]), formatiw(combo1)); // добавляем строку в список
}
else
{
if(messageboxyn("Такая строка уже есть в списке"+formatic(13)+formatic(10)+"Всё равно добавить строку?")!=-1)
{
SetWindowText(combo1, "");
sendmessage(CB_ADDSTRING, 1, address(#c[0]), formatiw(combo1));
}
}
}

if (message.lparam==button2) // если нажата 'Удалить из списка'
{
// получить номер выбранной строки и удалить строку
sendmessage(CB_DELETESTRING, sendmessage(CB_GETCURSEL, 1, 0, formatiw(combo1)), 0, formatiw(combo1));
}

if (message.lparam==combo2) // если выбрана строка combo2
{
row=sendmessage(CB_GETCURSEL, 1, 0, formatiw(combo2)); // узнаём номер выбранной строки
if(row>-1)
{
textbkcolor(255, 65280);
textout(0, 380, 480, "Выбранная строка: "+combo2_text[row], 2);
}
}
}

Как отдельный эдит сделать из этого примера с утопленной рамкой? где combo1

84. Zireael - 27 Мая, 2019 - 06:28:42 - перейти к сообщению

Цитата:

Утопленной рамкой эдит.

CODE:

#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824
#define WS_BORDER 8388608
#define WS_EX_CLIENTEDGE 512
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );

int edit;

createdialog(0);
showdialog(0, "Диалог", 100, 100, 300, 300, 1, 1);

loop()sleep(1);

function getmessage(0, WM_CREATE)
{
edit=CreateWindow(WS_EX_CLIENTEDGE, "EDIT", "", WS_VISIBLE | WS_CHILD | WS_BORDER, 10, 10, 100, 25, gethwnd(0), 0, 0, 0);
}

85. 007wan - 27 Мая, 2019 - 06:42:33 - перейти к сообщению

Zireael , Спасибо. Буду изучать...
Я по параметру WS_EX_CLIENTEDGE нашел статью одну хорошую . Я пока в этом не шарю, но быть может эти параметры помогут создать Tab? там есть что-то типа "окно является многослойным"

86. 007wan - 28 Мая, 2019 - 02:26:04 - перейти к сообщению

Как сделать: Какая функция получает, когда эдит редактируется? Как сделать, что бы при редактировании если число больше 100, то либо 4 символ не введется, либо число в эдите изменится на 100. Если можно, то с каким-нибудь всплывающим окном.

87. Zireael - 28 Мая, 2019 - 03:38:32 - перейти к сообщению

Цитата:

Как сделать, что бы при редактировании если число больше 100, то либо 4 символ не введется, либо число в эдите изменится на 100.

code (Отобразить)

88. 007wan - 28 Мая, 2019 - 03:41:21 - перейти к сообщению

Zireael , Спасибо. Но текст нужно, что бы редактировался до появления в эдите. Как вот пример с "редактирование эдита: ввод только чисел функция"

89. Kibor - 28 Мая, 2019 - 03:56:49 - перейти к сообщению

007wan пишет:

Но текст нужно, что бы редактировался до появления в эдите

CODE:

#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824
#define WS_BORDER 8388608
#define ES_NUMBER 8192
#define EM_SETSEL 177
#define EM_LIMITTEXT 197

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "GetWindowText", "GetWindowTextA", "User32.dll" );
external(INT, "SetWindowText", "SetWindowTextA", "User32.dll" );
external(INT, "SendMessage", "SendMessageA", "User32.dll" );
int edit1;
char buf[99];

createdialog(0);
showdialog(0, "Диалог", 100, 100, 300, 300, 1, 1);

loop()sleep(10);

function getmessage(0, WM_CREATE)
{
edit1=CreateWindow(0, "EDIT", "", WS_VISIBLE | WS_CHILD | WS_BORDER | ES_NUMBER, 10, 10, 100, 20, gethwnd(0), 0, 0, 0);
SendMessage(edit1, EM_LIMITTEXT, 3, 0);
}

function getmessage(0, WM_COMMAND)
{
if(message.lparam==edit1) // если edit редактируется
{
if(GetWindowText(edit1, address(#buf[0]), sizearray(buf))) // получаем текст edit'а'
{
textout(0, 300, 300, format(#buf[0]), 1);
if(formatsn(format(#buf[0]))>100) // если больше 100
{
SetWindowText(edit1, "100"); // меняем текст на 100
sendmessage(EM_SETSEL, size(format(#buf[0])), size(format(#buf[0])), formatiw(edit1)); // ставим курсор в конец текста
}
}
}
}

90. 007wan - 28 Мая, 2019 - 04:07:54 - перейти к сообщению

Kibor , Спасибо. Нашел функцию GetFocus и Set-

CODE:

SetFocus(Hwnd);

Как убрать фокус со всего? Тоесть значение 0 должно стоять по сути, но там пишут, что значения в виде null не принимаются. Я хочу убрать фокус со всего, но боюсь этого невозможно.
(Добавление)
В принципе это не обязательно, но вместо

Код1 (Отобразить)

Можно было бы

Код2 (Отобразить)