MTStrTbl события

Форумы Ошибки в средеMTStrTbl события ← Ctrl12 3 4Ctrl →

Этот топик читают: Гость

Ответов: 98

Рейтинг: 1

#1: 2023-11-13 14:36:34 ЛС | профиль | цитата

Всех приветствую!

Вопрос касаемо событий OnlineChange и OnBeforelineChange в таблице MTStrTbl. При каких дополнительных условиях они выдает события при редактировании?
Если взять обычную MT-таблицу, то там эти функции работают без проблем.

Редактировалось 1 раз(а), последний 2023-11-13 14:36:57

карма: 0

Ответов: 782

Рейтинг: 168

#2: 2023-11-13 17:57:03 ЛС | профиль | цитата

strannik_nebes писал(а):

Вопрос касаемо событий OnlineChange и OnBeforelineChange в таблице MTStrTbl. При каких дополнительных условиях они выдает события при редактировании?

Как это не покажется странным, но эти события выдаются если включены CheckBoxs = True.
Почему это сделано именно так? Я не знаю. Возможно, автор этой группы компонентов сможет ответить на этот вопрос.


Add(MainForm,6539903,35,84)
{
 Width=583
 Height=338
 link(onCreate,3682515:doConvert,[])
}
Add(MST_ColAction,4139610,189,98)
{
 Action=9
 MaxColWidth=1000
 Index=-2
 MSTControl="tabl"
}
Add(MST_Load,571213,140,91)
{
 Delimiter="\t"
 LoadCheckBoxes=0
 MSTControl="tabl"
 link(onLoadFromStream,4139610:doColAction,[])
}
Add(StreamConvertor,3682515,91,98)
{
 Mode=7
 Point(Data)
 link(onResult,571213:doLoadFromStream,[])
 link(Data,6934679:Text,[])
}
Add(StrList,6934679,91,49)
{
 Strings=#42:Item	Description	Quantity	Unit	Price	Value|66:0\t13930	Double-action Quickstart II rem. L=740mm	1	PC	98,66	98,66|56:0\t13100201	Spray gun for udder washer	20	PC	17,77	355,4|52:0\t13246007	COMBI-cock ш51 mm cpl.	10	PC	63,43	634,3|54:0\t25643301	Milk hose ш 24/14 x 2750	32	PC	9,76	312,32|59:0\t14291	Service no.1 RDS MAX double box	1	PC	250,51	250,51|57:0\t24144638	Spiral spring for tube filter	3	PC	43,2	129,6|43:0\t22121763	V-belt spz 1087	4	PC	5,91	23,64|64:0\tMH0015	Repair kit non-rotating cylinder ш40mm	8	PC	14,3	114,4|51:0\tGS9835	Revision set SAC Unipuls	4	PC	13,97	55,88|55:0\t22121735	El-motor 3,0kw 3x400v 1400	1	PC	186,4	186,4|58:0\t23544122	Carbon disc ш44,7/38,3x5,8mm	10	PC	16,92	169,2|58:0\t23544122	Carbon disc ш44,7/38,3x5,8mm	10	PC	16,92	169,2|57:0\t23544122	Carbon disc ш44,7/38,3x5,8mm	2	PC	16,92	33,84|67:0\t21200159	Top part UNIFL3/4 for steel bot.part	25	PC	30,09	752,25|60:0\t24400111	Hose f. pump compl. UNIWASH	153	PC	10,58	1618,74|61:0\t13225	Piston complete for valve UNIWASH3	4	PC	27,09	108,36|63:0\t12200105	Vacuumgauge glycerine ш100mm 3/8"	5	PC	40,57	202,85|0:|
}
Add(MTStrTbl,15214105,98,189)
{
 Width=506
 Height=244
 Align=5
 Name="tabl"
 ColorItems=0
 Redaction=0
 CheckBoxes=0
 Grid=0
 Point(onBeforeLineChange)
 Point(onLineChange)
 link(onBeforeLineChange,8042369:doEvent,[])
 link(onLineChange,12426016:doEvent,[(137,230)(137,237)])
}
Add(Debug,8042369,161,217)
{
 LogCount=100
}
Add(Debug,12426016,147,231)
{
 LogCount=100
}

карма: 15

Ответов: 306

Рейтинг: 26

#3: 2023-11-13 20:49:28 ЛС | профиль | цитата

Gunta писал(а):

эти события выдаются если включены CheckBoxs = True.

