В твоем примере лучше с DoubleBuffered
------------ Дoбавленo в 15.02:
Примерно так:
Add(MainForm,4841528,630,182)
{
Width=419
Height=110
Caption="Downloader"
Position=1
}
Add(Button,6980498,287,217)
{
Left=5
Top=10
Width=120
Caption="download"
link(onClick,15646466:doEvent1,[])
}
Add(Edit,9797136,399,133)
{
Left=130
Top=10
Width=265
Text="http://cs-soft.my1.ru/1.jpg"
}
Add(HTTP_Get,3284981,399,203)
{
FileName="babag.jpg"
link(onStatus,16169606:doCalc,[(447,209)(447,181)])
link(onDownload,917838:doMessage,[])
link(onURLSize,9361016:doCalc,[(448,223)(448,237)])
link(URL,9797136:Text,[])
}
Add(ProgressBar,2763295,567,133)
{
Left=3
Top=45
Width=395
Height=15
Ctl3D=0
ProgressColor=-16777198
Point(doMax)
}
Add(Hub,15646466,350,217)
{
link(onEvent1,3284981:GetURLSize,[])
link(onEvent2,3284981:doDownload,[(375,230)(375,209)])
}
Add(MathParse,9361016,462,231)
{
DataCount=1
MathStr="%1 / 100"
}
Add(MathParse,16169606,462,175)
{
MathStr="%1 / %2"
ResultType=0
link(onResult,2442446:doEvent1,[])
link(X2,9361016:Result,[(475,166)(454,166)(454,271)(468,271)])
}
Add(Hub,2442446,511,175)
{
link(onEvent1,2763295:doPosition,[(536,181)(536,139)])
link(onEvent2,4517912:doStrCat,[])
}
Add(StrCat,4517912,567,182)
{
Str2="%"
link(onStrCat,4841528:doCaption,[])
}
Add(Message,917838,511,210)
{
Message="Все гуд."
}
Add(Label,12487791,287,133)
{
Left=280
Top=84
Transparent=0
}