Редактор диалогов

#define WS_VISIBLE 0x10000000
#define WS_CHILD 0x40000000
#define WS_BORDER 0x00800000

#define LB_ADDSTRING 0x0180
#define LB_INSERTSTRING 0x0181
#define LB_DELETESTRING 0x0182
#define LB_GETCURSEL 0x0188
#define LB_SETCURSEL 0x0186
#define LB_GETCOUNT 0x018B
#define LBS_NOTIFY 0x0001


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

int button0[2];
int edit0;
int listbox0;
int flag_listbox0 = 0;

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


loop()
{
sleep(10);
}



function getmessage(0, WM_CREATE)
{
edit0 = CreateWindow(0, "EDIT", "Текст", WS_BORDER | WS_VISIBLE | WS_CHILD, 150, 10, 130, 20, gethwnd(0), 0, 0, 0);
button0[0] = CreateWindow(0, "BUTTON", "Добавить пункт", WS_VISIBLE | WS_CHILD, 150, 40, 130, 24, gethwnd(0), 0, 0, 0);
button0[1] = CreateWindow(0, "BUTTON", "Удалить пункт", WS_VISIBLE | WS_CHILD, 150, 70, 130, 24, gethwnd(0), 0, 0, 0);

char c_listbox[999];
listbox0=CreateWindow(0, "LISTBOX", "", WS_BORDER | WS_CHILD | WS_VISIBLE | LBS_NOTIFY, 10, 10, 130, 250, gethwnd(0), 0, 0, 0);

strcpy(#c_listbox[0], "Пункт1");
sendmessage(LB_ADDSTRING, 0, address(#c_listbox[0]), formatiw(listbox0));
strcpy(#c_listbox[0], "Пункт2");
sendmessage(LB_ADDSTRING, 0, address(#c_listbox[0]), formatiw(listbox0));
strcpy(#c_listbox[0], "Пункт3");
sendmessage(LB_ADDSTRING, 0, address(#c_listbox[0]), formatiw(listbox0));

sendmessage(LB_SETCURSEL, flag_listbox0, 0, formatiw(listbox0));
}


function getmessage(0, WM_COMMAND)
{
int count_string;
char text_edit[999];
if(message.lparam == listbox0)
{
flag_listbox0 = sendmessage(LB_GETCURSEL, 0, 0, formatiw(listbox0));
return;
}

if(message.lparam == button0[0])
{
if(GetWindowText(edit0, address(#text_edit[0]), 999))
{
sendmessage(LB_ADDSTRING, 0, address(#text_edit[0]), formatiw(listbox0));
}
return;
}

if(message.lparam == button0[1])
{
sendmessage(LB_DELETESTRING, flag_listbox0, 0, formatiw(listbox0));
count_string=sendmessage(LB_GETCOUNT, 0, 0, formatiw(listbox0));
if(count_string<=flag_listbox0)flag_listbox0 = count_string-1;
sendmessage(LB_SETCURSEL, flag_listbox0, 0, formatiw(listbox0));
return;
}
}