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 5 by yamat0jp, Sun Jul 12 09:18:08 2015 UTC revision 6 by yamat0jp, Sun Jul 12 09:24:51 2015 UTC
# Line 398  procedure TForm1.PaintBox1Paint(Sender: Line 398  procedure TForm1.PaintBox1Paint(Sender:
398  var  var
399    i, j: integer;    i, j: integer;
400  begin  begin
401      Size := ClientHeight div Count;
402    Canvas.Fill.Color := TAlphaColors.White;    Canvas.Fill.Color := TAlphaColors.White;
403    Canvas.FillRect(RectF(0, 0, Count * Size, Count * Size), 0, 0, [], 1);    Canvas.FillRect(RectF(0, 0, Count * Size, Count * Size), 0, 0, [], 1);
404    for i := 0 to Count do    for i := 0 to Count do
# Line 435  begin Line 436  begin
436      Stroke.Color := TAlphaColors.Black;      Stroke.Color := TAlphaColors.Black;
437      StrokeThickness := 3;      StrokeThickness := 3;
438    end;    end;
   Size := ClientHeight div Count;  
439    GameStart;    GameStart;
440  end;  end;
441    
Legend:
Removed from v.5  
changed lines
  Added in v.6
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help