电灯小游戏

  1 unit Unit6;
  2 
  3 interface
  4 
  5 uses
  6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7   Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls, ImgList, ExtCtrls,
  8   StdCtrls, bsSkinBoxCtrls, GIFImg, bsSkinExCtrls;
  9 
 10 type
 11   TForm6 = class(TForm)
 12     bsBusinessSkinForm1: TbsBusinessSkinForm;
 13     bsSkinData1: TbsSkinData;
 14     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
 15     Panel: TPanel;
 16     Panel1: TPanel;
 17     Panel2: TPanel;
 18     Panel3: TPanel;
 19     Panel4: TPanel;
 20     Panel5: TPanel;
 21     Panel6: TPanel;
 22     Panel7: TPanel;
 23     Panel8: TPanel;
 24     Panel9: TPanel;
 25     Panel10: TPanel;
 26     Panel11: TPanel;
 27     Panel12: TPanel;
 28     Panel13: TPanel;
 29     Panel14: TPanel;
 30     Panel15: TPanel;
 31     Panel16: TPanel;
 32     Panel17: TPanel;
 33     Panel18: TPanel;
 34     Panel19: TPanel;
 35     Panel20: TPanel;
 36     Panel21: TPanel;
 37     Panel22: TPanel;
 38     Panel23: TPanel;
 39     Panel24: TPanel;
 40     Panel25: TPanel;
 41     bsSkinButton1: TbsSkinButton;
 42     bsSkinMemo1: TbsSkinMemo;
 43     bsSkinComboBox1: TbsSkinComboBox;
 44     Label1: TLabel;
 45     bsSkinButton2: TbsSkinButton;
 46     Image1: TImage;
 47     procedure FormCreate(Sender: TObject);
 48     procedure Panel1Click(Sender: TObject);
 49     procedure bsSkinButton1Click(Sender: TObject);
 50     procedure bsSkinComboBox1Click(Sender: TObject);
 51     procedure bsSkinButton2Click(Sender: TObject);
 52   private
 53     { Private declarations }
 54   public
 55     { Public declarations }
 56   end;
 57 
 58 var
 59   Form6: TForm6;
 60     p:array[1..25] of TPanel;
 61     c:array[1..25] of Boolean;
 62     cl:Tcolor;
 63 implementation
 64 
 65 {$R *.dfm}
 66 
 67 
 68 
 69 procedure TForm6.bsSkinButton1Click(Sender: TObject);
 70 var i:integer;
 71 begin
 72   for I := 1 to 25 do
 73       begin
 74         p[i].Tag:=i;
 75         c[i]:=false;
 76         p[i].Color:=clBlack;
 77     end;
 78 end;
 79 
 80 procedure TForm6.bsSkinButton2Click(Sender: TObject);
 81 begin
 82 application.MessageBox('卓寿杰 1312070327','关于',1) ;
 83 end;
 84 
 85 procedure TForm6.bsSkinComboBox1Click(Sender: TObject);
 86 begin
 87 if bsSkinComboBox1.ItemIndex=0 then
 88 cl:=clRed;
 89 if bsSkinComboBox1.ItemIndex=1 then
 90 cl:=clYellow;
 91 if bsSkinComboBox1.ItemIndex=2 then
 92 cl:=clBlue;
 93 
 94 end;
 95 
 96 procedure TForm6.FormCreate(Sender: TObject);
 97 var i:integer;
 98 begin
 99     p[1]:=Panel1;
100     p[2]:=Panel2;
101     p[3]:=Panel3;
102     p[4]:=Panel4;
103     p[5]:=Panel5;
104     p[6]:=Panel6;
105     p[7]:=Panel7;
106     p[8]:=Panel8;
107     p[9]:=Panel9;
108     p[10]:=Panel10;
109     p[11]:=Panel11;
110     p[12]:=Panel12;
111     p[13]:=Panel13;
112     p[14]:=Panel14;
113     p[15]:=Panel15;
114     p[16]:=Panel16;
115     p[17]:=Panel17;
116     p[18]:=Panel18;
117     p[19]:=Panel19;
118     p[20]:=Panel20;
119     p[21]:=Panel21;
120     p[22]:=Panel22;
121     p[23]:=Panel23;
122     p[24]:=Panel24;
123     p[25]:=Panel25;
124     for I := 1 to 25 do
125       begin
126         p[i].Tag:=i;
127         c[i]:=false;
128         p[i].Color:=clBlack;
129     end;
130     bsskincombobox1.Items.Add('红');
131     bsskincombobox1.Items.Add('黄');
132     bsskincombobox1.Items.Add('蓝');
133     bsskinComboBox1.ItemIndex:=0;
134 
135 
136     Image1.AutoSize := True;
137     Form6.Autosize := True; Image1.Picture.LoadFromFile('E:\微云\delphi\电灯游戏\a.gif');
138     TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 100;
139      TGIFImage(Image1.Picture.Graphic).Animate := True;
140 end;
141 
142 
143   procedure Change(i:integer);
144   begin
145 
146     c[i]:= not c[i];
147     if c[i] then
148     p[i].Color:=cl
149     else
150     p[i].Color:=clBlack;
151   end;
152 
153 
154   function CheckWin:Boolean;
155   var i:integer;
156   begin
157      result:=True;
158      for I := 1 to 25 do
159         if not c[i] then
160         begin
161           result:=false;
162           exit;
163         end;
164   end;
165 
166 
167 
168 procedure TForm6.Panel1Click(Sender: TObject);
169 
170 var i,j:integer;
171 begin
172     i:=TPanel(Sender).Tag;
173     change(i);
174     if i>5 then change(i-5);
175     if i<21 then  change(i+5);
176     if (i mod 5)<>0 then change(i+1);
177     if (i mod 5)<>1 then change(i-1)  ;
178     if CheckWin then Application.MessageBox('你赢了','提示信息',64);
179 end;
180 
181 end.