Помогите разобраться с этим.
Есть 3 кода:
Первый Tad'a:
code_75 Этот код рабочий, но есть вопросы с модальностью. У меня на проекте не воспроизводится. Не знаю почему.
Есть код Galkov'a:
Add(MainForm,13302103,21,105)
{ Left=20 Top=105 } Add(ChildForm,11094603,343,98) { link(onEvent1,14866329:doEvent1,[(385,104)(385,142)(228,142)(228,160)]) } BEGIN_SDK Add(EditMulti,1353078,3,3) { EventCount=1 WorkCount=3 Width=195 Height=204 link(doWork1,5888265:doVisible,[(14,9)(14,90)]) link(doWork2,12398991:doPosition,[(22,16)(22,48)]) link(doWork3,5888265:doClose,[(47,23)(47,83)]) } Add(MainForm,5888265,91,56) { Left=35 Top=105 Height=75 Color=-16777212 Font=[Tahoma,8,0,0,204] Caption="Поиск чего то очень нужного...." BorderStyle=4 ShowType=1 TaskBar=1 Visible=1 Cursor=5 MouseCapture=0 Position=1 Point(doVisible) link(onCreate,4579374:doHideSYSMENU,[(134,97)(134,110)(81,110)(81,146)]) } Add(ProgressBar,12398991,42,42) { Width=394 Height=24 Max=1000 Smooth=1 ProgressColor=16711680 } Add(SysMenu,4579374,91,119) { link(Handle,5888265:Handle,[(97,100)(97,121)]) } Add(Button,503237,91,14) { Left=335 Top=30 link(onClick,1353078:onEvent1,[(160,20)(160,9)]) } END_SDK Add(Button,15498871,77,105) { Left=10 Top=10 Width=80 Height=25 Caption="&Push" link(onClick,16218418:doEvent1,[]) } Add(Hub,16218418,133,105) { OutCount=3 link(onEvent1,14709:doTimer,[]) link(onEvent2,11094603:doWork1,[(177,118)(177,104)]) } Add(Timer,14709,238,105) { Interval=10 Enable=1 AutoStop=1000 Point(onStop) link(onTimer,8270629:doNext,[]) link(onStop,11094603:doWork3,[]) } Add(Counter,8270629,294,105) { Max=1000 link(onNext,11094603:doWork2,[]) } Add(Message,1960843,189,119) { Message="Вторая модальная форма" } Add(Hub,14866329,238,154) { link(onEvent1,14709:doStop,[(280,160)(280,146)(228,146)(228,118)]) link(onEvent2,8270629:doReset,[(282,167)(282,125)]) }
В нем решены вопросы с модальностью и всякими системными меню. Компонент Application в нем не используется !!! Но все прекрасно пашет.
Я объединил два кода и получил вот это:
Add(MainForm,2037592,322,196)
{ Left=20 Top=105 Point(Left) Point(Top) } Add(Button,15498871,322,350) { Left=10 Top=10 Width=80 Height=25 link(onClick,16218418:doEvent1,[]) } Add(DoData,9819621,490,420) { Data=Integer(0) link(onEventData,6807365:doWork3,[(614,426)(614,272)]) } Add(Hub,16218418,406,350) { OutCount=6 link(onEvent1,15623828:doClear,[]) link(onEvent2,3986514:doData,[(492,363)(492,209)]) link(onEvent3,6807365:doWork1,[(572,370)(572,258)]) link(onEvent5,5309761:doFor,[(492,384)(492,377)]) } Add(ChildForm,6807365,707,252) { link(onEvent1,5309761:doStop,[(749,258)(749,327)(536,327)(536,384)]) link(Data1,2037592:Left,[(713,247)(335,247)]) link(Data2,2037592:Top,[(720,247)(342,247)]) } BEGIN_SDK Add(EditMulti,1353078,3,3) { EventCount=1 WorkCount=4 DataCount=2 Width=328 Height=323 link(doWork1,5888265:doVisible,[(47,9)(47,90)]) link(doWork2,12398991:doPosition,[(22,16)(22,48)]) link(doWork3,5888265:doClose,[(47,23)(47,83)]) link(doWork4,12398991:doMax,[(22,30)(22,55)]) } Add(MainForm,5888265,91,56) { Left=35 Top=105 Height=75 Color=-16777212 Font=[Tahoma,8,0,0,204] Caption="Поиск чего то очень нужного...." BorderStyle=4 ShowType=1 TaskBar=1 Visible=1 Cursor=5 MouseCapture=0 Position=1 Point(doVisible) link(onCreate,10465290:doEvent1,[(133,97)(133,176)(4,176)(4,258)]) } Add(ProgressBar,12398991,42,42) { Width=394 Height=24 Max=1000 Smooth=1 ProgressColor=16711680 Point(doMax) } Add(SysMenu,4579374,91,196) { link(Handle,14140281:Data1,[]) } Add(Button,503237,91,14) { Left=335 Top=30 Caption="Отмена" link(onClick,1353078:onEvent1,[(227,20)(227,9)]) } Add(Math,13674102,147,252) { Op2=150 link(Op1,1353078:Data2,[(153,128)(16,128)]) } Add(PosWindow,3209915,91,252) { link(Handle,14140281:Data2,[(97,205)(104,205)]) link(Left,1353078:Data1,[(104,128)(9,128)]) link(Top,13674102:Result,[(111,242)(139,242)(139,302)(153,302)]) } Add(GetData,14140281,91,119) { link(Data,5888265:Handle,[(97,114)(97,114)]) } Add(Hub,10465290,14,252) { OutCount=4 link(onEvent1,4579374:doHideSYSMENU,[(68,258)(68,223)]) link(onEvent2,13674102:doOperation,[(96,265)(96,258)]) link(onEvent3,3209915:doLeft,[(68,272)(68,258)]) link(onEvent4,3209915:doTop,[(68,279)(68,265)]) } END_SDK Add(For,5309761,546,371) { Start=1 link(onEvent,3859791:doEvent1,[]) link(onStop,9819621:doData,[(588,384)(588,411)(480,411)(480,426)]) link(End,1774201:Data1,[(559,303)(552,303)]) } Add(GlobalVar,11852600,546,119) { Name="n" Data=Integer(10000) } Add(Hub,3859791,588,371) { OutCount=3 link(onEvent1,8763891:doProcessMessages,[]) link(onEvent2,15623828:doInsert,[]) link(onEvent3,6976788:doData,[(630,391)(630,411)(536,411)(536,426)]) } Add(DoData,6976788,546,420) { link(onEventData,6807365:doWork2,[(642,426)(642,265)]) link(Data,5309761:Position,[]) } Add(StringTable,15623828,707,343) { Left=110 Top=10 Width=265 Height=250 Columns=#5:Число| Grid=0 Redaction=1 Point(doInsert) } Add(GetData,1774201,546,147) { link(Data,11852600:Var,[]) } Add(DoData,3986514,546,203) { link(onEventData,6807365:doWork4,[(642,209)(642,279)]) link(Data,1774201:Data2,[(552,191)(559,191)]) } Add(Application,8763891,651,371) { }
Это код хорош тем, что форма отобразилась, но работа по циклу не идет. Не смотря на Application.
Помогите, если не трудно. Осталось только это....
Заранее всем спасибо большое.
[size=-2]------ Добавлено в 12:55
tsdima - ты волшебник. То что нужно.
|