bs喜欢以重金诱惑别人滴淫

你这家伙原来猫这了，怪不得不见影。上QQ有事找你

上班中，无法上QQ。。。

理解，晚上在找你

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Image1->Canvas ->Pen ->Mode = pmXor;

Image1->Canvas->Pen ->Color = clRed;

Image1->Canvas ->Pen ->Width = 10;

Image1->Canvas ->MoveTo(0,0);

Image1->Canvas->LineTo(100,100);

}

这个符合楼主的情况吗？能改变颜色的啊，只是颜色不是红色罢了。

哇，是两百分啊~~抢劫！！！
象CAD一样要画不同颜色的线，用pmXor应该不太合适，一种颜色跨过其它颜色时会变化的。我只做过编辑线段的程序，线段中有几个锚点，拉动它变化曲线，因为线段不多（不超过50根），所以是直接使用双缓冲重画的，就是先画到Bitmap上，再画到窗体上。为了改进拖动线段时的绘图效率，我把除当前线段外的所有东东画到另一个Bitmap上，然后用这个Bitmap不断覆盖并重画当前线段来实现的。楼主也可以试试，效率应该还可以吧，看不出“跳帧”。

是个好主意

不过拖动时用pmXor，确定后再用pmCopy画一下也是可以接受的

这么高的分，水源大牛居然没有来凑热闹，真不可思议。

实在不好意思哈，看来CB的前途堪忧啊，重金之下也没有人灌水，55555，感谢samchoy(老蔡) 的指点：
这个期望颜色的设置实在是简单，只是当时搞不清与那个颜色相异或，下面为设置代码：
              TPenMode OldPenMode = Image1->Canvas->Pen->Mode;
            TColor OldPenColor = Image1->Canvas->Pen->Color;
            TColor YourColor = xxxx; 
//下面这句关键，窍门就在这里了
            Image1->Canvas->Pen->Color = YourColor ^ Image1->Canvas->Brush->Color;
            Image1->Canvas->Pen->Mode = pmXor;
            Image1->Canvas->MoveTo(m_PointA.x,m_PointA.y);
            Image1->Canvas->LineTo(m_PointB.x,m_PointB.y);
            Image1->Canvas->MoveTo(m_PointA.x,m_PointA.y);
            Image1->Canvas->LineTo(X,Y);
            m_PointB.x= X;
            m_PointB.y= Y;
//回复原来设置
            Image1->Canvas->Pen->Color = OldPenColor;
            Image1->Canvas->Pen->Mode = OldPenMode;

//结束
希望这点小窍门能对需要的人有点帮助，再一次感谢samchoy(老蔡)！

这么多分，不会，着急呀