Версия 5.50 Получение и обработка сообщений в немодальных окнах Кибор - 2

#define WS_CHILD 1073741824
#define WS_VISIBLE 268435456
#define WS_BORDER 8388608
#define ES_AUTOHSCROLL 128
#define ES_AUTOVSCROLL 64
#define ES_MULTILINE 4
#define ES_WANTRETURN 4096
#define WS_VSCROLL 2097152
#define WS_HSCROLL 1048576
#define EM_GETLINECOUNT 0x00BA
#define EM_LINESCROLL 0x00B6
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "GetWindowText", "GetWindowTextA", "User32.dll");
external(INT, "SetWindowText", "SetWindowTextA", "User32.dll");
external(INT, "GetWindowTextLength", "GetWindowTextLengthA", "User32.dll");


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


loop()
{
settext(edit, "string1"); // добавить текст в Edit
sleep(500);
settext(edit, "string2"); // добавить текст в Edit
sleep(500);
settext(edit, "str3");
sleep(500);
}



function getmessage(0, WM_CREATE)
{
edit=CreateWindow(0, "EDIT", "", WS_VISIBLE | WS_CHILD | WS_BORDER | WS_VSCROLL | WS_HSCROLL |
ES_AUTOHSCROLL | ES_AUTOVSCROLL | ES_MULTILINE | ES_WANTRETURN, 10, 10, 150, 120, gethwnd(0), 0, 0, 0);
}

function settext(int handle, string text)
{
char edit_text[99999];
int count_symbol = GetWindowTextLength(handle); // узнать сколько символов в edit
if(count_symbol+size(text)>=sizearray(edit_text))SetWindowText(handle, ""); // если больше чем буфер, удалить весь текст

if(GetWindowText(handle, address(#edit_text[0]), sizearray(edit_text)))
SetWindowText(handle, format(#edit_text[0])+"^r^n"+text);
else SetWindowText(handle, text);

int count = sendmessage(EM_GETLINECOUNT, 0, 0, formatiw(handle)); // узнать сколько строк в edit
sendmessage(EM_LINESCROLL, 0, count, formatiw(handle)); // скролл до последней строки
}