Двойное рисование линии на канве

[gs199]

Работаю в среде Borland Builder.

По всем законам (в ДОСовской BGI графике это работало) двойное проведение линии на канве в моде pmXor ее уничтожает и появится исходное изображение на канве. То есть двойное нажатие на Button1 должно восстанавливать картинку. Этого не происходит ПОЧЕМУ?????

void __fastcall THistForm::Button1Click(TObject *Sender)
{
HistForm->Canvas->Pen->Style = psSolid;
HistForm->CHist1->Canvas->MoveTo3D(204, 26, 0);
HistForm->CHist1->Canvas->Pen->Width = 1;
HistForm->Canvas->Pen->Mode = pmXor;
HistForm->CHist1->Canvas->LineTo3D(204, 143, 0);
}

[gs199]

Проблема решена. Линию надо рисовать НЕ чёрным цыетом.