Эксперт
Покинул форум
Сообщений всего: 4465
Дата рег-ции: Нояб. 2017
Репутация: 585
|
Пример (Отобразить)CODE:#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "SetWindowText", "SetWindowTextA", "User32.dll");
int b0, b1;
int flag_pause_script=0;
createdialog(0);
showdialog(0, "Диалог", 500, 300, 300, 300, 1, 1);
int x=0;
loop()
{
textout(0, 500, 250, format(x), 0); x++;
sleep(10);
}
function pause_script()
{
SetWindowText(b1, "Продолжить");
while(flag_pause_script)sleep(10);
SetWindowText(b1, "Пауза");
}
function getmessage(0, WM_CREATE)
{
b0=CreateWindow(0, "BUTTON", "Кнопка", WS_CHILD | WS_VISIBLE , 20, 10, 70, 25, gethwnd(0), 0, 0, 0);
b1=CreateWindow(0, "BUTTON", "Пауза", WS_CHILD | WS_VISIBLE , 20, 40, 100, 25, gethwnd(0), 0, 0, 0);
}
function getmessage(0, WM_COMMAND)
{
if(message.lparam==b0)
{
messagebox("Нажата кнопка");
return;
}
if(message.lparam==b1)
{
if(flag_pause_script)flag_pause_script=0;
else
{
flag_pause_script=1;
pause_script();
}
}
} |