Вверх ↑
Ответов: 793
Рейтинг: 168
#1: 2024-03-22 22:26:57 ЛС | профиль | цитата
3042 писал(а):
А нужно, например, сделать некоторые edit-ы недоступными для редактировани

С MTStrTbl можно обойтись и без InlineCode

Add(MainForm,15443588,238,112)
{
Width=621
Height=307
link(onCreate,3682515:doConvert,[])
}
Add(MTStrTbl,15391708,168,105)
{
Width=605
Height=268
Align=5
Name="tabs"
}
Add(Edit,6793014,462,224)
{
Left=10
Top=10
Width=135
Visible=1
WinStyle=1
Text=""
DataType=4
Point(doLeft)
Point(doTop)
Point(doWidth)
Point(doHeight)
Point(doVisible)
Point(doSetFocus)
Point(doBringToFront)
Point(doPosition)
Point(onKillFocus)
link(onChange,11974708:doData,[(501,230)(501,202)(116,202)(116,223)])
link(onEnter,8315683:doWork1,[(505,237)])
link(Str,7799279:Cell,[(468,215)(335,215)(335,271)(202,271)])
link(onKillFocus,8315683:doWork2,[])
}
Add(MST_UseEditCtrl,7799279,175,217)
{
MSTControl="tabs"
Point(doClientRect)
PColor(onCellSize,8421440)
PColor(onEscCell,32768)
link(onCellSize,9358300:doEvent,[])
}
Add(DoData,11974708,126,217)
{
link(onEventData,7799279:doSetData,[])
link(Data,6793014:Text,[(132,208)(167,208)(167,306)(468,306)])
}
Add(MT_MultiData,2622840,378,238)
{
Count=4
link(onData1,6793014:doLeft,[])
link(onData2,6793014:doTop,[])
link(onData3,6793014:doWidth,[])
link(onData4,12356216:doEvent1,[])
}
Add(Hub,12356216,427,259)
{
OutCount=5
link(onEvent1,6793014:doHeight,[])
link(onEvent2,6010293:doWork2,[])
link(onEvent3,6793014:doSetFocus,[])
link(onEvent4,6793014:doBringToFront,[])
link(onEvent5,6793014:doPosition,[])
}
Add(Hub,4296656,343,231)
{
link(onEvent1,6793014:doText2,[])
link(onEvent2,2622840:doSeparateMT,[])
}
Add(HubEx,8315683,501,238)
{
Angle=1
link(onEvent,12057740:doClear,[(505,272)])
}
Add(Memory,12057740,518,259)
{
Default=Integer(0)
link(onData,6010293:doWork1,[(556,265)(556,302)(452,302)])
}
Add(HubEx,6010293,448,266)
{
link(onEvent,6793014:doVisible,[])
}
Add(MST_ColAction,4139610,385,126)
{
Action=9
MaxColWidth=1000
Index=-2
MSTControl="tabs"
}
Add(MST_Load,571213,336,119)
{
Delimiter="\t"
MSTControl="tabs"
link(onLoadFromStream,4139610:doColAction,[])
}
Add(StreamConvertor,3682515,287,126)
{
Mode=7
Point(Data)
link(onResult,571213:doLoadFromStream,[])
link(Data,6934679:Text,[])
}
Add(StrList,6934679,287,77)
{
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(MT_IndexToChanel,9358300,238,217)
{
Count=6
Point(Index)
link(Index,7799279:SubItem,[(244,208)(230,208)(230,257)(188,257)])
link(onEvent3,9574131:doWork2,[])
link(onEvent5,3908987:doWork2,[])
link(onEvent6,3908987:doWork3,[(284,258)])
}
Add(HubEx,9574131,280,231)
{
link(onEvent,4296656:doEvent1,[])
}
Add(HubEx,3908987,280,245)
{
Angle=3
link(onEvent,9574131:doWork3,[])
}

карма: 16

0