народ помогите. Я только начал изучать билдер и встал перед таким траблом. Рисую значит граф. но когда я его прокручиваю он прокручивается не совсем так как надо. остаюстся куски от старой прорисовки. я так понимаю надо просто обновлять экран? как это сделать в билдире? :wall:

авторvoid drw(float x, float y, int idx)
{

if(idx==1)
{
Form1->Canvas->Pen->Color=RGB(0,0,0);

Form1->Canvas->Rectangle(x,y+25,x+50,y+50);


Form1->Canvas->MoveTo(x+50,y+37);
Form1->Canvas->LineTo(x+150,y);
Form1->Canvas->MoveTo(x+50,y+37);
Form1->Canvas->LineTo(x+150,y+75);
}
if(idx==2)
{
Form1->Canvas->Pen->Color=RGB(0,0,0);
Form1->Canvas->MoveTo(x,y+25);
Form1->Canvas->LineTo(x+150,y);
Form1->Canvas->MoveTo(x,y+25);
Form1->Canvas->LineTo(x+150,y+50);
}
}
void edrw(float x, float y)
{
drw(x,y,1);
drw(x+150,y-25,2);
drw(x+150,y+50,2);
}

void __fastcall TForm1::FormPaint(TObject *Sender)
{


edrw(200,325);
/*drw(350,300,2);
drw(350,375,2);*/

/*


Form1->Canvas->Pen->Color=RGB(0,0,0);
Canvas->Brush->Color = clYellow;

Form1->Canvas->MoveTo(100,412);
Form1->Canvas->LineTo(200,362);

Form1->Canvas->MoveTo(250,362);
Form1->Canvas->LineTo(350,325);
Form1->Canvas->MoveTo(250,362);
Form1->Canvas->LineTo(350,400);

Form1->Canvas->MoveTo(350,325);
Form1->Canvas->LineTo(400,310);
Form1->Canvas->MoveTo(350,325);
Form1->Canvas->LineTo(400,340);
Form1->Canvas->MoveTo(350,400);
Form1->Canvas->LineTo(400,385);
Form1->Canvas->MoveTo(350,400);
Form1->Canvas->LineTo(400,415);

Form1->Canvas->Rectangle(50,400,100,425);

Form1->Canvas->Rectangle(200,350,250,375);


Form1->Canvas->MoveTo(10,10);
Form1->Canvas->LineTo(100,100); */


//Form1->Canvas->Ellipse(50,50,400,400);


}

вот выложил сам проект буду благодарен если кто нибудь поможет...
http://rapidshare.de/files/20954309/Projects.rar.html