コード例 #1
0
        public TPaintGrid(FrmMain AOwnerForm /*TCanvas* ACanvas, HWND AOwnerForm*/)
        {
            f_Width             = f_Height = 0;
            f_StepPixels        = 6;
            f_StepPixelsGrid    = 8;
            f_FonColor          = Color.White;
            f_PixelColor        = Color.Black;
            f_PaintPixels       = true;
            f_OwnerForm         = AOwnerForm;
            f_LEControl         = false;
            f_WndHandler        = new IntPtr();
            f_UnderControl      = null;
            f_RefreshFon        = true;
            f_CurrEndPoint      = new Point(80, 100);
            f_X_offs            = 0; //смещение по Х
            f_Y_offs            = 0; //смещение по Y
            f_WSPenWidth        = 1;
            f_X_offsSum         = f_Y_offsSum = 0;
            f_LineColor         = Color.Black;
            f_BrushTFE          = false;
            f_BrushColor        = Color.White;
            f_LeaveFlagColor    = Color.Red;
            f_EnterFlagColor    = Color.Lime;
            f_CurrentCommand    = 0;
            f_FlagType          = 0;
            f_TypMouseOperation = 0;
            f_SelectedTFE       = null;
            f_SelectedTFS       = null;
            //         f_FrameColorTFE = null;
            //        f_FrameColorTFS = null;
            f_WSMoving = false;
            //    f_SelectedFlag = null;
            f_Regim = 0;
            f_SelectedAlternateFirst = null; //первая выбранная ТФС для альтернативы
            f_SelectedAlternateLast  = null; //первая выбранная ТФС для альтернативы
            f_SelectedDeleteTFSFirst = null; //первая выбранная ТФС для альтернативы
            f_SelectedDeleteTFSLast  = null; //первая выбранная ТФС для альтернативы


            /*        f_FontTFE = new Font();
             *      ScrBitmap = new Graphics::TBitmap;
             *      ScrBitmapCopy = new Graphics::TBitmap;*/
            f_ClipPath     = new TClipPath();
            g_PainterList  = new TPainterList();
            f_ListForPaint = new TListForPaint();
            /*   f_FlagController = new TFlagController();*/
            f_InvalidateList       = new TInvalidateList();
            f_LineCutting          = new TLineCutting(f_Canvas);
            g_AlternateList        = new TAlternateList();
            f_AltWSList            = new TAltWSList();
            f_localVisiblearrowall = false;
        }
コード例 #2
0
        public void FillPainterList(TPainterList PainterList, int AltId, int ANumAlt, int IdParentShape)
        {
            TBaseWorkShape WShape;
            int            uid = 0;

            PainterList.List.Clear();
            WShape = FindFirstChild(AltId, ANumAlt, IdParentShape, ref uid);
            while (WShape != null)
            {
                PainterList.List.Add(WShape);
                WShape = FindNextChild(uid);
            }
            DisableFind(uid);
        }