Кибор :: Версия для печати :: Версия 5.50 Получение и обработка сообщений в немодальных окнах Кибор [10]

91. Kibor - 15 Мая, 2019 - 15:55:31 - перейти к сообщению

Обновил программу.
Теперь переменные

Цитата:

message.x - координата мыши X
message.y - координата мыши Y
message.wparam - определяет дополнительную информацию о сообщении. Точное значение зависит от значения члена структуры message
message.lparam - определяет дополнительную информацию о сообщении. Точное значение зависит от значения члена структуры message

локальные для каждой функции событий.

Раньше такой код

CODE:

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );

int b1, b2;

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

while(window ("Диалог")==0)sleep(10);
win w=window ("Диалог");

loop()
{
w=window ("Диалог");
textout(1, w.left, w.top, " Не обновляли ", 0);
sleep(1);
}

function getmessage(0, WM_CREATE)//Создаем контролы при создание окна
{
int hwnd=gethwnd(0);
//Создание кнопок
b1=CreateWindow(0, "BUTTON", "Первая кнопка", 1342177280, 10, 10, 120, 30, hwnd, 0, 0, 0);
b2=CreateWindow(0, "BUTTON", "Ворая кнопка", 1342177280, 10, 50, 120, 30, hwnd, 0, 0, 0);
}

function getmessage(0, WM_COMMAND)
{
if (message.lparam==b1)messagebox ("Первая кнопка");
if (message.lparam==b2)messagebox ("Ворая кнопка");

}

function getmessage(0, WM_LBUTTONDOWN)//Отлавливаем клик правой кнопки мыши всплывающее меню
{
messagebox("1 "+format(message.x));
looptime(2000){}
messagebox("2 "+format(message.x));
}

function getmessage(0, 15)//WM_PAINT Отлавливаем обновление окна
{
textout(1, w.left, w.top, " Обновили окно ", 0);
sleep(100);
}

мог вести себя не корректно, в том случае если пришло событие, к примеру клик мыши и в этой функции необходимо заюзать переменные message.x и message.у. То в случае если код в этой функции долго выполнялся и эти переменные использовались в конце кода, то вызов другого события посреди выполнения функции события мыши перезаписывал эти переменные и в конце функции они имели значения с другого getmessage.

К примеру

CODE:

Устранил. Все переменные на каждое событие изолированы. Локальные. Другим событием не перезапишутся.

92. Zireael - 15 Мая, 2019 - 18:08:43 - перейти к сообщению

Ещё бы добавить возможность включать/отключать обработку события.

93. Kibor - 15 Мая, 2019 - 18:59:26 - перейти к сообщению

Zireael пишет:

Ещё бы добавить возможность включать/отключать обработку события.

По галке можно делать return после захода.
После return он вернется на строку на которой его прервал.
В логе выглядит так. Потому что последнюю команду он не выполнил, так как в лог пишет до выполнения, а ее выполнение было был прервано. И он повторно на нее вернется.

Такой код

CODE:

loop()
{
sleep(1);
sleep(2);
sleep(3);
sleep(4);
sleep(5);
}

function getmessage(0, WM_LBUTTONDOWN)
{
if(flag_check[0]==0)return;
beep(2500, 100);
}

CODE:

sleep ( 5 )
sleep ( 1 )
sleep ( 2 )
sleep ( 3 )
if ( flag_check [ 0 ] == 0 )
return
sleep ( 3 )
sleep ( 4 )
sleep ( 5 )
sleep ( 1 )
sleep ( 2 )
sleep ( 3 )
sleep ( 4 )
sleep ( 5 )
sleep ( 1 )
sleep ( 2 )
sleep ( 3 )
sleep ( 4 )
sleep ( 5 )
sleep ( 1 )
sleep ( 2 )
sleep ( 3 )
sleep ( 4 )
sleep ( 5 )
sleep ( 1 )
sleep ( 2 )
sleep ( 3 )
sleep ( 4 )
sleep ( 5 )
sleep ( 1 )
sleep ( 2 )
sleep ( 3 )
sleep ( 4 )
sleep ( 5 )
sleep ( 1 )
sleep ( 2 )
if ( flag_check [ 0 ] == 0 )
return
sleep ( 2 )
sleep ( 3 )
sleep ( 4 )
sleep ( 5 )
sleep ( 1 )
sleep ( 2 )

А такой код

CODE:

if (fopen ("c:\5.txt", "w")!=0)
{
loop()
{
fwrite(1);fwrite(ENDL);//з
fwrite(2);fwrite(ENDL);//з
fwrite(3);fwrite(ENDL);//з
fwrite(4);fwrite(ENDL);//з
fwrite(5);fwrite(ENDL);//з
}
fclose();//закрываем файл
}

