电灯小游戏

  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.