Доброго времени всем!
Не хочу плодить новые темы, поэтому спрошу здесь. С "ПРОСМОТРОМ-ВЫБОРОМ" вроде коряво, но разобрался. А теперь уважаемые знатоки, не могли бы Вы мне помочь? Хочется, что бы:
1.при вводе аргумента можно было бы вводить не только точку, но и запятую, т.е. без разницы, вводить как с основной клавы, так и с NamPad (точка в коэффициенте пусть будет-нужна для дальнейших арифметических расчетов);
2.отображение коэффициента происходило бы сразу при вводе аргумента, исключая нажатие Enter (тут, правда, есть сомнения, что получится вообще, т.к. условия аргумента ограничены, см. P.P.S);
3.вся эта форма была бы модальной, т.е. всегда отображалась бы поверх всех окон и позволяла бы работать в других приложениях;
4.возможно-ли ограничить ввод аргумента до четырех знаков после разделителя.
P.S. если удасться сократить таблицу с коэффициентами (там много повторяющихся), то была бы вообще круть (на самом деле таблица гораздо больше, но тогда на форум весь код не поместить).
P.P.S. условие для ввода аргумента, он может быть только в диапазоне с 0.9500 до 1.0000 и только четыре знака после разделителя.
Заранее, большое спасибо!, и прошу прощения, если много попросил.
Add(Edit,15744765,56,98)
{
Left=15
Top=35
Width=85
Text="0.95"
Alignment=2
DataType=4
Point(doSelectAll)
link(onEnter,15184698:doEvent1,[])
}
Add(Hub,15184698,98,105)
{
link(onEvent1,15744765:doSelectAll,[(122,111)(122,91)(46,91)(46,118)])
link(onEvent2,621320:doEnum,[])
}
Add(ArrayEnum,621320,140,112)
{
link(onItem,15372820:doSplit,[])
link(Array,9332912:Array,[])
}
Add(If_else,5502500,238,119)
{
link(onTrue,11154360:doEvent1,[])
link(Op1,15744765:Text,[(244,108)(228,108)(228,154)(62,154)])
}
Add(StrPart,15372820,189,112)
{
Char=";"
Point(Right)
link(onPart,5502500:doCompare,[])
}
Add(Hub,11154360,280,119)
{
link(onEvent1,11390992:doText,[])
link(onEvent2,621320:doStop,[(304,132)(304,168)(130,168)(130,125)])
}
Add(MainForm,8432877,21,14)
{
Width=249
Height=98
Color=12639424
Caption=" Выбор коэффициента"
BorderStyle=4
Point(onClose)
}
Add(StrList,9332912,126,28)
{
Strings=#15:0.9500;0.000567|15:0.9501;0.000567|15:0.9502;0.000567|15:0.9503;0.000567|15:0.9504;0.000567|15:0.9505;0.000567|15:0.9506;0.000567|15:0.9507;0.000567|15:0.9508;0.000567|15:0.9509;0.000567|15:0.9510;0.000567|15:0.9511;0.000567|15:0.9512;0.000567|15:0.9513;0.000567|15:0.9514;0.000567|15:0.9515;0.000567|15:0.9516;0.000567|15:0.9517;0.000567|15:0.9518;0.000567|15:0.9519;0.000567|15:0.9520;0.000567|15:0.9521;0.000567|15:0.9522;0.000567|15:0.9523;0.000567|15:0.9524;0.000567|15:0.9525;0.000567|15:0.9526;0.000567|15:0.9527;0.000567|15:0.9528;0.000567|15:0.9529;0.000567|15:0.9530;0.000567|15:0.9531;0.000567|15:0.9532;0.000567|15:0.9533;0.000567|15:0.9534;0.000567|15:0.9535;0.000567|15:0.9536;0.000567|15:0.9537;0.000567|15:0.9538;0.000567|15:0.9539;0.000567|15:0.9540;0.000567|15:0.9541;0.000567|15:0.9542;0.000567|15:0.9543;0.000567|15:0.9544;0.000567|15:0.9545;0.000567|15:0.9546;0.000567|15:0.9547;0.000567|15:0.9548;0.000567|15:0.9549;0.000567|15:0.9550;0.000567|15:0.9551;0.000567|15:0.9552;0.000567|15:0.9553;0.000567|15:0.9554;0.000567|15:0.9555;0.000567|15:0.9556;0.000567|15:0.9557;0.000567|15:0.9558;0.000567|15:0.9559;0.000567|15:0.9560;0.000567|15:0.9561;0.000567|15:0.9562;0.000567|15:0.9563;0.000567|15:0.9564;0.000567|15:0.9565;0.000567|15:0.9566;0.000567|15:0.9567;0.000567|15:0.9568;0.000567|15:0.9569;0.000567|15:0.9570;0.000567|15:0.9571;0.000567|15:0.9572;0.000567|15:0.9573;0.000567|15:0.9574;0.000567|15:0.9575;0.000567|15:0.9576;0.000567|15:0.9577;0.000567|15:0.9578;0.000567|15:0.9579;0.000567|15:0.9580;0.000567|15:0.9581;0.000567|15:0.9582;0.000567|15:0.9583;0.000567|15:0.9584;0.000567|15:0.9585;0.000567|15:0.9586;0.000567|15:0.9587;0.000567|15:0.9588;0.000567|15:0.9589;0.000567|15:0.9590;0.000567|15:0.9591;0.000567|15:0.9592;0.000567|15:0.9593;0.000567|15:0.9594;0.000567|15:0.9595;0.000567|15:0.9596;0.000567|15:0.9597;0.000567|15:0.9598;0.000567|15:0.9599;0.000567|15:0.9600;0.000554|15:0.9601;0.000554|15:0.9602;0.000554|15:0.9603;0.000554|15:0.9604;0.000554|15:0.9605;0.000554|15:0.9606;0.000554|15:0.9607;0.000554|15:0.9608;0.000554|15:0.9609;0.000554|15:0.9610;0.000554|15:0.9611;0.000554|15:0.9612;0.000554|15:0.9613;0.000554|15:0.9614;0.000554|15:0.9615;0.000554|15:0.9616;0.000554|15:0.9617;0.000554|15:0.9618;0.000554|15:0.9619;0.000554|15:0.9620;0.000554|15:0.9621;0.000554|15:0.9622;0.000554|15:0.9623;0.000554|15:0.9624;0.000554|15:0.9625;0.000554|15:0.9626;0.000554|15:0.9627;0.000554|15:0.9628;0.000554|15:0.9629;0.000554|15:0.9630;0.000554|15:0.9631;0.000554|15:0.9632;0.000554|15:0.9633;0.000554|15:0.9634;0.000554|15:0.9635;0.000554|15:0.9636;0.000554|15:0.9637;0.000554|15:0.9638;0.000554|15:0.9639;0.000554|15:0.9640;0.000554|15:0.9641;0.000554|15:0.9642;0.000554|15:0.9643;0.000554|15:0.9644;0.000554|15:0.9645;0.000554|15:0.9646;0.000554|15:0.9647;0.000554|15:0.9648;0.000554|15:0.9649;0.000554|15:0.9650;0.000554|15:0.9651;0.000554|15:0.9652;0.000554|15:0.9653;0.000554|15:0.9654;0.000554|15:0.9655;0.000554|15:0.9656;0.000554|15:0.9657;0.000554|15:0.9658;0.000554|15:0.9659;0.000554|15:0.9660;0.000554|15:0.9661;0.000554|15:0.9662;0.000554|15:0.9663;0.000554|15:0.9664;0.000554|15:0.9665;0.000554|15:0.9666;0.000554|15:0.9667;0.000554|15:0.9668;0.000554|15:0.9669;0.000554|15:0.9670;0.000554|15:0.9671;0.000554|15:0.9672;0.000554|15:0.9673;0.000554|15:0.9674;0.000554|15:0.9675;0.000554|15:0.9676;0.000554|15:0.9677;0.000554|15:0.9678;0.000554|15:0.9679;0.000554|15:0.9680;0.000554|15:0.9681;0.000554|15:0.9682;0.000554|15:0.9683;0.000554|15:0.9684;0.000554|15:0.9685;0.000554|15:0.9686;0.000554|15:0.9687;0.000554|15:0.9688;0.000554|15:0.9689;0.000554|15:0.9690;0.000554|15:0.9691;0.000554|15:0.9692;0.000554|15:0.9693;0.000554|15:0.9694;0.000554|15:0.9695;0.000554|15:0.9696;0.000554|15:0.9697;0.000554|15:0.9698;0.000554|15:0.9699;0.000554|15:0.9700;0.000541|15:0.9701;0.000541|15:0.9702;0.000541|15:0.9703;0.000541|15:0.9704;0.000541|15:0.9705;0.000541|15:0.9706;0.000541|15:0.9707;0.000541|15:0.9708;0.000541|15:0.9709;0.000541|15:0.9710;0.000541|15:0.9711;0.000541|15:0.9712;0.000541|15:0.9713;0.000541|15:0.9714;0.000541|15:0.9715;0.000541|15:0.9716;0.000541|15:0.9717;0.000541|15:0.9718;0.000541|15:0.9719;0.000541|15:0.9720;0.000541|15:0.9721;0.000541|15:0.9722;0.000541|15:0.9723;0.000541|15:0.9724;0.000541|15:0.9725;0.000541|15:0.9726;0.000541|15:0.9727;0.000541|15:0.9728;0.000541|15:0.9729;0.000541|15:0.9730;0.000541|15:0.9731;0.000541|15:0.9732;0.000541|15:0.9733;0.000541|15:0.9734;0.000541|15:0.9735;0.000541|15:0.9736;0.000541|15:0.9737;0.000541|15:0.9738;0.000541|15:0.9739;0.000541|15:0.9740;0.000541|15:0.9741;0.000541|15:0.9742;0.000541|15:0.9743;0.000541|15:0.9744;0.000541|15:0.9745;0.000541|15:0.9746;0.000541|15:0.9747;0.000541|15:0.9748;0.000541|15:0.9749;0.000541|15:0.9750;0.000541|15:0.9751;0.000541|15:0.9752;0.000541|15:0.9753;0.000541|15:0.9754;0.000541|15:0.9755;0.000541|15:0.9756;0.000541|15:0.9757;0.000541|15:0.9758;0.000541|15:0.9759;0.000541|15:0.9760;0.000541|15:0.9761;0.000541|15:0.9762;0.000541|15:0.9763;0.000541|15:0.9764;0.000541|15:0.9765;0.000541|15:0.9766;0.000541|15:0.9767;0.000541|15:0.9768;0.000541|15:0.9769;0.000541|15:0.9770;0.000541|15:0.9771;0.000541|15:0.9772;0.000541|15:0.9773;0.000541|15:0.9774;0.000541|15:0.9775;0.000541|15:0.9776;0.000541|15:0.9777;0.000541|15:0.9778;0.000541|15:0.9779;0.000541|15:0.9780;0.000541|15:0.9781;0.000541|15:0.9782;0.000541|15:0.9783;0.000541|15:0.9784;0.000541|15:0.9785;0.000541|15:0.9786;0.000541|15:0.9787;0.000541|15:0.9788;0.000541|15:0.9789;0.000541|15:0.9790;0.000541|15:0.9791;0.000541|15:0.9792;0.000541|15:0.9793;0.000541|15:0.9794;0.000541|15:0.9795;0.000541|15:0.9796;0.000541|15:0.9797;0.000541|15:0.9798;0.000541|15:0.9799;0.000541|15:0.9800;0.000528|15:0.9801;0.000528|15:0.9802;0.000528|15:0.9803;0.000528|15:0.9804;0.000528|15:0.9805;0.000528|15:0.9806;0.000528|15:0.9807;0.000528|15:0.9808;0.000528|15:0.9809;0.000528|15:0.9810;0.000528|15:0.9811;0.000528|15:0.9812;0.000528|15:0.9813;0.000528|15:0.9814;0.000528|15:0.9815;0.000528|15:0.9816;0.000528|15:0.9817;0.000528|15:0.9818;0.000528|15:0.9819;0.000528|15:0.9820;0.000528|15:0.9821;0.000528|15:0.9822;0.000528|15:0.9823;0.000528|15:0.9824;0.000528|15:0.9825;0.000528|15:0.9826;0.000528|15:0.9827;0.000528|15:0.9828;0.000528|15:0.9829;0.000528|15:0.9830;0.000528|15:0.9831;0.000528|15:0.9832;0.000528|15:0.9833;0.000528|15:0.9834;0.000528|15:0.9835;0.000528|15:0.9836;0.000528|15:0.9837;0.000528|15:0.9838;0.000528|15:0.9839;0.000528|15:0.9840;0.000528|15:0.9841;0.000528|15:0.9842;0.000528|15:0.9843;0.000528|15:0.9844;0.000528|15:0.9845;0.000528|15:0.9846;0.000528|15:0.9847;0.000528|15:0.9848;0.000528|15:0.9849;0.000528|15:0.9850;0.000528|15:0.9851;0.000528|15:0.9852;0.000528|15:0.9853;0.000528|15:0.9854;0.000528|15:0.9855;0.000528|15:0.9856;0.000528|15:0.9857;0.000528|15:0.9858;0.000528|15:0.9859;0.000528|15:0.9860;0.000528|15:0.9861;0.000528|15:0.9862;0.000528|15:0.9863;0.000528|15:0.9864;0.000528|15:0.9865;0.000528|15:0.9866;0.000528|15:0.9867;0.000528|15:0.9868;0.000528|15:0.9869;0.000528|15:0.9870;0.000528|15:0.9871;0.000528|15:0.9872;0.000528|15:0.9873;0.000528|15:0.9874;0.000528|15:0.9875;0.000528|15:0.9876;0.000528|15:0.9877;0.000528|15:0.9878;0.000528|15:0.9879;0.000528|15:0.9880;0.000528|15:0.9881;0.000528|15:0.9882;0.000528|15:0.9883;0.000528|15:0.9884;0.000528|15:0.9885;0.000528|15:0.9886;0.000528|15:0.9887;0.000528|15:0.9888;0.000528|15:0.9889;0.000528|15:0.9890;0.000528|15:0.9891;0.000528|15:0.9892;0.000528|15:0.9893;0.000528|15:0.9894;0.000528|15:0.9895;0.000528|15:0.9896;0.000528|15:0.9897;0.000528|15:0.9898;0.000528|15:0.9899;0.000528|15:0.9900;0.000515|15:0.9901;0.000515|15:0.9902;0.000515|15:0.9903;0.000515|15:0.9904;0.000515|15:0.9905;0.000515|15:0.9906;0.000515|15:0.9907;0.000515|15:0.9908;0.000515|15:0.9909;0.000515|15:0.9910;0.000515|15:0.9911;0.000515|15:0.9912;0.000515|15:0.9913;0.000515|15:0.9914;0.000515|15:0.9915;0.000515|15:0.9916;0.000515|15:0.9917;0.000515|15:0.9918;0.000515|15:0.9919;0.000515|15:0.9920;0.000515|15:0.9921;0.000515|15:0.9922;0.000515|15:0.9923;0.000515|15:0.9924;0.000515|15:0.9925;0.000515|15:0.9926;0.000515|15:0.9927;0.000515|15:0.9928;0.000515|15:0.9929;0.000515|15:0.9930;0.000515|15:0.9931;0.000515|15:0.9932;0.000515|15:0.9933;0.000515|15:0.9934;0.000515|15:0.9935;0.000515|15:0.9936;0.000515|15:0.9937;0.000515|15:0.9938;0.000515|15:0.9939;0.000515|15:0.9940;0.000515|15:0.9941;0.000515|15:0.9942;0.000515|15:0.9943;0.000515|15:0.9944;0.000515|15:0.9945;0.000515|15:0.9946;0.000515|15:0.9947;0.000515|15:0.9948;0.000515|15:0.9949;0.000515|15:0.9950;0.000515|15:0.9951;0.000515|15:0.9952;0.000515|15:0.9953;0.000515|15:0.9954;0.000515|15:0.9955;0.000515|15:0.9956;0.000515|15:0.9957;0.000515|15:0.9958;0.000515|15:0.9959;0.000515|15:0.9960;0.000515|15:0.9961;0.000515|15:0.9962;0.000515|15:0.9963;0.000515|15:0.9964;0.000515|15:0.9965;0.000515|15:0.9966;0.000515|15:0.9967;0.000515|15:0.9968;0.000515|15:0.9969;0.000515|15:0.9970;0.000515|15:0.9971;0.000515|15:0.9972;0.000515|15:0.9973;0.000515|15:0.9974;0.000515|15:0.9975;0.000515|15:0.9976;0.000515|15:0.9977;0.000515|15:0.9978;0.000515|15:0.9979;0.000515|15:0.9980;0.000515|15:0.9981;0.000515|15:0.9982;0.000515|15:0.9983;0.000515|15:0.9984;0.000515|15:0.9985;0.000515|15:0.9986;0.000515|15:0.9987;0.000515|15:0.9988;0.000515|15:0.9989;0.000515|15:0.9990;0.000515|15:0.9991;0.000515|15:0.9992;0.000515|15:0.9993;0.000515|15:0.9994;0.000515|15:0.9995;0.000515|15:0.9996;0.000515|15:0.9997;0.000515|15:0.9998;0.000515|15:0.9999;0.000515|15:1.0000;0.000515|
Point(doGetString)
Point(onGetString)
}
Add(Edit,11390992,322,119)
{
Left=130
Top=35
Width=95
Text=""
Alignment=2
link(Str,15372820:Right,[(328,108)(311,108)(311,160)(195,160)])
}
Add(Label,954135,280,35)
{
Left=30
Top=15
Width=52
Height=17
Color=16776960
Transparent=0
Caption="Аргумент"
AutoSize=1
Alignment=2
}
Add(Label,604956,203,35)
{
Left=135
Top=15
Width=84
Height=17
Color=16776960
Transparent=0
Caption="Коэффициент"
AutoSize=1
Alignment=2
}