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

31. 007wan - 22 Сентября, 2019 - 10:46:46 - перейти к сообщению

А что такое рич эдит? Просто на телефоне не запустить, но дико интересно,только щавтра смогу проверить. Цаетной контрол, класс, я так понимаю,это цветной эдит, а рич статик, рич батон , я не находил)

Это переворот в программе Кибор) когла ВСЕ контролы буду созданы и можно будет их даже в любом цвете и свете,то я сделаю некий сюрприз на форуме)

32. ivantu - 22 Сентября, 2019 - 11:19:44 - перейти к сообщению

007wan пишет:

Это переворот в программе Кибор) когла ВСЕ контролы буду созданы и можно будет их даже в любом цвете и свете,то я сделаю некий сюрприз на форуме)

К сожелению это только для текстового поля textedit если проще, я обрадовался подумал для все контролов...

33. 007wan - 22 Сентября, 2019 - 11:29:30 - перейти к сообщению

А я уже знал,что только для эдита исходя из названия(расширенное редактирование)
(Добавление)
Очень жажду тултип(подсказуи с иконками) и дерево элемеетов(ThreeCiew), но пока дерево не нужно, а то не знаю куда применить., как и не знаю для чего и куда девать прогресс бар, но было бы интересно новое посмотреть.

34. Zireael - 22 Сентября, 2019 - 16:42:40 - перейти к сообщению

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

CODE:

#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824
#define WS_BORDER 8388608

#define TTF_SUBCLASS 16
#define TTS_BALLOON 64
#define TTM_ADDTOOL 1074

#define CP_ACP 0

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

int b0, b1, edit0, edit1;
int tooltip;
char text_tooltip[99];
int TOOLINFO[11];

createdialog(0);
showdialog(0, "Dialog", 300, 300, 250, 200, 1, 1);

loop()sleep(10);

