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 10 by yamat0jp, Mon Jul 13 10:29:57 2015 UTC revision 11 by yamat0jp, Mon Jul 13 11:09:42 2015 UTC
# Line 500  end; Line 500  end;
500    
501  procedure TForm1.PaintBox1Tap(Sender: TObject; const Point: TPointF);  procedure TForm1.PaintBox1Tap(Sender: TObject; const Point: TPointF);
502  begin  begin
503    if (Player1.Auto = false)or(Player2.Auto = false) then    if Index.Auto = false then
     MenuItem10Click(Sender);  
   if (StoneGrid.Active = true) and (Index.Auto = false) then  
504    begin    begin
505        MenuItem10Click(Sender);
506      if StoneGrid.CanSetStone(Index.Stone, Floor(Point.X / Size),      if StoneGrid.CanSetStone(Index.Stone, Floor(Point.X / Size),
507        Floor(Point.Y / Size), true, true) = true then        Floor(Point.Y / Size), true, true) = true then
508      begin      begin
Legend:
Removed from v.10  
changed lines
  Added in v.11
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help