sew960i писал(а):
тогда может так?
code_21788.txt
Tad писал(а):
Clarc,в KOL есть специальная функция. Вот попробуй.
code_21799.txt
------------ Дoбавленo в 16.09:

Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,21,105)
{
Height=61
}
Add(Label,13245848,294,238)
{
Left=50
Top=5
Width=64
Color=14257229
Caption=""
}
Add(Label,16751708,336,238)
{
Left=5
Top=5
Width=41
Height=17
Color=14257229
Caption="Статус:"
}
Add(Math,10806665,161,238)
{
OpType=3
Op2=1048576
link(onResult,11506935:doCopy,[])
}
Add(Copy,11506935,203,238)
{
Position=1
Count=4
link(onCopy,7589878:doString,[])
}
Add(Math,9463753,161,195)
{
OpType=3
Op2=1048576
link(onResult,787360:doCopy,[])
}
Add(Copy,787360,203,195)
{
Position=1
Count=4
link(onCopy,9045356:doValue,[])
}
Add(FormatStr,7589878,245,238)
{
Mask="%1 МБ из %2 МБ"
link(onFString,13245848:doText,[])
link(Str2,9045356:Value,[])
}
Add(Memory,9045356,252,195)
{
}
ver(4.04 build 184)
Add(MainForm,2953706,21,105)
{
Height=61
}
Add(Label,13245848,294,238)
{
Left=50
Top=5
Width=64
Color=14257229
Caption=""
}
Add(Label,16751708,336,238)
{
Left=5
Top=5
Width=41
Height=17
Color=14257229
Caption="Статус:"
}
Add(Math,10806665,161,238)
{
OpType=3
Op2=1048576
link(onResult,11506935:doCopy,[])
}
Add(Copy,11506935,203,238)
{
Position=1
Count=4
link(onCopy,7589878:doString,[])
}
Add(Math,9463753,161,195)
{
OpType=3
Op2=1048576
link(onResult,787360:doCopy,[])
}
Add(Copy,787360,203,195)
{
Position=1
Count=4
link(onCopy,9045356:doValue,[])
}
Add(FormatStr,7589878,245,238)
{
Mask="%1 МБ из %2 МБ"
link(onFString,13245848:doText,[])
link(Str2,9045356:Value,[])
}
Add(Memory,9045356,252,195)
{
}
ВОт код!