007wan |
Отправлено: 22 Сентября, 2019 - 18:46:46
|
Эксперт
Покинул форум
Сообщений всего: 1837
Дата рег-ции: Март 2017
Репутация: -2
|
А что такое рич эдит? Просто на телефоне не запустить, но дико интересно,только щавтра смогу проверить. Цаетной контрол, класс, я так понимаю,это цветной эдит, а рич статик, рич батон , я не находил)
Это переворот в программе Кибор) когла ВСЕ контролы буду созданы и можно будет их даже в любом цвете и свете,то я сделаю некий сюрприз на форуме) |
|
|
Zireael |
Отправлено: 23 Сентября, 2019 - 00:42:40
|
Эксперт
Покинул форум
Сообщений всего: 4465
Дата рег-ции: Нояб. 2017
Репутация: 585
|
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;
} |
|
|
007wan |
Отправлено: 23 Сентября, 2019 - 07:48:16
|
Эксперт
Покинул форум
Сообщений всего: 1837
Дата рег-ции: Март 2017
Репутация: -2
|
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. |
|
|
Zireael |
Отправлено: 23 Сентября, 2019 - 12:14:08
|
Эксперт
Покинул форум
Сообщений всего: 4465
Дата рег-ции: Нояб. 2017
Репутация: 585
|
Цитата: с иконками
Добавить:
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. |
|
|
ivantu |
Отправлено: 23 Сентября, 2019 - 14:05:31
|
Эксперт
Покинул форум
Сообщений всего: 732
Дата рег-ции: Нояб. 2013
Репутация: 14
|
007wan пишет: Можно все константы ToolTip(все иконки)? Просто это походу новое и не находится.
CODE:
#define TTI_INFO 1
#define TTI_WARNING 2
#define TTI_ERROR 3
там еще размеры иконок есть но я не разобрался...(Отредактировано автором: 23 Сентября, 2019 - 14:06:35) |
|
|
|