?? ulott3d.~pas
字號:
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=10;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxTrendCode1',true);
IdxTrendCode1:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//第二個號碼走勢
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='第二個號碼走勢';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
for j:=0 to 9 do HeadLineList[CurHeadLineCount].ItemCaptionList[j]:=IntToStr(j);
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=10;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxTrendCode2',true);
IdxTrendCode2:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//第三個號碼走勢
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='第二個號碼走勢';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
for j:=0 to 9 do HeadLineList[CurHeadLineCount].ItemCaptionList[j]:=IntToStr(j);
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=10;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxTrendCode3',true);
IdxTrendCode3:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//該號碼以前是否出現過
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='以前出現';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='否';
HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='是';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=2;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxPreDisplayFlag',true);
IdxPreDisplayFlag:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//該號碼以前是否出現過（近n期）
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='前現近n期';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='否';
HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='是';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=2;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxPreDisplayFlagCurN',true);
IdxPreDisplayFlagCurN:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//號碼驗證排列
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='驗證';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='排列';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=1;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCodeCheck',true);
IdxCodeCheck:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//號碼驗證組6
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='驗證';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='組6';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=1;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCodeCheckZH6',true);
IdxCodeCheckZH6:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//3個號碼組合
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='3個號碼組合 3個號碼組合 3個號碼組合 3個號碼組合 3個號碼組合 3個號碼組合';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
for j:=0 to cnCompages3CodeMax-1 do
HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='組3';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages3CodeMax;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages3Code',true);
IdxCompages3Code:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//4個號碼組合
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='4個號碼組合 4個號碼組合 4個號碼組合 4個號碼組合 4個號碼組合 4個號碼組合';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
for j:=0 to cnCompages4CodeMax-1 do
HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='組4';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages4CodeMax;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages4Code',true);
IdxCompages4Code:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//5個號碼組合
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='5個號碼組合 5個號碼組合 5個號碼組合 5個號碼組合 5個號碼組合 5個號碼組合';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
for j:=0 to cnCompages5CodeMax-1 do
HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='組5';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages5CodeMax;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages5Code',true);
IdxCompages5Code:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//6個號碼組合
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='6個號碼組合 6個號碼組合 6個號碼組合 6個號碼組合 6個號碼組合 6個號碼組合';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
for j:=0 to cnCompages6CodeMax-1 do
HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='組6';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages6CodeMax;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages6Code',true);
IdxCompages6Code:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//7個號碼組合
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='7個號碼組合 7個號碼組合 7個號碼組合 7個號碼組合 7個號碼組合 7個號碼組合';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
for j:=0 to cnCompages7CodeMax-1 do
HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='組7';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages7CodeMax;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages7Code',true);
IdxCompages7Code:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//8個號碼組合
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='8個號碼組合 8個號碼組合 8個號碼組合 8個號碼組合 8個號碼組合 8個號碼組合';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
for j:=0 to cnCompages8CodeMax-1 do
HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='組8';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages8CodeMax;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages8Code',true);
IdxCompages8Code:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//222個號碼組合
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='222個號碼組合 222個號碼組合 222個號碼組合 222個號碼組合 222個號碼組合 222個號碼組合';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
for j:=0 to cnCompages222CodeMax-1 do
HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='組222';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages222CodeMax;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages222Code',true);
IdxCompages222Code:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//333個號碼組合
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='333個號碼組合 333個號碼組合 333個號碼組合 333個號碼組合 333個號碼組合 333個號碼組合';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
for j:=0 to cnCompages333CodeMax-1 do
HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='組333';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages333CodeMax;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages333Code',true);
IdxCompages333Code:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//444個號碼組合
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='444個號碼組合 444個號碼組合 444個號碼組合 444個號碼組合 444個號碼組合 444個號碼組合';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
for j:=0 to cnCompages444CodeMax-1 do
HeadLineList[CurHeadLineCount].ItemCaptionList[j]:='組444';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=cnCompages444CodeMax;
HeadLIneList[CurHeadLineCount].DisplayFlag:=Ini.ReadBool('DisplayColumn','IdxCompages444Code',true);
IdxCompages444Code:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
///以前出現>=N次，本次又出現
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='以前出現>=N次，本次又出現';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='未';
HeadLineList[CurHeadLineCount].ItemCaptionList[1]:='出現';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=2;
HeadLIneList[CurHeadLineCount].DisplayFlag:=true;
IdxPreDispNCurDisp:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
///組合3排在前N個組合，出現情況
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='組合3排在前N個組合本次出現';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='出現';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=1;
HeadLIneList[CurHeadLineCount].DisplayFlag:=true;
IdxCompages3BeforeN:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
///多種組合方式，大小、奇偶、形狀、個數等
with gl_HeadLineList do
begin
HeadLineList[CurHeadLineCount].Caption:='多種組合方式，大小、奇偶、形狀、相連、個數、指定號碼、包含號碼';
HeadLineList[CurHeadLineCount].Color:=TColor(RGB(191,215,183));
HeadLineList[CurHeadLineCount].ColBKColor:=gl_BackColorList.clColColorList[CurHeadLineCount mod 4];
HeadLineList[CurHeadLineCount].Width:=22;
HeadLineList[CurHeadLineCount].ItemCaptionList[0]:='出現';
HeadLineList[CurHeadLineCount].CurItemCaptionCount:=1;
HeadLIneList[CurHeadLineCount].DisplayFlag:=true;
IdxNCompages:=CurHeadLineCount;
CurHeadLineCount:=CurHeadLineCount+1;
end;
//*********************************************************************//
//組合3，十個號碼全選
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -