Эдик писал(а):
Вот бы её ещё улучшить или сделать возможность обучать её.Как лучше обучать пока не придумал.
------------ Дoбавленo в 15.02:
попробую разобрать шрифты C:WINDOWSFonts
------------ Дoбавленo в 15.23:
вроде разобрал
Add(MainForm,2953706,196,77)
{
Width=503
Height=305
Point(Handle)
}
Add(Button,961961,196,126)
{
Left=160
Top=130
Data=String(5)
link(onClick,5481481:doFor,[])
}
Add(Img_Text,16731505,322,133)
{
Font=[Arial,16,0,0,204]
link(onDraw,12762743:doRefresh,[(370,139)(370,83)])
link(Bitmap,15447747:Var1,[(328,121)(354,121)(354,163)])
link(Text,9224261:Var3,[(335,114)(295,114)(295,191)])
}
Add(For,5481481,245,126)
{
End=9
link(onEvent,16303592:doEvent1,[])
}
Add(PictureStream,5996935,378,210)
{
link(FileName,15413548:FString,[(384,177)(335,177)(335,331)(286,331)])
link(Bitmap,12492921:Result,[(391,198)(440,198)])
}
Add(Hub,16303592,287,126)
{
OutCount=4
link(onEvent1,12762743:doClear,[(343,132)(343,90)])
link(onEvent2,16731505:doDraw,[])
link(onEvent3,12492921:doCopy,[(367,146)(367,160)])
link(onEvent4,15413548:doString,[(313,153)(313,223)(268,223)(268,293)])
}
Add(FormatStr,15413548,280,287)
{
Mask="%1zzz\%2.bmp"
Point(FString)
link(onFString,5996935:doSave,[(345,293)(345,223)])
link(Str1,1781890:CurrentDir,[])
link(Str2,9224261:Var2,[(293,241)(251,241)])
}
Add(Dir,1781890,280,245)
{
}
Add(GetDataEx,9224261,238,182)
{
link(Data,5481481:Position,[])
}
Add(PaintBox,12762743,385,77)
{
Left=260
Top=75
Width=60
Height=65
Color=16777215
}
Add(GetDataEx,15447747,371,154)
{
Angle=1
link(Data,5514281:Var2,[(391,163)])
}
Add(Img_Copy,12492921,434,154)
{
Point(Result)
link(Source,5514281:Var3,[(440,128)])
link(X,16731505:TextWidth,[(447,142)(387,142)(387,177)(328,177)])
link(Y,16731505:TextHeight,[(454,142)(394,142)(394,177)(335,177)])
}
Add(GetDataEx,5514281,378,119)
{
link(Data,12762743:Bitmap,[])
}