У меня работает без CheckBoxs
Version=2.32

22.jpg

Редактировалось 1 раз(а), последний 2023-11-13 20:54:05

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 782

Рейтинг: 168

#4: 2023-11-13 21:16:10 ЛС | профиль | цитата

envoy_sky писал(а):

У меня работает без CheckBoxs
Version=2.32

То есть, у тебя эта схема выдаёт кортеж на точки onBeforeLineChange и onLineChange какое-то событие?

Add(MainForm,6539903,245,133)
{
 Width=583
 Height=338
 link(onCreate,3682515:doConvert,[])
}
Add(MST_ColAction,4139610,399,147)
{
 Action=9
 MaxColWidth=1000
 Index=-2
 MSTControl="tabl"
}
Add(MST_Load,571213,350,140)
{
 Delimiter="\t"
 MSTControl="tabl"
 link(onLoadFromStream,4139610:doColAction,[])
}
Add(StreamConvertor,3682515,301,147)
{
 Mode=7
 Point(Data)
 link(onResult,571213:doLoadFromStream,[])
 link(Data,6934679:Text,[])
}
Add(StrList,6934679,301,98)
{
 Strings=#42:Item	Description	Quantity	Unit	Price	Value|63:13930	Double-action Quickstart II rem. L=740mm	1	PC	98,66	98,66|53:13100201	Spray gun for udder washer	20	PC	17,77	355,4|49:13246007	COMBI-cock ш51 mm cpl.	10	PC	63,43	634,3|51:25643301	Milk hose ш 24/14 x 2750	32	PC	9,76	312,32|56:14291	Service no.1 RDS MAX double box	1	PC	250,51	250,51|54:24144638	Spiral spring for tube filter	3	PC	43,2	129,6|40:22121763	V-belt spz 1087	4	PC	5,91	23,64|61:MH0015	Repair kit non-rotating cylinder ш40mm	8	PC	14,3	114,4|48:GS9835	Revision set SAC Unipuls	4	PC	13,97	55,88|52:22121735	El-motor 3,0kw 3x400v 1400	1	PC	186,4	186,4|55:23544122	Carbon disc ш44,7/38,3x5,8mm	10	PC	16,92	169,2|55:23544122	Carbon disc ш44,7/38,3x5,8mm	10	PC	16,92	169,2|54:23544122	Carbon disc ш44,7/38,3x5,8mm	2	PC	16,92	33,84|64:21200159	Top part UNIFL3/4 for steel bot.part	25	PC	30,09	752,25|57:24400111	Hose f. pump compl. UNIWASH	153	PC	10,58	1618,74|58:13225	Piston complete for valve UNIWASH3	4	PC	27,09	108,36|60:12200105	Vacuumgauge glycerine ш100mm 3/8"	5	PC	40,57	202,85|0:|
}
Add(MTStrTbl,15214105,301,203)
{
 Width=506
 Height=244
 Align=5
 Name="tabl"
 ColorItems=0
 Redaction=0
 Grid=0
 Point(onBeforeLineChange)
 Point(onLineChange)
 link(onBeforeLineChange,8042369:doEvent,[])
 link(onLineChange,12426016:doEvent,[(340,244)(340,251)])
}
Add(Debug,8042369,364,231)
{
 LogCount=100
}
Add(Debug,12426016,350,245)
{
 LogCount=100
}

Редактировалось 2 раз(а), последний 2023-11-13 21:35:55

карма: 15

Ответов: 306

Рейтинг: 26

#5: 2023-11-13 21:24:06 ЛС | профиль | цитата

Gunta писал(а):

То есть, у тебя эта схема выдаёт кортеж на точки onBeforeLineChange и onLineChange какое-то событие?

Выдаёт как сами строки так и диод зажигает.
Может я что то не так понял.
Набросай схему, я запущу у себя.

Редактировалось 1 раз(а), последний 2023-11-13 21:26:52

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 782

Рейтинг: 168

#6: 2023-11-13 21:27:27 ЛС | профиль | цитата

envoy_sky писал(а):

Набросай схему, я запущу у себя.

Выше вставил схему https://forum.hiasm.com/post/313454

карма: 15

Ответов: 306

Рейтинг: 26

#7: 2023-11-13 21:30:17 ЛС | профиль | цитата

Выдаёт строки
Одна до редактирования
Вторая после редактирования

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 782

Рейтинг: 168

#8: 2023-11-13 21:39:13 ЛС | профиль | цитата

envoy_sky писал(а):

Выдаёт строки
Одна до редактирования
Вторая после редактирования

Очень странно. При отключении чекбоксов ну никак не выдаёт ничего.

OnlineChange и OnBeforelineChange.PNG


Add(MainForm,6539903,245,133)
{
 Width=583
 Height=338
 link(onCreate,3682515:doConvert,[])
}
Add(MST_ColAction,4139610,399,147)
{
 Action=9
 MaxColWidth=1000
 Index=-2
 MSTControl="tabl"
}
Add(MST_Load,571213,350,140)
{
 Delimiter="\t"
 MSTControl="tabl"
 link(onLoadFromStream,4139610:doColAction,[])
}
Add(StreamConvertor,3682515,301,147)
{
 Mode=7
 Point(Data)
 link(onResult,571213:doLoadFromStream,[])
 link(Data,6934679:Text,[])
}
Add(StrList,6934679,301,98)
{
 Strings=#42:Item	Description	Quantity	Unit	Price	Value|63:13930	Double-action Quickstart II rem. L=740mm	1	PC	98,66	98,66|53:13100201	Spray gun for udder washer	20	PC	17,77	355,4|49:13246007	COMBI-cock ш51 mm cpl.	10	PC	63,43	634,3|51:25643301	Milk hose ш 24/14 x 2750	32	PC	9,76	312,32|56:14291	Service no.1 RDS MAX double box	1	PC	250,51	250,51|54:24144638	Spiral spring for tube filter	3	PC	43,2	129,6|40:22121763	V-belt spz 1087	4	PC	5,91	23,64|61:MH0015	Repair kit non-rotating cylinder ш40mm	8	PC	14,3	114,4|48:GS9835	Revision set SAC Unipuls	4	PC	13,97	55,88|52:22121735	El-motor 3,0kw 3x400v 1400	1	PC	186,4	186,4|55:23544122	Carbon disc ш44,7/38,3x5,8mm	10	PC	16,92	169,2|55:23544122	Carbon disc ш44,7/38,3x5,8mm	10	PC	16,92	169,2|54:23544122	Carbon disc ш44,7/38,3x5,8mm	2	PC	16,92	33,84|64:21200159	Top part UNIFL3/4 for steel bot.part	25	PC	30,09	752,25|57:24400111	Hose f. pump compl. UNIWASH	153	PC	10,58	1618,74|58:13225	Piston complete for valve UNIWASH3	4	PC	27,09	108,36|60:12200105	Vacuumgauge glycerine ш100mm 3/8"	5	PC	40,57	202,85|0:|
}
Add(MTStrTbl,15214105,301,203)
{
 Width=506
 Height=244
 Align=5
 Name="tabl"
 ColorItems=0
 Redaction=0
 Grid=0
 Point(onBeforeLineChange)
 Point(onLineChange)
 link(onBeforeLineChange,8042369:doEvent,[])
 link(onLineChange,12426016:doEvent,[(340,244)(340,251)])
}
Add(Debug,8042369,364,231)
{
 LogCount=100
}
Add(Debug,12426016,350,245)
{
 LogCount=100
}

карма: 15

Ответов: 306

Рейтинг: 26

#9: 2023-11-13 21:46:04 ЛС | профиль | цитата

22.gif

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 782

Рейтинг: 168

#10: 2023-11-13 21:52:10 ЛС | профиль | цитата

envoy_sky,Нет, ты запусти схему из предыдущего поста. В твоёей схеме включены чекбоксы (отсутстует первый столбец)

карма: 15

Ответов: 306

Рейтинг: 26

#11: 2023-11-13 21:54:57 ЛС | профиль | цитата

Вот, работает на всех схемах, разницы нет.
чекбоксы отключены

