Develop and Download Open Source Software

rensa

Browse Subversion Repository

/[rensa]/Unit1.pas

Diff of /Unit1.pas

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

revision 1 by yamat0jp, Fri Jul 10 00:31:32 2015 UTC revision 2 by yamat0jp, Fri Jul 10 10:00:49 2015 UTC
# Line 423  var Line 423  var
423      j: integer;      j: integer;
424      procedure Small(X, Y: integer);      procedure Small(X, Y: integer);
425      const      const
426        a = Size div 4;        a = Size div 8;
427      begin      begin
428        Buffer.Canvas.Ellipse(X - a, Y - a, X + a, Y + a);        Buffer.Canvas.Ellipse(X - a, Y - a, X + a, Y + a);
429      end;      end;
# Line 867  begin Line 867  begin
867        else        else
868        begin        begin
869          Move(Under);          Move(Under);
870          Sleep(300);          for i := 1 to 100 do
871            begin
872              Sleep(3);
873              Application.ProcessMessages;
874            end;
875        end;        end;
876      Shoot:      Shoot:
877        begin        begin
Legend:
Removed from v.1  
changed lines
  Added in v.2
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help