Develop and Download Open Source Software

reversi-of-d

Browse Subversion Repository

/[reversi-of-d]/Unit1.pas

Diff of /Unit1.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 31 by yamat0jp, Sun Aug 16 06:21:21 2015 UTC revision 32 by yamat0jp, Sun Aug 16 07:03:42 2015 UTC
# Line 190  var Line 190  var
190    procedure Method(m, n: integer);    procedure Method(m, n: integer);
191    var    var
192      s: TStoneType;      s: TStoneType;
193      j, k: integer;      j: integer;
194        k: Integer;
195    begin    begin
196      if p = false then      if p = false then
197        Exit;        Exit;
# Line 210  var Line 211  var
211            result := true;            result := true;
212            if Reverse = true then            if Reverse = true then
213            begin            begin
214                Form1.PaintBox1.Repaint;
215              for j := 1 to i - 1 do              for j := 1 to i - 1 do
216              begin              begin
               Form1.PaintBox1.Repaint;  
217                if Visible = true then                if Visible = true then
218                begin                begin
219                  FEffectStone := Stone;                  FEffectStone := Stone;
# Line 223  var Line 224  var
224                  q^.Y := 0;                  q^.Y := 0;
225                  FList.Add(q);                  FList.Add(q);
226                  SetStrings(q^.Left, q^.Top, stEffect);                  SetStrings(q^.Left, q^.Top, stEffect);
227                  for k := 1 to 100 do                  for k := 1 to 10 do
228                  begin                  begin
229                    Sleep(1);                    Sleep(15);
230                    Application.ProcessMessages;                    Application.ProcessMessages;
231                  end;                  end;
232                end                end
Legend:
Removed from v.31  
changed lines
  Added in v.32
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help