Add(MainForm,6539903,287,175)
{
 Width=583
 Height=421
 link(onCreate,3682515:doConvert,[])
}
Add(MST_ColAction,4139610,441,189)
{
 Action=9
 MaxColWidth=1000
 Index=-2
 MSTControl="tabl"
}
Add(MST_Load,571213,392,182)
{
 Delimiter="\t"
 LoadCheckBoxes=0
 MSTControl="tabl"
 link(onLoadFromStream,4139610:doColAction,[])
}
Add(StreamConvertor,3682515,343,189)
{
 Mode=7
 Point(Data)
 link(onResult,571213:doLoadFromStream,[])
 link(Data,6934679:Text,[])
}
Add(StrList,6934679,343,140)
{
 Strings=#42:Item	Description	Quantity	Unit	Price	Value|63:13930	Double-action Quickstart II rem. L=740mm	1	PC	98,66	98,66|53:13100201	Spray gun for udder washer	20	PC	17,77	355,4|49:13246007	COMBI-cock ш51 mm cpl.	10	PC	63,43	634,3|51:25643301	Milk hose ш 24/14 x 2750	32	PC	9,76	312,32|56:14291	Service no.1 RDS MAX double box	1	PC	250,51	250,51|54:24144638	Spiral spring for tube filter	3	PC	43,2	129,6|40:22121763	V-belt spz 1087	4	PC	5,91	23,64|61:MH0015	Repair kit non-rotating cylinder ш40mm	8	PC	14,3	114,4|48:GS9835	Revision set SAC Unipuls	4	PC	13,97	55,88|52:22121735	El-motor 3,0kw 3x400v 1400	1	PC	186,4	186,4|55:23544122	Carbon disc ш44,7/38,3x5,8mm	10	PC	16,92	169,2|55:23544122	Carbon disc ш44,7/38,3x5,8mm	10	PC	16,92	169,2|54:23544122	Carbon disc ш44,7/38,3x5,8mm	2	PC	16,92	33,84|64:21200159	Top part UNIFL3/4 for steel bot.part	25	PC	30,09	752,25|57:24400111	Hose f. pump compl. UNIWASH	153	PC	10,58	1618,74|58:13225	Piston complete for valve UNIWASH3	4	PC	27,09	108,36|60:12200105	Vacuumgauge glycerine ш100mm 3/8"	5	PC	40,57	202,85|0:|
}
Add(MTStrTbl,15214105,343,245)
{
 Width=567
 Height=299
 Name="tabl"
 ColorItems=0
 Redaction=0
 Grid=0
 Point(onBeforeLineChange)
 Point(onLineChange)
 link(onBeforeLineChange,6381685:doEvent1,[(383,279)(383,272)])
 link(onLineChange,13542861:doEvent1,[(387,286)(387,300)])
}
Add(Edit,10577099,427,231)
{
 Left=10
 Top=310
 Width=515
 Height=15
 Text="До"
}
Add(Edit,1573897,427,322)
{
 Left=10
 Top=340
 Width=515
 Height=15
 Text="После"
}
Add(LED,16623875,497,252)
{
 Left=530
 Top=305
}
Add(Hub,6381685,392,266)
{
 link(onEvent1,10577099:doText,[(416,272)(416,237)])
 link(onEvent2,16623875:doOn,[(452,279)(452,272)])
}
Add(Hub,13542861,399,294)
{
 link(onEvent1,1573897:doText,[(420,300)(420,328)])
 link(onEvent2,7743238:doOn,[(455,307)(455,314)])
}
Add(LED,7743238,497,294)
{
 Left=530
 Top=335
}

Gunta писал(а):

запусти схему из предыдущего поста

33.jpg

Редактировалось 4 раз(а), последний 2023-11-13 22:01:06

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 782

Рейтинг: 168

#12: 2023-11-13 22:03:59 ЛС | профиль | цитата

envoy_sky писал(а):

Вот, работает на всех схемах, разницы нет.

Значит у меня такая же проблема, как и у strannik_nebes. Схема без чекбоксов не выдаёт никаких событий на точки onBeforeLineChange и onLineChange.
Windows 10 (x64), Hiasm v4.05 build 186 (delphi) rev – 2404
Никаких модифицированных компонентов

карма: 15

Ответов: 306

Рейтинг: 26

#13: 2023-11-13 22:09:47 ЛС | профиль | цитата

Сейчас исправим.
Вот меняй и проверяй.
Схему скопируй выше, то что сохранил у себя со старым компонентом не будет работать.

https://forum.hiasm.com/getfile/39639

Редактировалось 3 раз(а), последний 2023-11-13 22:30:06

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 782

Рейтинг: 168

#14: 2023-11-13 22:24:19 ЛС | профиль | цитата

envoy_sky писал(а):

Сейчас исправим.
Вот меняй и проверяй.

Мой файл hiMTStrTbl.pas ничем не отличается от твоего.
Причина в чём-то другом.

карма: 15

Ответов: 306

Рейтинг: 26

#15: 2023-11-13 22:28:47 ЛС | профиль | цитата