＋设为首页 ＋添加到收藏夹
如题
void __fastcall TForm1::FormPaint(TObject *Sender)
{
DoubleBuffered = true; //加这一句
for(int i = 0; i < Width; i += 8)
for(int j = 0; j < Height; j += 8)
Canvas->Pixels[i][j] = static_cast<TColor>(RGB(0, 0, 0));
}
－－－－－－－－－－－－－－
保证不闪烁。
////.h
Graphics::TBitmap *FGridBrush;
////////////OnCreate
....
FGridBrush=new Graphics::TBitmap();
FGridBrush->Width=8;
FGridBrush->Height=8;
FGridBrush->Canvas->Brush->Color=Color;
FGridBrush->Canvas->Brush->Style=bsSolid;
FGridBrush->Canvas->FillRect(Rect(0,0,8,8));
FGridBrush->Canvas->Pixels[0][0]=clBlack;
.....
/////////////OnPaint
Canvas->Brush->Bitmap=FGridBrush;
Canvas->FillRect(ClientRect);
