Add(MainForm,6539903,329,196)
{
 Width=736
 Height=695
 link(onCreate,3682515:doConvert,[])
}
Add(MST_ColAction,4139610,483,210)
{
 Action=9
 MaxColWidth=1000
 Index=-2
 MSTControl="tabl"
}
Add(MST_Load,571213,434,203)
{
 Delimiter="\t"
 LoadCheckBoxes=0
 MSTControl="tabl"
 link(onLoadFromStream,4139610:doColAction,[])
}
Add(StreamConvertor,3682515,385,210)
{
 Mode=7
 link(onResult,571213:doLoadFromStream,[])
 link(Data,6934679:Text,[])
}
Add(StrList,6934679,385,154)
{
 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,392,301)
{
 Width=720
 Height=656
 Align=5
 Name="tabl"
 ColorItems=0
 Redaction=0
 CheckBoxes=0
 Grid=0
 Point(onBeforeLineChange)
 Point(onLineChange)
 Point(onMouseUp)
 Point(onMouseDown)
 link(onBeforeLineChange,8042369:doEvent,[])
 link(onLineChange,12426016:doEvent,[])
 link(onMouseUp,12089541:doEvent,[])
 link(onMouseDown,5433745:doMove,[])
}
Add(Debug,8042369,434,329)
{
 VDName=""
 LogCount=100
}
Add(Debug,12426016,434,336)
{
 VDName=""
 LogCount=100
}
Add(Debug,12089541,434,343)
{
 VDName=""
}
Add(MouseEvent,5433745,518,343)
{
 link(X,1893794:Text,[])
}
Add(VisualStrings,1893794,525,308)
{
 Lines=#1:4|
}

Add(MainForm,6539903,203,119)
{
 Width=736
 Height=695
 link(onCreate,3682515:doConvert,[])
}
Add(MST_ColAction,4139610,357,133)
{
 Action=9
 MaxColWidth=1000
 Index=-2
 MSTControl="tabl"
}
Add(MST_Load,571213,308,126)
{
 Delimiter="\t"
 LoadCheckBoxes=0
 MSTControl="tabl"
 link(onLoadFromStream,4139610:doColAction,[])
}
Add(StreamConvertor,3682515,259,133)
{
 Mode=7
 link(onResult,571213:doLoadFromStream,[])
 link(Data,6934679:Text,[])
}
Add(StrList,6934679,259,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,266,224)
{
 Width=720
 Height=656
 Align=5
 Name="tabl"
 ColorItems=0
 Redaction=0
 CheckBoxes=0
 Grid=0
 Point(onBeforeLineChange)
 Point(onLineChange)
 Point(onMouseDown)
 link(onBeforeLineChange,8042369:doEvent,[])
 link(onLineChange,12426016:doEvent,[])
 link(onMouseDown,11284032:doEvent,[])
}
Add(Debug,8042369,329,252)
{
 WEName="before"
 VDName=""
 LogCount=100
}
Add(Debug,12426016,364,259)
{
 WEName="after"
 VDName=""
 LogCount=100
}
Add(Debug,11284032,329,266)
{
 WEName="down"
 VDName=""
 LogCount=100
 link(onEvent,12146372:doEditEnd,[])
}
Add(MST_EditEnd,12146372,392,266)
{
 MSTControl="tabl"
}

procedure ThiMTStrTbl._OnMouseDown;
begin
   if getfredaction then Control.Perform(WM_KEYDOWN, 27, 0);//Fix: Error closing editing when right-clicking on the next line (sla8a 2023.11.17)
   sel := Control.LVCurItem;
   GMouse := true;
   inherited;
end;