Exemplo n.º 1
0
        override public void Init()
        {
            Point P1 = new Point(), P2 = new Point();

            FreeWorkLines();
            FreeWorkShapes();
            TTfeRectShape  Rct;
            TTfeRhombShape Rhmb;

            F_LastShapeId = F_NumberShapeId;
            P1.X          = StartPoint.X + 4 * F_Step;
            P1.Y          = StartPoint.Y;

            F_LastShapeId++;
            F_NumberShapeId = F_LastShapeId;
            Rct             = new TTfeRectShape(P1.X, P1.Y, F_Step, F_LastShapeId);
            AddShape(Rct);

            Rct.GetTailPoint(1, ref P2);
            P2.X = P2.X + 2 * F_Step;
            F_LastShapeId++;
            Rhmb           = new TTfeRhombShape(P2.X, P2.Y, F_Step, F_LastShapeId);
            Rhmb.TailLeft  = true;
            Rhmb.TailTop   = true;
            Rhmb.TailRight = true;
            AddShape(Rhmb);
            CreateLines();
            CalcWidthWork();
            F_Indent = FirstLine.xEnd - FirstLine.xStart;
        }
Exemplo n.º 2
0
        override public void Init()
        {
            Point P1 = new Point(), P2 = new Point();

            FreeWorkLines();
            FreeWorkShapes();
            TTfeRectShape Rct;
            TTfeEllShape  Ell;

            F_LastShapeId = F_NumberShapeId;
            P1.X          = StartPoint.X + 6 * F_Step;
            P1.Y          = StartPoint.Y - 6 * F_Step;

            F_LastShapeId++;
            F_NumberShapeId = F_LastShapeId;
            Rct             = new TTfeRectShape(P1.X, P1.Y, F_Step, F_LastShapeId + 1);
            AddShape(Rct);

            F_LastShapeId++;
            P1.Y = StartPoint.Y;
            Rct  = new TTfeRectShape(P1.X, P1.Y, F_Step, F_LastShapeId - 1);
            AddShape(Rct);


            Rct.GetTailPoint(1, ref P1);
            P1.X = P1.X + F_Step;
            P1.Y = StartPoint.Y;
            F_LastShapeId++;
            Ell           = new TTfeEllShape(P1.X, P1.Y, F_Step, F_LastShapeId);
            Ell.TailLeft  = true;
            Ell.TailTop   = true;
            Ell.TailRight = true;
            AddShape(Ell);

            CreateLines();
            F_Indent = FirstLine.xEnd - FirstLine.xStart;
        }