Dilma писал(а):
вот так делать надоИсправил.
Sega, вот испавленный компонент [svn]BitBtn.pas[/svn]
А вот схема с миганием надписи
Add(MainForm,2953706,168,217)
{
}
Add(FontManager,6528328,301,154)
{
ControlManager="BitBtn"
Point(FontCharset)
}
Add(Font,10839767,301,231)
{
Font=[MS Sans Serif,8,0,128,1]
Point(CharSet)
link(onFont,14338852:doWork2,[])
link(Size,2773481:Var2,[])
link(Name,10012655:Var2,[])
link(Style,14116883:Var2,[])
link(CharSet,15348443:Var2,[])
}
Add(Timer,117992,168,266)
{
Interval=500
Enable=1
link(onTimer,2063175:doSwitch,[])
}
Add(Font,12452400,343,273)
{
Font=[MS Sans Serif,8,0,65535,1]
Point(CharSet)
link(onFont,14338852:doWork3,[(396,279)])
link(Size,2773481:Var3,[(349,198)])
link(Name,10012655:Var3,[(363,205)])
link(Style,14116883:Var3,[(370,212)])
link(CharSet,15348443:Var3,[(377,219)])
}
Add(Switch,2063175,210,266)
{
DataOn=Integer(1)
DataOff=Integer(0)
link(onSwitch,1093669:doEvent,[])
}
Add(IndexToChanel,1093669,252,266)
{
link(onEvent1,10839767:doFont,[(292,272)(292,237)])
link(onEvent2,12452400:doFont,[])
}
Add(GetDataEx,2773481,294,189)
{
link(Data,6528328:FontSize,[])
}
Add(GetDataEx,10012655,308,196)
{
link(Data,6528328:FontName,[])
}
Add(GetDataEx,14116883,315,203)
{
link(Data,6528328:FontStyle,[])
}
Add(GetDataEx,15348443,322,210)
{
link(Data,6528328:FontCharset,[])
}
Add(HubEx,14338852,392,224)
{
Angle=3
link(onEvent,6528328:doSetFont,[(396,142)(290,142)(290,160)])
}
Add(BitBtn,7545736,126,266)
{
Left=45
Top=55
Font=[MS Sans Serif,8,1,128,1]
Name="BitBtn"
Caption="Start"
Flat=1
Point(doFont)
link(onClick,117992:doTimer,[])
}