anchor.diff:    CY:= (R.Top+R.Bottom) div 2;
     DrawLine(C, CX-ASize, CY, CX+ASize, CY, AColor);
     DrawLine(C, CX, CY-ASize, CX, CY+ASize, AColor);
  -end;
  -
  -
  -procedure DrawCrossSign(C: TCanvas; const R: TRect; ASize: integer; AColor: TColor);
  -var
  -  CX, CY: integer;
  -begin
  -  C.Pen.Color:= AColor;
  -  CX:= (R.Left+R.Right) div 2;
  -  CY:= (R.Top+R.Bottom) div 2;
  -
  -  C.MoveTo(CX - ASize+1, CY - ASize+1);
  -  C.LineTo(CX + ASize+1, CY + ASize+1);
  -
  -  C.MoveTo(CX + ASize, CY - ASize+1);
  -  C.LineTo(CX - ASize, CY + ASize+1);
   end;
   
   
  
positive.code:     if NColorXBg<>clNone then
      begin
        RectRound:= R;
        InflateRect(RectRound, DoScale(FOptSpaceXIncrementRound), DoScale(FOptSpaceXIncrementRound));
  
        RectBitmap.Left:= 0;
        RectBitmap.Top:= 0;
  
negative.code:         FColorArrowOver,
          FColorArrow);
  
        NIndent:= (R.Right-R.Left) div 2 - DoScale(FOptArrowSize);
  
        DoPaintBgTo(C, R);
        CanvasPaintXMark(C, R, NColor, NIndent, NIndent, 1);
        DoPaintAfter(ElemType, -1, C, R);
      end;
  end;
  