void BuildGlp(TBaseWorkShape AWN, DrawObject Glp, TBaseShape ASel)
{
TBaseShape BS;
FmParamAlternative fmParamAlternative = new FmParamAlternative();
Glp.SetBitMap(fmParamAlternative.pbTfs.Width, fmParamAlternative.pbTfs.Height);
// Glp.Canvas.Brush.Color = f_FonColor;
// Glp.Canvas.FillRect(TRect(0, 0, Glp.Width, Glp.Height));
AWN.StartPoint = new Point(0, 0);
AWN.Init();
AWN.Prepare();
/* if (f_BrushTFE)
* AWN.BrushStyle = bsSolid;
* else
* AWN.BrushStyle = bsClear;*/
AWN.BrushColor = f_BrushColor;
AWN.LineWidth = f_WSPenWidth;
AWN.PenWidth = f_WSPenWidth;
// AWN.Font.Assign(f_FontTFE);
AWN.FrameColorTFE = f_FrameColorTFE;
AWN.PenColor = f_LineColor;
Rectangle R = AWN.GetFrameRectWithLines();
int rx = (Glp.bmp.Width - R.Width) / 2 - R.Left;
int ry = (Glp.bmp.Height - R.Height) / 2 - R.Top;
AWN.SetOffsetPosition(rx, ry);
AWN.StartPoint = new Point(rx, ry);
if (ASel.Clon != null)
{
BS = ASel.Clon;
}
else
{
BS = ASel;
}
BS = AWN.ShapeSupportID(BS.ID);
if (BS != null)
{
BS.DrawFrame = true;
}
AWN.Prepare();
AWN.Paint(Glp.gr);
}
void MakeElementTFS(TPredicateItemTFS ATFS)
{
int n, m_who;
TBaseShape B;
string S;
TDynamicArray D = new TDynamicArray();
TBaseWorkShape WS = ATFS.TFS.BaseWorkShape;
ATFS.ListIDFill(D);
for (int i = 0; i <= D.Count - 1; i++)
{
n = D.GetPosition(i).Int_Value;
B = WS.ShapeSupportID(n);
m_who = B.TypeShape;
S = B.Make_One_Simple();
if (S.Length > 0)
{
if (m_who == 5)
{
f_PrRab = f_PrRab + S + "\r\n";
}
if (m_who == 6)
{
f_PrControlRab = f_PrControlRab + S + "\r\n";
}
if (m_who == 7)
{
f_PrControlFunc = f_PrControlFunc + S + "\r\n";
}
if (m_who == 8)
{
f_PrCheckCondition = f_PrCheckCondition + S + "\r\n";
}
}
}
D = null;
}
