Add(MainForm,11946591,77,133)
{
Left=20
Top=105
BorderStyle=0
Position=1
Point(Handle)
Point(Width)
Point(Height)
Point(onResize)
Point(onPaint)
link(onPaint,5467618:doDraw,[])
}
Add(Img_Gradient,5467618,147,161)
{
Point2AsOffset=0
DrawSource=1
GradientStyle=12
InversGrad=0
Frame=1
link(onDraw,6501264:doEvent1,[])
link(Point2,10737611:Point,[])
}
Add(PointXY,10737611,161,112)
{
X=100
Y=100
link(X,13420734:getVar,[])
link(Y,6918388:getVar,[])
}
Add(Img_Text,2789688,259,252)
{
Font=[Arial,48,1,16777215,204]
Text="Привет"
DrawSource=1
link(X,544150:Var2,[])
link(Y,16747202:Var2,[(286,238)(335,238)])
}
Add(LineBreakEx,13420734,161,63)
{
Caption="Width"
Type=2
}
Add(LineBreakEx,6918388,168,84)
{
Caption="Height"
Type=2
}
Add(LineBreakEx,11869530,84,210)
{
Caption="Width"
Type=3
link(_Data,11946591:Width,[])
}
Add(LineBreakEx,2105686,91,189)
{
Caption="Height"
Type=3
link(_Data,11946591:Height,[])
}
Add(GetDataEx,16747202,322,210)
{
link(Data,1785390:Result,[])
}
Add(Math,1242992,392,161)
{
OpType=1
Op2=1
ResultType=0
link(onResult,2883150:doOperation,[])
link(Op1,544150:Var3,[(398,149)(341,149)(341,205)])
}
Add(Math,2883150,441,161)
{
OpType=1
Op2=1
ResultType=0
link(Op1,16747202:Var3,[(447,149)(393,149)(393,219)])
}
Add(MathParse,13490198,273,161)
{
MathStr="(%1 - %2) div 2 + 1"
ResultType=0
link(onResult,1785390:doCalc,[])
link(X1,1457367:getVar,[])
link(X2,2789688:TextWidth,[(286,149)(276,149)(276,296)(265,296)])
}
Add(MathParse,1785390,329,161)
{
MathStr="(%1 - %2) div 2 + 1"
ResultType=0
link(onResult,1242992:doOperation,[])
link(X1,10662531:getVar,[])
link(X2,2789688:TextHeight,[(342,149)(307,149)(307,296)(272,296)])
}
Add(GetDataEx,544150,266,196)
{
link(Data,13490198:Result,[])
}
Add(Img_Text,955889,420,252)
{
Font=[Arial,48,1,0,204]
Text="Привет"
DrawSource=1
link(X,1242992:Result,[(440,222)(398,222)])
link(Y,2883150:Result,[])
}
Add(Hub,6501264,196,161)
{
OutCount=3
link(onEvent1,13490198:doCalc,[])
link(onEvent2,2789688:doDraw,[(244,174)(244,258)])
link(onEvent3,955889:doDraw,[(324,181)(324,258)])
}
Add(LineBreakEx,10662531,329,126)
{
Caption="Height"
Type=2
}
Add(LineBreakEx,1457367,273,126)
{
Caption="Width"
Type=2
}
Разработчик
Ответов: 26170
Рейтинг: 2127
|
|||
Вот схема гораздо проще, но нужен исправленный компонент Img_Text (взять можно здесь [svn]Img_Shift.pas[/svn]). Предыдущий не читал размер текста при режиме вывода текста на Handle
|
|||
карма: 22 |
|