绘图功能线问题

                            
定制了一些功能线         
  要求在使用画笔绘图时不要覆盖功能线      
  需要怎样定制功能线      
  才能使功能线生成后使用画笔绘图不会覆盖功能线      
  下面是功能线生成代码:      
  procedure   TfrmNewImg.DrawOptionLine;  
  var  
      i:longint;  
      ccode:TColorCode;  
      x:Longint;  
      y:Longint;  
      y1:longint;  
  begin  
      x   :=   4+39-1;  
      y   :=   34;  
      y1   :=   m_Bmp.Height;  
   
      with   m_Bmp.Canvas   do  
      begin  
          for   i:=   1   to   20   do  
          begin  
              ccode   :=   m_ColorCodeList.ColorCodeOf(i);  
              Pen.Color   :=   ccode.Color;  
              MoveTo(x,y);  
              LineTo(x,y1);  
              dec(x,2);  
          end;  
   
          x   :=   m_Bmp.Width   -(4+39);  
          for   i   :=   1   to   20   do  
          begin  
            ccode   :=   m_ColorCodeList.ColorCodeOf(i);  
            Pen.Color   :=   ccode.Color;  
            MoveTo(x,y);  
            LineTo(x,y1);  
            inc(x,2);  
          end;  
   
          ccode   :=   m_ColorCodeList.ColorCodeOf(1);  
          Pen.Color   :=   ccode.Color;  
          MoveTo(43,32);  
          LineTo(43   +   14   +   m_DataWidth,32);  
   
          ccode   :=   m_ColorCodeList.ColorCodeOf(edtStartPin.Value   );  
          SetPixel(Handle,41,32,ccode.Color);  
      end;  
  end;

查看回复