Browse Subversion Repository
Diff of /Unit1.pas
 Parent Directory
|  Revision Log
|  Patch
| 191 |
Method(1, -1); |
Method(1, -1); |
| 192 |
Method(1, 0); |
Method(1, 0); |
| 193 |
Method(1, 1); |
Method(1, 1); |
| 194 |
end; |
if (Reverse = true) and (result = true) then |
|
if (Reverse = true) and (result = true) then |
|
|
begin |
|
|
SetStrings(X, Y, Stone); |
|
|
for i := 0 to list.Count - 1 do |
|
| 195 |
begin |
begin |
| 196 |
if Visible = true then |
SetStrings(X, Y, Stone); |
| 197 |
|
for i := 0 to list.Count - 1 do |
| 198 |
begin |
begin |
| 199 |
for k := 1 to 10 do |
if Visible = true then |
| 200 |
begin |
begin |
| 201 |
Sleep(10); |
for k := 1 to 10 do |
| 202 |
Application.ProcessMessages; |
begin |
| 203 |
|
Sleep(10); |
| 204 |
|
Application.ProcessMessages; |
| 205 |
|
end; |
| 206 |
|
Form1.PaintBox1.Repaint; |
| 207 |
end; |
end; |
| 208 |
Form1.PaintBox1.Repaint; |
q := list[i]; |
| 209 |
|
SetStrings(q^.X, q^.Y, Stone); |
| 210 |
end; |
end; |
|
q := list[i]; |
|
|
SetStrings(q^.X, q^.Y, Stone); |
|
| 211 |
end; |
end; |
| 212 |
end; |
end; |
| 213 |
finally |
finally |
| 215 |
Dispose(list[i]); |
Dispose(list[i]); |
| 216 |
list.Free; |
list.Free; |
| 217 |
end; |
end; |
| 218 |
if Visible = true then |
if (Visible = true)and(result = true) then |
| 219 |
begin |
begin |
| 220 |
inc(FTurnIndex); |
inc(FTurnIndex); |
| 221 |
inc(FTurnNumber); |
inc(FTurnNumber); |
|
|
Legend:
| Removed from v.12 |
|
| changed lines |
| |
Added in v.13 |
|
|
| |
Parent Directory
Revision Log
Patch