Кибор :: Версия для печати :: Как сделать растягивающийся диалог?

1. neba2101 - 25 Февраля, 2024 - 15:12:37 - перейти к сообщению

Как сделать растягивающийся диалог? Что бы при наведении на край или угол диалога можно было изменить его размер. И как подстроить изменение размера диалога к некоторым контролам (EDIT и LISTBOX) чтобы они тоже меняли размер при изменении размера диалога? Спасибо!

2. Zireael - 25 Февраля, 2024 - 15:42:35 - перейти к сообщению

CODE:

#define GWL_STYLE -16
#define WS_VISIBLE 0x10000000
#define WS_OVERLAPPEDWINDOW 0xCF0000
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "SetWindowLong", "SetWindowLongA", "User32.dll");

createdialog(0);
showdialog(0, "Диалог", 300, 300, 500, 400, 1, 1);
SetWindowLong(gethwnd(0), GWL_STYLE, WS_VISIBLE | WS_OVERLAPPEDWINDOW);

loop()sleep(10);

function getmessage(0, WM_SIZE)
{
// тут нужные действия с контролами
int Width = loword(message.lparam);
int Height = hiword(message.lparam);
textout(0, 200, 100, "Ширина окна: "+format(Width)+" Высота окна: "+format(Height), 0);
}

3. neba2101 - 26 Февраля, 2024 - 05:43:28 - перейти к сообщению

А как изменить размер EDIT или LISTBOX?

4. Zireael - 26 Февраля, 2024 - 05:49:29 - перейти к сообщению

CODE:

#define GWL_STYLE -16
#define WS_VISIBLE 0x10000000
#define WS_CHILD 0x40000000
#define WS_BORDER 0x00800000
#define WS_OVERLAPPEDWINDOW 0xCF0000
#define TRUE 1
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "SetWindowLong", "SetWindowLongA", "User32.dll");
external(INT, "MoveWindow", "MoveWindow", "User32.dll");

int edit0;

createdialog(0);
showdialog(0, "Диалог", 300, 300, 500, 400, 1, 1);
SetWindowLong(gethwnd(0), GWL_STYLE, WS_VISIBLE | WS_OVERLAPPEDWINDOW);

loop()sleep(10);

function getmessage(0, WM_CREATE)
{
edit0=CreateWindow(0, "EDIT", "", WS_VISIBLE | WS_CHILD | WS_BORDER, 10, 10, 50, 20, gethwnd(0), 0, 0, 0);
}

function getmessage(0, WM_SIZE)
{
// тут нужные действия с контролами
int Width = loword(message.lparam);
int Height = hiword(message.lparam);
textout(0, 200, 100, "Ширина окна: "+format(Width)+" Высота окна: "+format(Height), 0);

MoveWindow(edit0, 10, 10, Width - 20, 20, TRUE);
}