#define WS_VISIBLE 0x10000000
#define WS_CHILD 0x40000000
#define WS_BORDER 0x00800000
#define BS_MULTILINE 0x00002000
#define ES_MULTILINE 0x0004
#define ES_WANTRETURN 0x1000
#define ES_AUTOVSCROLL 0x0040
#define ES_AUTOHSCROLL 0x0080
#define BS_AUTOCHECKBOX 0x00000003
#define BS_AUTORADIOBUTTON 0x00000009
#define BM_SETCHECK 0x00F1
#define BST_UNCHECKED 0x0000
#define BST_CHECKED 0x0001
#define LB_ADDSTRING 0x0180
#define LB_GETCURSEL 0x0188
#define LB_SETCURSEL 0x0186
#define LBS_NOTIFY 0x0001
#define CBS_DROPDOWNLIST 0x0003
#define CB_ADDSTRING 0x0143
#define CB_GETCURSEL 0x0147
#define CB_SETCURSEL 0x014E
#define TRUE 1
#define WM_SETFONT 0x0030
#define RUSSIAN_CHARSET 204

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "GetWindowText", "GetWindowTextA", "User32.dll");
external(INT, "SetWindowText", "SetWindowTextA", "User32.dll");
external(INT, "CreateFont", "CreateFontA", "Gdi32.dll");
external(INT, "GetWindowRect", "GetWindowRect", "User32.dll");
external(INT, "DeleteObject", "DeleteObject", "Gdi32.dll");
external(INT, "DeleteFile", "DeleteFileA", "kernel32.dll");
int h_font;
string rn = formatic(13)+formatic(10);
int dialogPosX_0 = 459, dialogPosY_0 = 177;
int button0[1];
int flag_button0[1] = { 0 };

int edit0[1];
string text_edit0[1];
text_edit0[0] = "Edit0";
int check0[1];
int flag_check0[1] = { 0 };

int listbox0[1];
int flag_listbox0[1] = { 0 };
string text_listbox0[1][1];
int count_rows_listbox0[1] = { 0 };


int combobox0[1];
int flag_combobox0[1] = { 0 };
string text_combobox0[1][4];
int count_rows_combobox0[1] = { 4 };
text_combobox0[0][0] = "0"; text_combobox0[0][1] = "1"; text_combobox0[0][2] = "2"; text_combobox0[0][3] = "3";

createdialog(0);
showdialog(0, "Диалог0", dialogPosX_0, dialogPosY_0, 198, 130, 4, 1);

loop()
{
// тут нужный код
sleep(10);
}
end_0:;

function getmessage(0, WM_CREATE)
{
int i;
int j;
char c_text_listbox[999];
char c_text_combobox[999];
h_font = CreateFont(-12, 0, 0, 0, 400, 0, 0, 0, RUSSIAN_CHARSET, 0, 0, 0, 0, "Arial");
button0[0] = CreateWindow(0, "BUTTON", "Button0", WS_VISIBLE | WS_CHILD, 108, 4, 80, 20, gethwnd(0), 0, 0, 0);
edit0[0] = CreateWindow(0, "EDIT", text_edit0[0], WS_VISIBLE | WS_CHILD | WS_BORDER, 108, 52, 80, 20, gethwnd(0), 0, 0, 0);
check0[0] = CreateWindow(0, "BUTTON", "Check0", BS_AUTOCHECKBOX | WS_VISIBLE | WS_CHILD, 108, 28, 80, 20, gethwnd(0), 0, 0, 0);
listbox0[0] = CreateWindow(0, "LISTBOX", "", WS_VISIBLE | WS_CHILD | WS_BORDER | LBS_NOTIFY, 4, 4, 100, 94, gethwnd(0), 0, 0, 0);
combobox0[0] = CreateWindow(0, "COMBOBOX", "", WS_VISIBLE | WS_CHILD | WS_BORDER | CBS_DROPDOWNLIST, 108, 76, 80, 91, gethwnd(0), 0, 0, 0);
for(i=0; i<1; i++)sendmessage(BM_SETCHECK, flag_check0[i], 0, formatiw(check0[i]));
for(i=0; i<1; i++)
{
for(j=0; j<count_rows_listbox0[i]; j++)
{
strcpy(#c_text_listbox[0], text_listbox0[i][j]);
sendmessage(LB_ADDSTRING, 0, address(#c_text_listbox[0]), formatiw(listbox0[i]));
}
}
for(i=0; i<1; i++)sendmessage(LB_SETCURSEL, flag_listbox0[i], 0, formatiw(listbox0[i]));
for(i=0; i<1; i++)
{
for(j=0; j<count_rows_combobox0[i]; j++)
{
strcpy(#c_text_combobox[0], text_combobox0[i][j]);
sendmessage(CB_ADDSTRING, 0, address(#c_text_combobox[0]), formatiw(combobox0[i]));
}
}
for(i=0; i<1; i++)sendmessage(CB_SETCURSEL, flag_combobox0[i], 0, formatiw(combobox0[i]));
for(i=0; i<1; i++)sendmessage(WM_SETFONT, h_font, TRUE, formatiw(button0[i]));
for(i=0; i<1; i++)sendmessage(WM_SETFONT, h_font, TRUE, formatiw(edit0[i]));
for(i=0; i<1; i++)sendmessage(WM_SETFONT, h_font, TRUE, formatiw(check0[i]));
for(i=0; i<1; i++)sendmessage(WM_SETFONT, h_font, TRUE, formatiw(listbox0[i]));
for(i=0; i<1; i++)sendmessage(WM_SETFONT, h_font, TRUE, formatiw(combobox0[i]));
}

function getmessage(0, WM_COMMAND)
{
int i;
char c_text_edit[999];
for(i=0; i<1; i++) // обработка нажатий кнопок
{
if(message.lparam == button0[i])
{
if(flag_button0[i])flag_button0[i] = 0;
else flag_button0[i] = 1;
return;
}
}
for(i=0; i<1; i++) // обработка нажатий edit
{
if(message.lparam == edit0[i])
{
GetWindowText(edit0[i], address(#c_text_edit[0]), sizearray(c_text_edit));
text_edit0[i] = format(#c_text_edit[0]);
return;
}
}
for(i=0; i<1; i++) // обработка нажатий галок
{
if(message.lparam == check0[i])
{
if(flag_check0[i])flag_check0[i] = 0;
else flag_check0[i] = 1;
return;
}
}
for(i=0; i<1; i++) // обработка нажатий на список listbox
{
if(message.lparam == listbox0[i])
{
flag_listbox0[i] = sendmessage(LB_GETCURSEL, 0, 0, formatiw(listbox0[i]));
return;
}
}
for(i=0; i<1; i++) // обработка нажатий на список combobox
{
if(message.lparam == combobox0[i])
{
flag_combobox0[i] = sendmessage(CB_GETCURSEL, 0, 0, formatiw(combobox0[i]));
return;
}
}
}

function getmessage(0, WM_CLOSE)
{
DeleteObject(h_font);
goto global end_0; // переход в метке
// close(); // закрыть кибор
}