envoy_sky писал(а):
В папке work1 самый старый рабочий файлВ папке work2 файл который давал выше тоже рабочий
Запустить тестовую схему:
(Gunta автор, тут продублирую для удобства)
Add(MainForm,6539903,581,119)
{
Width=736
Height=695
link(onCreate,3682515:doConvert,[])
}
Add(MST_ColAction,4139610,735,133)
{
Action=9
MaxColWidth=1000
Index=-2
MSTControl="tabl"
}
Add(MST_Load,571213,686,126)
{
Delimiter="\t"
LoadCheckBoxes=0
MSTControl="tabl"
link(onLoadFromStream,4139610:doColAction,[])
}
Add(StreamConvertor,3682515,637,133)
{
Mode=7
link(onResult,571213:doLoadFromStream,[])
link(Data,6934679:Text,[])
}
Add(StrList,6934679,637,77)
{
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,644,224)
{
Width=720
Height=656
Align=5
Name="tabl"
ColorItems=0
Redaction=0
CheckBoxes=0
Grid=0
Point(onBeforeLineChange)
Point(onLineChange)
link(onBeforeLineChange,8042369:doEvent,[])
link(onLineChange,12426016:doEvent,[(683,265)(683,272)])
}
Add(Debug,8042369,707,252)
{
LogCount=100
}
Add(Debug,12426016,693,266)
{
LogCount=100
}
2. Начать редактировать любые строки (двойным кликом на строку) и выходить из редактирования двойным кликом на пустое место таблицы (внизу где нет строк).
3. Повторить пункт 2 несколько раз.
4. Увидев что чекбоксы перестали отрисовываться, убедиться что 1 пункт вышел из чата...
Смотрим код в "не рабочих" pas файлах в процедурах _OnBeforeLineChange и _OnLineChange.
Видим такую строку, которая отсутствует в "рабочих" pas файлах:
hiMTStrTbl.pas (rev.2404) писал(а):
if CBvalue = 0 then exit;//Fix: Error draw checkbox after dbclik on empty area if Redaction = True (sla8a 2021.10.12)Два года заплатка продержалась
Вывод: пока ремонтировали одно, сломалось другое.
Протестируйте этот файл: https://forum.hiasm.com/getfile/39641
Это с svn (rev.2404), c изменениями только в процедурах _OnBeforeLineChange и _OnLineChange. Нужно протестировать и вывод событий и отрисовку чекбоксов как описано выше.