function getmessage(0, WM_LBUTTONDOWN)//Отлавливаем клик левой кнопки мыши
{
if(flag_check[0]==0)
{
fwrite("return!!!!!!!!!!!!!!!!!!!");fwrite(ENDL);//з
return;
}
fwrite("beep");fwrite(ENDL);//з
beep(2500, 100);
}

Покажет такую запись в файле. То есть реально отработанные строки

CODE:

1
2
3
4
5
1
2
3
4
5
1
2
return!!!!!!!!!!!!!!!!!!!
3
4
5
1
2
3
4
5
1
2
3

94. Zireael - 04 Июня, 2019 - 02:40:38 - перейти к сообщению

Пример как создать скролл (Отобразить)

Пример2 как создать скролл (Отобразить)

Пример3 как создать скролл (Отобразить)

95. Kibor - 04 Июня, 2019 - 03:12:22 - перейти к сообщению

Zireael пишет:

Пример как создать скролл (Отобразить)

Не все обработано. Не работает клик по полосе.

Скролл (Отобразить)

CODE:

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );

external(INT, "SetScrollRange", "SetScrollRange", "User32.dll" );
external(INT, "SetScrollPos", "SetScrollPos", "User32.dll" );
external(INT, "SetWindowText", "SetWindowTextA", "User32.dll" );

int b1, b2, s1, hText, hwnd;

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

win w=formatiw (hwnd);

int min=0, max=100, pos=95;
SetScrollRange(s1,2,min,max,1);
SetScrollPos(s1,2,pos,1);
Изменить_текст_и_прозрачность();

loop()sleep(1);

function Изменить_текст_и_прозрачность()
{
SetWindowText(hText, format(pos));
transparency(pos, w);
}

function getmessage(0, WM_COMMAND)
{
if (message.lparam==b1)messagebox ("Первая кнопка");
if (message.lparam==b2)messagebox ("Ворая кнопка");
}

function getmessage(0, WM_HSCROLL)
{
if (message.lparam==s1)
{

if (message.wparam==1 || message.wparam==3)//SB_LINERIGHT
{
pos=pos+10;
if (pos>max)pos=max;
SetScrollPos(s1,2,pos,1);
Изменить_текст_и_прозрачность();
return;
}
if (message.wparam==0 || message.wparam==2)//SB_LINELEFT
{
pos=pos-10;
if (pos<min)pos=min;
SetScrollPos(s1,2,pos,1);
Изменить_текст_и_прозрачность();
return;
}

///////////

if (loword(message.wparam)==5)//Зажали и двигаем
{
pos=pos-(pos-hiword(message.wparam));
if (pos>max)pos=max;
if (pos<min)pos=min;
SetScrollPos(s1,2,pos,1);
Изменить_текст_и_прозрачность();
}

}
}
//
function getmessage(0, WM_CREATE)//Создание кнопок
{
hwnd = gethwnd(0);
b1=CreateWindow(0, "BUTTON", "Первая кнопка", 1342177280, 10, 10, 120, 30, hwnd, 0, 0, 0);
b2=CreateWindow(0, "BUTTON", "Ворая кнопка", 1342177280, 10, 50, 120, 30, hwnd, 0, 0, 0);
s1=CreateWindow(0, "scrollbar", 0, 1342177280, 10, 100, 200, 20, hwnd, 0, 0, 0);
hText = CreateWindow(0, "STATIC", "",1342177280, 10, 150, 100, 15, hwnd, 0, 0, 0);
}

96. 007wan - 04 Июня, 2019 - 05:33:43 - перейти к сообщению

Zireael , Kibor , Спасибо, но где-то я уже это видел...

97. Dantes3000 - 02 Июля, 2019 - 15:13:05 - перейти к сообщению

Zireael пишет:

static2=CreateWindow(0, "STATIC", "", 16+1342177280, 20, 40, 100, 1, gethwnd(0), 0, 0, 0); // горизонтальная линия

как сделать текст такого же шрифта, как эта линия?

98. Dantes3000 - 08 Июля, 2019 - 06:38:36 - перейти к сообщению

Почему в edit кириллица отображается иероглифами? Понимаю, что кодировка не та, но как сменить?

Нажмите для увеличения

99. Zireael - 08 Июля, 2019 - 06:40:09 - перейти к сообщению

Цитата:

Почему в edit кириллица отображается иероглифами?

А откуда взят текст и как он добавлен в edit?

Цитата:

Понимаю, что кодировка не та, но как сменить?

Функции winapi WideCharToMultiByte и MultiByteToWideChar.

100. Dantes3000 - 08 Июля, 2019 - 07:16:23 - перейти к сообщению

Zireael пишет:

А откуда взят текст и как он добавлен в edit?

вводится с клавиатуры