Wypełnianie formularza gradientowym tłem

Aby wypełnić formularz gradientowym tłem, ma to np. zastosowanie w tworzeniu instalatora lub innych efektów, należy utworzyć zdarzenie OnPaint dla formularza i umieścić ten kod:

Unit1.cpp

void __fastcall TForm1::FormPaint(TObject *Sender)
{
   int Height; Height = (ClientHeight + 255) / 256 ;
   for (int Row = 0; Row <= 255; Row++)
   {
      Canvas->Brush->Color = RGB(0, 0, 255-Row);
      Canvas->FillRect(Rect(0, Row * Height, ClientWidth, (Row + 1) * Height));
   }
}

Aby po zmianie rozmiaru formularza tło zostało ponownie narysowane należy utworzyć zdarzenie OnResize dla formularza i umieścić ten kod:

Unit1.cpp

void __fastcall TForm1::FormResize(TObject *Sender)
{
   Invalidate();
}