Borland C++ Builder dla początkujących











Tworzenie gwieździstego tła
Aby utworzyć na formularzu proste gwieździste tło należy zmienić jego kolor
na czarny i w zdarzeniu OnCreate formularza umieścić:



Unit1.cpp



#include <stdlib.h>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int Num_Stars = 1000000;
   TColor kolor;
   randomize();
   for (int i = 1; i <= Num_Stars; i++)
   {
      int odcien = random(256);
      kolor = TColor(RGB(odcien, odcien,
odcien));
      Canvas->Pixels[random(ClientWidth)][random(ClientHeight)]
= kolor;
   }
}