form_redfenxil.pas

双色球分析软件

         ////////////////////////////////////////////////////
      end;///tabindex=10
////////TabCtrl.index=10结束//////////////////////////////////////
////////////////////////////////
end;

procedure TForm_RedFenXi.Chart1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
  Procedure DrawCross(AX,AY:Integer);
  begin
    With Chart1,Canvas do
    begin
      Pen.Color:=rgb(0,0,255);
      Pen.Style:=PSDot;
      Pen.Mode:=pmXor;
      Pen.Width:=1;
      MoveTo(ax,ChartRect.Top-Height3D);
      LineTo(ax,ChartRect.Bottom-Height3D);
      MoveTo(ChartRect.Left+Width3D,ay);
      LineTo(ChartRect.Right+Width3D,ay);
    end;
  end;

Var tmpX,tmpY:Double;
begin
    if (OldX<>-1) then
  begin
    DrawCross(OldX,OldY);  { draw old crosshair }
    OldX:=-1;
  end;

  { check if mouse is inside Chart rectangle }
  if PtInRect( Chart1.ChartRect, Point(X-Chart1.Width3D,Y+Chart1.Height3D)  ) then
  begin
    DrawCross(x,y);  { draw crosshair at current position }
    { store old position }
    OldX:=x;
    OldY:=y;
    { set label text }
    With Series1 do
    begin
      GetCursorValues(tmpX,tmpY);  { <-- get values under mouse cursor }
      //Label1.Caption:=GetVertAxis.LabelValue(tmpY)+
     //                 ' '+
     //                 GetHorizAxis.LabelValue(tmpX);
    end;
  end;
end;

procedure TForm_RedFenXi.CheckBox1Click(Sender: TObject);
begin
     if checkbox1.Checked then
     begin
        Lineseries7.Marks.Visible:=true;
        Lineseries8.Marks.Visible:=true;
        Lineseries9.Marks.Visible:=true;
     end
     else
     begin
        Lineseries7.Marks.Visible:=false;
        Lineseries8.Marks.Visible:=false;
        Lineseries9.Marks.Visible:=false;
     end;
end;

procedure TForm_RedFenXi.CheckBox2Click(Sender: TObject);
begin
     if checkbox2.Checked then
     begin
        Lineseries10.Marks.Arrow.SmallDots:=true;
        Lineseries10.Marks.visible:=true;
        Lineseries11.Marks.Visible:=true;
        Lineseries12.Marks.Visible:=true;
        Lineseries13.Marks.Visible:=true;
        Lineseries14.Marks.Visible:=true;
        Lineseries15.Marks.Visible:=true;
     end
     else
     begin
        Lineseries10.Marks.Visible:=false;
        Lineseries11.Marks.Visible:=false;
        Lineseries12.Marks.Visible:=false;
        Lineseries13.Marks.Visible:=false;
        Lineseries14.Marks.Visible:=false;
        Lineseries15.Marks.Visible:=false;
     end;
end;

procedure TForm_RedFenXi.ComboBox1Click(Sender: TObject);
var
    sAddPoint:string;
begin
     /////如果增加的数值长度=2，截取尾数////////
     if length(trim(combobox1.text))=1 then
     begin
        sAddPoint:=trim(combobox1.text);
     end
     else
     begin
        sAddPoint:=copy(trim(combobox1.text),2,1);
     end;
     ///////通过尾数增加点/////////////////
     if not bAddPoint then
     begin
        with lineseries10 do
        begin
          //iPointCount:=Count;
          //delete(count);
          add(strtofloat(sAddPoint),'',clteecolor);
        end;
        bAddPoint:=not bAddpoint;
     end
     else
     begin
        with lineseries10 do
        begin
          delete(count-1);
          add(strtofloat(sAddpoint),'',clteecolor);

        end;
        //bAddPoint:=not bAddpoint;

     end;
end;

procedure TForm_RedFenXi.ComboBox2Click(Sender: TObject);
var
     sAddPoint:string;
begin
     /////如果增加的数值长度=2，截取尾数////////
     if length(trim(combobox2.text))=1 then
     begin
        sAddPoint:=trim(combobox2.text);
     end
     else
     begin
        sAddPoint:=copy(trim(combobox2.text),2,1);
     end;
     if not bAddPoint1 then
     begin
        with lineseries11 do
        begin
          //iPointCount:=Count;
          //delete(count);
          add(strtofloat(sAddPoint),'',clteecolor);
        end;
        bAddPoint1:=not bAddpoint1;
     end
     else
     begin
        with lineseries11 do
        begin
          delete(count-1);
          add(strtofloat(sAddPoint),'',clteecolor);

        end;
        //bAddPoint:=not bAddpoint;

     end;
end;

procedure TForm_RedFenXi.ComboBox3Click(Sender: TObject);
var
    sAddPoint:string;
