Guest User

Untitled

a guest
Dec 10th, 2018
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.32 KB | None | 0 0
  1. void __fastcall TForm2::FormCreate(TObject *Sender)
  2. {
  3. Randomize();
  4. if(Edit1->Color == clYellow && Edit2->Color == clYellow && Edit3->Color == clYellow && Edit4->Color == clYellow && Edit5->Color == clYellow)
  5. {
  6. Edit36->Visible = true;//marque bingo
  7. }
  8. if(Edit6->Color == clYellow && Edit7->Color == clYellow && Edit8->Color == clYellow && Edit9->Color == clYellow && Edit10->Color == clYellow)
  9. {
  10. Edit36->Visible = true;//marque bingo
  11. }
  12. if(Edit11->Color == clYellow && Edit12->Color == clYellow && Edit13->Color == clYellow && Edit14->Color == clYellow && Edit15->Color == clYellow)
  13. {
  14. Edit36->Visible = true;//marque bingo
  15. }
  16. if(Edit16->Color == clYellow && Edit17->Color == clYellow && Edit18->Color == clYellow && Edit19->Color == clYellow && Edit20->Color == clYellow)
  17. {
  18. Edit36->Visible = true;//marque bingo
  19. }
  20. if(Edit21->Color == clYellow && Edit22->Color == clYellow && Edit23->Color == clYellow && Edit24->Color == clYellow && Edit25->Color == clYellow)
  21. {
  22. Edit36->Visible = true;//marque bingo
  23. }
  24.  
  25. //***************************************************************************
  26. if(Edit1->Color == clYellow && Edit6->Color == clYellow && Edit11->Color == clYellow && Edit16->Color == clYellow && Edit21->Color == clYellow)
  27. {
  28. Edit36->Visible = true;//marque bingo
  29. }
  30. if(Edit2->Color == clYellow && Edit7->Color == clYellow && Edit12->Color == clYellow && Edit17->Color == clYellow && Edit22->Color == clYellow)
  31. {
  32. Edit36->Visible = true;//marque bingo
  33. }
  34. if(Edit3->Color == clYellow && Edit8->Color == clYellow && Edit13->Color == clYellow && Edit18->Color == clYellow && Edit10->Color == clYellow)
  35. {
  36. Edit36->Visible = true;//marque bingo
  37. }
  38. if(Edit4->Color == clYellow && Edit9->Color == clYellow && Edit14->Color == clYellow && Edit19->Color == clYellow && Edit24->Color == clYellow)
  39. {
  40. Edit36->Visible = true;//marque bingo
  41. }
  42. if(Edit5->Color == clYellow && Edit10->Color == clYellow && Edit15->Color == clYellow && Edit20->Color == clYellow && Edit25->Color == clYellow)
  43. {
  44. Edit36->Visible = true;//marque bingo
  45. }
  46.  
  47. //************************************************************************
  48. if(Edit1->Color == clYellow && Edit5->Color == clYellow && Edit13->Color == clYellow && Edit20->Color == clYellow && Edit25->Color == clYellow)
  49. {
  50. Edit36->Visible = true;//marque bingo
  51. }
  52.  
  53. }
Add Comment
Please, Sign In to add comment