Bigggi писал(а):
Извиняйте в программе надписи на укрСхема полный пипец. Еле разобрался что к чему, да еще и украинский выучил . Bigggi Посмотри как сделано в моей схеме, я ее немного подправил.
Bigggi писал(а):
у кого будет идея как скрестить два дешифратора
Add(MainForm,12966647,28,287)
{
Width=945
Height=614
WinStyle=2
Caption="Дешифратор EN"
BorderStyle=3
}
Add(ListBox,5018169,294,280)
{
Left=5
Top=75
Width=125
Height=360
Font=[MS Sans Serif,8,1,255,1]
Point(doSelect)
Point(Index)
Point(String)
link(FileName,6442687:Caption,[])
}
Add(SDialog,14075694,266,147)
{
Filter="Text Files|.txt"
StartDir="C:\"
FileName="Finish"
link(onExecute,13026810:doWork2,[])
}
Add(ODialog,13060307,161,231)
{
Filter="Text Files|*.txt"
StartDir="C:\"
FileName=""
link(onExecute,8023905:doEvent1,[])
}
Add(StyleXP,11690727,28,252)
{
}
Add(DropFile,8334153,161,266)
{
link(onDropFile,8023905:doEvent2,[(206,272)(206,244)])
}
Add(Hub,8023905,217,231)
{
InCount=2
OutCount=3
link(onEvent1,6442687:doText,[])
link(onEvent2,5018169:doLoad,[(246,244)(246,314)])
link(onEvent3,1656217:doEnum,[(240,251)(240,356)])
}
Add(Memo,7433420,616,203)
{
Left=135
Top=75
Width=195
Height=360
Font=[MS Sans Serif,8,1,16711680,1]
ScrollBars=2
}
Add(Menu,7527490,21,70)
{
Menu=#4:Файл|1:(|8:Відкрити|8:Зберегти|1:-|21:Очистити вхідний файл|18:Очистити результат|1:-|5:Автор|1:)|
Point(onSelectNum)
link(onSelectNum,879307:doValue,[])
}
Add(Button,10803865,448,329)
{
Left=5
Width=325
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Зробити пробіли ,почистити мусор"
link(onClick,15897651:doEvent1,[])
}
Add(Hub,10850186,189,98)
{
link(onEvent1,4093816:doData,[])
link(onEvent2,2401635:doData,[])
}
Add(Button,6490688,140,98)
{
Left=5
Top=25
Width=325
Height=25
Caption="Зберегти в txt файл"
link(onClick,10850186:doEvent1,[])
}
Add(Button,6100396,161,189)
{
Left=5
Top=50
Width=125
Height=25
Caption="Очистити данні"
link(onClick,3003356:doWork2,[])
}
Add(Button,11730504,343,217)
{
Left=135
Top=50
Width=195
Height=25
Caption="Очистити результат"
link(onClick,859260:doWork3,[(402,223)])
}
Add(StrList,10001673,413,273)
{
Strings=#3:Esc|2:F1|2:F2|2:F3|2:F4|2:F5|2:F6|2:F7|2:F8|2:F9|3:F10|3:F11|3:F12|11:Scroll Lock|6:Insert|5:Pause|1:`|1:0|1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|1:-|1:=|9:Backspace|4:Home|3:End|8:Num Lock|5:Num /|5:Num *|5:Num -|3:Tab|1:Q|1:W|1:E|1:R|1:T|1:Y|1:U|1:I|1:O|1:P|1:[|1:]|1:\|6:Delete|7:Page Up|5:Num 7|5:Num 8|5:Num 9|5:Num +|9:Caps Lock|1:A|1:S|1:D|1:F|1:G|1:H|1:J|1:K|1:L|1:;|1:'|5:Enter|9:Page Down|5:Num 4|5:Num 5|5:Num 6|5:Shift|1:Z|1:X|1:C|1:V|1:B|1:N|1:M|1:<|1:>|1:?|5:Shift|8:Arrow Up|5:Num 1|5:Num 2|5:Num 3|9:Num Enter|4:Ctrl|3:Win|3:Alt|5:Space|3:Alt|5:Ankap|4:Ctrl|10:Arrow Left|10:Arrow Down|11:Arrow Right|5:Num 0|5:Num .|
Point(doGetString)
Point(onGetString)
link(onGetString,6464866:doStrCat,[])
}
Add(Message,7722486,161,308)
{
Message="Питання на bigggi@mail.ru"
Caption="Hello"
Icon=4
}
Add(IndexToChanel,11356079,77,133)
{
Count=8
Point(Index)
link(onEvent2,13060307:doExecute,[(142,146)(142,227)(142,237)])
link(onEvent3,14075694:doExecute,[])
link(onEvent4,3003356:doWork1,[(252,160)])
link(onEvent5,859260:doWork1,[(402,167)])
link(Index,879307:Value,[])
link(onEvent8,7722486:doMessage,[(135,188)(135,314)])
}
Add(Memory,879307,77,77)
{
link(onData,11356079:doEvent,[(120,83)(120,117)(65,117)(65,139)])
}
Add(Label,6442687,301,231)
{
Left=53
Top=441
}
Add(ArrayEnum,1656217,308,350)
{
link(onItem,1656242:doGetIndex,[])
link(onEndEnum,5133674:doWork3,[(349,363)(349,388)(252,388)])
link(Array,5018169:Array,[])
}
Add(StrList,1656242,364,308)
{
Strings=#2:27|3:112|3:113|3:114|3:115|3:116|3:117|3:118|3:119|3:120|3:121|3:122|3:123|3:145|2:45|2:19|3:192|2:48|2:49|2:50|2:51|2:52|2:53|2:54|2:55|2:56|2:57|3:189|3:187|1:8|2:36|2:35|3:144|3:111|3:106|3:109|1:9|2:81|2:87|2:69|2:82|2:84|2:89|2:85|2:73|2:79|2:80|3:219|3:221|3:220|2:46|2:33|3:103|3:104|3:105|3:107|2:20|2:65|2:83|2:68|2:70|2:71|2:72|2:74|2:75|2:76|3:186|3:222|2:13|2:34|3:100|3:101|3:102|2:16|2:90|2:88|2:67|2:86|2:66|2:78|2:77|3:188|3:190|3:191|2:16|2:38|2:97|2:98|2:99|2:13|2:17|2:91|2:18|2:32|2:18|2:93|2:17|2:37|2:40|2:39|2:96|3:110|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,10001673:doGetString,[])
}
Add(HubEx,5133674,248,287)
{
link(onEvent,5018169:doClear,[])
}
Add(StrCat,481863,616,280)
{
link(onStrCat,7433420:doText,[(661,286)(661,262)(598,262)(598,230)])
link(Str1,5589117:Var2,[])
}
Add(StrCat,6464866,504,280)
{
Str2=" "
link(onStrCat,481863:doStrCat,[])
}
Add(StrList,10530138,623,343)
{
}
Add(DoData,4093816,266,98)
{
Data=String(Розшифровка стандартний вигляд.txt)
link(onEventData,1178058:doWork1,[(368,104)])
}
Add(DoData,2401635,224,105)
{
Data=String(Розшифрований файл на UA.txt)
link(onEventData,1178058:doWork2,[])
}
Add(HubEx,13026810,420,147)
{
link(onEvent,7433420:doSave,[(452,153)(452,244)])
}
Add(HubEx,1178058,364,105)
{
Angle=1
link(onEvent,13026810:doWork1,[(368,132)(424,132)])
}
Add(StrCase,53833,567,329)
{
link(onModify,10530138:doAdd,[(611,335)(611,349)])
link(Str,5589117:Var1,[(573,271)])
}
Add(GetDataEx,5589117,616,266)
{
link(Data,7433420:Text,[])
}
Add(Hub,15897651,497,329)
{
OutCount=4
link(onEvent1,53833:doModify,[])
link(onEvent2,273956:doWork3,[(557,342)])
link(onEvent3,12897859:doReplace,[(557,349)(557,405)])
link(onEvent4,10530138:doClear,[])
}
Add(Replace,12897859,623,399)
{
SubStr=" "
link(onReplace,7433420:doAdd,[(680,405)(680,193)(597,193)(597,209)])
link(Str,10530138:Text,[])
}
Add(HubEx,273956,553,210)
{
link(onEvent,7433420:doClear,[])
}
Add(HubEx,859260,398,210)
{
link(onEvent,273956:doWork2,[])
}
Add(HubEx,3003356,248,189)
{
Angle=1
link(onEvent,5133674:doWork1,[])
}