Мерцание графики

[Petyu]

народ подскажите как убрать мерцание флрмы при работе данной программы

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
Timer1->Enabled=true;
Timer2->Enabled=true;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int x=PaintBox1->Left;
x=x-1;
PaintBox1->Left=x;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
Canvas->Pen->Color=clBlue;
Canvas->Brush->Color=clBlue;
Canvas->Rectangle(0,0,500,300);
Canvas->Pen->Color=clGreen;
Canvas->Brush->Color=clGreen;
Canvas->Rectangle(0,350,1500,1300);
Canvas->Pen->Color=clYellow;
Canvas->Brush->Color=clYellow;
Canvas->Ellipse(0,0,90,90);

Canvas->Pen->Color=clWhite;
Canvas->Brush->Color=clWhite;

Canvas->Ellipse(125,35,225,105);
Canvas->Ellipse(200,55,290,105);
Canvas->Ellipse(285,55,355,102);
Canvas->Ellipse(485,55,590,100);


PaintBox1->Canvas->Pen->Width=2;
PaintBox1->Canvas->MoveTo(50,80);
PaintBox1->Canvas->LineTo(120,50);
PaintBox1->Canvas->LineTo(130,50);
PaintBox1->Canvas->LineTo(90,90);
PaintBox1->Canvas->LineTo(100,130);
PaintBox1->Canvas->LineTo(90,140);
PaintBox1->Canvas->LineTo(50,80);
PaintBox1->Canvas->LineTo(150,100);



}
//---------------------------------------------------------------------------

[Stilet]

Описать это в OnPaint, таймер выкинуть.

[FataLL]

И лучше на канве формы не рисовать, а на пейнтбоксе во всю форму...

[Petyu]

Сообщение от FataLL

И лучше на канве формы не рисовать, а на пейнтбоксе во всю форму...

тоесть мне два паинт бокса нужно сделать???

[FataLL]

Petyu
Ну, вообщем, идея была такая. Но, чтоб прям совсем не мерцало, вряд ли получится.