begin
     /////如果增加的数值长度=2，截取尾数////////
     if length(trim(combobox3.text))=1 then
     begin
        sAddPoint:=trim(combobox3.text);
     end
     else
     begin
        sAddPoint:=copy(trim(combobox3.text),2,1);
     end;
     if not bAddPoint2 then
     begin
        with lineseries12 do
        begin
          //iPointCount:=Count;
          //delete(count);
          add(strtofloat(sAddPoint),'',clteecolor);
        end;
        bAddPoint2:=not bAddpoint2;
     end
     else
     begin
        with lineseries12 do
        begin
          delete(count-1);
          add(strtofloat(sAddPoint),'',clteecolor);

        end;
        //bAddPoint:=not bAddpoint;

     end;
end;

procedure TForm_RedFenXi.ComboBox4Click(Sender: TObject);
var
    sAddPoint:string;
begin
     /////如果增加的数值长度=2，截取尾数////////
     if length(trim(combobox4.text))=1 then
     begin
        sAddPoint:=trim(combobox4.text);
     end
     else
     begin
        sAddPoint:=copy(trim(combobox4.text),2,1);
     end;
     if not bAddPoint3 then
     begin
        with lineseries13 do
        begin
          //iPointCount:=Count;
          //delete(count);
          add(strtofloat(sAddPoint),'',clteecolor);
        end;
        bAddPoint3:=not bAddpoint3;
     end
     else
     begin
        with lineseries13 do
        begin
          delete(count-1);
          add(strtofloat(sAddPoint),'',clteecolor);

        end;
        //bAddPoint:=not bAddpoint;

     end;
end;

procedure TForm_RedFenXi.ComboBox5Click(Sender: TObject);
var
    sAddPoint:string;
begin
     /////如果增加的数值长度=2，截取尾数////////
     if length(trim(combobox5.text))=1 then
     begin
        sAddPoint:=trim(combobox5.text);
     end
     else
     begin
        sAddPoint:=copy(trim(combobox5.text),2,1);
     end;
     if not bAddPoint4 then
     begin
        with lineseries14 do
        begin
          //iPointCount:=Count;
          //delete(count);
          add(strtofloat(sAddPoint),'',clteecolor);
        end;
        bAddPoint4:=not bAddpoint4;
     end
     else
     begin
        with lineseries14 do
        begin
          delete(count-1);
          add(strtofloat(sAddPoint),'',clteecolor);

        end;
        //bAddPoint:=not bAddpoint;

     end;
end;

procedure TForm_RedFenXi.ComboBox6Click(Sender: TObject);
var
    sAddPoint:string;
begin
     /////如果增加的数值长度=2，截取尾数////////
     if length(trim(combobox6.text))=1 then
     begin
        sAddPoint:=trim(combobox6.text);
     end
     else
     begin
        sAddPoint:=copy(trim(combobox6.text),2,1);
     end;
     if not bAddPoint5 then
     begin
        with lineseries15 do
        begin
          //iPointCount:=Count;
          //delete(count);
          add(strtofloat(sAddPoint),'',clteecolor);
        end;
        bAddPoint5:=not bAddpoint5;
     end
     else
     begin
        with lineseries15 do
        begin
          delete(count-1);
          add(strtofloat(sAddPoint),'',clteecolor);

        end;
        //bAddPoint:=not bAddpoint;

     end;
end;

procedure TForm_RedFenXi.CheckBox3Click(Sender: TObject);
begin
     if checkbox3.Checked  then
     begin
        LineSeries16.Marks.Visible:=true;
        LineSeries17.Marks.Visible:=true;
        LineSeries18.Marks.Visible:=true;
     end
     else
     begin
        LineSeries16.Marks.Visible:=false;
        LineSeries17.Marks.Visible:=false;
        LineSeries18.Marks.Visible:=true;
     end;
end;

procedure TForm_RedFenXi.ComboBox7Click(Sender: TObject);
var
    i:integer;
    j:integer;
    CurrentPath:string;
    strSql:string;
    sBeginId,sEndID:string;
    FieldIndex:string;
    R_CpData1:Array[1..6,0..100] of integer;
     R_CPID:Array[0..100] of string;
     R_CpData2:Array[1..100] of integer;
     R_CpData3:Array[1..100] of integer;
     R_CpData4:Array[1..100] of integer;
     R_CpData5:Array[1..100] of integer;
     R_CpData6:Array[1..100] of integer;
     R_CpData7:Array[1..100] of integer;
begin

     CurrentPath:=ExtractFilePath(paramstr(0));
     if combobox7.text='除3走势'  then
     begin
        iChuShu:=3;
        chart2.LeftAxis.Minimum:=0;
        chart2.LeftAxis.Maximum:=2;
        chart2.RightAxis.Minimum:=0;
        chart2.RightAxis.Maximum:=2;

        chart3.LeftAxis.Minimum:=0;
        chart3.LeftAxis.Maximum:=2;