drawtable.pas

双色球分析软件

unit DrawTable;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Paint1: TPaintBox;
    procedure Paint1Paint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses u_Draw,u_Constant;
procedure TForm1.Paint1Paint(Sender: TObject);
var
   i:integer;
   j:integer;
   rows:integer;
   cols:integer;
begin
   {with paint1 do
   begin
        canvas.Brush.Color:=rgb(0,0,255);
        canvas.Pen.Color:=rgb(255,0,0);
        for i:=1 to 6 do
        begin
           canvas.MoveTo(20*i,20);
           canvas.LineTo(20*i,120);
        end;
   end;
   }
   cols:=6;
   rows:=6;
   DrawTableX(paint1,10,10,30,36,840,620);
   //DrawTableX(paint1,20,230,6,6,120,120);

end;

end.