Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2006-06-29 08:25:38 ЛС | профиль | цитата
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
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0