📄 u_form_blue.~pas
字号:
grid2_4.Refresh;
grid2_5.Refresh;
end;///tabindex=2
/////////////////////////////////////////////////////////////
end;
procedure TForm_Blue.ComboBox7Click(Sender: TObject);
var
i,j:integer;
CurrentPath:string;
iChuShu:integer;
_Div:Array[1..100] of integer;
begin
if combobox7.text='除3走势' then
begin
iChuShu:=3;
chart2.LeftAxis.Minimum:=0;
chart2.LeftAxis.Maximum:=2;
chart2.RightAxis.Minimum:=0;
chart2.RightAxis.Maximum:=2;
end;///if
if combobox7.text='除4走势' then
begin
iChuShu:=4;
chart2.LeftAxis.Minimum:=0;
chart2.LeftAxis.Maximum:=3;
chart2.RightAxis.Minimum:=0;
chart2.RightAxis.Maximum:=3;
end;///if
if combobox7.text='除5走势' then
begin
iChuShu:=5;
chart2.LeftAxis.Minimum:=0;
chart2.LeftAxis.Maximum:=4;
chart2.RightAxis.Minimum:=0;
chart2.RightAxis.Maximum:=4;
end;///if
if combobox7.text='除6走势' then
begin
iChuShu:=6;
chart2.LeftAxis.Minimum:=0;
chart2.LeftAxis.Maximum:=5;
chart2.RightAxis.Minimum:=0;
chart2.RightAxis.Maximum:=5;
end;///if
/////除3余数走势图//////////////
chart2.Series[0].Clear;
for i:=1 to 28 do
begin
_Div[i]:=CP_Data[i,1] mod iChuShu;
LineSeries1.Add(_Div[i],'',clTeeColor);
end;///for
end;
procedure TForm_Blue.ComboBox1Click(Sender: TObject);
var
i,j:integer;
_Tmp_CP:integer;
begin
///////在对应的格格中显示蓝球号码///////////////////////
_Tmp_CP:=strToInt(combobox1.text);
for i:=1 to 4 do
begin
grid2_1.Cells[i+1,grid2_1.RowCount-2].ForeText:='';
grid2_2.Cells[i+1,grid2_2.RowCount-2].ForeText:='';
grid2_3.Cells[i+1,grid2_3.RowCount-2].ForeText:='';
grid2_4.Cells[i+1,grid2_4.RowCount-2].ForeText:='';
grid2_5.Cells[i+1,grid2_5.RowCount-2].ForeText:='';
end;
/////在表格Grid2_1中显示////////////////
//for i:=1 to 28 do
//begin
for j:=1 to 16 do
begin
if strToInt(combobox1.text)=j then
begin
if (strToInt(combobox1.text) mod 4)=1 then
begin
grid2_1.Cells[2,Grid2_1.RowCount-2].ForeText:=inttostr(j);
end;
if (strToInt(combobox1.text) mod 4)=2 then
begin
grid2_1.Cells[3,Grid2_1.RowCount-2].ForeText:=inttostr(j);
end;
if (strToInt(combobox1.text) mod 4)=3 then
begin
grid2_1.Cells[4,Grid2_1.RowCount-2].ForeText:=inttostr(j);
end;
if (strToInt(combobox1.text) mod 4)=0 then
begin
grid2_1.Cells[5,Grid2_1.RowCount-2].ForeText:=inttostr(j);
end;
end;//if CP
end;//j
//end;//fori
///////在表格Grid2_2中显示//////////////////////////////
//for i:=1 to 28 do
//begin
for j:=1 to 16 do
begin
if strToInt(combobox1.text)=j then
begin
if (strToInt(combobox1.text)=1) or (strToInt(combobox1.text)=8) or (strToInt(combobox1.text)=9) or (strToInt(combobox1.text)=16) then
begin
grid2_2.Cells[2,Grid2_2.RowCount-2].ForeText:=inttostr(j);
end;
if (strToInt(combobox1.text)=2) or (strToInt(combobox1.text)=7) or (strToInt(combobox1.text)=10) or (strToInt(combobox1.text)=15) then
begin
grid2_2.Cells[3,Grid2_2.RowCount-2].ForeText:=inttostr(j);
end;
if ( _Tmp_CP=3) or ( _Tmp_CP=6) or ( _Tmp_CP=11) or ( _Tmp_CP=14) then
begin
grid2_2.Cells[4,Grid2_2.RowCount-2].ForeText:=inttostr(j);
end;
if ( _Tmp_CP=4) or ( _Tmp_CP=5) or ( _Tmp_CP=12) or ( _Tmp_CP=13) then
begin
grid2_2.Cells[5,Grid2_2.RowCount-2].ForeText:=inttostr(j);
end;
end;//if CP
end;//j
//end;//fori
///////在表格Grid2_3中显示//////////////////////////////
// for i:=1 to 28 do
//begin
for j:=1 to 16 do
begin
if _Tmp_CP=j then
begin
if ( _Tmp_CP=1) or ( _Tmp_CP=2) or ( _Tmp_CP=3) or ( _Tmp_CP=4) then
begin
grid2_3.Cells[2,Grid2_3.RowCount-2].ForeText:=inttostr(j);
end;
if ( _Tmp_CP=5) or ( _Tmp_CP=6) or ( _Tmp_CP=7) or ( _Tmp_CP=8) then
begin
grid2_3.Cells[3,Grid2_3.RowCount-2].ForeText:=inttostr(j);
end;
if ( _Tmp_CP=9) or ( _Tmp_CP=10) or ( _Tmp_CP=11) or ( _Tmp_CP=12) then
begin
grid2_3.Cells[4,Grid2_3.RowCount-2].ForeText:=inttostr(j);
end;
if ( _Tmp_CP=13) or ( _Tmp_CP=14) or ( _Tmp_CP=15) or ( _Tmp_CP=16) then
begin
grid2_3.Cells[5,Grid2_3.RowCount-2].ForeText:=inttostr(j);
end;
end;//if CP
end;//j
//end;//fori
///////在表格Grid2_4中显示//////////////////////////////
// for i:=1 to 28 do
//begin
for j:=1 to 16 do
begin
if _Tmp_CP=j then
begin
if ( _Tmp_CP=1) or ( _Tmp_CP=12) or ( _Tmp_CP=11) or ( _Tmp_CP=10) then
begin
grid2_4.Cells[2,Grid2_4.RowCount-2].ForeText:=inttostr(j);
end;
if ( _Tmp_CP=2) or ( _Tmp_CP=13) or ( _Tmp_CP=16) or ( _Tmp_CP=9) then
begin
grid2_4.Cells[3,Grid2_4.RowCount-2].ForeText:=inttostr(j);
end;
if (_Tmp_CP=3) or (_Tmp_CP=14) or (_Tmp_CP=15) or (_Tmp_CP=8) then
begin
grid2_4.Cells[4,Grid2_4.RowCount-2].ForeText:=inttostr(j);
end;
if (_Tmp_CP=4) or (_Tmp_CP=5) or (_Tmp_CP=6) or (_Tmp_CP=7) then
begin
grid2_4.Cells[5,Grid2_4.RowCount-2].ForeText:=inttostr(j);
end;
end;//if CP
end;//j
//end;//fori
///////在表格Grid2_5中显示//////////////////////////////
//for i:=1 to 28 do
//begin
for j:=1 to 16 do
begin
if _Tmp_CP=j then
begin
if (_Tmp_CP=1) or (_Tmp_CP=2) or (_Tmp_CP=3) or (_Tmp_CP=4) then
begin
grid2_5.Cells[2,Grid2_5.RowCount-2].ForeText:=inttostr(j);
end;
if (_Tmp_CP=12) or (_Tmp_CP=13) or (_Tmp_CP=14) or (_Tmp_CP=5) then
begin
grid2_5.Cells[3,Grid2_5.RowCount-2].ForeText:=inttostr(j);
end;
if (_Tmp_CP=11) or (_Tmp_CP=16) or (_Tmp_CP=15) or (_Tmp_CP=6) then
begin
grid2_5.Cells[4,Grid2_5.RowCount-2].ForeText:=inttostr(j);
end;
if (_Tmp_CP=10) or (_Tmp_CP=9) or (_Tmp_CP=8) or (_Tmp_CP=7) then
begin
grid2_5.Cells[5,Grid2_5.RowCount-2].ForeText:=inttostr(j);
end;
end;//if CP
end;//j
//end;//fori
////////////////////////////////////////////////////////
grid2_1.Refresh;
grid2_2.Refresh;
grid2_3.Refresh;
grid2_4.Refresh;
grid2_5.Refresh;
end;
procedure TForm_Blue.ComboBox2Click(Sender: TObject);
var
i,j:integer;
_TmpCP:integer;
begin
/////清空四个表格的倒数第二行//////////////////
for i:=1 to 16 do
begin
grid1_1.Cells[i,grid1_1.RowCount-2].ForeText:='';
grid1_2.Cells[i,grid1_2.RowCount-2].ForeText:='';
grid1_3.Cells[i,grid1_3.RowCount-2].ForeText:='';
end;///for i
for i:=1 to 4 do
begin
grid1_4.Cells[i,grid1_4.RowCount-2].ForeText:='';
end;///for i
////
_TmpCP:=strToInt(combobox2.text);
/////在表格Grid1_1中显示数据///////////////////////////
for i:=1 to 16 do
begin
grid1_1.Cells[_TmpCP+1,grid1_1.RowCount-2].ForeText:=trim(combobox2.text);
end;////
/////在表格Grid1_2中显示数据///////////////////////////
for i:=1 to 16 do
begin
if _TmpCP=i then
begin
if (_TmpCP mod 2)=0 then
begin
grid1_2.Cells[strToInt(formatFloat('##0',(8+i/2))),grid1_2.RowCount-2].ForeText:=inttostr(i);
end;
if (_TmpCP mod 2)=1 then
begin
grid1_2.Cells[strToInt(formatFloat('##0',((i+1)/2))),grid1_2.RowCount-2].ForeText:=inttostr(i);
end;
end;//tmpcp
end;//for i
/////在表格Grid1_2中显示数据///////////////////////////
for j:=1 to 16 do
begin
if _TmpCP=j then
begin
if (_TmpCP mod 3)=1 then
begin
grid1_3.Cells[strToInt(formatFloat('##0',(1+(j-1)/3))),grid1_3.RowCount-2].ForeText:=inttostr(j);
end;
if (_TmpCP mod 3)=2 then
begin
grid1_3.Cells[strToInt(formatFloat('##0',(7+(j-2)/3))),grid1_3.RowCount-2].ForeText:=inttostr(j);
end;
if (_TmpCP mod 3)=0 then
begin
grid1_3.Cells[strToInt(formatFloat('##0',(12+(j-3)/3))),grid1_3.RowCount-2].ForeText:=inttostr(j);
end;
end;//if
end;
/////在表格Grid1_4中显示数据///////////////////////////
for j:=1 to 16 do
begin
if _TmpCP=j then
begin
if (_TmpCP mod 4)=0 then
begin
grid1_4.Cells[1,grid1_4.RowCount-2].ForeText:=inttostr(j);
end;
if (_TmpCP mod 4)=1 then
begin
grid1_4.Cells[2,grid1_4.RowCount-2].ForeText:=inttostr(j);
end;
if (_TmpCP mod 4)=2 then
begin
grid1_4.Cells[3,grid1_4.RowCount-2].ForeText:=inttostr(j);
end;
if (_TmpCP mod 4)=3 then
begin
grid1_4.Cells[4,grid1_4.RowCount-2].ForeText:=inttostr(j);
end;
end;//if
end;
////////在最下行画圆///////////////////////////////////
{ with grid1_1 do
begin
Canvas.Brush.Color:=rgb(255,0,0);
canvas.Pen.Color:=rgb(255,0,0);
canvas.Pen.Width:=1;
canvas.Ellipse(cellrect(_TmpCp+1,rowcount-2));
end;
}
///////////////////////////////////////////////////////
grid1_2.Refresh;
grid1_3.Refresh;
grid1_1.Refresh;
grid1_4.Refresh;
////////////////////////////////////////////////
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -