external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "SetWindowPos", "SetWindowPos", "User32.dll");
external(INT, "GetWindowLong", "GetWindowLongA", "User32.dll");
external(INT, "SendMessage", "SendMessageA", "User32.dll");

//#definefile "C:\Users\Home\Desktop\ÌΨ\Kibor\Constants.txt";


#define TTS_ALWAYSTIP 1
#define TTS_BALLOON 64
#define TTS_CLOSE 128
#define TTS_NOANIMATE 16
#define TTS_NOFADE 32
#define TTS_NOPREFIX 2
#define TTS_USEVISUALSTYLE 256
#define TTM_ADDTOOL 1028
#define TTF_SUBCLASS 16
#define WS_POPUP 2147483648

win MainWindow;
int Histance;
int Object_Tooltip1;
int Mouse_x, Mouse_y;

int TOOLINFO[5] = {cbSize, gethwnd(0), TTF_IDISHWND | TTF_SUBCLASS, (UINT_PTR)hwndTool, "Òåêñò"};

createdialog(0);
showdialog(0, "диалог", 450, 400, 700, 400, 4, 1);

setwindowparam(MainWindow);

function getmessage(0, WM_CREATE)
{
Histance = GetWindowLong(gethwnd(0), GWL_HINSTANCE);
Object_Tooltip1 = CreateWindow(0, "Tooltip", "123123", WS_POPUP | TTS_NOPREFIX | TTS_ALWAYSTIP | TTS_USEVISUALSTYLE, 140, 10, 250, 20, gethwnd(0), 0, Histance, 0);

//SendMessage(TTM_ACTIVATE, 1);
SendMessage(Object_Tooltip1, TTM_ADDTOOL, 0, address(#TOOLINFO[0]));
}

loop()
{
getmouse(Mouse_x, Mouse_y);
SetWindowPos(Object_Tooltip1, HWND_TOPMOST, Mouse_x, Mouse_y, 0, 0, SWP_NOSIZE | SWP_NOACTIVATE);
sleep(10);
}

int pos[2] = {loword(0), hiword(100)};

int Object_Progressbar1 = CreateWindow(0, "msctls_progress32", 0, WS_CHILD | WS_VISIBLE, 150, 140, 100, 20, gethwnd(1), 0, 0, 0);

//SendMessage(Object_Progressbar1, PBM_SETRANGE, 0, address(#pos[0]));
SendMessage(Object_Progressbar1, PBM_SETRANGE, loword(0), hiword(100));
SendMessage(Object_Progressbar1, PBM_SETPOS, 50, 0);

int pos[2] = {loword(0), hiword(100)};

int Object_Progressbar1 = CreateWindow(0, "msctls_progress32", 0, WS_CHILD | WS_VISIBLE, 150, 140, 100, 20, gethwnd(1), 0, 0, 0);
SetScrollRange(Object_Progressbar1,2,0,100,1);
SetScrollPos(Object_Progressbar1,2,50,1);