function getmessage(0, WM_CREATE)
{
b0=CreateWindow(0, "BUTTON", "Кнопка0", WS_VISIBLE | WS_BORDER | WS_CHILD, 20, 20, 80, 25, gethwnd(0), 0, 0, 0);
b1=CreateWindow(0, "BUTTON", "Кнопка1", WS_VISIBLE | WS_BORDER | WS_CHILD, 20, 65, 80, 25, gethwnd(0), 0, 0, 0);
edit0=CreateWindow(0, "EDIT", "Edit0", WS_VISIBLE | WS_BORDER | WS_CHILD, 130, 20, 70, 20, gethwnd(0), 0, 0, 0);
edit1=CreateWindow(0, "EDIT", "Edit1", WS_VISIBLE | WS_BORDER | WS_CHILD, 130, 65, 70, 20, gethwnd(0), 0, 0, 0);

tooltip=CreateWindow(0, "tooltips_class32", "", TTS_BALLOON, 0, 0, 0, 0, gethwnd(0), 0, 0, 0);

initialarray(#TOOLINFO[0], 0);
TOOLINFO[0]=44;
TOOLINFO[1]=TTF_SUBCLASS;
TOOLINFO[9]=address(#text_tooltip[0]);

// tooltip для кнопки0
TOOLINFO[2]=b0; // хендл контрола, у которого будет tooltip
TOOLINFO[6]=80; // размер котрола по X
TOOLINFO[7]=25; // размер контрола по Y
ansi_unicode("Это кнопка0", #text_tooltip[0], sizearray(text_tooltip));
sendmessage(TTM_ADDTOOL, 0, address(#TOOLINFO[0]), formatiw(tooltip));

// tooltip для кнопки1
TOOLINFO[2]=b1;
TOOLINFO[6]=80;
TOOLINFO[7]=25;
ansi_unicode("Это кнопка1", #text_tooltip[0], sizearray(text_tooltip));
sendmessage(TTM_ADDTOOL, 0, address(#TOOLINFO[0]), formatiw(tooltip));

// tooltip для эдит0
TOOLINFO[2]=edit0;
TOOLINFO[6]=70;
TOOLINFO[7]=20;
ansi_unicode("Это эдит0", #text_tooltip[0], sizearray(text_tooltip));
sendmessage(TTM_ADDTOOL, 0, address(#TOOLINFO[0]), formatiw(tooltip));

// tooltip для эдит1
TOOLINFO[2]=edit1;
TOOLINFO[6]=70;
TOOLINFO[7]=20;
ansi_unicode("Это эдит1", #text_tooltip[0], sizearray(text_tooltip));
sendmessage(TTM_ADDTOOL, 0, address(#TOOLINFO[0]), formatiw(tooltip));
}

function ansi_unicode(string S, char #cc, int size_cc)
{
int count=MultiByteToWideChar(1251, CP_ACP, S, size(S), address(#cc[0]), size_cc);
cc[count*2]=0; cc[count*2+1]=0;
}

35. 007wan - 22 Сентября, 2019 - 23:48:16 - перейти к сообщению

Zireael пишет:

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

CODE:

#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824
#define WS_BORDER 8388608

#define TTF_SUBCLASS 16
#define TTS_BALLOON 64
#define TTM_ADDTOOL 1074

#define CP_ACP 0

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

int b0, b1, edit0, edit1;
int tooltip;
char text_tooltip[99];
int TOOLINFO[11];

createdialog(0);
showdialog(0, "Dialog", 300, 300, 250, 200, 1, 1);

loop()sleep(10);

function getmessage(0, WM_CREATE)
{
b0=CreateWindow(0, "BUTTON", "Кнопка0", WS_VISIBLE | WS_BORDER | WS_CHILD, 20, 20, 80, 25, gethwnd(0), 0, 0, 0);
b1=CreateWindow(0, "BUTTON", "Кнопка1", WS_VISIBLE | WS_BORDER | WS_CHILD, 20, 65, 80, 25, gethwnd(0), 0, 0, 0);
edit0=CreateWindow(0, "EDIT", "Edit0", WS_VISIBLE | WS_BORDER | WS_CHILD, 130, 20, 70, 20, gethwnd(0), 0, 0, 0);
edit1=CreateWindow(0, "EDIT", "Edit1", WS_VISIBLE | WS_BORDER | WS_CHILD, 130, 65, 70, 20, gethwnd(0), 0, 0, 0);

tooltip=CreateWindow(0, "tooltips_class32", "", TTS_BALLOON, 0, 0, 0, 0, gethwnd(0), 0, 0, 0);

initialarray(#TOOLINFO[0], 0);
TOOLINFO[0]=44;
TOOLINFO[1]=TTF_SUBCLASS;
TOOLINFO[9]=address(#text_tooltip[0]);

// tooltip для кнопки0
TOOLINFO[2]=b0; // хендл контрола, у которого будет tooltip
TOOLINFO[6]=80; // размер котрола по X
TOOLINFO[7]=25; // размер контрола по Y
ansi_unicode("Это кнопка0", #text_tooltip[0], sizearray(text_tooltip));
sendmessage(TTM_ADDTOOL, 0, address(#TOOLINFO[0]), formatiw(tooltip));

// tooltip для кнопки1
TOOLINFO[2]=b1;
TOOLINFO[6]=80;
TOOLINFO[7]=25;
ansi_unicode("Это кнопка1", #text_tooltip[0], sizearray(text_tooltip));
sendmessage(TTM_ADDTOOL, 0, address(#TOOLINFO[0]), formatiw(tooltip));

// tooltip для эдит0
TOOLINFO[2]=edit0;
TOOLINFO[6]=70;
TOOLINFO[7]=20;
ansi_unicode("Это эдит0", #text_tooltip[0], sizearray(text_tooltip));
sendmessage(TTM_ADDTOOL, 0, address(#TOOLINFO[0]), formatiw(tooltip));

// tooltip для эдит1
TOOLINFO[2]=edit1;
TOOLINFO[6]=70;
TOOLINFO[7]=20;
ansi_unicode("Это эдит1", #text_tooltip[0], sizearray(text_tooltip));
sendmessage(TTM_ADDTOOL, 0, address(#TOOLINFO[0]), formatiw(tooltip));
}

function ansi_unicode(string S, char #cc, int size_cc)
{
int count=MultiByteToWideChar(1251, CP_ACP, S, size(S), address(#cc[0]), size_cc);
cc[count*2]=0; cc[count*2+1]=0;
}

О, да. Спасибо !!!!! Лучший. Молодец))) Слушай, а там с иконкой? Просто пока проверить только вечером смогц, но констань я не вижу иконок. Хотелось бы,что бы было с иконками такими,как у MessageBox.

36. Zireael - 23 Сентября, 2019 - 04:14:08 - перейти к сообщению

Цитата:

с иконками

Добавить:

CODE:

#define TTI_INFO 1
#define TTM_SETTITLE 1057

ansi_unicode("Заголовок", #text_tooltip[0], sizearray(text_tooltip));
sendmessage(TTM_SETTITLE, TTI_INFO, address(#text_tooltip[0]), formatiw(tooltip));

Если нужны прямоугольные подсказки, то убрать стиль TTS_BALLOON.

37. 007wan - 23 Сентября, 2019 - 04:28:55 - перейти к сообщению

Цветной ListView, Rich Edit, ToolTip - шикарно. Спасибо.

38. ivantu - 23 Сентября, 2019 - 04:32:06 - перейти к сообщению

007wan пишет:

Цветной ListView, Rich Edit, ToolTip - шикарно. Спасибо.

Статик бы ещё победить, была бы бомба

39. 007wan - 23 Сентября, 2019 - 04:48:54 - перейти к сообщению

ivantu пишет:

Статик бы ещё победить, была бы бомба

Знаешь я бы хотел бы цветной статик, Кнопку, что бы не рисовать).
(Добавление)
Zireael , Можно все константы ToolTip(все иконки)? Просто это походу новое и не находится.
(Добавление)
А еще такой вопрос: В ListView можно указать цвет текста и фон строки для конкретной строчки, а не длля всех?

40. ivantu - 23 Сентября, 2019 - 06:05:31 - перейти к сообщению

007wan пишет:

Можно все константы ToolTip(все иконки)? Просто это походу новое и не находится.

CODE:

#define TTI_INFO 1

#define TTI_WARNING 2

#define TTI_ERROR 3

там еще размеры иконок есть но я не разобрался...