u_form_blue.pas

双色球分析软件

           end;//for i
         end;//for j
      end;//for m
     end;///with

      /////////////////////////////////////////////
end;

procedure TForm_Blue.Grid1_2DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TEasyGridDrawState);
var
    i,j,m:integer;
    r:integer;
    k:integer;///用来计算存储的坐标的记数器//////////
    K_Value:integer;///用来存储坐标///////////////////
    MY_Value:integer;
    MX_Value:integer;
    MX1_Value:integer;
begin
       with grid1_2 do
       begin
            canvas.Pen.Color:=rgb(255,0,0);
            canvas.Pen.Width:=2;
            canvas.MoveTo(136,0);
            canvas.LineTo(136,544);
       end;///with1
        ////画篮球号码///////////
      grid1_2.Canvas.brush.Color:=rgb(0,0,255);
      grid1_2.Canvas.Pen.Color:=rgb(0,0,255);
      grid1_2.Canvas.Pen.width:=1;
      grid1_2.canvas.Font.Color:=rgb(255,255,255);
      //grid1_1.Canvas.Font.Size:=9;
      /////在显示数据的列上画圆画篮球/////////////
     for m:=2 to grid1_2.RowCount-2 do /////多个记录//////////
     //for i:=1 to 16 do
      begin
          // grid1_2.Canvas.Ellipse(grid1_2.CellRect(strToInt(formatFloat('##0',i)),2) );
          for j:=1 to 1 do ///是记录的1个极端值
          begin
              for i:=1 to 16 do/////对16个数值进行扫描////////
              begin
                 if CP_Data[m-1,j]=i then
                 begin
                    if (CP_Data[m-1,j] mod 2)=0 then
                    begin
                        grid1_2.Canvas.Ellipse(grid1_2.CellRect(strToInt(formatFloat('##0',(8+i/2))),m) );
                    end;
                    if (CP_Data[m-1,j] mod 2)=1 then
                    begin
                        grid1_2.Canvas.Ellipse(grid1_2.CellRect(strToInt(formatFloat('##0',((1+i)/2))),m) );
                    end;
                    //grid1.Canvas.TextRect()
                 end;
             end; ///for i
          end;///j

       end;//for m
       /////////////////////
       /////在显示数据列上画红球数字///////////////////
      grid1_2.Canvas.brush.Color:=rgb(0,0,255);
      grid1_2.Canvas.brush.style:=bsclear;
      grid1_2.Canvas.Pen.Color:=rgb(0,0,0);
      grid1_2.canvas.Font.Color:=rgb(255,255,255);
      grid1_2.Canvas.Font.Size:=9;
      for m:=2 to  grid1_2.RowCount-2 do /////多个记录//////////
      begin
          if (m>=2)  and (m<=grid1_2.RowCount-2) then
          begin
             MY_Value:=(m-1)*16+(m+2);

          end;/////

          for j:=1 to 1 do ///是记录的1个极端值
          begin
              for i:=1 to 16 do/////对16个数值进行扫描////////
              begin
                 /////定义横坐标//////////////////////////////

                 //if m=2 then
                 //begin
                    if (i mod 2)=0 then
                    begin
                       if i=2 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(8+i/2)*16-2));
                       end;
                       if i=4 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(8+i/2)*16-1));
                       end;
                       if i=6 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(8+i/2)*16));
                       end;
                       if i=8 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(8+i/2)*16+1));
                       end;
                       if i=10 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(8+i/2)*16-1));
                       end;
                       if i=12 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(8+i/2)*16-1));
                       end;
                       if i=14 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(8+i/2)*16+1));
                       end;
                       if i=16 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(8+i/2)*16+2));
                       end;
                    end;///mod=0
                    if (i mod 2)=1 then
                    begin
                       if i=1 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',((1+i)/2)*16-(11-(i+1)/2)));
                       end;
                       if i=3 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',((1+i)/2)*16-9));
                       end;
                       if i=5 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',((1+i)/2)*16-8));
                       end;
                       if i=7 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',((1+i)/2)*16-7));
                       end;
                       if i=9 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',((1+i)/2)*16-6));
                       end;
                       if i=11 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',((1+i)/2)*16-8));
                       end;
                       if i=13 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',((1+i)/2)*16-8));
                       end;
                        if i=15 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',((1+i)/2)*16-8));
                       end;
                    end; ////mod=1
                 //end;///m=2


                 if CP_Data[m-1,j]=i then
                 begin
                    if (CP_Data[m-1,j] mod 2)=0 then
                    begin
                        grid1_2.Canvas.textRect(grid1_2.CellRect(strToInt(formatFloat('##0',(8+i/2))),m),strtoint(formatFloat('##0',MX_Value)),strtoint(formatFloat('##0',my_Value)),inttostr(i));
                    end;
                    if (CP_Data[m-1,j] mod 2)=1 then
                    begin
                        grid1_2.Canvas.textRect(grid1_2.CellRect(strToInt(formatFloat('##0',((1+i)/2))),m),strtoint(formatFloat('##0',MX1_Value)),strtoint(formatFloat('##0',my_Value)),inttostr(i));
                    end;
                    //grid1.Canvas.TextRect()
                 end;
                 
             end; ///for i
          end;///j
       end;//for m
      ////////////////////////////////////////////////////
     
       //////////////////////////////////
