Вверх ↑
Ответов: 8888
Рейтинг: 823
#1: 2018-02-18 11:02:32 ЛС | профиль | цитата
hajikov, а разные языки, а нажатые Shift..., да и клавиши дополнительные
Вот схемка, составьте таблицу соответствия, а потом решите, нужно-ли
Коды


Add(MainForm,2953706,329,112)
{
Width=427
Point(Handle)
Point(onChar)
link(onChar,15338376:doEvent1,[])
}
Add(KeyEvent,15110300,329,224)
{
Point(Ctrl)
Point(Alt)
Point(Shift)
link(Handle,2953706:Handle,[])
link(Ctrl,1779192:Checked,[(349,204)(258,204)])
link(Alt,10967552:Checked,[(356,196)(300,196)])
link(Shift,10319674:Checked,[])
}
Add(FormatStr,16635988,476,140)
{
DataCount=3
Mask="%1;%2;%3"
link(onFString,15575696:doAdd,[])
link(Str1,1562305:Count,[(482,131)(468,131)(468,264)(202,264)])
link(Str3,10076623:Value,[])
}
Add(Button,7834769,133,217)
{
Left=5
Top=30
Width=45
Caption="Далее"
link(onClick,1562305:doNext,[])
}
Add(CheckBox,1779192,252,154)
{
Left=10
Top=60
Caption="Ctrl"
}
Add(CheckBox,10967552,294,154)
{
Left=10
Top=85
Caption="Alt"
}
Add(CheckBox,10319674,357,154)
{
Left=10
Top=115
Caption="Shift"
}
Add(Counter,1562305,196,217)
{
Max=255
link(onNext,14567257:doEvent1,[])
}
Add(Hub,14567257,252,217)
{
link(onEvent1,1124627:doText,[(277,223)(277,209)(186,209)(186,160)])
link(onEvent2,15110300:doPress,[])
}
Add(Label,1124627,196,154)
{
Left=50
Top=35
Width=35
}
Add(Hub,15338376,399,133)
{
link(onEvent1,14428406:doConvert,[(424,139)(424,90)])
link(onEvent2,16635988:doString,[])
}
Add(Convertor,14428406,441,84)
{
Mode=3
link(onResult,10076623:doValue,[])
}
Add(Memory,10076623,490,84)
{
}
Add(StringTable,15575696,532,140)
{
Left=80
Top=5
Width=325
Height=255
Columns=#12:Код клав=100|10:Символ=100|12:Код симв=100|
Grid=0
}
Add(Button,13717972,420,203)
{
Left=5
Top=210
Width=70
Caption="Сохранить"
link(onClick,2366596:doExecute,[])
}
Add(SDialog,2366596,476,203)
{
link(onExecute,15575696:doSave,[(515,209)(515,174)])
}

карма: 19

0