Подскажите как рисовать на компоненте PainBox?
Например, как нарисовать черные полоски через каждые 70 пикселей шириной 2 пикселя на этом компоненте длинной 700 пикселей?
Это не работает:
PaintBox1->Canvas->Pen->Color = clBlack;
PaintBox1->Canvas->Brush->Color = clBlack;
for (int Kor = 70; Kor <= PaintBox1->Width; Kor = Kor + 70)
{
PaintBox1->Canvas->Rectangle(Kor,0,Kor+2,PaintBox1->Height);
}

Так тоже не правильно при попытке нарисовать одну полоску:
PaintBox1->Canvas->Pen->Color = clBlack;
PaintBox1->Canvas->Brush->Color = clBlack;
PaintBox1->Canvas->MoveTo(70, 0);
PaintBox1->Canvas->LineTo(70, PaintBox1->Height);
PaintBox1->Canvas->LineTo(72, PaintBox1->Height);
PaintBox1->Canvas->LineTo(72, 0);
PaintBox1->Canvas->LineTo(70, 0);

Все работает, прямо твой код вставил...

Спасибо.
Перенес код в событие OnPaint – заработало. До этого код был помещен в событие формы OnShow.