oldTV, Вот то о чем говорил тебе Dilma (схема твоя)
Add(MainForm,2037592,32,148)
{ Left=20 Top=105 Point(Left) Point(Top) } Add(ChildForm,11094603,501,183) { } BEGIN_SDK Add(EditMulti,1353078,3,3) { WorkCount=5 VarCount=1 link(doWork1,9518471:doPosition,[(40,9)(40,104)]) link(doWork2,9518471:doMax,[(40,16)(40,111)]) link(Var1,5888265:Handle,[(9,138)(83,138)]) } Add(MainForm,5888265,77,28) { Left=35 Top=105 Height=46 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) } Add(ProgressBar,9518471,77,98) { Left=5 Top=5 Width=385 Height=10 Smooth=1 ProgressColor=8388608 Point(doMax) } END_SDK Add(Button,15498871,137,309) { Left=10 Top=10 Width=80 Height=25 link(onClick,16218418:doEvent1,[]) } Add(Hub,2708631,403,309) { OutCount=8 link(onEvent1,471199:doHideCloseButton,[]) link(onEvent2,471199:doHideMinimizeButton,[(468,322)(468,322)]) link(onEvent3,471199:doHideMaximizeButton,[(468,329)(468,329)]) link(onEvent4,471199:doHideSYSMENU,[(468,336)(468,336)]) link(onEvent5,13674102:doOperation,[(531,343)(531,315)]) link(onEvent6,3209915:doLeft,[(503,350)(503,315)]) link(onEvent7,3209915:doTop,[(503,357)(503,322)]) } Add(Hub,16218418,221,309) { OutCount=6 link(onEvent1,15623828:doClear,[(262,315)(262,476)]) link(onEvent2,3986514:doData,[(310,322)(310,189)]) link(onEvent3,2708631:doEvent1,[(310,329)(310,315)]) link(onEvent4,12843319:doEvent1,[(274,336)(274,392)]) link(onEvent5,11478214:doActive,[]) link(onEvent6,5309761:doFor,[(311,350)(311,392)]) } Add(GetData,5236718,501,239) { Count=3 link(Data,11094603:Var1,[]) } Add(For,5309761,361,386) { Start=1 link(onEvent,3859791:doEvent1,[]) link(onStop,9819621:doData,[(403,399)(403,423)(274,423)(274,434)]) link(End,1774201:Data1,[(374,262)(367,262)]) } Add(GlobalVar,11852600,361,71) { Name="100" Data=Integer(10000) } Add(Hub,3859791,403,386) { OutCount=3 link(onEvent1,8763891:doProcessMessages,[]) link(onEvent2,15623828:doAdd,[(485,399)(485,469)]) link(onEvent3,6976788:doData,[(445,406)(445,423)(351,423)(351,434)]) } Add(DoData,6976788,361,428) { link(onEventData,11094603:doWork1,[(447,434)(447,189)]) link(Data,5309761:Position,[]) } Add(StringTable,15623828,536,463) { Left=110 Top=10 Width=265 Height=250 Columns=#5:Число| Grid=0 Redaction=1 Point(doEnsureVisible) Point(onAdd) link(onAdd,15623828:doEnsureVisible,[(579,476)(579,520)(526,520)(526,504)]) } Add(WinTools,11478214,361,309) { link(Handle,5236718:Data1,[(367,290)(507,290)]) } Add(SysMenu,471199,501,309) { link(Handle,5236718:Data2,[(507,290)(514,290)]) } Add(PosWindow,3209915,571,309) { link(Handle,5236718:Data3,[(577,290)(521,290)]) link(Left,2037592:Left,[(584,255)(45,255)]) link(Top,13674102:Result,[(591,291)(615,291)(615,351)(633,351)]) } Add(DoData,3986514,361,183) { link(onEventData,11094603:doWork2,[(447,189)(447,196)]) link(Data,1774201:Data2,[(367,161)(374,161)]) } Add(Math,13674102,627,309) { Op2=150 link(Op1,2037592:Top,[(633,255)(52,255)]) } Add(GetData,1774201,361,106) { link(Data,11852600:Var,[]) } Add(Hub,12843319,284,386) { InCount=2 OutCount=1 link(onEvent1,11478214:doVisible,[(338,392)(338,315)]) } Add(DoData,9819621,284,428) { Data=Integer(0) link(onEventData,12843319:doEvent2,[(326,434)(326,423)(274,423)(274,399)]) } Add(Application,8763891,522,386) { }
[size=-2]------ Добавлено в 08:25
Знаки "??????????????" - это издержки моего иврита
Если примениш модернизированый Galkov - ым StringTable, то одновременно с ProgressBar будут бежать строки в StringTable
|