#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824
#define WS_BORDER 8388608
#define PS_SOLID 0
#define PS_NULL 5
#define SRCCOPY 13369376
#define TRANSPARENT 1
#define DT_CENTER 1
#define RUSSIAN_CHARSET 204

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "GetDC", "GetDC", "User32.dll");
external(INT, "CreatePen", "CreatePen", "Gdi32.dll");
external(INT, "CreateSolidBrush", "CreateSolidBrush", "Gdi32.dll");
external(INT, "SelectObject", "SelectObject", "Gdi32.dll");
external(INT, "RoundRect", "RoundRect", "Gdi32.dll");
external(INT, "Rectangle", "Rectangle", "Gdi32.dll");
external(INT, "PtInRect", "PtInRect", "User32.dll");
external(INT, "BitBlt", "BitBlt", "Gdi32.dll");
external(INT, "CreateCompatibleDC", "CreateCompatibleDC", "Gdi32.dll");
external(INT, "CreateCompatibleBitmap", "CreateCompatibleBitmap", "Gdi32.dll");
external(INT, "DrawText", "DrawTextA", "User32.dll");
external(INT, "SetTextColor", "SetTextColor", "Gdi32.dll");
external(INT, "SetBkMode", "SetBkMode", "Gdi32.dll");
external(INT, "CreateFont", "CreateFontA", "Gdi32.dll" );


int h_font, old_font; // шрифт
int mouseX, mouse_Y; // координаты мыши
int hdc, hdc_mem, hdc_bitmap;
int pen, brush1, brush2, brush_fon, old_pen, old_brush;

pen=CreatePen(PS_NULL, 0, 0);
brush_fon=CreateSolidBrush(16769446); // цвет фона
brush1=CreateSolidBrush(16017042); // фон таба и активной вкладки
brush2=CreateSolidBrush(255); // цвет неактивной вкладки

int current_tab=1; // текущая вкладка
int rect_tab[3][4]; // 3 вкладки
rect_tab[0][0]=20; rect_tab[0][1]=10; rect_tab[0][2]=100; rect_tab[0][3]=40;
rect_tab[1][0]=105; rect_tab[1][1]=10; rect_tab[1][2]=185; rect_tab[1][3]=40;
rect_tab[2][0]=190; rect_tab[2][1]=10; rect_tab[2][2]=270; rect_tab[2][3]=40;

string text_tab[3]={"Вкладка1", "Вкладка2", "Вкладка3"} // текст вкладок

// размер изображения
int image_width=400;
int image_height=300;


createdialog(0);
showdialog(0, "Dialog", 200, 200, 600, 500, 1, 1);

enabletimer(0);
loop()sleep(10);



function getmessage(0, WM_CREATE)
{
hdc=GetDC(gethwnd(0));
hdc_mem=CreateCompatibleDC(hdc);
hdc_bitmap=CreateCompatibleBitmap(hdc, image_width, image_height);
SelectObject(hdc_mem, hdc_bitmap);

SetBkMode(hdc_mem, TRANSPARENT);
h_font = CreateFont(-14, 0, 0, 0, 500, 0, 0, 0, RUSSIAN_CHARSET, 0, 0, 0, 0, "Comic Sans MS"); // создать шрифт
}

function getmessage(0, WM_MOVE)
{
pause(100);
}

CREATE_TIMER(0, 30)
{
if(getkeystate(1))
{
while(getkeystate(1))sleep(10);
for(int tab_=0; tab_<sizearray(rect_tab); tab_++)
{
getmouse(mouseX, mouse_Y, formatiw(gethwnd(0)));
if(PtInRect(address(#rect_tab[tab_][0]), mouseX, mouse_Y)){current_tab=tab_; break;}
}
}
paint();
}

function paint()
{
old_pen=SelectObject(hdc_mem, pen);

// фон
old_brush=SelectObject(hdc_mem, brush_fon);
Rectangle(hdc_mem, 0, 0, image_width+1, image_height+1);
SelectObject(hdc_mem, old_brush);


// вкладки
for(int i=0; i<sizearray(rect_tab); i++)
{
if(i==current_tab)old_brush=SelectObject(hdc_mem, brush1); // если активная вкладка выбрать эту кисть
else old_brush=SelectObject(hdc_mem, brush2); // иначе эту
RoundRect(hdc_mem, rect_tab[i][0], rect_tab[i][1], rect_tab[i][2], rect_tab[i][3], 10, 10);
SelectObject(hdc_mem, old_brush);

SetTextColor(hdc_mem, 65279); // цвет текста
//TextOut(hdc_mem, rect_tab[i][0]+5, rect_tab[i][1]+3, text_tab[i], size(text_tab[i]));

old_font=SelectObject(hdc_mem, h_font);
DrawText(hdc_mem, text_tab[i], size(text_tab[i]), address(#rect_tab[i][0]), DT_CENTER);
SelectObject(hdc_mem, old_font);
}

// таб
old_brush=SelectObject(hdc_mem, brush1);
RoundRect(hdc_mem, 5, 30, 350, 250, 10, 10);
SelectObject(hdc_mem, old_brush);

SelectObject(hdc_mem, old_pen);

BitBlt(hdc, 0, 0, image_width, image_height, hdc_mem, 0, 0, SRCCOPY); // вывод на диалог
}