end;

procedure TForm_Blue.Grid1_3DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TEasyGridDrawState);
var
    i,j,m:integer;
    K_Value:integer;///用来存储坐标///////////////////
    MY_Value:integer;
    MX_Value:integer;
    MX1_Value:integer;
    MX2_value:integer;
begin
       with grid1_3 do
       begin
            canvas.Pen.Color:=rgb(255,0,0);
            canvas.Pen.Width:=2;
            canvas.MoveTo(102,0);
            canvas.LineTo(102,544);
            canvas.MoveTo(187,0);
            canvas.LineTo(187,544);
       end;///with1
         ////画篮球号码///////////
      grid1_3.Canvas.brush.Color:=rgb(0,255,255);
      grid1_3.Canvas.Pen.Color:=rgb(0,0,255);
      grid1_3.Canvas.Pen.width:=1;
      grid1_3.canvas.Font.Color:=rgb(255,255,255);
      /////在显示数据的列上画圆画篮球/////////////
      for m:=2 to grid1_3.RowCount-2 do /////多个记录//////////
      begin
          for j:=1 to 1 do ///是记录的1个极端值
          begin
              for i:=1 to 16 do/////对16个数值进行扫描////////
              begin
                 if CP_Data[m-1,j]=i then
                 begin
                    if (CP_Data[m-1,j] mod 3)=1 then
                    begin
                        grid1_3.Canvas.Ellipse(grid1_3.CellRect(strToInt(formatFloat('##0',(1+(i-1)/3))),m) );
                    end;
                    if (CP_Data[m-1,j] mod 3)=2 then
                    begin
                        grid1_3.Canvas.Ellipse(grid1_3.CellRect(strToInt(formatFloat('##0',(7+(i-2)/3))),m) );
                    end;
                    if (CP_Data[m-1,j] mod 3)=0 then
                    begin
                        grid1_3.Canvas.Ellipse(grid1_3.CellRect(strToInt(formatFloat('##0',(12+(i-3)/3))),m) );
                    end;
                    //grid1.Canvas.TextRect()
                 end;
             end; ///for i
          end;///j
       end;//for m
       /////////
        /////在显示数据列上画红球数字///////////////////
      grid1_3.Canvas.brush.Color:=rgb(0,0,255);
      grid1_3.Canvas.brush.style:=bsclear;
      grid1_3.Canvas.Pen.Color:=rgb(0,0,0);
      grid1_3.canvas.Font.Color:=rgb(0,0,0);
      grid1_3.Canvas.Font.Size:=9;
      for m:=2 to  grid1_3.RowCount-2 do /////多个记录//////////
      begin
          if (m>=2)  and (m<=grid1_3.RowCount-2) then
          begin
             MY_Value:=(m-1)*16+(m+2);

          end;/////

          for j:=1 to 1 do ///是记录的1个极端值
          begin
              for i:=1 to 16 do/////对16个数值进行扫描////////
              begin
                 /////定义横坐标//////////////////////////////

                 //if m=2 then
                 //begin
                    if (i mod 3)=1 then
                    begin
                       if i=1 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(1+(i-1)/3)*16-10));
                       end;
                       if i=4 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(1+(i-1)/3)*16-9));
                       end;
                       if i=7 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(1+(i-1)/3)*16-8));
                       end;
                       if i=10 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(1+(i-1)/3)*16-10));
                       end;
                       if i=13 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(1+(i-1)/3)*16-9));
                       end;
                       if i=16 then
                       begin
                          MX_Value:=strtoint(formatFloat('##0',(1+(i-1)/3)*16-9));
                       end;

                    end;///mod=0
                    if (i mod 3)=2 then
                    begin
                       if i=2 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',(7+(i-2)/3)*16-5));
                       end;
                       if i=5 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',(7+(i-2)/3)*16-4));
                       end;
                       if i=8 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',(7+(i-2)/3)*16-3));
                       end;
                       if i=11 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',(7+(i-2)/3)*16-5));
                       end;
                       if i=14 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',(7+(i-2)/3)*16-5));
                       end;
                       if i=11 then
                       begin
                           MX1_Value:=strtoint(formatFloat('##0',(7+(i-2)/3)*16-5));
                       end;

                    end; ////mod=1
                 //end;///m=2
                    if (i mod 3)=0 then
                    begin
                       if i=3 then
                       begin
                           MX2_Value:=strtoint(formatFloat('##0',(12+(i-3)/3)*16-1));
                       end;
                       if i=6 then
                       begin
                           MX2_Value:=strtoint(formatFloat('##0',(12+(i-3)/3)*16+1));
                       end;
                       if i=9 then
                       begin
                           MX2_Value:=strtoint(formatFloat('##0',(12+(i-3)/3)*16+1));
                       end;
                       if i=12 then
                       begin
                           MX2_Value:=strtoint(formatFloat('##0',(12+(i-3)/3)*16-1));
                       end;
                       if i=15 then
                       begin
                           MX2_Value:=strtoint(formatFloat('##0',(12+(i-3)/3)*16-1));