вопрос по external и др - 5

#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824
#define TCS_HOTTRACK 64
#define TCIF_TEXT 1
#define TCM_INSERTITEMA 4871
#define TCM_GETITEMA 4869
#define TCM_SETITEMA 4870
#define TCM_GETITEMRECT 4874
#define TCM_GETITEMCOUNT 4868


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

int tab;
char text[99];
int TCITEMA[7]={TCIF_TEXT, 0, 0, address(#text[0]), sizearray(text), 0, 0}


createdialog(0);
showdialog(0, "Dialog", 100, 100, 400, 300, 1, 1);

messagebox("Через 2 секунды узнаем текст второй вкладки");
pause(2000);
sendmessage(TCM_GETITEMA, 1, address(#TCITEMA[0]), formatiw(tab)); // текст второй вкладки
messagebox("Текст второй вкладки: "+format(#text[0]));

strcpy(#text[0], "Новый текст");
sendmessage(TCM_SETITEMA, 1, address(#TCITEMA[0]), formatiw(tab)); // изменить текст второй вкладки
messagebox("Текст вкладки изменён");


int rect[4];
sendmessage(TCM_GETITEMRECT, 1, address(#rect[0]), formatiw(tab)); // координаты второй вкладки относительно таба
messagebox("Координаты вкладки относительно таба: "+format(rect[0])+" "+
format(rect[1])+" "+format(rect[2])+" "+format(rect[3]));
messagebox("Ширина вкладки: "+format(rect[2]-rect[0])+formatic(13)+formatic(10)+"Высота вкладки: "+format(rect[3]-rect[1]));

int count_item=sendmessage(TCM_GETITEMCOUNT, 0, 0, formatiw(tab));
sendmessage(TCM_GETITEMRECT, count_item-1, address(#rect[0]), formatiw(tab));
messagebox("Конечная коорданата X последней вкладки относительно таба: "+format(rect[2]));
messagebox("Конечная коорданата X последней вкладки относительно окна: "+format(rect[2]+50)); // 50 это начальная координата X таба на диалоге

loop()sleep(10);


function getmessage(0, WM_CREATE)
{
tab=CreateWindow(0, "SysTabControl32", "", TCS_HOTTRACK | WS_VISIBLE | WS_CHILD, 50, 30, 300, 150, gethwnd(0), 0, 0, 0);
strcpy(#text[0], "Вкладка1");
sendmessage(TCM_INSERTITEMA, 0, address(#TCITEMA[0]), formatiw(tab));
strcpy(#text[0], "Вкладка2");
sendmessage(TCM_INSERTITEMA, 1, address(#TCITEMA[0]), formatiw(tab));
strcpy(#text[0], "Вкладка3");
sendmessage(TCM_INSERTITEMA, 2, address(#TCITEMA[0]), formatiw(tab));
}