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; }