[C++ Warning] Unit1.cpp(163): W8018 Assigning unsigned long to TColor
void __fastcall TForm1::Shape2MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Form1->Color =clDefault; //to jest ok
Form1->Font->Color = clWindow; //to jest ok
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Shape3MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Form1->Color =RGB(rand()%255, rand()%255, rand()%255); //to nie jest ok
}