Кибор :: Версия для печати :: вопрос по external и др

1. Kibor - 28 Октября, 2019 - 10:07:48 - перейти к сообщению

Продолжение темы "вопрос по external и др - 4".

2. 007wan - 28 Октября, 2019 - 10:08:03 - перейти к сообщению

Такя его удалил(

3. 007wan - 29 Октября, 2019 - 22:00:38 - перейти к сообщению

Как обрабатывать wm setcutsor lparam для своих областей, а не контроллов, например, может нужно в lparam == address(#rect) , а rect будет содержать координаты?

А если я хочу, что бы менялся курсор в окружности иди треугольнике?

4. Budni - 30 Октября, 2019 - 01:34:56 - перейти к сообщению

Как сделать так чтобы после нажатия на одну из цифр срабатывал код из функции? И прирывался если выберется другая функция? В этом Диалоговом окне?

Д.Окно (Отобразить)

CODE:

#define WS_CHILD 1073741824
#define WS_VISIBLE 268435456
#define WS_BORDER 8388608
#define LB_ADDSTRING 384
#define LB_SETCURSEL 390
#define WS_VSCROLL 2097152
#define LB_DELETESTRING 386
#define LB_GETCURSEL 392
#define LBS_NOTIFY 1
#define SS_NOTIFY 256
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );

int static;
int list;
int current_item=0;

createdialog(0);
showdialog(0, "Скрипты",300, 300, 380, 215, 1, 1);

for (int h=0; h<10; h++){
add_list(format(h));
}

loop()sleep(10);

function getmessage(0, WM_CREATE)
{
list=CreateWindow(0, "LISTBOX", "", LBS_NOTIFY | WS_BORDER | WS_CHILD | WS_VISIBLE | WS_VSCROLL, 10, 10, 15, 170, gethwnd(0), 0, 0, 0);
static=CreateWindow(0, "STATIC", " - скрипт для много текста для описания скрипта", SS_NOTIFY | WS_CHILD | WS_VISIBLE, 25, 12, 400, 18, gethwnd(0), 0, 0, 0);
static=CreateWindow(0, "STATIC", " - скрипт для много текста для описания скрипта", SS_NOTIFY | WS_CHILD | WS_VISIBLE, 25, 26, 400, 18, gethwnd(0), 0, 0, 0);
static=CreateWindow(0, "STATIC", " - скрипт для много текста для описания скрипта", SS_NOTIFY | WS_CHILD | WS_VISIBLE, 25, 42, 400, 18, gethwnd(0), 0, 0, 0);
static=CreateWindow(0, "STATIC", " - скрипт для много текста для описания скрипта", SS_NOTIFY | WS_CHILD | WS_VISIBLE, 25, 58, 400, 18, gethwnd(0), 0, 0, 0);
static=CreateWindow(0, "STATIC", " - скрипт для много текста для описания скрипта", SS_NOTIFY | WS_CHILD | WS_VISIBLE, 25, 74, 400, 18, gethwnd(0), 0, 0, 0);
static=CreateWindow(0, "STATIC", " - скрипт для много текста для описания скрипта", SS_NOTIFY | WS_CHILD | WS_VISIBLE, 25, 90, 400, 18, gethwnd(0), 0, 0, 0);
static=CreateWindow(0, "STATIC", " - скрипт для много текста для описания скрипта", SS_NOTIFY | WS_CHILD | WS_VISIBLE, 25, 106, 400, 18, gethwnd(0), 0, 0, 0);
static=CreateWindow(0, "STATIC", " - скрипт для много текста для описания скрипта", SS_NOTIFY | WS_CHILD | WS_VISIBLE, 25, 122, 400, 18, gethwnd(0), 0, 0, 0);
static=CreateWindow(0, "STATIC", " - скрипт для много текста для описания скрипта", SS_NOTIFY | WS_CHILD | WS_VISIBLE, 25, 138, 400, 18, gethwnd(0), 0, 0, 0);
static=CreateWindow(0, "STATIC", " - скрипт для много текста для описания скрипта", SS_NOTIFY | WS_CHILD | WS_VISIBLE, 25, 154, 400, 18, gethwnd(0), 0, 0, 0);

}

function add_list(string s)
{
new char c[size(s)+1];
strcpy(#c[0], s);
sendmessage(LB_ADDSTRING, 0, address(#c[0]), formatiw(list));
delete c;
}

function getmessage(0, WM_COMMAND)
{
if(message.lparam==list)
{

current_item=sendmessage(LB_GETCURSEL, 0, 0, formatiw(list));
textout(0, 350, 350, "Выбран пункт: "+format(current_item), 1);

}
}

function 0p(){

}

function 1p(){

}

function 2p(){

}

function 3p(){

}

function 4p(){

}

function 5p(){

}

function 6p(){

}

function 7p(){

}

function 8p(){

}

function 9p(){

}

5. Zireael - 30 Октября, 2019 - 03:09:27 - перейти к сообщению

Цитата:

Как сделать так чтобы после нажатия на одну из цифр срабатывал код из функции?

Добавить вызовы функций:

CODE:

current_item=sendmessage(LB_GETCURSEL, 0, 0, formatiw(list));
textout(0, 350, 150, "Выбран пункт: "+format(current_item), 1);

if(current_item==0){0p(); return;} // если выбрана строка 0
if(current_item==1){1p(); return;} // если выбрана строка 1
// тоже самое для остальных

(Добавление)

Цитата:

что бы менялся курсор в окружности

code (Отобразить)

6. 007wan - 30 Октября, 2019 - 08:47:29 - перейти к сообщению

Zireael пишет:

что бы менялся курсор в окружности

Вау, спс
(Добавление)
А можно тоже самое:

1) с треугольником
2)прямоугольком с закругленными краями
3)любой сложной фигуры из линией, не считающей геометрической фигурой(краказябру какую-нибуд сложную, а при наведении на нее меняется цвет

7. 007wan - 30 Октября, 2019 - 23:56:54 - перейти к сообщению

Можно ли создать кастомный контрол? Как в С++
(Добавление)
Что бы можно было вывлдить текс на нешо и картинку и что бы не моргал

8. 007wan - 01 Ноября, 2019 - 12:25:20 - перейти к сообщению

----
Как сделать,что бы возвращал какая винда стоит?

9. Zireael - 01 Ноября, 2019 - 19:02:54 - перейти к сообщению

Цитата:

Как сделать,что бы возвращал какая винда стоит?

CODE:

#define SW_HIDE 0
external(INT, "ShellExecute", "ShellExecuteA", "Shell32.dll");

string s, os_name;

writeclipboard ("");
ShellExecute(0, "open", "C:\WINDOWS\system32\cmd.exe", "/c chcp 65001 && systeminfo | clip", "", SW_HIDE);
looptime(10000)
{
readclipboard (s);
if(regexsearch(1, #os_name, s, "OS Name")) // пока в буфере не появится имя ОС
{
// messagebox(s); // содержимое буфера
if(regexreplace(1, #os_name, s, "(.*?OS Name.*?)(Windows[^\r\n]+)(.*)", "$2", SINGLELINE)){messagebox(os_name); break;}
}
sleep(300);
}

10. 007wan - 02 Ноября, 2019 - 01:00:16 - перейти к сообщению

Спасиб!
(Добавление)
Как нарисовать RoundRectangle понятно, но как нарисовать рамку на нем без нижней границы?