u_draw.~pas

双色球分析软件

unit u_Draw;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,U_Constant;
  //////////
  procedure DrawTableX(ctrl:TControl;iTop,iLeft,Rows,Cols,iWidth,iHeight:integer);
implementation
procedure DrawTableX(ctrl:TControl;iTop,iLeft,Rows,Cols,iWidth,iHeight:integer);
var
   i:integer;
   j:integer;
   iPerUnit:integer;
   iPerUnit1:integer;
begin
   if (ctrl is TPaintBox) then
   begin
      with  TPaintBox(ctrl) do
      begin
            with Canvas do
            begin
                 Pen.Color:=rgb(255,0,0);
                 for i:=0 to  Cols do
                 begin
                     iPerUnit:=strToInt(formatFloat('##0',iLeft+(i)*(iWidth/cols)));
                     moveTo(iPerUnit,iTop);
                     LineTo(iPerUnit,iHeight+iTop);
                     PointX[i+1]:=strToInt(formatFloat('##0',iLeft+(i)*(iWidth/cols)));
                 end;//for i
                 for i:=0 to Rows do
                 begin
                     iPerUnit1:=strToInt(formatFloat('##0',iTop+(i)*(iHeight/Rows)));
                     moveTo(iLeft,iPerUnit1);
                     LineTo(iwidth+iLeft,iPerUnit1);
                     PointY[i+1]:=strToInt(formatFloat('##0',iTop+(i)*(iHeight/Rows)));
                 end;//forirows
                 ////存储表格的坐标//////////
                 brush.Color:=rgb(0,255,0); 
                 for i:=1 to Cols do
                 begin
                     for j:=1 to rows do
                     begin
                        textOut(PointX[i]+5,PointY[j]+5,inttostr(i*j));
                     end;
                 end;
            end;///withcanvas
      end;//with
   end;//ifctrl
end;
end.