Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- void __fastcall TForm2::FormCreate(TObject *Sender)
- {
- Randomize();
- if(Edit1->Color == clYellow && Edit2->Color == clYellow && Edit3->Color == clYellow && Edit4->Color == clYellow && Edit5->Color == clYellow)
- {
- Edit36->Visible = true;//marque bingo
- }
- if(Edit6->Color == clYellow && Edit7->Color == clYellow && Edit8->Color == clYellow && Edit9->Color == clYellow && Edit10->Color == clYellow)
- {
- Edit36->Visible = true;//marque bingo
- }
- if(Edit11->Color == clYellow && Edit12->Color == clYellow && Edit13->Color == clYellow && Edit14->Color == clYellow && Edit15->Color == clYellow)
- {
- Edit36->Visible = true;//marque bingo
- }
- if(Edit16->Color == clYellow && Edit17->Color == clYellow && Edit18->Color == clYellow && Edit19->Color == clYellow && Edit20->Color == clYellow)
- {
- Edit36->Visible = true;//marque bingo
- }
- if(Edit21->Color == clYellow && Edit22->Color == clYellow && Edit23->Color == clYellow && Edit24->Color == clYellow && Edit25->Color == clYellow)
- {
- Edit36->Visible = true;//marque bingo
- }
- //***************************************************************************
- if(Edit1->Color == clYellow && Edit6->Color == clYellow && Edit11->Color == clYellow && Edit16->Color == clYellow && Edit21->Color == clYellow)
- {
- Edit36->Visible = true;//marque bingo
- }
- if(Edit2->Color == clYellow && Edit7->Color == clYellow && Edit12->Color == clYellow && Edit17->Color == clYellow && Edit22->Color == clYellow)
- {
- Edit36->Visible = true;//marque bingo
- }
- if(Edit3->Color == clYellow && Edit8->Color == clYellow && Edit13->Color == clYellow && Edit18->Color == clYellow && Edit10->Color == clYellow)
- {
- Edit36->Visible = true;//marque bingo
- }
- if(Edit4->Color == clYellow && Edit9->Color == clYellow && Edit14->Color == clYellow && Edit19->Color == clYellow && Edit24->Color == clYellow)
- {
- Edit36->Visible = true;//marque bingo
- }
- if(Edit5->Color == clYellow && Edit10->Color == clYellow && Edit15->Color == clYellow && Edit20->Color == clYellow && Edit25->Color == clYellow)
- {
- Edit36->Visible = true;//marque bingo
- }
- //************************************************************************
- if(Edit1->Color == clYellow && Edit5->Color == clYellow && Edit13->Color == clYellow && Edit20->Color == clYellow && Edit25->Color == clYellow)
- {
- Edit36->Visible = true;//marque bingo
- }
- }
Add Comment
Please, Sign In to add comment