双色球缩水软件——双色熊猫V1.0
为了提高双色球缩水效率和准确率，作为双色球爱好者的我也尝试自己编写开发了一个双色球投注、分析、缩水的软件——双色熊猫彩投宝。
效果如图：
工程文件：pPanda.dpr
View Code
program pPanda; uses Vcl.Forms, uSsqPanda in 'uSsqPanda.pas' {frmSSPanda}, uDataModule in 'uDataModule.pas' {dmMain: TDataModule}, uAnalysis in 'uAnalysis.pas' {frmAnalysis}, uUpdateWait in 'uUpdateWait.pas' {frmUpdateWait}, uAnalysisDB in 'uAnalysisDB.pas' {frmAnalysisDB}, uSelectBall in 'uSelectBall.pas' {frmSelectRedBall}, uSameMacth in 'uSameMacth.pas' {frmSameMacth}, uFixed in 'uFixed.pas' {frmFixed}, uSelectBlueBall in 'uSelectBlueBall.pas' {frmSelectBlueBall}, uFixedTails in 'uFixedTails.pas' {frmFixedTails}, uTailsMatch in 'uTailsMatch.pas' {frmTailsMatch}, uSumRemainder in 'uSumRemainder.pas' {frmSumRemainder}, uSumTails in 'uSumTails.pas' {frmSumTails}, uChartReport in 'uChartReport.pas' {frmChartReport}, Vcl.Themes, Vcl.Styles, uEditBall in 'uEditBall.pas' {frmEditBall}, uBlueBallReplace in 'uBlueBallReplace.pas' {frmBlueBallReplace}, uCompareResult in 'uCompareResult.pas' {frmCompare}, uHelp in 'uHelp.pas' {frmHelp}, uAbout in 'uAbout.pas' {frmAbout}, uFilterRestore in 'uFilterRestore.pas' {frmRestore}; {$R *.res} begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.Title := '双色熊猫'; Application.CreateForm(TfrmSSPanda, frmSSPanda); Application.CreateForm(TdmMain, dmMain); Application.Run; end.
主单元文件：uSsqPanda.pas
View Code
unit uSsqPanda; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, Buttons, ComCtrls, ExtCtrls, Vcl.ImgList, Vcl.ToolWin, Vcl.Menus, Vcl.ActnList, Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnMan, idHttp, Vcl.ExtDlgs, IdAntiFreezeBase, IdAntiFreeze; const MsgID = 2000; //调用刷新结果显示消息 type TfrmSSPanda = class(TForm) pnlBall: TPanel; pgcStandard: TPageControl; tsStandard: TTabSheet; tsSpecial: TTabSheet; sbRed1: TSpeedButton; Label1: TLabel; sbRed2: TSpeedButton; sbRed3: TSpeedButton; sbRed4: TSpeedButton; sbRed5: TSpeedButton; sbRed6: TSpeedButton; sbRed7: TSpeedButton; sbRed8: TSpeedButton; sbRed9: TSpeedButton; sbRed10: TSpeedButton; sbRed11: TSpeedButton; sbRed21: TSpeedButton; sbRed22: TSpeedButton; sbRed20: TSpeedButton; sbRed19: TSpeedButton; sbRed18: TSpeedButton; sbRed17: TSpeedButton; sbRed16: TSpeedButton; sbRed15: TSpeedButton; sbRed14: TSpeedButton; sbRed13: TSpeedButton; sbRed12: TSpeedButton; sbRed32: TSpeedButton; sbRed33: TSpeedButton; sbRed31: TSpeedButton; sbRed30: TSpeedButton; sbRed29: TSpeedButton; sbRed28: TSpeedButton; sbRed27: TSpeedButton; sbRed26: TSpeedButton; sbRed25: TSpeedButton; sbRed24: TSpeedButton; sbRed23: TSpeedButton; sbBlue10: TSpeedButton; sbBlue11: TSpeedButton; sbBlue9: TSpeedButton; sbBlue8: TSpeedButton; sbBlue7: TSpeedButton; sbBlue6: TSpeedButton; sbBlue5: TSpeedButton; sbBlue4: TSpeedButton; sbBlue3: TSpeedButton; sbBlue2: TSpeedButton; sbBlue1: TSpeedButton; sbBlue15: TSpeedButton; sbBlue16: TSpeedButton; sbBlue14: TSpeedButton; sbBlue13: TSpeedButton; sbBlue12: TSpeedButton; Label2: TLabel; Panel2: TPanel; Panel3: TPanel; Panel4: TPanel; bbtnBetting: TBitBtn; bbtnFiltering: TBitBtn; Panel5: TPanel; pgcFilter: TPageControl; tsCommonFilter: TTabSheet; tsAdvance: TTabSheet; lblLottery: TLabel; lblIssue: TLabel; bbtnOutput: TBitBtn; mnuPanda: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; N20: TMenuItem; N21: TMenuItem; N22: TMenuItem; N23: TMenuItem; N24: TMenuItem; N25: TMenuItem; N26: TMenuItem; N27: TMenuItem; N28: TMenuItem; N29: TMenuItem; N30: TMenuItem; N31: TMenuItem; N32: TMenuItem; tbSSPanda: TToolBar; ToolButton1: TToolButton; ToolButton2: TToolButton; ToolButton3: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; imglPanda: TImageList; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; tbRollback: TToolButton; ToolButton10: TToolButton; tbGoahead: TToolButton; ToolButton12: TToolButton; ToolButton13: TToolButton; Panel6: TPanel; Label3: TLabel; actSSPanda: TActionList; acExit: TAction; stsSSPanda: TStatusBar; GroupBox1: TGroupBox; sgResult: TStringGrid; sbtnNext: TSpeedButton; lblPageCount: TLabel; edtPage: TEdit; lblJmp: TLabel; sbtnLast: TSpeedButton; bbtnProduct: TBitBtn; bbtnFilter: TBitBtn; pnlStandard: TPanel; pnlFilter: TPanel; pnlAdvancefilter: TPanel; popmnuBetting: TPopupMenu; N33: TMenuItem; N34: TMenuItem; chkSum: TCheckBox; edtMin: TEdit; UpDown1: TUpDown; Label6: TLabel; edtMax: TEdit; UpDown2: TUpDown; bbtnSum: TBitBtn; chkRepeat: TCheckBox; chkRepeat0: TCheckBox; chkRepeat1: TCheckBox; chkRepeat2: TCheckBox; chkRepeat3: TCheckBox; chkRepeat4: TCheckBox; chkRepeat5: TCheckBox; chkRepeat6: TCheckBox; bbtnRepeat: TBitBtn; chkTilt: TCheckBox; bbtnTilt: TBitBtn; chkOdd: TCheckBox; bbtnOdd: TBitBtn; chkBig: TCheckBox; bbtnBig: TBitBtn; chkOld: TCheckBox; bbtnOld: TBitBtn; chkBigTail: TCheckBox; bbtnBigTail: TBitBtn; chkTails: TCheckBox; bbtnTails: TBitBtn; chkContinuous: TCheckBox; bbtnContinuous: TBitBtn; gbRepeat: TGroupBox; gbOdd: TGroupBox; CheckBox1: TCheckBox; CheckBox2: TCheckBox; CheckBox3: TCheckBox; CheckBox4: TCheckBox; CheckBox5: TCheckBox; CheckBox6: TCheckBox; CheckBox7: TCheckBox; gbBig: TGroupBox; CheckBox8: TCheckBox; CheckBox9: TCheckBox; CheckBox10: TCheckBox; CheckBox11: TCheckBox; CheckBox17: TCheckBox; CheckBox18: TCheckBox; CheckBox19: TCheckBox; gbOld: TGroupBox; CheckBox20: TCheckBox; CheckBox21: TCheckBox; CheckBox22: TCheckBox; CheckBox23: TCheckBox; CheckBox25: TCheckBox; CheckBox26: TCheckBox; CheckBox27: TCheckBox; gbBigTail: TGroupBox; CheckBox28: TCheckBox; CheckBox29: TCheckBox; CheckBox30: TCheckBox; CheckBox31: TCheckBox; CheckBox33: TCheckBox; CheckBox34: TCheckBox; CheckBox35: TCheckBox; gbTails: TGroupBox; CheckBox36: TCheckBox; CheckBox37: TCheckBox; CheckBox38: TCheckBox; CheckBox39: TCheckBox; CheckBox41: TCheckBox; CheckBox42: TCheckBox; CheckBox43: TCheckBox; gbContinuous: TGroupBox; CheckBox44: TCheckBox; CheckBox45: TCheckBox; CheckBox46: TCheckBox; CheckBox47: TCheckBox; CheckBox49: TCheckBox; CheckBox50: TCheckBox; CheckBox51: TCheckBox; gbTilt: TGroupBox; CheckBox12: TCheckBox; CheckBox13: TCheckBox; CheckBox14: TCheckBox; CheckBox15: TCheckBox; CheckBox52: TCheckBox; CheckBox53: TCheckBox; CheckBox54: TCheckBox; chkSumRemainder: TCheckBox; edtSumRemainder: TEdit; sbSumRemainder: TSpeedButton; chkSumTails: TCheckBox; edtSumTails: TEdit; sbSumTails: TSpeedButton; chkSameMatch: TCheckBox; edtSameMatch: TEdit; sbSameMatch: TSpeedButton; chkFixed: TCheckBox; edtFixed: TEdit; sbFixed: TSpeedButton; bbtnRedRandom: TBitBtn; bbtnRedAll: TBitBtn; bbtnRedNone: TBitBtn; edtRedRandom: TEdit; UpDown3: TUpDown; bbtnRedReverse: TBitBtn; edtBlueRandom: TEdit; UpDown4: TUpDown; bbtnBlueRandom: TBitBtn; bbtnBlueAll: TBitBtn; bbtnBlueNone: TBitBtn; bbtnBlueReverse: TBitBtn; acDataUpadate: TAction; Label7: TLabel; Label8: TLabel; lblRecCount: TLabel; popmnuFiltering: TPopupMenu; popmnuOutput: TPopupMenu; N35: TMenuItem; N36: TMenuItem; N37: TMenuItem; N38: TMenuItem; acSaveResult: TAction; chkTailsFixed: TCheckBox; edtTailsFixed: TEdit; sbTailsFixed: TSpeedButton; sbTailsMatch: TSpeedButton; chkTailsMatch: TCheckBox; edtTailsMatch: TEdit; lblBlue: TLabel; lblAdd: TLabel; odOpen: TOpenDialog; acInputResult: TAction; acChartReport: TAction; Label5: TLabel; r31: TSpeedButton; r32: TSpeedButton; b3: TSpeedButton; b2: TSpeedButton; b1: TSpeedButton; r28: TSpeedButton; r27: TSpeedButton; r26: TSpeedButton; r33: TSpeedButton; r30: TSpeedButton; r29: TSpeedButton; b4: TSpeedButton; b16: TSpeedButton; b12: TSpeedButton; b11: TSpeedButton; b13: TSpeedButton; b14: TSpeedButton; b15: TSpeedButton; b7: TSpeedButton; b6: TSpeedButton; b5: TSpeedButton; b10: TSpeedButton; b9: TSpeedButton; b8: TSpeedButton; r25: TSpeedButton; r11: TSpeedButton; r12: TSpeedButton; r6: TSpeedButton; r8: TSpeedButton; r9: TSpeedButton; r10: TSpeedButton; r2: TSpeedButton; r1: TSpeedButton; Label4: TLabel; r5: TSpeedButton; r4: TSpeedButton; r3: TSpeedButton; r7: TSpeedButton; r22: TSpeedButton; r23: TSpeedButton; r24: TSpeedButton; r20: TSpeedButton; r19: TSpeedButton; r21: TSpeedButton; r15: TSpeedButton; r14: TSpeedButton; r13: TSpeedButton; r18: TSpeedButton; r17: TSpeedButton; r16: TSpeedButton; pnlSpecial: TPanel; btnBClear: TBitBtn; btnBReverse: TBitBtn; btnBAll: TBitBtn; BitBtn4: TBitBtn; UpDown5: TUpDown; edtb: TEdit; Label9: TLabel; Label10: TLabel; N11: TMenuItem; acSaveFilter: TAction; sdSave: TSaveTextFileDialog; acOpenFilter: TAction; acManualUpdate: TAction; acPrizeLookup: TAction; acChecks: TAction; acRollback: TAction; acGoAhead: TAction; popmnuSg: TPopupMenu; N12: TMenuItem; N13: TMenuItem; N39: TMenuItem; acResultEdit: TAction; acResultAdd: TAction; acResultDel: TAction; acResultClear: TAction; acBlueReplace: TAction; N40: TMenuItem; N41: TMenuItem; N42: TMenuItem; N43: TMenuItem; N44: TMenuItem; tsTailsBetting: TTabSheet; pnlTailsBetting: TPanel; lbTails: TListBox; sbtnAdd: TSpeedButton; sbtnInput: TSpeedButton; sbtnSave: TSpeedButton; sbtnDel: TSpeedButton; sbtnClear: TSpeedButton; edtTails: TEdit; N45: TMenuItem; acInsertInput: TAction; N46: TMenuItem; N47: TMenuItem; N48: TMenuItem; N49: TMenuItem; N50: TMenuItem; N51: TMenuItem; N52: TMenuItem; acFilterRestore: TAction; acPrintResult: TAction; N53: TMenuItem; N54: TMenuItem; acSaveBetting: TAction; acOpenBetting: TAction; N55: TMenuItem; procedure FormShow(Sender: TObject); procedure acExitExecute(Sender: TObject); procedure sbRed1Click(Sender: TObject); procedure sbRed1MouseEnter(Sender: TObject); procedure sbRed1MouseLeave(Sender: TObject); procedure bbtnProductClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure sbtnLastClick(Sender: TObject); procedure sbtnNextClick(Sender: TObject); procedure sbtnLastMouseLeave(Sender: TObject); procedure sbtnLastMouseEnter(Sender: TObject); procedure lblJmpClick(Sender: TObject); procedure lblJmpMouseEnter(Sender: TObject); procedure lblJmpMouseLeave(Sender: TObject); procedure bbtnBettingMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure chkSumClick(Sender: TObject); procedure chkRepeatClick(Sender: TObject); procedure bbtnFilterClick(Sender: TObject); procedure bbtnRedRandomClick(Sender: TObject); procedure bbtnRedNoneClick(Sender: TObject); procedure bbtnRedAllClick(Sender: TObject); procedure bbtnRedReverseClick(Sender: TObject); procedure bbtnBlueRandomClick(Sender: TObject); procedure acDataUpadateExecute(Sender: TObject); procedure bbtnFilteringMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure bbtnOutputMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure acSaveResultExecute(Sender: TObject); procedure bbtnRepeatClick(Sender: TObject); procedure bbtnTiltClick(Sender: TObject); procedure bbtnOddClick(Sender: TObject); procedure bbtnBigClick(Sender: TObject); procedure bbtnOldClick(Sender: TObject); procedure bbtnBigTailClick(Sender: TObject); procedure bbtnTailsClick(Sender: TObject); procedure bbtnContinuousClick(Sender: TObject); procedure bbtnSumClick(Sender: TObject); procedure sbFixedClick(Sender: TObject); procedure sbSameMatchClick(Sender: TObject); procedure chkSameMatchClick(Sender: TObject); procedure sbTailsFixedClick(Sender: TObject); procedure sbTailsMatchClick(Sender: TObject); procedure sbSumRemainderClick(Sender: TObject); procedure sbSumTailsClick(Sender: TObject); procedure acInputResultExecute(Sender: TObject); procedure acChartReportExecute(Sender: TObject); procedure r1Click(Sender: TObject); procedure btnBClearClick(Sender: TObject); procedure btnBAllClick(Sender: TObject); procedure btnBReverseClick(Sender: TObject); procedure acSaveFilterExecute(Sender: TObject); procedure acOpenFilterExecute(Sender: TObject); procedure acManualUpdateExecute(Sender: TObject); procedure acPrizeLookupExecute(Sender: TObject); procedure acChecksExecute(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure N28Click(Sender: TObject); procedure acRollbackExecute(Sender: TObject); procedure acGoAheadExecute(Sender: TObject); procedure sgResultMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure acResultEditExecute(Sender: TObject); procedure acResultDelExecute(Sender: TObject); procedure acResultClearExecute(Sender: TObject); procedure acResultAddExecute(Sender: TObject); procedure acBlueReplaceExecute(Sender: TObject); procedure sbtnAddClick(Sender: TObject); procedure edtTailsExit(Sender: TObject); procedure edtTailsKeyPress(Sender: TObject; var Key: Char); procedure sbtnSaveClick(Sender: TObject); procedure sbtnInputClick(Sender: TObject); procedure sbtnDelClick(Sender: TObject); procedure sbtnClearClick(Sender: TObject); procedure acInsertInputExecute(Sender: TObject); procedure N31Click(Sender: TObject); procedure N32Click(Sender: TObject); procedure acFilterRestoreExecute(Sender: TObject); procedure acPrintResultExecute(Sender: TObject); procedure acSaveBettingExecute(Sender: TObject); procedure acOpenBettingExecute(Sender: TObject); private { Private declarations } function VerifySum(arr: array of integer; intMin,intMax: integer; bFlag: Boolean): Boolean; function VerifyRepeat(arr: array of integer; bFlag: Boolean): Boolean; function VerifyTilt(arr: array of integer; bFlag: Boolean): Boolean; function VerifyOdd(arr: array of integer; bFlag: Boolean): Boolean; function VerifyBig(arr: array of integer; bFlag: Boolean): Boolean; function VerifyOld(arr: array of integer; bFlag: Boolean): Boolean; function VerifyBigTail(arr: array of integer; bFlag: Boolean): Boolean; function VerifyTails(arr: array of integer; bFlag: Boolean): Boolean; function VerifyContinuous(arr: array of integer; bFlag: Boolean): Boolean; function ValidFilter: Boolean; //获取最新开奖的期号及日期 procedure GetLotteryIssue; //交集匹配校验 function VerifySameMatch(arr: array of integer; bFlag: Boolean): Boolean; //定位匹配 function VerifyFixed(arr: array of integer; bFlag: Boolean): Boolean; //尾数匹配 function VerifyTailsMatch(arr: array of integer; bFlag: Boolean): Boolean; //定尾匹配 function VerifyFixedTails(arr: array of integer; bFlag: Boolean): Boolean; //和值余数 function VerifySumRemainder(arr: array of integer; bFlag: Boolean): Boolean; //和值尾数 function VerifySumTails(arr: array of integer; bFlag: Boolean): Boolean; //胆拖杀投注功能有效性检验 function VerifySpecial: Boolean; //胆拖杀投注 procedure SpecialBetting; //数据分页及第一页显示处理 procedure DisplayPaging; //尾号投注手动添加 procedure AddInput; //尾号转换为投注结果 procedure TailsToBall; //外部导入投注结果 procedure InputFromFile(bOver: byte); //菜单、按钮使能控制 procedure EnableButton; public { Public declarations } procedure WM_RefreshDisp(var msg: TMessage); Message MsgId; end; type iset = set of 1..33; //取得网页内容 function GetWebPage(const Url :string; var sResult: string; IsUtf8 :Boolean = False):Boolean; //获取历史数据相关的上期号码、斜码及旧码 procedure GetDataHistory; var frmSSPanda: TfrmSSPanda; //UpdateThread : TThread; IsContinue: Boolean = True; implementation {$R *.dfm} {$R Ssq.Res} uses uDataModule, DateUtils, uProgressFilter, Gauges, uUpdateWait, GIFImg, uAnalysisDB, uSelectBall, uSameMacth, uFixed, uFixedTails, uTailsMatch, uSumRemainder, uSumTails, uChartReport, Generics.Collections, ShellApi, uEditBall, uBlueBallReplace, uCompareResult, uHelp, uAbout, uFilterRestore; const PageSize = 1000; //投注结果每页的最大记录数 MaxUndo = 5; // 投注过滤可恢复最大次数 var strList, listAbandon, listRetain: TStrings; //存放投注及保留、滤除的 结果 pageCount, curPage: integer; //结果分页的总数及当前页 intRed, intBlue: DWord; //选择的红球和蓝球个数 intsetRepeat,intsetTilt,intsetOld: set of 1..33; //重码、斜码、旧码 intCurUndo, intCountUndo: integer;//过滤及可恢复次数 //和值过滤 function TfrmSSPanda.VerifySum(arr: array of integer; intMin,intMax: integer; bFlag: Boolean): Boolean; var i,intSum: integer; begin Result := False; if not bFlag then begin Result := True; Exit; end; intSum := 0; //计算和 for I := Low(arr) to High(arr) do intSum := intSum + arr[i]; if intSum in [intMin..intMax] then Result := True; end; //重复过滤 function TfrmSSPanda.VerifyRepeat(arr: array of integer; bFlag: Boolean): Boolean; var i, intCount: integer; intsetCount: set of 0..6; begin Result := False; if not bFlag then begin Result := True; Exit; end; //已选择的选项集合 intsetCount := []; for I := 0 to gbRepeat.ControlCount - 1 do if TCheckBox(gbRepeat.Controls[i]).Checked then Include(intsetCount, StrtoInt(TCheckBox(gbRepeat.Controls[i]).Caption)); //计算重复个数 intCount := 0; for i := Low(arr) to High(arr) do if arr[i] in intsetRepeat then inc(intCount); //如果符合条件则返回真 if intCount in intsetCount then Result := True; end; //斜码过滤 function TfrmSSPanda.VerifyTilt(arr: array of integer; bFlag: Boolean): Boolean; var i, intCount: integer; intsetCount: set of 0..6; begin Result := False; if not bFlag then begin Result := True; Exit; end; //已选择的选项集合 intsetCount := []; for I := 0 to gbTilt.ControlCount - 1 do if TCheckBox(gbTilt.Controls[i]).Checked then Include(intsetCount, StrtoInt(TCheckBox(gbTilt.Controls[i]).Caption)); //计算斜码个数 intCount := 0; for i := Low(arr) to High(arr) do if arr[i] in intsetTilt then inc(intCount); //如果符合条件则返回真 if intCount in intsetCount then Result := True; end; //奇数个数过滤 function TfrmSSPanda.VerifyOdd(arr: array of integer; bFlag: Boolean): Boolean; var i, intCount: integer; intsetCount: set of 0..6; begin Result := False; if not bFlag then begin Result := True; Exit; end; //已选择的选项集合 intsetCount := []; for I := 0 to gbOdd.ControlCount - 1 do if TCheckBox(gbOdd.Controls[i]).Checked then Include(intsetCount, StrtoInt(TCheckBox(gbOdd.Controls[i]).Caption)); //计算奇数个数 intCount := 0; for i := Low(arr) to High(arr) do if Odd(arr[i]) then inc(intCount); //如果符合条件则返回真 if intCount in intsetCount then Result := True; end; //大号个数过滤 function TfrmSSPanda.VerifyBig(arr: array of integer; bFlag: Boolean): Boolean; var i, intCount: integer; intsetCount: set of 0..6; begin Result := False; if not bFlag then begin Result := True; Exit; end; //已选择的选项集合 intsetCount := []; for I := 0 to gbBig.ControlCount - 1 do if TCheckBox(gbBig.Controls[i]).Checked then Include(intsetCount, StrtoInt(TCheckBox(gbBig.Controls[i]).Caption)); //计算大码个数 intCount := 0; for i := Low(arr) to High(arr) do if arr[i] > 16 then inc(intCount); //如果符合条件则返回真 if intCount in intsetCount then Result := True; end; //旧码过滤 function TfrmSSPanda.VerifyOld(arr: array of integer; bFlag: Boolean): Boolean; var i, intCount: integer; intsetCount: set of 0..6; begin Result := False; if not bFlag then begin Result := True; Exit; end; //已选择的选项集合 intsetCount := []; for I := 0 to gbOld.ControlCount - 1 do if TCheckBox(gbOld.Controls[i]).Checked then Include(intsetCount, StrtoInt(TCheckBox(gbOld.Controls[i]).Caption)); //计算旧码个数 intCount := 0; for i := Low(arr) to High(arr) do if arr[i] in intsetOld then inc(intCount); //如果符合条件则返回真 if intCount in intsetCount then Result := True; end; //高尾过滤 function TfrmSSPanda.VerifyBigTail(arr: array of integer; bFlag: Boolean): Boolean; var i, intCount: integer; intsetCount: set of 0..6; begin Result := False; if not bFlag then begin Result := True; Exit; end; //已选择的选项集合 intsetCount := []; for I := 0 to gbBigTail.ControlCount - 1 do if TCheckBox(gbBigTail.Controls[i]).Checked then Include(intsetCount, StrtoInt(TCheckBox(gbBigTail.Controls[i]).Caption)); //计算高尾个数 intCount := 0; for i := Low(arr) to High(arr) do if (arr[i] mod 10) >= 5 then inc(intCount); //如果符合条件则返回真 if intCount in intsetCount then Result := True; end; //异尾数过滤 function TfrmSSPanda.VerifyTails(arr: array of integer; bFlag: Boolean): Boolean; var i, intCount: integer; intsetCount: set of 0..6; intsetWh: set of 0..9; begin Result := False; if not bFlag then begin Result := True; Exit; end; //已选择的选项集合 intsetCount := []; for I := 0 to gbTails.ControlCount - 1 do if TCheckBox(gbTails.Controls[i]).Checked then Include(intsetCount, StrtoInt(TCheckBox(gbTails.Controls[i]).Caption)); //计算异尾个数 intCount := 0; intsetWh := []; for i := Low(arr) to High(arr) do Include(intsetWh,(arr[i] mod 10)); for i := 0 to 9 do if i in intsetWh then inc(intCount); //如果符合条件则返回真 if intCount in intsetCount then Result := True; end; //连号过滤 function TfrmSSPanda.VerifyContinuous(arr: array of integer; bFlag: Boolean): Boolean; var i,intCount: integer; intsetCount: set of 0..6; begin Result := False; if not bFlag then begin Result := True; Exit; end; //已选择的选项集合 intsetCount := []; for I := 0 to gbContinuous.ControlCount - 1 do if TCheckBox(gbContinuous.Controls[i]).Checked then Include(intsetCount, StrtoInt(TCheckBox(gbContinuous.Controls[i]).Caption)); //计算连号个数 intCount := 0; for i := Low(arr) to High(arr) - 1 do if arr[i] = (arr[i+1]-1) then inc(intCount); //如果符合条件则返回真 if intCount in intsetCount then Result := True; end; //条件一过滤条件设置有效性检验 function TfrmSSPanda.ValidFilter; var i,j: integer; s: string; aComponent: TComponent; IsValid: Boolean; begin IsValid := True; for I := 0 to pnlFilter.ControlCount - 1 do begin if pnlFilter.Controls[i] is TCheckBox then begin if TCheckBox(pnlFilter.Controls[i]).Checked then begin IsValid := False; //if control is TCheck ,set default value s := TCheckBox(pnlFilter.Controls[i]).Name; s := 'gb'+Copy(s,4,Length(s)-3); aComponent := FindComponent(s); if aComponent <> nil then begin for j := 0 to TGroupBox(aComponent).ControlCount - 1 do begin IsValid := (IsValid or TCheckBox(TGroupBox(aComponent).Controls[j]).Checked); end; end else IsValid := True; //<>nil if not IsValid then begin ShowMessage(copy(TCheckBox(pnlFilter.Controls[i]).Caption,1,4) + '条件设置有误'); break; end; end else IsValid := True; //if not checked returns true; end; // if control not is TCheck IsValid := True //IsValid := False; //recover variable's value ready for next loop end; Result := IsValid; end; //交集匹配校验 function TfrmSSPanda.VerifySameMatch(arr: array of integer; bFlag: Boolean): Boolean; var i,j,p,iCount: integer; strTmpR,strTmpB: string; listTmp1,listTmp2,listTmp3: TstringList; intsetRed,intsetBlue: set of 1..33; intsetCount: set of 0..7; begin Result := False; if not bFlag then begin Result := True; Exit; end; //分解条件字符串 按';' ':'顺序解析 listTmp1 := Tstringlist.Create; listTmp2 := TstringList.Create; listTmp3 := TstringList.Create; try ExtractStrings([';'], [], Pchar(edtSameMatch.text), listTmp1); for I := 0 to listTmp1.Count - 1 do begin intsetRed := []; intsetBlue := []; intsetCount := []; iCount := 0; listTmp2.Clear; listTmp3.Clear; Extractstrings([':'], [], Pchar(listTmp1[i]), listTmp2); P := Pos('+', listTmp2[0]); //如果有蓝球则，继续分解 if P > 0 then begin strTmpR := Trim(Copy(listTmp2[0], 1, P-1)); strTmpB := Trim(Copy(listTmp2[0], P+1, Length(listTmp2[0])-P)); end else begin strTmpR := listTmp2[0]; strTmpB := ''; end; //计算红球集合 if Length(strTmpR) > 0 then begin ExtractStrings([' '],[],Pchar(strTmpR),listTmp3); for j := 0 to listTmp3.Count - 1 do Include(intsetRed, StrtoInt(listTmp3[j])); end; //产生蓝球集合 if Length(strTmpB) > 0 then begin listTmp3.Clear; ExtractStrings([' '],[],Pchar(strTmpB),listTmp3); for j := 0 to listTmp3.Count - 1 do Include(intsetBlue, StrtoInt(listTmp3[j])); end; //解析命中个数集合 listTmp3.Clear; ExtractStrings([','],[], Pchar(listTmp2[1]), listTmp3); for j := 0 to listTmp3.Count - 1 do Include(intsetCount, StrtoInt(listTmp3[j])); //判断 是否包含蓝球 if Length(arr) = 6 then begin for j := Low(arr) to High(arr) do begin if arr[j] in intsetRed then Inc(iCount); end; end else if Length(arr) = 7 then begin for j := Low(arr) to High(arr) - 1 do begin if arr[j] in intsetRed then Inc(iCount); end; if arr[High(arr)] in intsetBlue then Inc(iCount); end; if iCount in intsetCount then begin Result := True; Continue; end else begin Result := False; Exit; end; end; finally listTmp1.Free; listTmp2.Free; listTmp3.Free; end; end; //尾数匹配 function TfrmSSPanda.VerifyTailsMatch(arr: array of integer; bFlag: Boolean): Boolean; var i,j,p,iCount: integer; listTmp: TstringList; intSetBall: set of 1..33; intsetCount: set of 0..7; arrTmp: array[1..7] of integer; begin Result := False; if not bFlag then begin Result := True; Exit; end; for I := Low(arr) to High(arr) do arrTmp[I+1] := arr[i] mod 10; for I := 1 to 6 do begin for j := i+1 to 7 do begin if arrTmp[i] = arrTmp[j] then arrTmp[j] := -1; end; end; //分解条件字符串 按';' ':'顺序解析 listTmp := Tstringlist.Create; try ExtractStrings([';'], [], Pchar(edtTailsMatch.text), listTmp); for I := 0 to listTmp.Count - 1 do begin iCount := 0; P := Pos(':', listTmp[i]); intSetBall := []; intSetCount := []; for j := 3 to P - 1 do Include(intSetBall, Strtoint(listTmp[i][j])); for j := P+1 to Length(listTmp[i]) do Include(intSetCount, Strtoint(listTmp[i][j])); //去除同尾 不累计 if listTmp[i][1] = 'N' then begin //不含蓝球 if listTmp[i][2] = 'N' then begin for j := Low(arrTmp) to High(arrTmp) - 1 do if arrTmp[j] in intSetBall then Inc(iCount); end else begin for j := Low(arrTmp) to High(arrTmp) do if arrTmp[j] in intSetBall then Inc(iCount); end; end else //同尾累计 begin //不含蓝球 if listTmp[i][2] = 'N' then begin for j := Low(arr) to High(arr) - 1 do if (arr[j] mod 10) in intSetBall then Inc(iCount); end else begin for j := Low(arr) to High(arr) do if (arr[j] mod 10) in intSetBall then Inc(iCount); end; end; //if listTmp[i][1] if iCount in intSetCount then begin Result := True; continue; end else begin Result := False; Exit; end; end; //for i finally listTmp.Free; end; end; //定位匹配 function TfrmSSPanda.VerifyFixed(arr: array of integer; bFlag: Boolean): Boolean; var i,j,k,P,iCount: integer; s : string; arrBall: array[1..7] of set of 1..33; intsetCount: set of 0..7; listTmp0,listTmp1,listTmp2,listTmp3: TstringList; begin Result := False; if not bFlag then begin Result := True; Exit; end; listTmp0 := TStringList.Create; listTmp1 := TStringList.Create; listTmp2 := TstringList.Create; listTmp3 := TstringList.Create; Try ExtractStrings([';'],[], Pchar(edtFixed.Text), listTmp0); for K := 0 to listTmp0.Count - 1 do begin for I := 1 to 7 do begin arrBall[i] := []; end; intsetCount :=[]; iCount := 0; listTmp1.Clear; ExtractStrings([':'],[], Pchar(listTmp0[k]), listTmp1); listTmp2.Clear; ExtractStrings(['#'],[], Pchar(listTmp1[0]), listTmp2); for I := 0 to listTmp2.Count - 1 do begin listTmp3.Clear; P := StrtoInt(Copy(listTmp2[i],1,1)); s := Copy(listTmp2[i], 3, Length(listTmp2[i])-2); ExtractStrings([' '], [], PChar(s), listTmp3); for j := 0 to listTmp3.Count - 1 do begin Include(arrBall[P], Strtoint(listTmp3[j])); end; end; //for i //命中个数集合 listTmp3.Clear; ExtractStrings([','],[], Pchar(listTmp1[1]), listTmp3); for j := 0 to listTmp3.Count - 1 do Include(intsetCount, StrtoInt(listTmp3[j])); for j := Low(arr) to High(arr) do begin if arr[j] in arrBall[j+1] then Inc(iCount); end; if iCount in intsetCount then begin Result := True; end else begin Result := False; Exit; end; end; //for k Finally listTmp0.Free; listTmp1.Free; listTmp2.Free; listTmp3.Free; End; end; //定尾匹配 function TfrmSSPanda.VerifyFixedTails(arr: array of integer; bFlag: Boolean): Boolean; var i,j,k,P,iCount: integer; arrBall: array[1..7] of set of 0..9; intsetCount: set of 0..7; listTmp0,listTmp1,listTmp2: TstringList; begin Result := False; if not bFlag then begin Result := True; Exit; end; listTmp0 := TStringList.Create; listTmp1 := TStringList.Create; listTmp2 := TstringList.Create; Try ExtractStrings([';'],[], Pchar(edtTailsFixed.Text), listTmp0); for K := 0 to listTmp0.Count - 1 do begin for I := 1 to 7 do begin arrBall[i] := []; end; intsetCount :=[]; iCount := 0; listTmp1.Clear; ExtractStrings([':'],[], Pchar(listTmp0[k]), listTmp1); listTmp2.Clear; ExtractStrings(['#'],[], Pchar(listTmp1[0]), listTmp2); for I := 0 to listTmp2.Count - 1 do begin P := Strtoint(listTmp2[i][1]); for j := 3 to Length(listTmp2[i]) do Include(arrBall[p], Strtoint(listTmp2[i][j])); end; //for i //命中个数集合 listTmp2.Clear; ExtractStrings([','],[], Pchar(listTmp1[1]), listTmp2); for j := 0 to listTmp2.Count - 1 do Include(intsetCount, StrtoInt(listTmp2[j])); for j := Low(arr) to High(arr) do begin if (arr[j] mod 10) in arrBall[j+1] then Inc(iCount); end; if iCount in intsetCount then begin Result := True; end else begin Result := False; Exit; end; end; //for k Finally listTmp0.Free; listTmp1.Free; listTmp2.Free; End; end; //和值余数 function TfrmSSPanda.VerifySumRemainder(arr: array of integer; bFlag: Boolean): Boolean; var i,j,p,iSum,iDiv: integer; intsetCount: set of 0..12; s: string; listTmp,listTmp1: TstringList; begin Result := False; if not bFlag then begin Result := True; Exit; end; //分解条件字符串 按 '; ' , ':'解析 listTmp := TstringList.Create; listTmp1 := TStringList.Create; Try Extractstrings([';'], [], Pchar(edtSumremainder.Text), listTmp); for I := 0 to listTmp.Count - 1 do begin isum := 0; p := Pos(':', listTmp[i]); for j := 1 to 6 do begin if listTmp[i][j] = 'Y' then iSum := iSum + arr[j-1]; end; iDiv := StrtoInt(Copy(listTmp[i],7,P-7)); s := Copy(listtmp[i],P+1,Length(listtmp[i])-P); intSetCount := []; ExtractStrings([','], [], PChar(s), listTmp1); for j := 0 to listTmp1.Count - 1 do Include(intSetCount, Strtoint(listTmp1[j])); if (iSum mod idiv) in intsetCount then begin Result := True; end else begin Result := False; Exit; end; end;// for i Finally listTmp.Free; listTmp1.Free; End; end; //和值尾数 function TfrmSSPanda.VerifySumTails(arr: array of integer; bFlag: Boolean): Boolean; var i,j,p,iSum: integer; intsetCount: set of 0..9; s: string; listTmp: TstringList; begin Result := False; if not bFlag then begin Result := True; Exit; end; //分解条件字符串 按 '; ' , ':'解析 listTmp := TstringList.Create; Try Extractstrings([';'], [], Pchar(edtSumTails.Text), listTmp); for I := 0 to listTmp.Count - 1 do begin isum := 0; for j := 1 to 6 do begin if listTmp[i][j] = 'Y' then iSum := iSum + arr[j-1]; end; s := Copy(listTmp[i], 8, Length(listTmp[i])-7); P := (Length(s)+1) div 2; for j := 1 to P do Include(intSetCount, Strtoint(s[2*j-1])); if (iSum mod 10) in intSetcount then begin Result := True; end else begin Result := False; Exit; end; end; //for i Finally listTmp.Free; End; end; //取得网页内容 function GetWebPage(const Url :string; var sResult: string; IsUtf8 :Boolean = False):Boolean; var http :TIdHTTP; idfreeze: TIdAntiFreeze; //code: integer; begin Result := True; idfreeze := TIdAntiFreeze.Create(nil); idfreeze.OnlyWhenIdle := False; //防假死 http := TIdHTTP.Create(nil); try http.HandleRedirects := True; http.Request.UserAgent := 'Mozilla/5.0'; try //http.Get(Url,nil); //http.Head(Url); //Code := http.ResponseCode; sResult := http.Get(Url); Except on E: Exception do begin Result := False; //code := http.ResponseCode; //Showmessage('由于网络或服务器问题，更新失败, 错误代码：'+Inttostr(Code)); Exit; end; end; if IsUtf8 then sResult := Utf8ToAnsi(RawByteString(sResult)); finally FreeAndNil(http); FreeAndNil(idfreeze); end; end; procedure TfrmSSPanda.GetLotteryIssue; begin lblIssue.Font.Color := clRed; lblBlue.Font.Color := clBlue; with dmMain.adoqMain do begin close; sql.Clear; sql.Add('select Lottery_Issue, Lottery_date, Redball, blueBall from Lottery_history order by Lottery_issue'); open; Last; if not Isempty then begin lblLottery.Caption := '第 '+fieldbyName('Lottery_issue').AsString+' 期: '; lblIssue.Caption := FieldbyName('RedBall').AsString; lblBlue.Caption := FieldbyName('BlueBall').AsString; end else begin lblIssue.Caption := '开奖记录空，请更新！'; lblIssue.Caption := ''; end; close; end; end; //胆拖杀投注有效性检验 function TfrmSSPanda.VerifySpecial: Boolean; var i,R1,R2: integer; begin Result := True; R1 := 0; R2 := 0; for I := 0 to pnlSpecial.ControlCount - 1 do begin if pnlSpecial.Controls[i] is TSpeedButton then begin if TSpeedButton(pnlSpecial.Controls[i]).GroupIndex = 1 then begin if TSpeedButton(pnlSpecial.Controls[i]).Tag > 0 then Inc(R1) else if TSpeedButton(pnlSpecial.Controls[i]).Tag = -1 then Inc(R2); end; end; end;//for i if R1 > 6 then begin Result := False; ShowMessage('不能超过6个胆码...'); Exit; end; if R2 > 27 then begin Result := False; ShowMessage('杀码超过了27个...'); Exit; end; if R1 = 0 then begin Result := False; ShowMessage('请至少选择1个以上胆码...'); Exit; end; end; //胆拖杀投注 红码排序，结果生存共用部分可再进一步处理....以减少代码量 procedure TfrmSSPanda.SpecialBetting; var i,j,k,x1,x2,x3,x4,x5: integer; arrHm,arrLm,arrGall,arrDrag: array of integer; arrStr: array [0..5] of string; strResult,s: String; begin SetLength(arrHm, 6); for I := 0 to pnlSpecial.ControlCount - 1 do begin if pnlSpecial.Controls[i] is TSpeedButton then begin if TSpeedButton(pnlSpecial.Controls[i]).Tag > 0 then begin if TSpeedButton(pnlSpecial.Controls[i]).GroupIndex = 1 then begin SetLength(arrGall,Length(arrGall)+1); arrGall[High(arrGall)] := TSpeedButton(pnlSpecial.Controls[i]).Tag; end else if TSpeedButton(pnlSpecial.Controls[i]).GroupIndex = 2 then begin SetLength(arrLm,Length(arrLm)+1); arrLm[High(arrLm)] := TSpeedButton(pnlSpecial.Controls[i]).Tag; end; end else //tag = 0 if TSpeedButton(pnlSpecial.Controls[i]).Tag = 0 then begin if TSpeedButton(pnlSpecial.Controls[i]).GroupIndex = 1 then begin SetLength(arrDrag,Length(arrDrag)+1); arrDrag[High(arrDrag)] := StrtoInt(Copy(TSpeedButton(pnlSpecial.Controls[i]).Name,2,Length(TSpeedButton(pnlSpecial.Controls[i]).Name)-1)); end; end; end; end; //根据胆码情况分别产生投注 if Length(arrGall) = 1 then begin //产生投注结果 for x1 := 0 to Length(arrDrag)-5 do for x2 := x1+1 to Length(arrDrag)-4 do for x3 := x2+1 to Length(arrDrag)-3 do for x4 := x3+1 to Length(arrDrag)-2 do for x5 := x4+1 to Length(arrDrag)-1 do begin arrHm[0] := arrDrag[x1]; arrHm[1] := arrDrag[x2]; arrHm[2] := arrDrag[x3]; arrHm[3] := arrDrag[x4]; arrHm[4] := arrDrag[x5]; arrHm[5] := arrGall[0]; //按大小进行排序 for I := 0 to Length(arrHm)-2 do for j := i+1 to Length(arrHm)-1 do begin if arrHm[i]>arrHm[j] then begin k := arrHm[j]; arrHm[j] := arrHm[i]; arrHm[i] := k; end; end; for I := 0 to Length(arrHm)-1 do begin if arrHm[i] < 10 then arrStr[i] := '0'+Inttostr(arrHm[i]) else arrStr[i] := Inttostr(arrHm[i]); end; strResult := ''; for I := Low(arrStr) to High(arrStr) do strResult := strResult + ' ' + arrStr[i]; strResult := Trim(strResult); //加上蓝球 if Length(arrLm) > 0 then begin for j := 0 to Length(arrLm)-1 do begin if arrLm[j]<10 then s := '0'+Inttostr(arrLm[j]) else s := Inttostr(arrLm[j]); strList.Add(strResult+' + '+ s); end; end else strList.Add(strResult); end; end else if Length(arrGall) = 2 then begin //产生投注结果 for x1 := 0 to Length(arrDrag)-4 do for x2 := x1+1 to Length(arrDrag)-3do for x3 := x2+1 to Length(arrDrag)-2do for x4 := x3+1 to Length(arrDrag)-1 do begin arrHm[0] := arrDrag[x1]; arrHm[1] := arrDrag[x2]; arrHm[2] := arrDrag[x3]; arrHm[3] := arrDrag[x4]; arrHm[4] := arrGall[0]; arrHm[5] := arrGall[1]; //按大小进行排序 for I := 0 to Length(arrHm)-2 do for j := i+1 to Length(arrHm)-1 do begin if arrHm[i]>arrHm[j] then begin k := arrHm[j]; arrHm[j] := arrHm[i]; arrHm[i] := k; end; end; for I := 0 to Length(arrHm)-1 do begin if arrHm[i] < 10 then arrStr[i] := '0'+Inttostr(arrHm[i]) else arrStr[i] := Inttostr(arrHm[i]); end; strResult := ''; for I := Low(arrStr) to High(arrStr) do strResult := strResult + ' ' + arrStr[i]; strResult := Trim(strResult); //加上蓝球 if Length(arrLm) > 0 then begin for j := 0 to Length(arrLm)-1 do begin if arrLm[j]<10 then s := '0'+Inttostr(arrLm[j]) else s := Inttostr(arrLm[j]); strList.Add(strResult+' + '+ s); end; end else strList.Add(strResult); end; end else if Length(arrGall) = 3 then begin //产生投注结果 for x1 := 0 to Length(arrDrag)-3 do for x2 := x1+1 to Length(arrDrag)-2do for x3 := x2+1 to Length(arrDrag)-1do begin arrHm[0] := arrDrag[x1]; arrHm[1] := arrDrag[x2]; arrHm[2] := arrDrag[x3]; arrHm[3] := arrGall[0]; arrHm[4] := arrGall[1]; arrHm[5] := arrGall[2]; //按大小进行排序 for I := 0 to Length(arrHm)-2 do for j := i+1 to Length(arrHm)-1 do begin if arrHm[i]>arrHm[j] then begin k := arrHm[j]; arrHm[j] := arrHm[i]; arrHm[i] := k; end; end; for I := 0 to Length(arrHm)-1 do begin if arrHm[i] < 10 then arrStr[i] := '0'+Inttostr(arrHm[i]) else arrStr[i] := Inttostr(arrHm[i]); end; strResult := ''; for I := Low(arrStr) to High(arrStr) do strResult := strResult + ' ' + arrStr[i]; strResult := Trim(strResult); //加上蓝球 if Length(arrLm) > 0 then begin for j := 0 to Length(arrLm)-1 do begin if arrLm[j]<10 then s := '0'+Inttostr(arrLm[j]) else s := Inttostr(arrLm[j]); strList.Add(strResult+' + '+ s); end; end else strList.Add(strResult); end; end else if Length(arrGall) = 4 then begin //产生投注结果 for x1 := 0 to Length(arrDrag)-2 do for x2 := x1+1 to Length(arrDrag)-1do begin arrHm[0] := arrDrag[x1]; arrHm[1] := arrDrag[x2]; arrHm[2] := arrGall[0]; arrHm[3] := arrGall[1]; arrHm[4] := arrGall[2]; arrHm[5] := arrGall[3]; //按大小进行排序 for I := 0 to Length(arrHm)-2 do for j := i+1 to Length(arrHm)-1 do begin if arrHm[i]>arrHm[j] then begin k := arrHm[j]; arrHm[j] := arrHm[i]; arrHm[i] := k; end; end; for I := 0 to Length(arrHm)-1 do begin if arrHm[i] < 10 then arrStr[i] := '0'+Inttostr(arrHm[i]) else arrStr[i] := Inttostr(arrHm[i]); end; strResult := ''; for I := Low(arrStr) to High(arrStr) do strResult := strResult + ' ' + arrStr[i]; strResult := Trim(strResult); //加上蓝球 if Length(arrLm) > 0 then begin for j := 0 to Length(arrLm)-1 do begin if arrLm[j]<10 then s := '0'+Inttostr(arrLm[j]) else s := Inttostr(arrLm[j]); strList.Add(strResult+' + '+ s); end; end else strList.Add(strResult); end; end else if Length(arrGall) = 5 then begin //产生投注结果 for x1 := 0 to Length(arrDrag)-1 do begin arrHm[0] := arrDrag[x1]; arrHm[1] := arrGall[4]; arrHm[2] := arrGall[0]; arrHm[3] := arrGall[1]; arrHm[4] := arrGall[2]; arrHm[5] := arrGall[3]; //按大小进行排序 for I := 0 to Length(arrHm)-2 do for j := i+1 to Length(arrHm)-1 do begin if arrHm[i]>arrHm[j] then begin k := arrHm[j]; arrHm[j] := arrHm[i]; arrHm[i] := k; end; end; for I := 0 to Length(arrHm)-1 do begin if arrHm[i] < 10 then arrStr[i] := '0'+Inttostr(arrHm[i]) else arrStr[i] := Inttostr(arrHm[i]); end; strResult := ''; for I := Low(arrStr) to High(arrStr) do strResult := strResult + ' ' + arrStr[i]; strResult := Trim(strResult); //加上蓝球 if Length(arrLm) > 0 then begin for j := 0 to Length(arrLm)-1 do begin if arrLm[j]<10 then s := '0'+Inttostr(arrLm[j]) else s := Inttostr(arrLm[j]); strList.Add(strResult+' + '+ s); end; end else strList.Add(strResult); end; end else if Length(arrGall) = 6 then begin for I := 0 to 5 do arrHm[i] := arrGall[i]; //按大小进行排序 for I := 0 to Length(arrHm)-2 do for j := i+1 to Length(arrHm)-1 do begin if arrHm[i]>arrHm[j] then begin k := arrHm[j]; arrHm[j] := arrHm[i]; arrHm[i] := k; end; end; for I := 0 to Length(arrHm)-1 do begin if arrHm[i] < 10 then arrStr[i] := '0'+Inttostr(arrHm[i]) else arrStr[i] := Inttostr(arrHm[i]); end; strResult := ''; for I := Low(arrStr) to High(arrStr) do strResult := strResult + ' ' + arrStr[i]; strResult := Trim(strResult); //加上蓝球 if Length(arrLm) > 0 then begin for j := 0 to Length(arrLm)-1 do begin if arrLm[j]<10 then s := '0'+Inttostr(arrLm[j]) else s := Inttostr(arrLm[j]); strList.Add(strResult+' + '+ s); end; end else strList.Add(strResult); end; end; procedure TfrmSSPanda.acBlueReplaceExecute(Sender: TObject); var i,j, index: integer; s, sRed, sBlue, sFlag: string; arrBlue: array of string; listTemp: TStrings; begin if sgResult.Row = 0 then Exit; index := StrtoInt(sgResult.Cells[0, sgResult.Row]); s := sgResult.Cells[1, sgResult.Row]; sRed := copy(s, 1, 17); sBlue := Copy(s, 21, 2); //调用蓝球替换窗口 with TfrmBlueBallReplace.create(self, s) do begin Try ShowModal; if ModalResult <> mrOK then Exit; //替换模式 sFlag := copy(s,1,1); s := Copy(s, 2, Length(s)-1); i := (Length(s) + 1) div 3; //没有选蓝球 if i = 0 then begin if sflag = '0' then begin strList[index-1] := sRed; sgResult.Cells[1, sgResult.Row] := strList[index-1]; end else begin for I := 0 to strList.Count - 1 do begin strList.Strings[i] := Copy(strList.Strings[i], 1, 17); end; end; end else //选择了1个以上蓝球 begin setLength(arrBlue, i); for j := 0 to i-1 do begin arrblue[j] := Copy(s, 3*(j+1)-2, 2); end; listTemp := TStringList.Create; try //替换当前注 if sFlag = '0' then begin if i = 1 then begin if sBlue = arrblue[0] then Exit; strList[index-1] := sRed + ' + ' + arrBlue[0]; sgResult.Cells[1, sgResult.Row] := strList[index-1]; end else if i > 1 then begin strList[index-1] := sRed + ' + ' + arrBlue[0]; for j := 1 to High(arrBlue) do begin strList.Insert(index-1+j, sRed + ' + ' + arrBlue[j]); end; end; end else //轮流替换 if sFlag = '1' then begin j := Low(arrBlue); for I := 0 to strList.Count - 1 do begin listTemp.Add(Copy(strList[i],1,17) + ' + ' + arrBlue[j]); inc(j); if j > High(arrBlue) then j := Low(arrBlue); end; strList.Clear; strList.Assign(listTemp); end else //全部替换 begin for I := 0 to strList.Count - 1 do begin for j := Low(arrBlue) to High(arrBlue) do begin listTemp.Add(Copy(strList[i],1,17) + ' + ' + arrBlue[j]); end; end; strList.Clear; strList.Assign(listTemp); end; finally listTemp.Free; end; end;//if i > 0 //显示 DisplayPaging; //保存过滤后结果到临时文件 Inc(intCountUndo); strList.SaveToFile('~Undo' + Inttostr(intCountUndo) + '.tmp'); if intCountUndo > MaxUndo then begin try if FileExists('~Undo1.tmp') then DeleteFile('~Undo1.tmp'); for I := 2 to intCountUndo do RenameFile('~Undo'+InttoStr(i)+'.tmp', '~Undo'+InttoStr(i-1)+'.tmp'); Dec(intCountUndo); Except ShowMessage('文件操作有误！'); Exit; end; end; intCurUndo := intCountUndo; //菜单 回复、重做使能控制 EnableButton; Finally Free; End; //try end;//with end; procedure TfrmSSPanda.acChartReportExecute(Sender: TObject); begin with TfrmChartReport.Create(Self) do begin Try ShowModal; Finally Free; End; end; end; procedure TfrmSSPanda.acChecksExecute(Sender: TObject); var i,k,j,iCount,iTotal: integer; a0,a1,a2,a3,a4,a5,a6,a7,a8,a9: integer; pa: array of PInteger; listStr: TstringList; strResult: string; arrHm: array of integer; arrStr: array of string; intSet: set of 1..33; listTmp: TList<iset>; isTails: Boolean; begin j := 0; isTails := True; SetLength(pa, 10); SetLength(arrHm,10); setLength(arrStr, 10); pa[0] := @a0; pa[1] := @a1;pa[2] := @a2;pa[3] := @a3;pa[4] := @a4; pa[5] := @a5; pa[6] := @a6;pa[7] := @a7;pa[8] := @a8;pa[9] := @a9; with dmMain.adoqTmp do begin Close; Sql.Clear; Sql.Add('select Lottery_Issue, Redball from Lottery_History order by Lottery_Issue'); Open; if IsEmpty then begin ShowMessage('开奖记录为空，请先更新'); Exit; end; end; listTmp := TList<iset>.Create; with dmMain.adoqTmp do begin First; while not Eof do begin intSet := []; if isTails then begin for I := 1 to 6 do Include(intSet, Strtoint(Copy(FieldbyName('RedBall').AsString, 3*i-2,2)) mod 10); end else begin for I := 1 to 6 do Include(intSet, Strtoint(Copy(FieldbyName('RedBall').AsString, 3*i-2,2))); end; listTmp.Add(intset); Next; end;//while end;//with listStr := TstringList.Create; listStr.Sorted := True; Try //产生投注结果 if isTails then begin for a0 := 0 to 9-5 do for a1 := a0+1 to 9-4 do for a2 := a1+1 to 9-3 do for a3 := a2+1 to 9-2 do for a4 := a3+1 to 9-1 do for a5 := a4+1 to 9 do begin for I := Low(arrHm) to 5 do begin arrHm[i] := pa[i]^; arrStr[i] := Inttostr(arrHm[i]); end; strResult := ''; for I := Low(arrStr) to 5 do strResult := strResult + ' ' + arrStr[i]; strResult := Trim(strResult); iTotal := 0; for I := 0 to listTmp.Count - 1 do begin iCount := 0; for k := Low(arrHm) to 5 do begin if arrHm[k] in listTmp[i] then inc(iCount); end; if iCount = 6 then Inc(iTotal); end; Inc(j); //保存到到到listTmp1 listStr.Add(Inttostr(iTotal)+'='+strResult); Application.ProcessMessages; if not IsContinue then Exit; stsSSpanda.Panels[1].Text := IntTostr(j); end; end else begin for a0 := 1 to 33-9 do for a1 := a0+1 to 33-8 do for a2 := a1+1 to 33-7 do for a3 := a2+1 to 33-6do for a4 := a3+1 to 33-5 do for a5 := a4+1 to 33-4 do for a6 := a5+1 to 33-3 do for a7 := a6+1 to 33-2 do for a8 := a7+1 to 33-1 do for a9 := a8+1 to 33 do begin for I := Low(arrHm) to High(arrHm) do begin arrHm[i] := pa[i]^; if arrHm[i] < 10 then arrStr[i] := '0' + Inttostr(arrHm[i]) else arrStr[i] := Inttostr(arrHm[i]); end; strResult := ''; for I := Low(arrStr) to High(arrStr) do strResult := strResult + ' ' + arrStr[i]; strResult := Trim(strResult); iTotal := 0; for I := 0 to listTmp.Count - 1 do begin iCount := 0; for k := Low(arrHm) to High(arrHm) do begin if arrHm[k] in listTmp[i] then inc(iCount); end; if iCount = 6 then Inc(iTotal); end; Inc(j); //保存到到到listTmp1 if iTotal > 200 then listStr.Add(Inttostr(iTotal)+'='+strResult); Application.ProcessMessages; if not IsContinue then begin listStr.SaveToFile('复选10球的命中率分布.txt'); Exit; end; stsSSpanda.Panels[1].Text := IntTostr(j); end; //for a9 end; // if isTails listStr.Sort; if IsTails then listStr.SaveToFile('6尾命中率分布.txt') else listStr.SaveToFile('复选10球的命中率分布.txt'); Showmessage('分析导出成功'); Finally listStr.Free; listTmp.Free; End; end; procedure TfrmSSPanda.acDataUpadateExecute(Sender: TObject); //begin // UpdateThread := TThread.CreateAnonymousThread( // procedure var str,strtmp,qh: string; i,intBegin,iCount: integer; strQh,strDate,strRed,strBlue: string; bUpdate,isContinue: Boolean; aFormat: TFormatSettings; sum,cmCount,xmCount,jmCount,jsCount,dsCount,gwcount,lhcount,wsCount: integer; h: array[1..6] of integer; arrCount: array[1..49] of integer; setWh: set of 0..9; f1,f2,f3,f4,f5,f6,f7: string; begin //取得最新期号 with dmMain.adoqMain do begin close; sql.Clear; sql.Add('select lottery_issue from lottery_history order by lottery_issue'); open; if IsEmpty then qh := '2003000' else begin last; qh := FieldbyName('lottery_issue').AsString; end; end; //到数据服务器取开奖记录 iCount := 0; bUpdate := True; isContinue := True; if not GetWebPage('http://data.cpdyj.com/data/ssq/ssqkj2.sql', str) then begin Showmessage('网络或服务器有问题，更新失败！'); Exit; end; if str = '' then begin Showmessage('网络或服务器有问题，更新失败！'); Exit; end; screen.Cursor := crHourglass; frmUpdateWait := TfrmUpdateWait.Create(Self); with frmUpdateWait do begin Position := poOwnerFormCenter; Show; update; BringtoFront; end; aFormat.ShortDateFormat := 'yyyy/mm/dd'; aFormat.DateSeparator := '-'; while bUpdate do begin qh := Inttostr(Strtoint(qh)+1); intBegin := Pos('('''+qh,str); if intBegin = 0 then begin //如果没找到，是否存在跨年记录 再搜一遍 if isContinue then begin qh := Inttostr(Strtoint(Copy(qh,1,4))+1)+'000'; if (qh >= InttoStr(Yearof(now))) then isContinue :=False; continue; end else begin bUpdate := False; break; end; end; //数据服务器在2010088期时，多写了一句insert语句，所以该期时要截取更长的字符串 if qh <> '2010088' then strtmp := copy(str,intBegin+2,100) else strtmp := copy(str,intBegin+2,200); strQh := copy(strtmp,1,7); intBegin := pos(''')', strtmp); strdate := copy(strtmp,intBegin-10, 10); //对部分如 2005-12-1 格式的进行再处理 if Copy(strdate,1,1) <> '2' then strDate := Copy(strdate,2,Length(strdate)-1); //对部分如 2006-1-1 格式的进行再处理 if Copy(strdate,1,1) <> '2' then strDate := Copy(strdate,2,Length(strdate)-1); intBegin := pos('result=', strtmp); strRed :=copy(strtmp,intBegin+8,17); intBegin := pos('result2=', strtmp); strBlue := Copy(strtmp,intbegin+9,2); //更新数据库 with dmMain.adoqMain do begin Close; sql.Clear; sql.Add('insert into Lottery_History (Lottery_Issue,Lottery_Date,RedBall,BlueBall) Values(:p1,:p2,:p3,:p4)'); Parameters.ParamByName('p1').Value := strQh; Parameters.ParamByName('p2').Value := StrtoDate(strDate, aFormat); Parameters.ParamByName('p3').Value := strRed; Parameters.ParamByName('p4').Value := strBlue; ExecSql; end; //更新重码数、旧码数等 sum := 0; cmCount := 0; xmCount := 0; jmCount := 0; jsCount := 0;dsCount := 0; gwcount := 0;lhcount := 0;wsCount := 0; for I := 1 to 6 do h[i] := StrtoInt(Copy(strRed,3*i-2,2)); for I := 1 to 6 do begin sum := sum + h[i]; if h[i] in intsetRepeat then inc(cmCount); if h[i] in intsetTilt then inc(xmCount); if h[i] in intsetOld then inc(jmCount); if Odd(h[i]) then inc(jsCount); if h[i] >= 17 then inc(dscount); if (h[i] mod 10)>=5 then inc(gwcount); end; //不同尾个数 setWh := []; for i := 1 to 6 do include(setWh, h[i] mod 10); for I := 0 to 9 do if I in setWh then inc(wsCount); //连号个数 for I := Low(h) to High(h) - 1 do if h[i] = h[i+1] - 1 then inc(lhCount); with dmMain.adoqMain do begin close; Sql.Clear; sql.Add('update Lottery_History set sums=:p1,Repeats=:p2,Tilts=:p3,Olds=:P4,Bigs=:P5,'); sql.Add('Odds=:P6,BigTails=:P7,Tails=:P8,continuous=:P9 where Lottery_Issue=:P10'); Parameters.ParamByName('P1').Value := sum; Parameters.ParamByName('P2').Value := cmCount; Parameters.ParamByName('P3').Value := xmCount; Parameters.ParamByName('P4').Value := jmCount; Parameters.ParamByName('P5').Value := dsCount; Parameters.ParamByName('P6').Value := jsCount; Parameters.ParamByName('P7').Value := gwCount; Parameters.ParamByName('P8').Value := wscount; Parameters.ParamByName('P9').Value := lhCount; Parameters.ParamByName('P10').Value := strQh; execSql; Close; sql.Clear; sql.Add('insert into Intervals(Lottery_Issue) Values(:P)'); Parameters.ParamByName('p').Value := strQh; ExecSql; Sql.Clear; Sql.Add('select top 1 * from Intervals where Lottery_Issue < :p Order by Lottery_issue Desc'); Parameters.ParamByName('P').Value := strQh; Open; if Recordcount = 1 then begin for I := 1 to 33 do arrcount[i] := FieldbyName('Interval_R'+Inttostr(i)).AsInteger; for I := 34 to 49 do arrcount[i] := FieldbyName('Interval_L'+Inttostr(i-33)).AsInteger; end else begin for I := Low(arrCount) to High(arrcount) do arrcount[i] := 0; end; Close; sql.Clear; sql.Add('update Intervals set Interval_R1 = :p1,Interval_R2 = :p2,Interval_R3 = :p3,'); Sql.Add('Interval_R4 = :p4,Interval_R5 = :p5,Interval_R6 = :p6,Interval_R7 = :p7,Interval_R8 = :p8,Interval_R9 = :p9,'); Sql.Add('Interval_R10 = :p10,Interval_R11 = :p11,Interval_R12 = :p12,Interval_R13 = :p13,Interval_R14 = :p14,Interval_R15 = :p15,'); Sql.Add('Interval_R16 = :p16,Interval_R17 = :p17,Interval_R18 = :p18,Interval_R19 = :p19,Interval_R20 = :p20,Interval_R21 = :p21,'); Sql.Add('Interval_R22 = :p22,Interval_R23 = :p23,Interval_R24 = :p24,Interval_R25 = :p25,Interval_R26 = :p26,Interval_R27 = :p27,'); Sql.Add('Interval_R28 = :p28,Interval_R29 = :p29,Interval_R30 = :p30,Interval_R31 = :p31,Interval_R32 = :p32,Interval_R33 = :p33,'); Sql.Add('Interval_L1 = :p34,Interval_L2 = :p35,Interval_L3 = :p36,Interval_L4 = :p37,Interval_L5 = :p38,Interval_l6 = :p39,'); Sql.Add('Interval_L7 = :p40,Interval_L8 = :p41,Interval_L9 = :p42,Interval_L10 = :p43,Interval_L11 = :p44,Interval_L12 = :p45,'); Sql.Add('Interval_L13 = :p46,Interval_L14 = :p47,Interval_L15 = :p48,Interval_L16 = :p49 '); sql.Add('where Lottery_issue = :P'); Parameters.ParamByName('P1').Value := arrCount[1] + 1; Parameters.ParamByName('P2').Value := arrCount[2] + 1; Parameters.ParamByName('P3').Value := arrCount[3] + 1; Parameters.ParamByName('P4').Value := arrCount[4] + 1; Parameters.ParamByName('P5').Value := arrCount[5] + 1; Parameters.ParamByName('P6').Value := arrCount[6] + 1; Parameters.ParamByName('P7').Value := arrCount[7] + 1; Parameters.ParamByName('P8').Value := arrCount[8] + 1; Parameters.ParamByName('P9').Value := arrCount[9] + 1; Parameters.ParamByName('P10').Value := arrCount[10] + 1; Parameters.ParamByName('P11').Value := arrCount[11] + 1; Parameters.ParamByName('P12').Value := arrCount[12] + 1; Parameters.ParamByName('P13').Value := arrCount[13] + 1; Parameters.ParamByName('P14').Value := arrCount[14] + 1; Parameters.ParamByName('P15').Value := arrCount[15] + 1; Parameters.ParamByName('P16').Value := arrCount[16] + 1; Parameters.ParamByName('P17').Value := arrCount[17] + 1; Parameters.ParamByName('P18').Value := arrCount[18] + 1; Parameters.ParamByName('P19').Value := arrCount[19] + 1; Parameters.ParamByName('P20').Value := arrCount[20] + 1; Parameters.ParamByName('P21').Value := arrCount[21] + 1; Parameters.ParamByName('P22').Value := arrCount[22] + 1; Parameters.ParamByName('P23').Value := arrCount[23] + 1; Parameters.ParamByName('P24').Value := arrCount[24] + 1; Parameters.ParamByName('P25').Value := arrCount[25] + 1; Parameters.ParamByName('P26').Value := arrCount[26] + 1; Parameters.ParamByName('P27').Value := arrCount[27] + 1; Parameters.ParamByName('P28').Value := arrCount[28] + 1; Parameters.ParamByName('P29').Value := arrCount[29] + 1; Parameters.ParamByName('P30').Value := arrCount[30] + 1; Parameters.ParamByName('P31').Value := arrCount[31] + 1; Parameters.ParamByName('P32').Value := arrCount[32] + 1; Parameters.ParamByName('P33').Value := arrCount[33] + 1; Parameters.ParamByName('P34').Value := arrCount[34] + 1; Parameters.ParamByName('P35').Value := arrCount[35] + 1; Parameters.ParamByName('P36').Value := arrCount[36] + 1; Parameters.ParamByName('P37').Value := arrCount[37] + 1; Parameters.ParamByName('P38').Value := arrCount[38] + 1; Parameters.ParamByName('P39').Value := arrCount[39] + 1; Parameters.ParamByName('P40').Value := arrCount[40] + 1; Parameters.ParamByName('P41').Value := arrCount[41] + 1; Parameters.ParamByName('P42').Value := arrCount[42] + 1; Parameters.ParamByName('P43').Value := arrCount[43] + 1; Parameters.ParamByName('P44').Value := arrCount[44] + 1; Parameters.ParamByName('P45').Value := arrCount[45] + 1; Parameters.ParamByName('P46').Value := arrCount[46] + 1; Parameters.ParamByName('P47').Value := arrCount[47] + 1; Parameters.ParamByName('P48').Value := arrCount[48] + 1; Parameters.ParamByName('P49').Value := arrCount[49] + 1; Parameters.ParamByName('P').Value := strQh; ExecSql; f1 := 'Interval_R'+Inttostr(H[1]); f2 := 'Interval_R'+Inttostr(H[2]); f3 := 'Interval_R'+Inttostr(H[3]); f4 := 'Interval_R'+Inttostr(H[4]); f5 := 'Interval_R'+Inttostr(H[5]); f6 := 'Interval_R'+Inttostr(H[6]); f7 := 'Interval_L'+Inttostr(strtoint(strBlue)); Close; sql.Clear; sql.Add('update Intervals set '+f1+'=:P1,'+f2+'=:P2,'+f3+'=:P3,'); sql.Add(f4+'=:P4,'+f5+'=:P5,'+f6+'=:P6,'+f7+'=:P7 '); sql.Add('where Lottery_issue = :P'); Parameters.ParamByName('P1').Value := 0; Parameters.ParamByName('P2').Value := 0; Parameters.ParamByName('P3').Value := 0; Parameters.ParamByName('P4').Value := 0; Parameters.ParamByName('P5').Value := 0; Parameters.ParamByName('P6').Value := 0; Parameters.ParamByName('P7').Value := 0; Parameters.ParamByName('P').Value := strQh; Execsql; end;//with //获取最新历史数据 GetDataHistory; Inc(iCount); end; //while //关闭等待窗 with frmUpdateWait do begin //TGIFimage(imgWait.Picture.Graphic).Animate := False; Free; end; screen.Cursor := crDefault; Beep; //提示完成情况 if iCount = 0 then Application.MessageBox('没有更新，已是最新开奖记录！！', '提示',mb_ok) else begin //设置最近开奖期号、日期 GetLotteryIssue; Application.MessageBox(Pchar('已更新 '+Inttostr(iCount)+' 条记录！！'), '提示',mb_ok); end; // end // ); //UpdateThread.FreeOnTerminate := True; //UpdateThread.Start; end; procedure TfrmSSPanda.acExitExecute(Sender: TObject); begin Close; end; procedure TfrmSSPanda.acFilterRestoreExecute(Sender: TObject); var i: integer; begin with TfrmRestore.Create(Self, strList, listAbandon) do begin try ShowModal; //保存过滤后结果到临时文件 Inc(intCountUndo); strList.SaveToFile('~Undo' + Inttostr(intCountUndo) + '.tmp'); if intCountUndo > MaxUndo then begin try if FileExists('~Undo1.tmp') then DeleteFile('~Undo1.tmp'); for I := 2 to intCountUndo do RenameFile('~Undo'+InttoStr(i)+'.tmp', '~Undo'+InttoStr(i-1)+'.tmp'); Dec(intCountUndo); Except ShowMessage('文件操作有误！'); Exit; end; end; intCurUndo := intCountUndo; //菜单 回复、重做使能控制 EnableButton; finally Free; end; end; end; procedure TfrmSSPanda.acGoAheadExecute(Sender: TObject); begin Inc(intCurUndo); strList.Clear; strList.LoadFromFile('~Undo' + InttoStr(intCurUndo) + '.tmp'); DisplayPaging; //菜单 回复、重做使能控制 EnableButton; end; //外部导入投注结果 procedure TfrmSSPanda.InputFromFile(bOver: byte); var f: TextFile; s: string; i: integer; b: Boolean; begin with odOpen do begin Filter := '投注结果(*.txt)|*.txt'; DefaultExt := '*.txt'; end; if odOpen.Execute then begin if not FileExists(odOpen.FileName) then begin ShowMessage('文件不存在！'); Exit; end; b := True; //验证导入文件的格式是否正确 AssignFile(f, odOpen.Filename); Reset(f); Try if not Eof(f) then begin Readln(f, s); if (Length(s) = 22) or (Length(s) = 17) then begin for I := 1 to 6 do begin if StrtoIntDef(Copy(s,3*i-2,2), 0) = 0 then begin B := False; break; end; end;//for if Length(s)=22 then begin if Pos('+', s) = 0 then begin B := False; end; if StrtoIntDef(Copy(s,21,2), 0) = 0 then begin B := False; end; end; end else begin B := False; end;//if length end else begin b := False; end; //格式不对则提示 if not b then begin ShowMessage('数据格式不对！！正确格式如：01 02 03 04 05 06 或 01 02 03 04 05 06 + 01'); Exit; end; //导入 if bOver = 0 then strList.LoadFromFile(odOpen.FileName) else begin strList.Add(s); while not Eof(f) do begin Readln(f, s); strList.Add(s); end; end; Finally CloseFile(f); End; end; //if //分页及显示 DisplayPaging; end; procedure TfrmSSPanda.EnableButton; begin //菜单 回复、重做使能控制 N21.Enabled := intCurUndo > 1; N22.Enabled := intCurUndo < intCountUndo; tbRollback.Enabled := N21.Enabled; tbGoahead.Enabled := N22.Enabled; acResultAdd.Enabled := strList.Count > 0; acResultEdit.Enabled := strList.Count > 0; acResultDel.Enabled := strList.Count > 0; acResultClear.Enabled := strList.Count > 0; acBlueReplace.Enabled := strList.Count > 0; acPrizeLookup.Enabled := strList.Count > 0; acFilterRestore.Enabled := listAbandon.Count > 0; acPrintResult.Enabled := strList.Count > 0; end; procedure TfrmSSPanda.acInputResultExecute(Sender: TObject); begin InputFromFile(0); intCurUndo := intCountUndo; EnableButton; end; procedure TfrmSSPanda.acInsertInputExecute(Sender: TObject); begin InputFromFile(1); intCurUndo := intCountUndo; EnableButton; end; procedure TfrmSSPanda.acManualUpdateExecute(Sender: TObject); begin ShowMessage('此功能还没做'); end; procedure TfrmSSPanda.acOpenBettingExecute(Sender: TObject); var listTmp: TStringList; setHm, setLm, setTm: set of 1..33; i,j: integer; sHm, sLm, sTm: string; begin odOpen.Filter := '投注方案(*.bet)|*.bet'; odOpen.DefaultExt := '*.txt'; odOpen.FileName := '双色熊猫投注方案.bet'; if odOpen.Execute then begin listTmp := TstringList.Create; try listTmp.LoadFromFile(odOpen.FileName); if listTmp[0] <> '[双色熊猫投注方案]' then begin ShowMessage('文件格式不对！'); Exit; end; setHm := []; setLm := []; sHm := Copy(listTmp[1], 6, Pos('+', listTmp[1])-6); sLm := Copy(listTmp[1], Pos('+', listTmp[1]) + 1, Length(listTmp[1])-Pos('+', listTmp[1])); for I := 1 to (Length(sHm)+1) div 3 do include(setHm, StrtoInt(Copy(sHm, 3*i-2, 2))); for I := 1 to (Length(sLm)+1) div 3 do include(setLm, StrtoInt(Copy(sLm, 3*i-2, 2))); for I := 0 to pnlStandard.ControlCount - 1 do begin if pnlStandard.Controls[i] is TSpeedButton then begin if TSpeedButton(pnlStandard.Controls[i]).GroupIndex = 1 then begin with TSpeedButton(pnlStandard.Controls[i]) do begin if StrtoInt(Copy(Name,6,Length(Name)-5)) in setHm then begin if tag = 0 then Click; end else if tag > 0 then Click; end; end else if TSpeedButton(pnlStandard.Controls[i]).GroupIndex = 2 then begin with TSpeedButton(pnlStandard.Controls[i]) do begin if StrtoInt(Copy(Name,7,Length(Name)-6)) in setLm then begin if tag = 0 then Click; end else if tag > 0 then Click; end; end; end;// if is speedbutton end;//for setHm := []; setLm := []; setTm := []; sHm := Copy(listTmp[2], 6, Pos('&', listTmp[2])-6); sTm := Copy(listTmp[2], Pos('&', listTmp[2])+1, Pos('+', listTmp[2])-Pos('&', listTmp[2])-1); sLm := Copy(listTmp[2], Pos('+', listTmp[2]) + 1, Length(listTmp[2])-Pos('+', listTmp[2])); for I := 1 to (Length(sHm)+1) div 3 do include(setHm, StrtoInt(Copy(sHm, 3*i-2, 2))); for I := 1 to (Length(sTm)+1) div 3 do include(setTm, StrtoInt(Copy(sTm, 3*i-2, 2))); for I := 1 to (Length(sLm)+1) div 3 do include(setLm, StrtoInt(Copy(sLm, 3*i-2, 2))); for I := 0 to pnlSpecial.ControlCount - 1 do begin if pnlSpecial.Controls[i] is TSpeedButton then begin if TSpeedButton(pnlSpecial.Controls[i]).GroupIndex = 1 then begin with TSpeedButton(pnlSpecial.Controls[i]) do begin if StrtoInt(Copy(Name,2,Length(Name)-1)) in setHm then begin if tag = 0 then begin Click; end else if tag = -1 then begin Click; Click; end; end else if StrtoInt(Copy(Name,2,Length(Name)-1)) in setTm then begin if tag > 0 then begin Click; Click; end else if tag = -1 then begin Click; end; end; end; end else if TSpeedButton(pnlSpecial.Controls[i]).GroupIndex = 2 then begin with TSpeedButton(pnlSpecial.Controls[i]) do begin if StrtoInt(Copy(Name,2,Length(Name)-1)) in setLm then begin if tag = 0 then begin Click; end else if tag = -1 then begin Click; Click; end; end else if tag > 0 then Click; end; end; end;// if is speedbutton end;//for finally listTmp.Free; end; end;//if odOpen end; procedure TfrmSSPanda.acOpenFilterExecute(Sender: TObject); var i,j: integer; arrCheckOne,arrCheckTwo: Array of TcheckBox; arrGb: array of TGroupBox; arrEdt: array of TEdit; listTmp: TStrings; s: string; intSet: set of 0..6; begin SetLength(arrCheckOne, 8); setLength(arrGb, 8); SetLength(arrCheckTwo, 6); SetLength(arrEdt, 6); arrCheckOne[0] := chkRepeat; arrCheckOne[1] := chkTilt; arrCheckOne[2] := chkOdd; arrCheckOne[3] := chkBig; arrCheckOne[4] := chkOld; arrCheckOne[5] := chkBigTail; arrCheckOne[6] := chkTails; arrCheckOne[7] := chkContinuous; arrGb[0] := gbRepeat; arrGb[1] := gbTilt; arrGb[2] := gbOdd; arrGb[3] := gbBig; arrGb[4] := gbOld; arrGb[5] := gbBigtail; arrGb[6] := gbTails; arrGb[7] := gbContinuous; arrCheckTwo[0] := chkSameMatch; arrCheckTwo[1] := chkTailsMatch; arrCheckTwo[2] := chkFixed; arrCheckTwo[3] := chkTailsFixed; arrCheckTwo[4] := chkSumRemainder; arrCheckTwo[5] := chkSumTails; arrEdt[0] := edtSameMatch; arrEdt[1] := edtTailsMatch; arrEdt[2] := edtFixed; arrEdt[3] := edtTailsFixed; arrEdt[4] := edtSumRemainder; arrEdt[5] := edtSumTails; listTmp := TStringList.Create; //打开文件 odOpen.Filter := '过滤文件(*.fts)|*.fts'; odOpen.DefaultExt := '*.fls'; odOpen.FileName := '双色熊猫过滤设置'; if odOpen.Execute then begin listTmp.LoadFromFile(odOpen.FileName); end else begin listTmp.Free; Exit; end; try //有效性判断 if not (listTmp[0] = '[双色熊猫过滤]') then begin ShowMessage('文件格式有误'); Exit; end; //清空所有条件 chkSum.Checked := False; for I := Low(arrCheckOne) to High(arrCheckOne) do arrCheckOne[i].Checked := False; for I := Low(arrCheckTwo) to High(arrCheckTwo) do arrCheckTwo[i].Checked := False; //设置文件内容指定条件 for I := 1 to listTmp.Count - 1 do begin intSet := []; s := listTmp[i]; if s[1] = '1' then begin if s[2] = '9' then begin chkSum.Checked := True; edtMin.Text := Copy(s, 8, Pos('~', s) - 8); edtMax.Text := Copy(s, Pos('~', s) + 1, Length(s)-Pos('~', s)); end else begin for j := 8 to Length(s) do Include(intSet, StrtoInt(s[j])); arrCheckOne[StrtoInt(s[2])].Checked := True; for j := 0 to arrGb[StrtoInt(s[2])].ControlCount -1 do begin if StrtoInt(TCheckBox(arrGb[StrtoInt(s[2])].Controls[j]).Caption) in intSet then TCheckBox(arrGb[StrtoInt(s[2])].Controls[j]).Checked := True else TCheckBox(arrGb[StrtoInt(s[2])].Controls[j]).Checked := False; end; end; end //if one //if two else begin arrCheckTwo[StrtoInt(s[2])].Checked := True; arrEdt[StrtoInt(s[2])].ReadOnly := False; arrEdt[StrtoInt(s[2])].Text := Trim(Copy(s, 8, Length(s)-7)); arrEdt[StrtoInt(s[2])].ReadOnly := True; end; end; //for i finally listTmp.Free; end; end; procedure TfrmSSPanda.acPrintResultExecute(Sender: TObject); Var //txtfile: Textfile; //str: string; i,j,n,m,c: integer; sFile: string; listTmp: TStringList; begin sFile:=ExtractFilePath(ParamStr(0))+'temp.txt'; listTmp := TstringList.Create; try listTmp.Add(' '+DatetoStr(now())+' 福 彩 双 色 球 投 注 单'); listTmp.Add('===================================================================='); listTmp.Add(' 祝您好运 !!! '); listTmp.Add('===================================================================='); n := strList.Count div 5; m := strList.Count mod 5; //n=0 if n = 0 then begin for i := 0 to m - 1 do listTmp.Add(InttoStr(i+1) + '. ' + strList[i]); end else //n > 0 begin for I := 0 to n-1 do begin if odd(i) then begin c := listTmp.Count; for j := 5*i+1 to 5*i+5 do begin if j < 10 then listTmp[c-6+j-5*i] := listTmp[c-6+j-5*i] + ' ' + (InttoStr(j) + '. ' + strList[j-1]) else listTmp[c-6+j-5*i] := listTmp[c-6+j-5*i] + ' ' + (InttoStr(j) + '. ' + strList[j-1]); end; listTmp.Add(''); end else begin for j := 5*i+1 to 5*i+5 do begin if j < 10 then listTmp.Add(' ' + InttoStr(j) + '. ' + strList[j-1]) else listTmp.Add(InttoStr(j) + '. ' + strList[j-1]); end; end; end; listTmp.Add(''); //剩余不足5注的 if m > 0 then begin if odd(n) then begin c := listTmp.Count - 1; for j := 5*n+1 to 5*n+m do listTmp[c-6+j-5*n] := listTmp[c-6+j-5*n] + ' ' + (InttoStr(j) + '. ' + strList[j-1]); end else begin for I := 0 to m - 1 do listTmp.Add(InttoStr(j+i) + '. ' + strList[j+i-1]); end; end; end; //if n=0 >0 listTmp.Add('=================================================================='); listTmp.Add(' 共 '+Inttostr(strList.Count)+' 注'+' 投资金额 '+InttoStr(strList.Count*2)+' 元'); listTmp.SaveToFile(sFile); finally listTmp.Free; end; {Assignfile(Txtfile,ExtractFilePath(ParamStr(0))+'temp.txt'); try Str:=' '+DatetoStr(now())+' 福 彩 双 色 球 投 注 单'; Rewrite(Txtfile); Writeln(Txtfile,Str); Str:='===================================================================='; Writeln(Txtfile,Str); Str:=' 祝您好运 !!! '; Writeln(Txtfile,Str); Str:='===================================================================='; Writeln(Txtfile,Str); for i := 0 to strList.Count -1 do begin If i<9 then str:=' '+InttoStr(i+1)+'. '+strList[i]+' ' else str:=InttoStr(i+1)+'. '+strList[i]+' '; If ((i+1) mod 2)=0 then Writeln(Txtfile,Str) else Write(Txtfile,Str); If ((i+1) mod 10)=0 then begin Str:=' '; Writeln(Txtfile,Str); end; end; If (strList.Count mod 2)=0 then begin Str:='=================================================================='; Writeln(Txtfile,Str); end else begin Str:=' '; Writeln(Txtfile,Str); Str:='==================================================================='; Writeln(Txtfile,Str); end; Str:=' 共 '+Inttostr(strList.Count)+' 注'+' 投资金额 '+InttoStr(strList.Count*2)+' 元'; Writeln(Txtfile,Str); finally CloseFile(Txtfile); end; } ShellExecute(handle, nil, pchar(sFile), nil, nil, SW_SHOWNORMAL); end; procedure TfrmSSPanda.acPrizeLookupExecute(Sender: TObject); begin with TfrmCompare.Create(Self, strList) do begin try ShowModal; finally free; end; end; end; procedure TfrmSSPanda.acResultAddExecute(Sender: TObject); var i, index: integer; s: string; begin if sgResult.Row = 0 then Exit; index := StrtoInt(sgResult.Cells[0, sgResult.Row]); s := sgResult.Cells[1, sgResult.Row]; with TfrmEditBall.Create(self, s) do begin try ShowModal; if ModalResult <> mrOk then Exit; //结果显示准备 strList.Insert(index-1, s); //分页显示处理 DisplayPaging; //保存过滤后结果到临时文件 Inc(intCountUndo); strList.SaveToFile('~Undo' + Inttostr(intCountUndo) + '.tmp'); if intCountUndo > MaxUndo then begin try if FileExists('~Undo1.tmp') then DeleteFile('~Undo1.tmp'); for I := 2 to intCountUndo do RenameFile('~Undo'+InttoStr(i)+'.tmp', '~Undo'+InttoStr(i-1)+'.tmp'); Dec(intCountUndo); Except ShowMessage('文件操作有误！'); Exit; end; end; //菜单按钮使能控制 intCurUndo := intCountUndo; EnableButton; finally Free; end; end; end; procedure TfrmSSPanda.acResultClearExecute(Sender: TObject); var i: integer; begin strList.Clear; //保存过滤后结果到临时文件 Inc(intCountUndo); strList.SaveToFile('~Undo' + Inttostr(intCountUndo) + '.tmp'); if intCountUndo > MaxUndo then begin try if FileExists('~Undo1.tmp') then DeleteFile('~Undo1.tmp'); for I := 2 to intCountUndo do RenameFile('~Undo'+InttoStr(i)+'.tmp', '~Undo'+InttoStr(i-1)+'.tmp'); Dec(intCountUndo); Except ShowMessage('文件操作有误！'); Exit; end; end; //分页显示处理 DisplayPaging; //按钮使能控制 intCurUndo := intCountUndo; EnableButton; end; procedure TfrmSSPanda.acResultDelExecute(Sender: TObject); var i, index: integer; begin if sgResult.Row = 0 then Exit; index := StrtoInt(sgResult.Cells[0, sgResult.Row]); //结果显示准备 strList.Delete(index-1); //分页显示处理 DisplayPaging; //保存过滤后结果到临时文件 Inc(intCountUndo); strList.SaveToFile('~Undo' + Inttostr(intCountUndo) + '.tmp'); if intCountUndo > MaxUndo then begin try if FileExists('~Undo1.tmp') then DeleteFile('~Undo1.tmp'); for I := 2 to intCountUndo do RenameFile('~Undo'+InttoStr(i)+'.tmp', '~Undo'+InttoStr(i-1)+'.tmp'); Dec(intCountUndo); Except ShowMessage('文件操作有误！'); Exit; end; end; //按钮使能控制 intCurUndo := intCountUndo; EnableButton; end; procedure TfrmSSPanda.acResultEditExecute(Sender: TObject); var sOld,sNew: string; i, index: integer; begin if sgResult.Row = 0 then Exit; sOld := sgResult.Cells[1, sgResult.Row]; sNew := sOld; with TfrmEditBall.Create(self, sNew) do begin try ShowModal; //没有改动则退出不处理 if sNew = sOld then exit; index := StrtoInt(sgResult.Cells[0, sgResult.Row]); sgResult.Options := sgResult.Options + [goEditing]; sgResult.Cells[1, sgResult.Row] := sNew; sgResult.Options := sgResult.Options - [goEditing]; //第一次保存原投注结果到临时文件 //结果显示准备 strList[index-1] := sNew; //保存过滤后结果到临时文件 Inc(intCountUndo); strList.SaveToFile('~Undo' + Inttostr(intCountUndo) + '.tmp'); if intCountUndo > MaxUndo then begin try if FileExists('~Undo1.tmp') then DeleteFile('~Undo1.tmp'); for I := 2 to intCountUndo do RenameFile('~Undo'+InttoStr(i)+'.tmp', '~Undo'+InttoStr(i-1)+'.tmp'); Dec(intCountUndo); Except ShowMessage('文件操作有误！'); Exit; end; end; //菜单 回复、重做使能控制 intCurUndo := intCountUndo; EnableButton; finally Free; end; end; end; procedure TfrmSSPanda.acRollbackExecute(Sender: TObject); begin Dec(intCurUndo); strList.Clear; strList.LoadFromFile('~Undo' + InttoStr(intCurUndo) + '.tmp'); DisplayPaging; //菜单 回复、重做使能控制 EnableButton; end; procedure TfrmSSPanda.acSaveBettingExecute(Sender: TObject); var strHm, strLm, strTm, strCommon, strSpecial: string; i,j,k,n,m: integer; arrHm,arrLm, arrGall, arrDrag: array of integer; listTmp: TStringList; begin sdSave.Filter := '投注方案(*.bet)|*.bet'; sdSave.DefaultExt := '*.bet'; sdSave.FileName := '双色熊猫投注方案.bet'; if sdSave.Execute then begin j := 0; k := 0; for I := 0 to pnlStandard.ControlCount - 1 do begin if pnlStandard.Controls[i] is TSpeedButton then begin if TSpeedButton(pnlStandard.Controls[i]).Tag > 0 then begin if TSpeedButton(pnlStandard.Controls[i]).GroupIndex = 1 then begin setLength(arrHm, Length(arrHm) + 1); arrHm[j] := TSpeedButton(pnlStandard.Controls[i]).Tag; inc(j); end else if TSpeedButton(pnlStandard.Controls[i]).GroupIndex = 2 then begin setLength(arrLm, Length(arrLm)+1); arrLm[k] := TSpeedButton(pnlStandard.Controls[i]).Tag; inc(k); end; end; end; end; //按大小进行排序 for I := 0 to j-2 do for n := i+1 to j-1 do begin if arrHm[i]>arrHm[n] then begin m := arrHm[n]; arrHm[n] := arrHm[i]; arrHm[i] := m; end; end; //生成字符串 for i := Low(arrHm) to High(arrHm) do begin if arrHm[i] < 10 then strHm := strHm + ' 0' + Inttostr(arrHm[i]) else strHm := strHm + ' ' + Inttostr(arrHm[i]); end; for I := Low(arrLm) to High(arrLm) do begin if arrLm[i] < 10 then strLm := strLm + ' 0' + Inttostr(arrLm[i]) else strLm := strLm + ' ' + Inttostr(arrLm[i]); end; strCommon := Trim(strHm) + '+' + Trim(strLm); j := 0; k := 0; strHm := ''; strLm := ''; setLength(arrHm, 0); setLength(arrLm, 0); for I := 0 to pnlSpecial.ControlCount - 1 do begin if pnlSpecial.Controls[i] is TSpeedButton then begin if TSpeedButton(pnlSpecial.Controls[i]).Tag > 0 then begin if TSpeedButton(pnlSpecial.Controls[i]).GroupIndex = 1 then begin SetLength(arrGall,Length(arrGall)+1); arrGall[High(arrGall)] := TSpeedButton(pnlSpecial.Controls[i]).Tag; end else if TSpeedButton(pnlSpecial.Controls[i]).GroupIndex = 2 then begin SetLength(arrLm,Length(arrLm)+1); arrLm[High(arrLm)] := TSpeedButton(pnlSpecial.Controls[i]).Tag; end; end else //tag = 0 if TSpeedButton(pnlSpecial.Controls[i]).Tag = 0 then begin if TSpeedButton(pnlSpecial.Controls[i]).GroupIndex = 1 then begin SetLength(arrDrag,Length(arrDrag)+1); arrDrag[High(arrDrag)] := StrtoInt(Copy(TSpeedButton(pnlSpecial.Controls[i]).Name,2,Length(TSpeedButton(pnlSpecial.Controls[i]).Name)-1)); end; end; end; end; //生成字符串 for I := Low(arrGall) to High(arrGall) do begin if arrGall[i] < 10 then strHm := strHm + ' 0' + InttoStr(arrGall[i]) else strHm := strHm + ' ' + InttoStr(arrGall[i]); end; for I := Low(arrDrag) to High(arrDrag) do begin if arrDrag[i] < 10 then strTm := strTm + ' 0' + InttoStr(arrDrag[i]) else strTm := strTm + ' ' + InttoStr(arrDrag[i]); end; for I := Low(arrLm) to High(arrLm) do begin if arrLm[i] < 10 then strLm := strLm + ' 0' + Inttostr(arrLm[i]) else strLm := strLm + ' ' + Inttostr(arrLm[i]); end; if Trim(strHm) = '' then strSpecial := '+' + Trim(strLm) else strSpecial := Trim(strHm) + '&' + Trim(strTm) + '+' + Trim(strLm); if Trim(strLm) = '' then begin if Length(strSpecial) = 1 then strSpecial := '' else strSpecial := Copy(strSpecial, 1, Pos('+', strSpecial)-1); end; listTmp := TStringList.Create; try listTmp.Add('[双色熊猫投注方案]'); listTmp.Add('标准投注：' + strCommon); listTmp.Add('胆拖投注：' + strSpecial); listTmp.SaveToFile(sdSave.FileName); finally listTmp.Free; end; ShowMessage('投注方案保存成功！'); end; //if sdsave.execute end; procedure TfrmSSPanda.acSaveFilterExecute(Sender: TObject); var i,j: integer; arrCheckOne,arrCheckTwo: Array of TcheckBox; arrGb: array of TGroupBox; arrEdt: array of TEdit; listTmp: TStrings; s: string; begin SetLength(arrCheckOne, 8); setLength(arrGb, 8); SetLength(arrCheckTwo, 6); SetLength(arrEdt, 6); arrCheckOne[0] := chkRepeat; arrCheckOne[1] := chkTilt; arrCheckOne[2] := chkOdd; arrCheckOne[3] := chkBig; arrCheckOne[4] := chkOld; arrCheckOne[5] := chkBigTail; arrCheckOne[6] := chkTails; arrCheckOne[7] := chkContinuous; arrGb[0] := gbRepeat; arrGb[1] := gbTilt; arrGb[2] := gbOdd; arrGb[3] := gbBig; arrGb[4] := gbOld; arrGb[5] := gbBigtail; arrGb[6] := gbTails; arrGb[7] := gbContinuous; arrCheckTwo[0] := chkSameMatch; arrCheckTwo[1] := chkTailsMatch; arrCheckTwo[2] := chkFixed; arrCheckTwo[3] := chkTailsFixed; arrCheckTwo[4] := chkSumRemainder; arrCheckTwo[5] := chkSumTails; arrEdt[0] := edtSameMatch; arrEdt[1] := edtTailsMatch; arrEdt[2] := edtFixed; arrEdt[3] := edtTailsFixed; arrEdt[4] := edtSumRemainder; arrEdt[5] := edtSumTails; listTmp := TStringList.Create; listTmp.Add('[双色熊猫过滤]'); try if chkSum.Checked then begin s := '19' + Copy(chkSum.Caption, 1, 4) + '=' + edtMin.Text + '~' + edtMax.Text; listTmp.Add(s); end; for I := Low(arrCheckOne) to High(arrCheckOne) do begin s := ''; if arrCheckOne[i].Checked then begin for j := 0 to arrGb[i].ControlCount - 1 do begin if TCheckBox(arrGb[i].Controls[j]).Checked then s := s + TCheckBox(arrGb[i].Controls[j]).Caption; end; //s := arrCheckOne[i].Name + '=' + s; s := '1' + InttoStr(i) + Copy(arrCheckOne[i].Caption,1,4) + '=' + s; listTmp.Add(s); end; end; //条件二 for I := Low(arrCheckTwo) to High(arrcheckTwo) do begin s := ''; if arrCheckTwo[i].Checked then begin s := '2' + InttoStr(i) + arrCheckTwo[i].Caption + '=' + arredt[i].Text; listTmp.Add(s); end; end; //保存文件 sdSave.Filter := '过滤文件(*.fts)|*.fts'; sdSave.DefaultExt := '*.fls'; sdSave.FileName := '双色熊猫过滤设置'; if sdSave.Execute then begin listTmp.SaveToFile(sdSave.FileName); ShowMessage('文件保存成功！'); end; finally listTmp.Free; end; end; procedure TfrmSSPanda.acSaveResultExecute(Sender: TObject); begin if strList.Count = 0 then begin showMessage('请先投注！！'); exit; end; sdSave.Filter := '投注结果(*.txt)|*.txt'; sdSave.DefaultExt := '*.txt'; sdSave.FileName := '双色熊猫过滤设置文件'; sdSave.FileName := '第'+Inttostr(StrtointDef(Copy(lblLottery.Caption,3,7),0)+1)+'期双色球投注结果('+Inttostr(strList.count)+')'; if sdSave.Execute then begin strList.SaveToFile(sdSave.FileName); ShowMessage('保存成功！'); end; end; procedure TfrmSSPanda.bbtnRedAllClick(Sender: TObject); var i: integer; begin //投注区球的状态设置为选中 for i := 0 to pnlStandard.ControlCount-1 do begin if pnlStandard.Controls[i] is TSpeedButton then begin with TSpeedButton(pnlStandard.Controls[i])do begin Flat := True; Caption := ''; if TBitBtn(Sender).Name = 'bbtnRedAll' then begin if (GroupIndex = 1) and (tag = 0) then Click; end else if TBitBtn(Sender).Name = 'bbtnBlueAll' then if (GroupIndex = 2) and (tag = 0) then Click; end;//with end; //if TSpeedButton end; end; procedure TfrmSSPanda.bbtnBettingMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var p: TPoint; begin p.X :=TBitBtn(Sender).Left; p.Y := TBitBtn(Sender).Top+TBitBtn(Sender).Height; p := TBitBtn(Sender).Parent.ClienttoScreen(p); popmnuBetting.Popup(p.x, p.Y); end; procedure TfrmSSPanda.bbtnBigClick(Sender: TObject); begin With TfrmAnalysisDB.Create(Self,4) do begin try ShowModal; finally Free; end; end; end; procedure TfrmSSPanda.bbtnBigTailClick(Sender: TObject); begin With TfrmAnalysisDB.Create(Self,6) do begin try ShowModal; finally Free; end; end; end; procedure TfrmSSPanda.bbtnBlueRandomClick(Sender: TObject); var i,j,intRandom: integer; intsetAll: set of 1..16; aComponent: TComponent; strFile: string; begin if pgcStandard.ActivePage = tsStandard then intRandom := StrtointDef(edtBlueRandom.Text, 0) else intRandom := StrtointDef(edtB.Text, 0); if intRandom = 0 then begin intRandom := 1; edtBlueRandom.Text := '1'; end; if intRandom > 16 then begin intRandom := 16; edtBlueRandom.Text := '16'; end; //投注区球的初始状态 if pgcStandard.ActivePage = tsStandard then begin for i := 0 to pnlStandard.ControlCount-1 do begin if pnlStandard.Controls[i] is TSpeedButton then begin with TSpeedButton(pnlStandard.Controls[i])do begin Flat := True; Caption := ''; if GroupIndex = 2 then begin tag := 0; strFile := 'hui-'+Copy(Name,7,Length(Name)-6); Glyph.LoadFromResourceName(HInstance, strFile); end end;//with end; //if TSpeedButton end; end else if pgcStandard.ActivePage = tsSpecial then begin for i := 0 to pnlSpecial.ControlCount-1 do begin if pnlSpecial.Controls[i] is TSpeedButton then begin with TSpeedButton(pnlSpecial.Controls[i])do begin Flat := True; Caption := ''; if GroupIndex = 2 then begin tag := 0; strFile := 'hui-'+Copy(Name,2,Length(Name)-1); Glyph.LoadFromResourceName(HInstance, strFile); end end;//with end; //if TSpeedButton end; end; //循环产生随机投注 Randomize; intsetAll := []; for I := 1 to 16 do include(intsetAll,I); i := 1; while i <= intRandom do begin j := Random(34); if j in intsetAll then begin if pgcstandard.ActivePage = tsStandard then begin aComponent := FindComponent('sbBlue'+inttostr(j)); if aComponent <> nil then sbRed1Click(aComponent); end else if pgcStandard.ActivePage = tsSpecial then begin aComponent := FindComponent('b'+inttostr(j)); if aComponent <> nil then r1Click(aComponent); end; exclude(intsetAll, j); Inc(i); end else continue; end; end; procedure TfrmSSPanda.bbtnContinuousClick(Sender: TObject); begin With TfrmAnalysisDB.Create(Self,8) do begin try ShowModal; finally Free; end; end; end; procedure GetDataHistory; var arrStr: array of string; arrLast: array[1..6] of integer; i,j: integer; begin with dmMain.adoqMain do begin close; sql.Clear; sql.Add('select top 5 redball from lottery_history order by lottery_issue desc'); open; if IsEmpty then begin ShowMessage('请先更新开奖数据后继续！'); Exit; end; i := 0; setLength(arrStr, RecordCount); while not Eof do begin arrStr[i] := Trim(copy(FieldbyName('Redball').AsString,1,17)); Inc(i); next; end; end; //重码 intsetRepeat := []; for I := 1 to 6 do begin arrLast[i] := StrtoInt(Copy(arrStr[0],3*i-2,2)); Include(intsetRepeat, arrLast[i]); end; //斜码 intsetTilt := []; for I := 1 to 6 do begin if (arrLast[i]-1) > 0 then begin if not ((arrLast[i]-1) in intsetRepeat) then Include(intsetTilt, arrLast[i]-1); end; if (arrLast[i]+1) <=33 then begin if not ((arrLast[i]+1) in intsetRepeat) then Include(intsetTilt, arrLast[i]+1); end; end; //旧码 intsetOld := []; for I := Low(arrStr) to High(arrStr) do begin for j := 1 to 6 do Include(intsetOld,StrtoInt(Copy(arrStr[i],3*j-2,2))); end; end; procedure TfrmSSPanda.bbtnFilterClick(Sender: TObject); var i,j: integer; hm: array[1..6] of integer; m: array[1..7] of integer; frm: TForm; //显示进度条的窗体 gg: TGauge; begin //判断是否已经进行投注 if strList.Count = 0 then begin ShowMessage('请先进行投注！'); exit; end; //过滤条件设置有效性校验 if not ValidFilter then Exit; //GetDataHistory; listRetain.Clear; listAbandon.Clear; //对投注结果进行过滤 Screen.Cursor := crHourGlass; //显示进度条 frm := TForm.Create(frmSSPanda); frm.BorderStyle := bsNone; //去掉边框 frm.Width := frmSSPanda.Width - 100; frm.Height := 40; frm.Position := poOwnerFormCenter; gg := TGauge.Create(frm); gg.Width := frm.ClientWidth; gg.Height := 40; gg.Left := 1; gg.Top := 1; gg.MinValue := 0; gg.MaxValue := strList.Count + 5; gg.Parent := frm; gg.ForeColor := clBlue; frm.Show; //ShowModal会阻塞 frm.BringToFront; for I := 0 to strList.Count - 1 do begin for j := 1 to 6 do hm[j] := StrtoInt(Copy(strList[i],3*j-2,2)); for j := 1 to 6 do m[j] := hm[j]; if Pos('+',strList[i]) > 0 then m[7] := StrtoInt(Copy(strList[i], 21, 2)) else m[7] := 0; gg.Progress := gg.Progress + 1; if not VerifySum(hm, Strtoint(edtMin.Text),Strtoint(edtMax.Text),chkSum.Checked) then begin listAbandon.Add(strList[i]); continue; end; if not VerifyRepeat(hm, chkRepeat.Checked) then begin listAbandon.Add(strList[i]); continue; end; if not VerifyTilt(hm, chkTilt.Checked) then begin listAbandon.Add(strList[i]); continue; end; if not VerifyOdd(hm, chkOdd.Checked) then begin listAbandon.Add(strList[i]); continue; end; if not VerifyBig(hm, chkBig.Checked) then begin listAbandon.Add(strList[i]); continue; end; if not VerifyOld(hm, chkOld.Checked) then begin listAbandon.Add(strList[i]); continue; end; if not VerifyBigTail(hm, chkBigTail.Checked) then begin listAbandon.Add(strList[i]); continue; end; if not VerifyTails(hm, chkTails.Checked) then begin listAbandon.Add(strList[i]); continue; end; if not VerifyContinuous(hm, chkContinuous.Checked) then begin listAbandon.Add(strList[i]); continue; end; //交集匹配 if not VerifySameMatch(m, chkSameMatch.Checked) then begin listAbandon.Add(strList[i]); continue; end; //尾数匹配 if not VerifyTailsMatch(m, chkTailsMatch.Checked) then begin listAbandon.Add(strList[i]); continue; end; //定位匹配 if not VerifyFixed(m, chkFixed.Checked) then begin listAbandon.Add(strList[i]); continue; end; //定尾 if not VerifyFixedTails(m, chkTailsFixed.Checked) then begin listAbandon.Add(strList[i]); continue; end; //和值余 if not VerifySumRemainder(hm, chkSumRemainder.Checked) then begin listAbandon.Add(strList[i]); continue; end; //和值尾 if not VerifySumTails(hm, chkSumTails.Checked) then begin listAbandon.Add(strList[i]); continue; end; //符合条件的记录 listRetain.Add(strList[i]); end; //结果显示准备 strList.Clear; for I := 0 to listRetain.Count - 1 do strList.Add(listretain.Strings[i]); //保存过滤后结果到临时文件 Inc(intCountUndo); strList.SaveToFile('~Undo' + Inttostr(intCountUndo) + '.tmp'); if intCountUndo > MaxUndo then begin try if FileExists('~Undo1.tmp') then DeleteFile('~Undo1.tmp'); for I := 2 to intCountUndo do RenameFile('~Undo'+InttoStr(i)+'.tmp', '~Undo'+InttoStr(i-1)+'.tmp'); Dec(intCountUndo); Except ShowMessage('文件操作有误！'); Exit; end; end; intCurUndo := intCountUndo; //菜单 回复、重做使能控制 EnableButton; //分页显示处理 DisplayPaging; gg.Progress := gg.Progress + 5; Screen.Cursor := crDefault; //退出进度条窗体 frm.ModalResult := 1; frm.Free; Beep; end; procedure TfrmSSPanda.bbtnFilteringMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var p: TPoint; begin p.X :=TBitBtn(Sender).Left; p.Y := TBitBtn(Sender).Top+TBitBtn(Sender).Height; p := TBitBtn(Sender).Parent.ClienttoScreen(p); popmnuFiltering.Popup(p.x, p.Y); end; procedure TfrmSSPanda.bbtnOddClick(Sender: TObject); begin With TfrmAnalysisDB.Create(Self,3) do begin try ShowModal; finally Free; end; end; end; procedure TfrmSSPanda.bbtnOldClick(Sender: TObject); begin With TfrmAnalysisDB.Create(Self,5) do begin try ShowModal; finally Free; end; end; end; procedure TfrmSSPanda.bbtnOutputMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var p: TPoint; begin p.X :=TBitBtn(Sender).Left; p.Y := TBitBtn(Sender).Top+TBitBtn(Sender).Height; p := TBitBtn(Sender).Parent.ClienttoScreen(p); popmnuOutput.Popup(p.x, p.Y); end; procedure TfrmSSPanda.bbtnRedNoneClick(Sender: TObject); var i: integer; begin //投注区球的初始状态 for i := 0 to pnlStandard.ControlCount-1 do begin if pnlStandard.Controls[i] is TSpeedButton then begin with TSpeedButton(pnlStandard.Controls[i])do begin Flat := True; Caption := ''; if TBitBtn(Sender).Name = 'bbtnRedNone' then begin if (GroupIndex = 1) and (tag > 0) then Click; end else if TBitBtn(Sender).Name = 'bbtnBlueNone' then if (GroupIndex = 2) and (tag > 0) then Click; end;//with end; //if TSpeedButton end; end; procedure TfrmSSPanda.bbtnProductClick(Sender: TObject); var i,j,k,i1,i2,i3,i4,i5,i6: integer; x, intRec: integer; str,str1,str2,str3,str4,str5,str6,str7: string; arrHm, arrLm: array of integer; begin if pgcStandard.ActivePage = tsStandard then begin //如果红球个数小于6，则提示选择的红球不能少于6个 if intRed < 6 then begin ShowMessage('选择的红球不能少于6个!'); Exit; end; strList.Clear; j := 0; // 红码下标 k := 0; //蓝码下标 SetLength(arrHm, intRed+1); SetLength(arrLm, intBlue+1); for I := 0 to pnlStandard.ControlCount - 1 do begin if pnlStandard.Controls[i] is TSpeedButton then begin if TSpeedButton(pnlStandard.Controls[i]).Tag > 0 then begin if TSpeedButton(pnlStandard.Controls[i]).GroupIndex = 1 then begin arrHm[j] := TSpeedButton(pnlStandard.Controls[i]).Tag; inc(j); end else if TSpeedButton(pnlStandard.Controls[i]).GroupIndex = 2 then begin arrLm[k] := TSpeedButton(pnlStandard.Controls[i]).Tag; inc(k); end; end; end; end; //按大小进行排序 for I := 0 to intRed-2 do for j := i+1 to intRed-1 do begin if arrHm[i]>arrHm[j] then begin k := arrHm[j]; arrHm[j] := arrHm[i]; arrHm[i] := k; end; end; //产生投注结果 for I1 := 0 to intRed-6 do for i2 := i1+1 to intRed-5 do for i3 := i2+1 to intRed-4 do for i4 := i3+1 to intRed-3 do for i5 := i4+1 to intRed-2 do for i6 := i5+1 to intRed-1 do begin if arrHm[i1]<10 then str1 := '0'+Inttostr(arrHm[i1]) else str1 := Inttostr(arrHm[i1]); if arrHm[i2]<10 then str2 := '0'+Inttostr(arrHm[i2]) else str2 := Inttostr(arrHm[i2]); if arrHm[i3]<10 then str3 := '0'+Inttostr(arrHm[i3]) else str3 := Inttostr(arrHm[i3]); if arrHm[i4]<10 then str4 := '0'+Inttostr(arrHm[i4]) else str4 := Inttostr(arrHm[i4]); if arrHm[i5]<10 then str5 := '0'+Inttostr(arrHm[i5]) else str5 := Inttostr(arrHm[i5]); if arrHm[i6]<10 then str6 := '0'+Inttostr(arrHm[i6]) else str6 := Inttostr(arrHm[i6]); str := str1 + ' '+ str2 + ' ' + str3 + ' '+ str4 + ' '+ str5 + ' ' + str6; //加上蓝球 if intBlue > 0 then begin for j := 0 to intBlue-1 do begin if arrLm[j]<10 then str7 := '0'+Inttostr(arrLm[j]) else str7 := Inttostr(arrLm[j]); strList.Add(str+' + '+ str7); end; end else strList.Add(str); //pageCount := strlist.Count div PageSize + 1; end; end else if pgcStandard.ActivePage = tsSpecial then //胆拖杀投注功能时 begin if not VerifySpecial then Exit; strList.Clear; SpecialBetting; end else if pgcStandard.ActivePage = tsTailsBetting then begin TailsToBall; end; pageCount := strlist.Count div PageSize + 1; //显示第一页 curPage := 1; sbtnNext.Enabled := pageCount > 1; lblJmp.Enabled := strList.Count > 1; sbtnLast.Enabled := false; edtPage.Text := Inttostr(curPage); lblPagecount.Caption := '页/'+inttostr(pageCount)+'页'; if curPage = pageCount then intRec := strList.Count else intRec := Pagesize; with sgResult do begin for x := 1 to intRec do begin RowCount := x + 1; cells[0,x] := inttostr(x); cells[1,x] := strList.Strings[x-1]; end; end; lblreccount.caption := Inttostr(strList.count); //初始化回复重做功能参数和记录 intCurUndo := 0; intCountUndo := 0; for I := 1 to MaxUndo do begin if FileExists('~Undo'+Inttostr(i)+'.tmp') then DeleteFile('~Undo'+Inttostr(i)+'.tmp'); end; Inc(intCountUndo); strList.SaveToFile('~Undo' + Inttostr(intCountUndo) + '.tmp'); intCurUndo := intCountUndo; EnableButton; Beep; end; procedure TfrmSSPanda.bbtnRedRandomClick(Sender: TObject); var i,j,intRandom: integer; intsetAll: set of 1..33; aComponent: TComponent; strFile: string; begin intRandom := StrtointDef(edtRedRandom.Text, 0); if intRandom = 0 then begin intRandom := 6; edtRedRandom.Text := '6'; end; if intRandom > 33 then begin intRandom := 33; edtRedRandom.Text := '33'; end; //投注区球的初始状态 for i := 0 to pnlStandard.ControlCount-1 do begin if pnlStandard.Controls[i] is TSpeedButton then begin with TSpeedButton(pnlStandard.Controls[i])do begin Flat := True; Caption := ''; if GroupIndex = 1 then begin tag := 0; strFile := 'hui-'+Copy(Name,6,Length(Name)-5); Glyph.LoadFromResourceName(HInstance, strFile); end end;//with end; //if TSpeedButton end; //循环产生随机投注 Randomize; intsetAll := []; for I := 1 to 33 do include(intsetAll,I); i := 1; while i <= intRandom do begin j := Random(34); if j in intsetAll then begin //选择红球 aComponent := FindComponent('sbRed'+inttostr(j)); if aComponent <> nil then sbRed1Click(aComponent); exclude(intsetAll, j); Inc(i); end else continue; end; end; procedure TfrmSSPanda.bbtnRedReverseClick(Sender: TObject); var i: integer; begin for i := 0 to pnlStandard.ControlCount - 1 do begin if TBitBtn(Sender).Name = 'bbtnRedReverse' then begin if TSpeedButton(pnlStandard.Controls[i]).GroupIndex = 1 then sbRed1Click(pnlStandard.Controls[i]); end else if TBitBtn(Sender).Name = 'bbtnBlueReverse' then if TSpeedButton(pnlStandard.Controls[i]).GroupIndex = 2 then sbRed1Click(pnlStandard.Controls[i]); end; end; procedure TfrmSSPanda.bbtnRepeatClick(Sender: TObject); begin With TfrmAnalysisDB.Create(Self,1) do begin try ShowModal; finally Free; end; end; end; procedure TfrmSSPanda.bbtnSumClick(Sender: TObject); begin With TfrmAnalysisDB.Create(Self,0) do begin try ShowModal; finally Free; end; end; end; procedure TfrmSSPanda.bbtnTailsClick(Sender: TObject); begin With TfrmAnalysisDB.Create(Self,7) do begin try ShowModal; finally Free; end; end; end; procedure TfrmSSPanda.bbtnTiltClick(Sender: TObject); begin With TfrmAnalysisDB.Create(Self,2) do begin try ShowModal; finally Free; end; end; end; procedure TfrmSSPanda.btnBAllClick(Sender: TObject); var i: integer; begin //全选 for i := 0 to pnlSpecial.ControlCount-1 do begin if pnlSpecial.Controls[i] is TSpeedButton then begin with TSpeedButton(pnlSpecial.Controls[i])do begin if GroupIndex = 2 then begin if tag = 0 then Click else if tag = -1 then begin Click; Click; end; end; end;//with end; //if TSpeedButton end; end; procedure TfrmSSPanda.btnBClearClick(Sender: TObject); var i: integer; begin //投注区球的初始状态 for i := 0 to pnlSpecial.ControlCount-1 do begin if pnlSpecial.Controls[i] is TSpeedButton then begin with TSpeedButton(pnlSpecial.Controls[i])do begin if GroupIndex = 2 then begin if tag = -1 then Click else if tag > 0 then begin Click; Click; end; end; end;//with end; //if TSpeedButton end; end; procedure TfrmSSPanda.btnBReverseClick(Sender: TObject); var i: integer; begin //投注区球的初始状态 for i := 0 to pnlSpecial.ControlCount-1 do begin if pnlSpecial.Controls[i] is TSpeedButton then begin with TSpeedButton(pnlSpecial.Controls[i])do begin if GroupIndex = 2 then begin if tag = 0 then Click else if tag > 0 then begin Click; Click; end; end; end;//with end; //if TSpeedButton end; end; procedure TfrmSSPanda.chkRepeatClick(Sender: TObject); var i: integer; s: string; aComponent: TComponent; begin s := TCheckBox(Sender).Name; s := 'gb'+Copy(s,4,Length(s)-3); aComponent := FindComponent(s); if TCheckBox(Sender).Checked then begin if aComponent <> nil then begin for i := 0 to TGroupBox(aComponent).ControlCount - 1 do begin TGroupBox(aComponent).Controls[i].Enabled := True; end; end; end else begin if aComponent <> nil then begin for i := 0 to TGroupBox(aComponent).ControlCount - 1 do begin TGroupBox(aComponent).Controls[i].Enabled := False; end; end; end; //历史按钮 bbtnSum.Enabled := chkSum.Checked; bbtnRepeat.Enabled := chkRepeat.Checked; bbtnTilt.Enabled := chkTilt.Checked; bbtnBig.Enabled := chkBig.Checked; bbtnOld.Enabled := chkOld.Checked; bbtnOdd.Enabled := chkOdd.Checked; bbtnBigTail.Enabled := chkBigTail.Checked; bbtnTails.Enabled := chkTails.Checked; bbtnContinuous.Enabled := chkContinuous.Checked; end; procedure TfrmSSPanda.chkSameMatchClick(Sender: TObject); var s: string; aComponent: TComponent; begin s := 'sb'+ Copy(TCheckBox(Sender).Name, 4, Length(TCheckBox(Sender).Name)-3); aComponent := FindComponent(s); if aComponent <> nil then TSpeedButton(aComponent).Enabled := TCheckBox(Sender).Checked; end; procedure TfrmSSPanda.chkSumClick(Sender: TObject); begin if chkSum.Checked then begin edtMin.Enabled := True; edtMax.Enabled := True; upDown1.Enabled := True; upDown2.Enabled := True; bbtnSum.Enabled := True; end else begin edtMin.Enabled := False; edtMax.Enabled := False; upDown1.Enabled := False; upDown2.Enabled := False; bbtnSum.Enabled := False; end; end; procedure TfrmSSPanda.FormClose(Sender: TObject; var Action: TCloseAction); var i: integer; begin IsContinue := False; //if UpdateThread <> nil then UpdateThread.Terminate; //初始化回复重做功能参数和记录 intCurUndo := 0; intCountUndo := 0; for I := 1 to MaxUndo do begin if FileExists('~Undo'+Inttostr(i)+'.tmp') then DeleteFile('~Undo'+Inttostr(i)+'.tmp'); end; end; procedure TfrmSSPanda.FormCreate(Sender: TObject); begin strList := TstringList.Create; listRetain := TstringList.Create; listAbandon := TstringList.Create; with sgResult do begin colwidths[0] := 70; cells[0,0] := ' 注 号'; colwidths[1] := 190; cells[1,0] := ' 投注结果'; end; end; procedure TfrmSSPanda.FormDestroy(Sender: TObject); begin if strList <> nil then strList.Free; if listRetain <> nil then listRetain.Free; if listAbandon <> nil then listAbandon.Free; end; procedure TfrmSSPanda.FormShow(Sender: TObject); var i,j: integer; strFile: string; begin //设置最近开奖期号、日期 GetLotteryIssue; //获取上期重号、斜码、近5期旧码 GetDataHistory; //投注区球的初始状态 for i := 0 to pnlStandard.ControlCount-1 do begin if pnlStandard.Controls[i] is TSpeedButton then begin with TSpeedButton(pnlStandard.Controls[i])do begin Flat := True; Caption := ''; tag := 0; if GroupIndex = 1 then begin strFile := 'hui-'+Copy(Name,6,Length(Name)-5); end else if GroupIndex = 2 then begin strFile := 'hui-'+Copy(Name,7,Length(Name)-6); end; Glyph.LoadFromResourceName(HInstance, strFile); end;//with end; //if TSpeedButton end; //担拖杀投注功能区初始化 for I := 0 to pnlSpecial.ControlCount - 1 do begin if pnlSpecial.Controls[i] is TSpeedButton then begin with TSpeedButton(pnlSpecial.Controls[i]) do begin Flat := True; Caption := ''; Tag := 0; strFile := 'hui-'+Copy(Name,2,Length(Name)-1); Glyph.LoadFromResourceName(HInstance, strFile); end; end; end; pgcStandard.ActivePageIndex := 0; //过滤区初始化 edtMin.Enabled := False; edtMax.Enabled := False; upDown1.Enabled := False; upDown2.Enabled := False; for i := 0 to pnlFilter.ControlCount - 1 do begin if pnlFilter.Controls[i] is TGroupBox then begin for j := 0 to TGroupBox(pnlFilter.Controls[i]).ControlCount - 1 do TCheckBox(TGroupBox(pnlFilter.Controls[i]).Controls[j]).Enabled := False; end; end; bbtnSum.Enabled := chkSum.Checked; bbtnRepeat.Enabled := chkRepeat.Checked; bbtnTilt.Enabled := chkTilt.Checked; bbtnBig.Enabled := chkBig.Checked; bbtnOld.Enabled := chkOld.Checked; bbtnOdd.Enabled := chkOdd.Checked; bbtnBigTail.Enabled := chkBigTail.Checked; bbtnTails.Enabled := chkTails.Checked; bbtnContinuous.Enabled := chkContinuous.Checked; sbSameMatch.Enabled := chkSameMatch.Checked; sbTailsMatch.Enabled := chkTailsMatch.Checked; sbFixed.Enabled := chkFixed.Checked; sbTailsFixed.Enabled := chkTailsFixed.Checked; sbSumRemainder.Enabled := chkSumRemainder.Checked; sbSumTails.Enabled := chkSumTails.Checked; //结果栏按钮状态 sbtnLast.Enabled := strList.Count > 0; sbtnNext.Enabled := strList.Count > 0; lblJmp.Enabled := strList.Count > 0; //菜单 回复、重做使能控制 EnableButton; end; procedure TfrmSSPanda.lblJmpClick(Sender: TObject); var x,i,intRec : integer; begin if StrtoIntDef(edtPage.Text,0) > 0 then begin if strtoInt(edtPage.Text) > Pagecount then begin curPage := Pagecount; edtPage.Text := InttoStr(curPage); end else curPage := strtoInt(edtPage.Text); sbtnNext.Enabled := curPage < PageCount; sbtnLast.Enabled := curPage > 1; end; //显示 if curPage = pageCount then intRec := strList.Count else intRec := Pagesize*curPage; with sgResult do begin x := 1; for i := (curPage-1)*PageSize + 1 to intRec do begin RowCount := x+1; cells[0,x] := inttostr(i); cells[1,x] := strList.Strings[i-1]; inc(x); end; end; end; procedure TfrmSSPanda.lblJmpMouseEnter(Sender: TObject); begin lblJmp.Font.Color := clBlue; lblJmp.Font.Size := 10; Screen.cursor := crHandPoint; end; procedure TfrmSSPanda.lblJmpMouseLeave(Sender: TObject); begin lblJmp.Font.Color := clWindowtext; lblJmp.Font.Size := 8; Screen.cursor := crDefault; end; procedure TfrmSSPanda.DisplayPaging; var intRec, x: integer; begin lblRecCount.Caption := Inttostr(strList.Count); pageCount := strlist.Count div PageSize + 1; //显示第一页 curPage := 1; sbtnNext.Enabled := PageCount > curPage; lblJmp.Enabled := strList.Count > 0; sbtnLast.Enabled := false; edtPage.Text := Inttostr(curPage); lblPagecount.Caption := '页/'+inttostr(pageCount)+'页'; if curPage = pageCount then intRec := strList.Count else intRec := Pagesize; with sgResult do begin Rowcount := 2; Cells[0,1] := ''; Cells[1,1] := ''; for x := 1 to intRec do begin RowCount := x + 1; cells[0,x] := inttostr(x); cells[1,x] := strList.Strings[x-1]; end; end; end; //子窗体调用刷新 procedure TfrmSSPanda.WM_RefreshDisp(var msg: TMessage); begin if msg.Msg = MsgId then DisplayPaging; end; //尾号投注手动添加 procedure TfrmSSPanda.AddInput; begin edtTails.Hide; if Length(Trim(edtTails.Text)) <> 6 then begin lbTails.Items.Delete(lbTails.ItemIndex); Exit; end; lbTails.Items[lbTails.ItemIndex] :=Trim(edtTails.Text); edtTails.Clear; end; procedure TfrmSSPanda.edtTailsExit(Sender: TObject); begin AddInput; end; procedure TfrmSSPanda.edtTailsKeyPress(Sender: TObject; var Key: Char); begin if CharInSet(Key, [#13]) then lbTails.SetFocus; end; procedure TfrmSsPanda.TailsToBall; var i,j,k,a,b,c,d,e,f,valids:integer; hm:string; s,h:array [1..6] of string; ss: array [1..6,1..4] of string; begin //有效性检验 if lbTails.Count<1 then begin showmessage('请先输入尾号组合!!!'); exit; end; //初始化有关数据 hm:=''; //Progressbar1.Position:=0; //Progressbar1.Max:=LBwhlist.Count; for i:=1 to 6 do begin s[i]:='0'; end; for i:=1 to 6 do begin for j:=1 to 4 do begin ss[i,j]:='0' end; end; //清空投注结果 strList.Clear; //循环产生号 For i:=1 to lbTails.Count do begin For j:=1 to 6 do begin ////分隔每位尾号 Valids:=strtointdef(lbTails.Items.Strings[i-1],0); if valids=0 then begin showmessage('输入的尾号组合有误,请检查!!'); exit; end; s[j]:=copy(trim(lbTails.Items.Strings[i-1]),j,1); If Strtoint(s[j])>=4 then begin For k:=0 to 2 do begin ss[j,k+1]:=Inttostr(k)+s[j]; //根据尾号大小产生每位的可能数字 end;//for >=4 end else if Strtoint(s[j])=0 then begin for k:=1 to 3 do begin ss[j,k]:=inttostr(k)+s[j]; end;//for =0 end else begin for k:=0 to 3 do begin ss[j,k+1]:=Inttostr(k)+s[j]; end; end;// s[j]<4 end; //for j //产生投注号 For a:=1 to 4 do begin if (ss[1,a]<>'0') and (strtoint(ss[1,a])<29) then begin h[1]:=ss[1,a]; For b:=1 to 4 do begin if (ss[2,b]<>'0') and (strtoint(ss[2,b])<30) and (strtoint(ss[2,b])>strtoint(h[1])) then begin h[2]:=ss[2,b]; For c:=1 to 4 do begin if (ss[3,c]<>'0') and (strtoint(ss[3,c])<31) and (strtoint(ss[3,c])>strtoint(h[2])) then begin h[3]:=ss[3,c]; For d:=1 to 4 do begin if (ss[4,d]<>'0') and (strtoint(ss[4,d])<32) and (strtoint(ss[4,d])>strtoint(h[3])) then begin h[4]:=ss[4,d]; For e:=1 to 4 do begin if (ss[5,e]<>'0') and (strtoint(ss[5,e])<33) and (strtoint(ss[5,e])>strtoint(h[4])) then begin h[5]:=ss[5,e]; For f:=1 to 4 do begin if (ss[6,f]<>'0') and (strtoint(ss[6,f])<34) and (strtoint(ss[6,f])>strtoint(h[5])) then begin h[6]:=ss[6,f]; hm:=h[1]+' '+h[2]+' '+h[3]+' '+h[4]+' '+h[5]+' '+h[6]; //生成投注号码 strList.Add(hm); end;//if f end;//for f end;//if e end;//for e end;//if d end;//for d end;//if c end; //for c end; //if b end;//for b end; //if a end;//for a //初始化有关数据 for k:=1 to 6 do begin s[k]:='0'; end; for k:=1 to 6 do begin for j:=1 to 4 do begin ss[k,j]:='0' end; end; //修改进度条位置 //Progressbar1.Position:=i; end; //for i end; procedure TfrmSSPanda.N28Click(Sender: TObject); var //aPath: PChar; // i,j: integer; //s: string; // h: HWND; aPath: array[0..MAX_PATH] of Char; begin //在这里重温一下char数组和string //s := '\calc.exe'; //j := GetSystemDirectory(aPath, Length(aPath)); //for I := j to j+Length(s)-1 do aPath[i] := s[i-j+1]; //aPath[i] := #0; //ShellExecute(Handle, 'OPen', aPath, nil, nil, SW_Show);//参数竟然没用，计算器窗口状态无法控制， GetSystemDirectory(aPath, Length(aPath)); if not FileExists(aPath + '\calc.exe') then begin Showmessage('找不到操作系统附带的计算器！要先安装后才能使用！'); Exit; end; ShellExecute(Handle, 'OPen', Pchar('calc.exe'), nil, aPath, SW_Show); //由于移动的效果都看出来了，暂时没想到更好办法让计算器居于自己窗体中心，要么干脆自己写一个了 { Sleep(500); //需要等 计算器打开了 h := FindWindow(nil, '计算器'); if h > 0 then begin // (ClientWidth div 2) ClientHeight div 2 Windows.MoveWindow(h,Self.Left+300 , Self.Top + 200, 260, 300, True); end;} end; procedure TfrmSSPanda.N31Click(Sender: TObject); begin //ShellExecute(Handle, 'OPen', Pchar('双色熊猫彩投宝帮助文件.CHM'), nil, Pchar(ExtractFilePath(Application.ExeName)), SW_Show); with TfrmHelp.Create(Self) do begin try ShowModal; finally free; end; end; end; procedure TfrmSSPanda.N32Click(Sender: TObject); begin with TfrmAbout.Create(Self) do begin try ShowModal; finally free; end; end; end; procedure TfrmSSPanda.r1Click(Sender: TObject); var strFile: string; begin with TSpeedButton(Sender) do begin if GroupIndex = 1 then begin if tag = 0 then begin strFile := 'h-'+Copy(Name,2,Length(Name)-1); tag := StrToInt(Copy(Name,2,Length(Name)-1)); end else if tag > 0 then begin strFile := 'hei-'+Copy(Name,2,Length(Name)-1); tag := -1; end else if tag = -1 then begin strFile := 'hui-'+Copy(Name,2,Length(Name)-1); tag := 0; end; end else if GroupIndex = 2 then begin if tag = 0 then begin strFile := 'l-'+Copy(Name,2,Length(Name)-1); tag := StrToInt(Copy(Name,2,Length(Name)-1)); end else if tag > 0 then begin strFile := 'hei-'+Copy(Name,2,Length(Name)-1); tag := -1; end else if tag = -1 then begin strFile := 'hui-'+Copy(Name,2,Length(Name)-1); tag := 0; end; end; Glyph.LoadFromResourceName(Hinstance,strFile); //调入图片 end; //with end; procedure TfrmSSPanda.sbFixedClick(Sender: TObject); begin With TfrmFixed.Create(Self, edtFixed.Handle, edtFixed.Text) do begin try Showmodal; finally Free; end; end; end; procedure TfrmSSPanda.sbSameMatchClick(Sender: TObject); begin With TfrmSameMacth.Create(Self, edtSameMatch.Handle, edtSameMatch.Text) do begin try ShowModal; finally Free; end; end; end; procedure TfrmSSPanda.sbSumRemainderClick(Sender: TObject); begin With TfrmSumRemainder.Create(Self, edtSumRemainder.Handle, edtSumRemainder.Text) do begin try Showmodal; finally Free; end; end; end; procedure TfrmSSPanda.sbSumTailsClick(Sender: TObject); begin With TfrmSumTails.Create(Self, edtSumTails.Handle, edtSumTails.Text) do begin try Showmodal; finally Free; end; end; end; procedure TfrmSSPanda.sbTailsFixedClick(Sender: TObject); begin With TfrmFixedTails.Create(Self, edtTailsFixed.Handle, edtTailsFixed.Text) do begin try Showmodal; finally Free; end; end; end; procedure TfrmSSPanda.sbTailsMatchClick(Sender: TObject); begin With TfrmTailsMatch.Create(Self, edtTailsMatch.Handle, edtTailsMatch.Text) do begin try Showmodal; finally Free; end; end; end; procedure TfrmSSPanda.sbRed1Click(Sender: TObject); var strFile: string; i, intDenominator, intNumerator1, intNumerator2, intCount: Cardinal; begin intDenominator := 1; //分母 intNumerator1 := 1; //分子 求可能注数 intNumerator2 := 1; intCount := 0; if Sender is TSpeedButton then begin with TSpeedButton(Sender) do begin if GroupIndex = 1 then begin if tag = 0 then begin strFile := 'h-'+Copy(Name,6,Length(Name)-5); tag := StrToInt(Copy(Name,6,Length(Name)-5)); end else begin strFile := 'hui-'+Copy(Name,6,Length(Name)-5); tag := 0; end; end else if GroupIndex = 2 then begin if tag = 0 then begin strFile := 'l-'+Copy(Name,7,Length(Name)-6); tag := StrToInt(Copy(Name,7,Length(Name)-6)); end else begin strFile := 'hui-'+Copy(Name,7,Length(Name)-6); tag := 0; end; end; Glyph.LoadFromResourceName(Hinstance,strFile); //调入图片 end; //with //统计选择的球个数及可能的注数 intRed := 0; intBlue := 0; for I := 0 to pnlStandard.ControlCount - 1 do begin if pnlStandard.Controls[i] is TSpeedButton then begin if TSpeedButton(pnlStandard.Controls[i]).Tag > 0 then begin if TSpeedButton(pnlStandard.Controls[i]).GroupIndex = 1 then inc(intRed) else if TSpeedButton(pnlStandard.Controls[i]).GroupIndex = 2 then inc(intBlue); end; end; end;//if speedbutton if intRed >=6 then begin if intRed < 13 then begin for I := 1 to intRed do intDenominator := intDenominator * i; for I := 1 to 6 do intNumerator1 := intNumerator1 * i; for I := 1 to (intRed-6) do intNumerator2 := intNumerator2 * i; //可能注数 if intBlue = 0 then intCount := (intDenominator div (intNumerator1*intNumerator2))//未选蓝球是设为1 else intCount := ((intDenominator*intBlue) div (intNumerator1*intNumerator2)); end //考虑到大数阶乘比较麻烦，暂时采用直接赋值 else begin case intRed of 13: intCount := 1716; 14: intCount := 3003; 15: intCount := 5005; 16: intCount := 8008; 17: intCount := 12376; 18: intCount := 18564; 19: intCount := 27132; 20: intCount := 38760; 21: intCount := 54264; 22: intCount := 74613; 23: intCount := 100947; 24: intCount := 134596; 25: intCount := 177100; 26: intCount := 230230; 27: intCount := 296010; 28: intCount := 376740; 29: intCount := 475020; 30: intCount := 593775; 31: intCount := 736281; 32: intCount := 906192; 33: intCount := 1107568; end; if intBlue>1 then intCount := intcount * intBlue; end; end; stsSSPanda.Panels[1].Text := '您选择了 '+IntTostr(intRed)+' 个红球，'+InttoStr(intBlue)+' 个蓝球；共 '+InttoStr(intCount)+' 注'; end; //if end; procedure TfrmSSPanda.sbRed1MouseEnter(Sender: TObject); begin TSpeedButton(Sender).Cursor := crHandPoint; end; procedure TfrmSSPanda.sbRed1MouseLeave(Sender: TObject); begin TSpeedButton(Sender).Cursor := crDefault; end; procedure TfrmSSPanda.sbtnAddClick(Sender: TObject); var r: TRect; begin lbTails.Items.Add(''); lbTails.ItemIndex := lbTails.Count - 1; r := lbTails.ItemRect(lbTails.Count - 1); edtTails.SetBounds(r.Left+3, r.Top+2, r.Right-r.Left, r.Bottom-r.Top+2); edtTails.Clear; edtTails.Show; edtTails.SetFocus; end; procedure TfrmSSPanda.sbtnClearClick(Sender: TObject); begin lbTails.Clear; end; procedure TfrmSSPanda.sbtnDelClick(Sender: TObject); begin if lbTails.ItemIndex = -1 then Exit; lbTails.Items.Delete(lbTails.ItemIndex); end; procedure TfrmSSPanda.sbtnInputClick(Sender: TObject); var f: TextFile; s: string; begin odOpen.DefaultExt := 'txt'; odOpen.Filter := '*.txt'; odOpen.FileName := '尾号投注'; if odOpen.Execute then begin if not FileExists(odOpen.FileName) then Exit; AssignFile(f, odOpen.FileName); reset(f); try while not Eof(f) do begin Readln(f, s); if s <> '[双色熊猫尾号投注]' then begin ShowMessage('格式错误！'); Exit; end; Readln(f, s); lbTails.Items.Add(s); end; finally CloseFile(f); end; end; end; //显示上一页 procedure TfrmSSPanda.sbtnLastClick(Sender: TObject); var x, i, intRec: integer; begin if curPage > 1 then curPage := curpage - 1; sbtnNext.Enabled := curPage < PageCount; sbtnLast.Enabled := curPage > 1; if curPage = pageCount then intRec := strList.Count else intRec := Pagesize*curPage; //显示上一页 with sgResult do begin x := 1; for i := (curPage-1)*PageSize + 1 to intRec do begin RowCount := x + 1; cells[0,x] := inttostr(i); cells[1,x] := strList.Strings[i-1]; inc(x); end; end; //更新页码 edtPage.Text := Inttostr(curPage); end; procedure TfrmSSPanda.sbtnLastMouseEnter(Sender: TObject); begin Screen.cursor := crHandPoint; end; procedure TfrmSSPanda.sbtnLastMouseLeave(Sender: TObject); begin Screen.cursor := crDefault; end; procedure TfrmSSPanda.sbtnNextClick(Sender: TObject); var x, i, intRec: integer; begin if curPage < Pagecount then curPage := curpage + 1; sbtnNext.Enabled := curPage < PageCount; sbtnLast.Enabled := curPage > 1; //显示下一页 if curPage = pageCount then intRec := strList.Count else intRec := Pagesize*curPage; with sgResult do begin x := 1; for i := (curPage-1)*PageSize + 1 to intRec do begin RowCount := x + 1; cells[0,x] := inttostr(i); cells[1,x] := strList.Strings[i-1]; inc(x); end; end; //更新页码 edtPage.Text := Inttostr(curPage); end; procedure TfrmSSPanda.sbtnSaveClick(Sender: TObject); var listTmp: TStrings; begin sdSave.Filter := '投注文件(*.txt)|*.txt'; sdSave.DefaultExt := 'txt'; sdSave.FileName := '尾号投注'; if sdSave.Execute then begin listTmp := TStringList.Create; try listTmp.Add('[双色熊猫尾号投注]'); listTmp.AddStrings(lbTails.Items); listTmp.SaveToFile(sdSave.FileName); finally listTmp.Free; end; ShowMessage('保存成功！'); end; end; procedure TfrmSSPanda.sgResultMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var Acol, Arow: integer; begin if Button = mbRight then begin TStringGrid(Sender).MouseToCell(x, y, Acol, Arow); if Arow = 0 then Exit; TStringGrid(Sender).Row := Arow; TStringGrid(Sender).Col := 1; end; end; end.
主单元窗体文件：uSsqPanda.dfm
View Code
object frmSSPanda: TfrmSSPanda Left = 0 Top = 0 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = #21452#33394#29066#29483#24425#25237#23453'V1.0' ClientHeight = 655 ClientWidth = 893 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Icon.Data = { 0000010001001E1E200000000000B00E000016000000280000001E0000003C00 00000100200000000000100E000000000000000000000000000000000000FFFF FF00FFFFFF00F5F4F500807B7F00423F41004644470046454700454546004544 46004342440044424600A9A4A900FDFCFD00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FEFDFE00ADA7AC003F3D3F00434244004644470046444700464447004444 4500413F41007C767C00F4F2F400FFFFFF00FFFFFF00FFFFFF00FFFFFF00C5C1 C500000000000000000000000000000000000000000000000000000000000000 00001A181A00F3F0F200FFFFFF00FDFCFD00FDFDFD00FFFFFF00F3F0F3001817 1800272729000202020000000000000000000000000000000000000000000000 0000CDC7CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F9F7F900565456000000 0000000000000000000000000000000000000000000000000000030304006E68 6E007A747A0059555B00535154006D676E00655E66000B0A0C00373839000303 03000000000000000000000000000000000000000000524F5200FAF8F900FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A49EA20000000000000000000000 0000000000000000000006050700373238006C646C008D858C00A8A2A800BCB2 BE00BCB2BE00A9A1A6008B858A006B646C002D292C0003030300000000000000 000000000000000000000000000096909600FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FEFDFE00615C61000000000002020200000000000A090A005851 5700B5A9B300ECE1EC00FFFEFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFEFF00EEE7EC00B7ACB800585256000C0A0B00000000000000 000000000000534D5500FDFCFD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFC FD003F3B4000656265000F0F0F001C1A1D00A89FA900F9F0FA00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FDF9FC00ACA4AA00171516000000000000000000352F 3600FAF9FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FEFEFE006F6B70001415 15001F1D1F00BCB2BA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00B4ADB300090909000000000066606600FEFDFE00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00DCD9DC0002020300928A8F00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF006C696C0000000000D9D5DA00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FDFCFD00776F7800E8E5E700F3F4F300C6C6C600BCBC BC00D4D4D400F7F7F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00F1F1F100D3D3D300CBCBCB00E6E6E600FFFFFF00C2C1 C20048424A00FCFBFC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FCFCFC009D969D009C9A9C00181717000101010000000000060606002525 250067676700C1C1C100DEDEDE00CACACA00CBCBCC00D7D7D700ABABAB005454 54001919190005050500030303000B0B0B006F6F6F00DBDBDA005E585F00FDFC FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFD009791 97001C1C1C000000000000000000000000000000000000000000000000000000 00003D3D3D00CCCACC00BAB9BA002B2B2B000000000000000000000000000000 0000000000000000000008080800898A89007E787E00FEFEFE00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BCB7B9002D2E2E000000 00000000000000000000000000000000000080798200B7B4B700444144002323 24001A1A1A000000000000000000000000000000000000000000000000000000 00001717170065656600B2ACB000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00B4B0B4005957580032313200000000000000 0000000000000000000024222400858485006A656A0000000000000000001716 17003C3A3D002522250000000000000000000000000005060500656166003534 3700B5AFB400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00F0EDF000736E7300EEECED00F8F8F8007F7F7F000F0F0F00000000000000 0000000000000000000000000000000E10000000020087777D00E2DDE2007871 780000000000000000002E2D2E00BDBDBD00FFFFFF00ACA5A9003D373E00F2F0 F200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFEFF0098939800D7D7 D700FFFFFF00CFCFCE0078787800242424000000000000000000000000000631 3200467072002DB9C00034686E001B56580007080A0001000000000000000101 01003E3E3E0088898900DEDEDE00FFFFFF008D888C007E787E00FFFEFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00EBE8EB008F8D8F00FFFFFF00959589001919 0E00050500001110050016150A00161408001A11070017AAAA003F9A96003FE3 E50072C5C90023D3D900001C1F00081111000A15170009151700020C0E000004 05001C282900B2BCBC00FAF8FA0045414600E9E5E900FFFFFF00FFFFFF00FFFF FF00FFFFFF00C7C1C700CBCBC600D2D1FD006C69CB007673CF007B78D5007B78 D4007B78D4007B76D4007C7CD40034DCF3004D8FDA0036DBED00A788880040DF E200B0858600D8777500D37A7800D37A7900D47A7900D4797700CC706F00D073 7000FFF0EF007F828400B5AFB400FFFFFF00FFFFFF00FFFFFF00FFFFFF00AAA4 A900F1F1E4009B9BFD002C2DF9003C3CFA003B3BFA003C3CFA003C3CFA003C39 FA003E49FA0023D5FC00345AFC0031D0EA00E550440053CECE00CE5C5700FF3A 3000FA3F3500FA3F3500FA3F3500FA3E3400FA3F3500F8372C00FFC8C500A4AD AE00958F9700FFFFFF00FFFFFF00FFFFFF00FFFFFF00ABA5AB00F1F1E900D3D3 FF004141F3003C3CF3004847F3004141F4004242F400423DF4004565F5001FCE FB003551F70030DCEF00E05F55005DC5C300B76E6B00FC3F3500F4453C00F445 3C00F5453C00F34A4200F33B3100F45A5100FFF5F300ADB1B200918B9200FFFF FF00FFFFFF00FFFFFF00FFFFFF00BBB6BB00E0E1E000FFFFFF00C4C4FB006362 F2007A78EB003A3AF2003737F400372EF3003F7BF60028C4FA006A81F60032F8 FF00E4D7D50065DDDC00A5747000FD312700F43B3200F4382F00EF453D00EC7A 7600F46F6800FCDDDB00FFFFFF009C9B9D00A9A3A900FFFFFF00FFFFFF00FFFF FF00FFFFFF00DDDBDC00BDBDBD00FFFFFF00FFFFFF00F1F1FE00BEBEF9009494 F7008686F6009185F70062C3FB0054F4FD00E1F9FE0036F9FE00F0FEFF006BFF FF0089C8CC00FF989200F6898300F7898400F89C9800FACAC800FEF9F800FFFF FF00FFFFFF007C7B7D00D2CDD100FFFFFF00FFFFFF00FFFFFF00FFFFFF00F8F6 F70096939600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF0081FEFF0069F9FE00E5FFFF0036F9FF00F8FDFF007BFEFF0078FAFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F1F2F100534F 5400F4F2F400FFFFFF00FFFFFF00FFFFFF00FFFFFF00F4F2F40035323500D2D2 D200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0061FDFF0086F9 FE00E0FFFF003CF8FF00FEFDFF0088FEFF0068FAFE00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF009A9B9A000B080C00ECE9EC00FFFF FF00FFFFFF00FFFFFF00FFFFFF00B8B3B600000000004A4B4A00F8F8F800FFFF FF00FFFFFF00FFFFFF00FFFFFF00FAFBFF0037B7FF00A3E1FE00D9FFFF0043FB FF00FFFFFF0078ADFE005291FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00D2D2D2001B1B1B0000000000A19B9F00FFFFFF00FFFFFF00FFFF FF00FFFFFF0068626500070509000000000054545400F4F4F400FFFFFF00FFFF FF00FFFFFF00E4E9FF00151CFD00CACCFE00B3D5FF00348AFD00FFFFFF009393 FD007479FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D5D5D5002425 240000000000060507004D484D00FFFFFF00FFFFFF00FFFFFF00FFFFFF007772 7600928A9300231C2600000000003A3A3A00D4D4D400FFFFFF00FFFFFF00F9FB FF00D6DCFE00FFFFFF00A4A9FC005A59FD00FEFEFF00FFFFFF00FEFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00ABABAB001919190000000000403742007974 7A0058525800FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C2C600C1C0C1009B94 A2000F091100000000001111110076767700D1D1D100FBFBFA00FFFFFF00FFFF FF00FEFFFF00FDFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFD00C4C4 C4005050500001010100000000001E162000C0B9C40090909100B4AEB500FFFF FF00FFFFFF00FFFFFF00FFFFFF00FCFCFC00A09D9F00D4D3D600978C9900110C 1300000000002A272B009E989E00A39FA400A3A2A400C0C0C000DDDCDB00E8E8 E600F2F3F200FFFFFF00FDFDFD00AFAFAF0080808200918C910029282A000000 0000211A2300B4A8B600BFBEC0007F7A8000FAF9FB00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FAF9FA00BEBBBD007C787A00504B4F009C989C00F4F2 F400FFFFFF00FDFDFD00F1EEF100DDD8DD00CDC5CA00B7B0B7007D7C7D008F8F 8E00D6D8D60022212200C6C1C600FFFFFF00F5F4F500A19DA10058535A007A77 7A00B4AFB300F9F8F900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FDFDFD00FDFDFD00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F1F0F100726F7200858086006E6B 6F00DBD9DB00FFFFFF00FFFFFF00FFFFFF00FDFCFD00FDFCFC00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00C007800CC004800CC000000CE000001CC00F C00CC07FF80CC1FFFE0CE3FFFF1CE01FE11CE000001CE000001CF000003CF000 003CE000011CC400008CC800000CC000000CC000000CC000000CC800004CCC00 00CCCFE03F8CC7E03F8CC3C13F0CC1C13E0CC0C8BC0CC019E00CC000800CE040 081CF9FE0E7C} Menu = mnuPanda OldCreateOrder = False Position = poDesktopCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object lblLottery: TLabel Left = 8 Top = 87 Width = 4 Height = 16 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object lblIssue: TLabel Left = 114 Top = 86 Width = 4 Height = 16 Color = clBlue Font.Charset = DEFAULT_CHARSET Font.Color = clActiveCaption Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False end object lblBlue: TLabel Left = 249 Top = 86 Width = 4 Height = 16 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lblAdd: TLabel Left = 235 Top = 86 Width = 8 Height = 16 Caption = '+' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object pnlBall: TPanel Left = 0 Top = 105 Width = 280 Height = 517 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object pgcStandard: TPageControl Left = 1 Top = 5 Width = 279 Height = 470 ActivePage = tsTailsBetting Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 object tsStandard: TTabSheet BorderWidth = 1 Caption = #26631#20934#36873#21495 ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object pnlStandard: TPanel Left = -7 Top = -9 Width = 277 Height = 447 Align = alCustom Color = clMoneyGreen ParentBackground = False TabOrder = 0 object sbRed23: TSpeedButton Left = 188 Top = 159 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '23' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed24: TSpeedButton Left = 232 Top = 159 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '24' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed25: TSpeedButton Left = 14 Top = 199 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '25' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed29: TSpeedButton Left = 188 Top = 199 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '29' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed30: TSpeedButton Left = 232 Top = 199 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '30' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed31: TSpeedButton Left = 14 Top = 239 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '31' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed26: TSpeedButton Left = 57 Top = 199 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '26' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed27: TSpeedButton Left = 101 Top = 199 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '27' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed28: TSpeedButton Left = 144 Top = 199 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '28' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed8: TSpeedButton Left = 57 Top = 79 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '08' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed7: TSpeedButton Left = 14 Top = 79 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Glyph.Data = { 5A130000424D5A13000000000000360000002800000023000000230000000100 20000000000024130000120B0000120B00000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00EDECFE00CCC8FB00B1ACF9009E97F7009089F6008B84F6008982 F6008A82F6008B83F600958EF700A69FF800C1BDFA00E6E4FD00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00E6E4FD00BCB8F900A19BF7009992F600948DF5008E87 F5008A81F500867EF500837AF500827AF500827AF500837AF500857CF500847C F500867EF500A49EF800D8D5FC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00F5F4FE00C8C4FA00AFA9F600A9A3F600A19B F6009B95F600958FF6009089F5008C84F5008880F500847CF500827AF500827A F500827AF500827AF500827AF500837AF500857CF500837BF500A49EF800E9E8 FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E6E4FD00C1BFF800B8B4 F700B1ACF700AAA5F600A49EF6009E98F6009892F600938CF5008E87F5008A82 F500877EF500837BF500827AF500827AF500827AF500827AF500827AF500827A F500837AF500857DF5008D85F600CDC9FB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E3E1 FC00C6C3F800C1BFF700BAB6F700B3AFF700AEA9F600A8A2F600A29BF6009C95 F600968FF6009189F5008D84F5008880F500857DF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500847CF500837CF500BEBA FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E5E3FC00CECDF800C9C7F800C2C0F800BDBAF700B7B3F700B1AC F700ABA6F600A59FF6009F99F6009993F600938DF5008E88F5008B83F500877E F500847BF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500827AF500847BF500847CF500BEBAFA00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00EDECFD00D5D4F800D1D0F800CBC9F800C6C3 F800C1BDF800BBB7F700B4B0F700AFAAF600A8A3F600A39CF6009D96F6009790 F600918AF5008D85F5008981F500857DF500827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500847BF500837CF500CECB FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FAFAFE00DBD9F900D9D8 F800D3D2F800CECCF800C9C7F800C3C1F800BEBBF700B8B4F700B2ADF700ACA7 F600A6A0F600A09AF6009A94F600948EF6008F88F5008C84F500887FF500847C F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500827AF500847CF5008C84F600ECEBFE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00E1E0FB00DEDFF800D8D8F800D5D4F800D1CFF800CCCAF800C7C4F800C2BE F800BCB8F700B5B1F700B0ABF600A9A4F600A39DF6009D97F6009891F600928B F5008D86F5008A81F500867EF500837AF500827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500857DF500A59FF800FFFF FF00FFFFFF00FFFFFF00F5F4FE00DDDDF800DEDEF800DBDAF800D7D7F800D3D2 F800CFCDF800CAC7F800C4C1F800BFBCF700A29FD8008683BA009893D700A7A1 F600A19AF6009B95F600958FF6009089F5008C84F5008880F500847CF500827A F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500837AF500837BF500DDDAFC00FFFFFF00FFFFFF00E1E0FB00E0E0F900DDDD F800DCDCF800D9D9F800D5D5F800D2D0F800CDCBF800BBB9E900323140000202 020002020200020202002C2B3F009A94E7009E98F6009892F600938CF5008E87 F5008A82F5002C294E0002020200726BD700827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500857DF500A49EF800FFFFFF00FAFA FE00DCDCF900DEDEF800DDDDF800DDDDF800DBDBF800D7D7F800D3D3F800D0CE F80041404F00020202004A485E008C89BA005B597D00020202002C2A3F00A29B F6009C95F600968FF6009189F5008D84F50056519A00020202004A458A00827A F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500847B F500867EF500EBEAFE00ECEBFD00DEDEF800DEDEF800DDDDF800DDDDF800DDDD F800DADAF800D6D6F800ACAACA000202020034334000C2C0F800BDBAF700B7B3 F7002E2D3F00020202008681C8009F99F6009993F600938DF5008E88F500827B E600020202001A193000827AF5008279F5008279F5008279F5008279F5008279 F5008279F5008279F5008279F500847BF500C4BFFA00E2E1FB00DEDEF800DBDB F800DBDBF800DBDBF800DBDBF800D9D9F800D6D6F8005E5D6E00020202007D7D 9B00C3C1F800BEBAF700B8B4F7006F6D9B00020202004A476D009F98F6009892 F600928CF5008D86F5008980F5002B284E0002020200756DE6007D74F5007D74 F5007D74F5007D74F5007D73F5007C73F5007C73F5007C73F4007E75F500A59E F800DBD9FA00D5D5F800D4D4F800D4D3F800D4D3F800D3D3F800D3D3F800D1CF F80035344000020202009F9DCA00BFBBF800B9B5F700B2AEF7008D89C8000202 02002A283F009992F600938CF5008D86F5008880F500837AF50048428A000202 02004A459900756AF400746AF400746AF400746AF4007469F4007369F4007369 F4007369F4007469F4008C84F600CFCEF900CCCAF800CBC9F800CBC8F800CBC8 F800CAC8F800CAC8F800C8C6F8000202020002020200BDB9F700B7B3F700B1AD F700ACA7F600A6A0F6000202020002020200928BF5008D84F500867DF5008077 F5007C71F500675FD6000202020024204E006B60F4006B5FF4006A5FF3006A5F F400695FF300695EF300695EF300685EF300685EF400756BF400C5C1F900C0BD F800C0BDF700C0BCF700BFBBF700BFBBF700BFBBF700BEBAF700020202000202 0200B3AFF700AFAAF600AAA3F600A39DF6009D97F60002020200020202008A82 F500837BF5007D74F500786EF4007268F4006C62F30015132F00020202006055 F3005E52F3005D52F3005D51F3005C51F3005C51F3005C51F3005B50F3005B50 F3006459F400B8B3F700B3AFF700B3AFF700B3AEF700B2AEF700B2ADF700B2AD F700B1ADF7000202020002020200AAA3F600A59FF6009F99F6009993F600938C F50002020200020202008078F5007B71F500756AF4006E63F400695EF3006358 F300352F8900020202003A32A7005145F3005044F3004F43F3004F43F3004F43 F3004E42F3004E42F3004E42F300574CF400ADA8F700A7A0F600A6A0F600A6A0 F600A6A0F600A59FF600A59FF600A49EF6000C0C1100020202009E97F6009993 F600958DF6008F87F5008A81F500020202000A091100786DF4007166F4006B60 F4006559F3005E53F300584CF3004439C600020202001D185C004638F2004335 F2004335F2004235F2004234F2004233F2004133F2004133F2004C3EF300A9A4 F8009993F6009992F6009992F6009892F6009791F6009791F6009790F6002726 3F00020202006F69B8008F88F5008B82F500857DF500605AB800020202001F1C 3F006E63F400685DF3006156F3005A4FF3005448F3004E42F300483BF3000A09 20000A0820003B2CF1003729F1003627F1003627F1003626F1003526F1003526 F1003525F1004A3CF300AEA9F8008D86F5008D85F5008D85F5008D84F5008C84 F5008B84F5008B83F5004F4A8A00020202004E498A00857DF5008178F5007C73 F500443E8A000202020037327B00665BF3006054F300594DF3005246F3004C3F F3004739F2004032F1001B146B0002020200291CC4002E1FF1002B1CF1002A1C F1002A1BF1002A1BF1002A1AF100291AF1005B4EF400BFBAFA008279F5008279 F5008178F5008178F5008178F5008178F5008078F5007068D700020202001211 2000746DE5007A6FF400746BF400100F200002020200594FD5005E54F300584D F3005246F3004B3FF3004638F2003F31F100392BF1002B1EC40002020200140D 6B002616F1002313F1002111F1002110F1002110F1002110F1002010F1007C72 F700DCD9FC00796FF400796FF400786FF400786EF400786EF400786EF400776E F400776EF40035316C0002020200181630003A357B001D1B3F00020202002D29 6C006054F300594EF3005347F30015123E0013103E00120E3E00100D3E000F0B 3E000D0A3E00020202000B073E002111F1001D0CF0001A09F0001A09F0001A09 F0001908F0001A08F000AEA8FA00FAF9FF00897FF6007469F4007469F4007469 F4007469F400746AF400746AF4007469F4007469F4003B367B00100F20000202 0200100E200037327B00675CF3006156F3005C50F300564AF30016133E001411 3E00130F3E00110E3E00100C3E000E0B3E000D093E00130D6B002515F1002111 F0001E0EF1001C0BF0001C0CF1001D0CF1002F1FF200EAE9FE00FFFFFF00BEBA FA007A6FF4007A70F4007A70F4007A70F4007A70F4007B71F4007B71F4007B71 F4007B71F4007C71F5007B71F500786EF400746AF4007066F4006B61F400675C F3006257F3005B50F300564AF3005043F3004A3DF3004537F2003E31F100392B F1003526F1003021F1002C1DF1002919F1002517F1002516F1002616F1008077 F700FFFFFF00FFFFFF00F2F1FE008C84F600837BF500837AF500837BF500837B F500837BF500847BF500847CF500847CF500857CF500857DF500847AF5008077 F5007C73F500796FF4007469F4006E64F4006A5FF3006459F3005E52F300584C F3005246F3004C3FF300473AF2004134F2003D2EF200382AF1003526F1003223 F1003022F100382BF200DCDAFD00FFFFFF00FFFFFF00FFFFFF00C9C5FA008E87 F5008E86F5008E87F5008E87F5008E87F5008F88F5008F88F5008F89F5009089 F5009089F5009089F5008E86F5008B83F500877EF5008279F5007D74F500796E F4007368F4006D63F400685DF3006257F3005C51F300564AF3005145F3004B3F F300473AF3004436F2004032F2003E31F1009088F700FFFFFF00FFFFFF00FFFF FF00FFFFFF00FCFCFF00AFAAF7009C95F6009B94F6009B94F6009B95F6009C95 F6009C96F6009C96F6009C96F6009D97F6009D97F6009C95F6009993F600958F F600918BF6008D85F5008880F500827AF5007D74F500776DF4007267F4006C61 F400675CF3006155F3005B50F300564AF3005246F3004F43F300675CF500F2F1 FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EDECFD00AEA9F700A9A4 F600A8A3F600A9A3F600A9A4F600A9A4F600AAA4F600AAA5F600AAA5F600ABA5 F600ABA6F600A9A3F600A69FF600A19BF6009D97F6009891F600938CF5008D86 F5008880F5008279F5007C73F500776DF4007167F4006C61F400675CF3006458 F300665BF400D5D2FC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E7E6FD00B9B4F800B6B2F700B5B2F700B5B2F700B6B2F700B6B3 F700B6B3F700B7B3F700B7B4F700B7B4F700B7B3F700B4B0F700B1ACF700ADA7 F600A8A3F600A39DF6009E97F6009891F600928BF5008D85F500877EF5008178 F5007C72F500786EF400766CF400C9C5FB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E9E8FD00C6C2F800C3C1 F800C2BFF800C2C0F800C2C0F800C2C0F800C3C0F800C3C1F800C3C1F800C4C1 F800C2BFF800C0BCF800BCB8F700B7B3F700B2ADF700ADA8F700A8A2F600A29C F6009C96F600968FF6009089F5008D85F5008B84F600CFCCFB00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00F1F0FD00D3D1FA00CFCDF800CECDF800CECCF800CECCF800CECC F800CECDF800CECDF800CFCDF800CECCF800CBCAF800C8C6F800C4C2F800C0BC F800BBB7F700B5B1F700B0ABF700AAA5F600A5A0F600A19AF600A7A2F700E0DE FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFF00E2E1FC00D7D6 F900D8D8F800D8D8F800D7D7F800D7D7F800D7D7F800D8D7F800D8D8F800D6D5 F800D3D2F800CFCEF800CBC9F800C6C3F800C2BFF800BDB9F700B8B4F700B4AF F700C8C5FA00F8F7FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00F7F7FE00E4E4FC00DDDDF900DDDDF800DFDFF800DEDE F800DEDEF800DDDDF800DDDDF800DAD9F800D6D6F800D3D2F800D0CEF800C9C7 F800C7C4F800D3D0FA00F0EFFE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCFC FF00EFEEFD00E5E4FB00E0E0FA00DFDFF900DEDEF900DFDFF800DDDDF900DBDB F900DBD9FA00DEDCFB00E8E7FC00F9F9FE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed6: TSpeedButton Left = 232 Top = 40 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '06' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed11: TSpeedButton Left = 188 Top = 79 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Flat = True Glyph.Data = { 5A130000424D5A13000000000000360000002800000023000000230000000100 20000000000024130000120B0000120B00000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FCFCFC00F2F2F400E9E9EC00E3E4E500DFDFE000DCDDDE00D9DA DB00D8DADA00D9D9DB00DCDDDD00E2E2E300ECEDED00F9FAFA00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00F9F9FA00EBECEE00E3E3E600E0E1E200DFE0E100DDDE DE00DBDCDD00DADADB00D8D9D900D5D6D600D2D3D400D1D2D200CFD1D000CDCE CF00D0D1D100DDDDDF00F3F3F400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FCFCFD00EEEFF100E6E7E800E5E5E600E2E3 E400E1E1E200DFE0E100DDDEDF00DADCDD00D9D9DB00D7D7D900D4D5D600D2D3 D300D0D1D000CDCECF00CBCCCC00CACBCB00C9CBCA00C9CBCB00DCDDDE00F9F9 F900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F8F8FA00EBEBEE00E9E9 EA00E6E7E800E5E5E600E3E3E500E1E2E300E0E0E100DEDEDF00DADBDC00D8D9 D900D6D6D700D3D4D400D0D1D200CECFCE00CBCDCC00CACBCA00C8C9C900C6C7 C800C5C7C600C3C5C400CACBCC00EEEFEF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F5F5 F700EBEBEE00EBEBEC00E9E9EA00E7E7E900E5E5E700E3E4E500E2E2E400DFDF E100DCDDDF00DADBDB00D7D8D900D4D6D600D1D2D400CFD0D000CDCECE00CACB CB00C8C8CA00C6C7C600C4C5C500C2C4C300C0C2C200BEC1C000C0C2C100E5E6 E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00F5F5F700EDEDEF00ECEDEE00EBEBEC00E9E9EB00E8E8E900E6E6 E700E4E4E600E0E1E300DEDFE000DCDCDD00D9DADA00D6D7D700D3D3D500D0D1 D100CDCFCF00CBCBCD00C8C9C900C6C7C600C2C5C400C1C3C200C0C1C100BEBF BE00BCBEBD00BBBDBC00BABCBB00E4E5E600FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00F9F9FA00EDEDF000EEEEEF00ECECEE00EBEB ED00EAEAEB00E8E8EA00E6E6E700E3E3E500E0E1E100DDDEDF00DBDBDC00D7D8 D900D4D5D600D1D3D300CFD0D000CCCCCD00C9CACA00C6C7C700C3C4C500C1C2 C100BEC1C000BDBFBE00BBBDBC00B9BCBB00B8B9B800B6B8B600B7BAB700EDEE EE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFD00EFEFF100EFEF F100EEEEF000EDEDEF00EBEBED00EAEAEC00E7E7E800E4E5E700E2E2E400DFE0 E100DBDDDE00D9D9DB00D6D7D700D3D4D400D0D1D100CDCECE00CACBCB00C7C8 C800C4C5C400C1C3C200BFC0C000BCBDBD00BABDBC00B8BAB900B7B9B800B4B7 B600B3B5B400B2B3B200BABDBC00F8F9F900FFFFFF00FFFFFF00FFFFFF00FFFF FF00F2F2F500F0F0F100EFEFF100EEEEF000EDEDEF00EBEBED00E9E9EB00E6E7 E800E4E4E500E1E1E200DEDFDF00DADBDD00D7D9D900D4D6D600D2D3D400CECF CF00CBCCCC00C9C9C900C4C6C600C2C3C300BEC1C000BCBEBD00BABBBA00B8B9 B800B6B8B600B4B7B500B2B4B300B0B3B100AEB1AF00ADAFAD00D0D2D100FFFF FF00FFFFFF00FFFFFF00FAFAFC00EEEEF100EFEFF100EFEFF100EDEEF000EBEB EE00EAEAEC00E8E8EA00E5E5E700E2E3E400DFE0E200DCDDDE00D9DADB00D7D7 D800D3D3D400D0D0D100CCCECE00C9CACB00C6C7C700C3C4C400C0C2C100BCBE BE00BABCBB00B7B9B700B5B7B600B3B5B400B2B3B200B0B2B000AEAFAE00ACAE AC00ABADAB00ACAEAC00F0F0F100FFFFFF00FFFFFF00F1F1F400EFEFF100EEEE F100EEEEF000ECECEF00EAEBEC00E9E9EB00E6E7E800E4E3E500E1E1E300B8B9 BA00ABABAC00D8D9DA00D5D5D700D2D2D300CECFCF00CACCCC00C7C8C800C4C5 C500C0C2C200B5B6B5009B9B9B00A8A9A800B5B6B600B3B5B400B0B3B100AEB1 B000ADAFAD00ABAEAC00A9ACAB00A8AAA900A6A8A700C9CACA00FFFFFF00FDFD FE00EEEEF100EFEFF100EDECEF00ECECEF00EBEBED00E9E9EB00E7E8E900E4E5 E600E2E2E400DFDFE100939393007A7A7A00D6D7D700D3D4D400D0D1D100CCCD CE00C9CACA00C5C7C700C1C4C200BFC0BF00ABACAC007A7A7A0098999800B2B5 B200B0B2B000AEB1AE00ACAEAC00ABADAB00A9ACA900A7AAA700A6A8A600A3A6 A300AAACAA00F7F8F800F7F7F800EEEEF000EDEDEF00EBEBED00EBEBED00E9EA EB00E8E8E900E5E5E800E3E4E500E0E1E200DEDEDF00929293007A7A7A00D4D5 D600D1D2D300CECFCF00CACCCB00C6C8C800C3C5C400C0C2C100BCBFBE00A9AB AA007A7A7A0096989700B0B2B100AEB0AE00ABAEAC00AAACAA00A8ABA900A6A9 A700A5A8A500A3A6A400A1A4A1009FA29F00DFE0E000F1F1F400EDECEF00EBEB ED00E9EAEC00E9E9EB00E7E7E900E6E6E800E4E4E600E2E2E300DEDFE100DBDE DE00929292007A7A7A00D2D4D400CFD0D000CBCDCD00C8CAC900C5C6C600C1C3 C200BEC0BF00BBBCBB00A8A9A8007A7A7A0096979600AFB1AF00ABAEAC00A9AC AA00A8AAA800A5A8A600A5A7A500A3A5A300A1A4A1009FA29F009DA09D00C8C9 C900EEEEF100EBEBED00E9EAEB00E9E7EA00E7E7E800E5E5E700E4E5E600E3E3 E400E0E0E200DCDDDE00DADBDC00919292007A7A7A00D1D2D100CDCECF00C9CA CA00C6C8C700C3C5C400BFC2C100BCBDBC00B8BAB900A6A8A7007A7A7A009596 9500ACAEAC00A9ACA900A6AAA700A5A7A500A4A6A400A3A4A300A1A4A1009FA2 9F009DA09D009C9E9B00B5B7B600EBEBEE00E9E9EB00E7E7E900E6E7E800E5E5 E700E3E4E500E3E3E400E0E1E200DEDEE000DBDCDD00D7D8DA00919191007A7A 7A00CED0D000CBCCCC00C7C8C800C4C5C500C1C2C100BDBFBE00BABCBB00B6B9 B600A5A6A5007A7A7A0093959400A9ACAA00A7A9A800A5A8A500A3A6A300A1A4 A2009FA39F009EA19F009DA09D009B9E9B009A9C9A00A7AAA800E9E9EB00E7E7 E900E5E5E700E4E5E600E3E3E500E1E2E400E0E0E200DEDFE000DCDDDD00D8DA DA00D6D7D800909191007A7A7A00CCCDCE00C9CACA00C6C7C700C1C4C300BEC0 BF00BBBDBC00B7BAB800B4B6B500A3A5A3007A7A7A0093949300A8ABA900A5A8 A500A3A5A300A1A3A1009FA2A0009DA19E009D9F9D009B9E9B00999C9900989C 98009EA19F00E7E8E900E5E5E700E3E4E500E2E3E400E0E1E200DFE0E100DEDE DF00DBDDDE00D9DADB00D7D7D900D4D5D500909090007A7A7A00CACCCC00C6C9 C800C3C5C400C0C2C100BDBFBD00B9BBBA00B6B8B700B3B5B400A2A3A2007A7A 7A0092939200A7A9A600A3A5A300A1A4A1009EA29F009DA09D009C9E9C009B9E 9B00999C9900999C9900969A97009C9F9B00E5E6E700E3E3E500E1E2E400E0E0 E200DEDFE000DDDEDE00DBDCDC00DADADB00D7D8D800D5D6D600D1D2D2008F90 90007A7A7A00C8CAC900C5C7C600C2C4C300BEC0BF00BBBDBC00B7B9B700B4B6 B400B1B3B100A0A2A0007A7A7A0091929100A4A6A500A1A4A1009FA2A0009DA0 9D009B9F9B00999D9900999C9900989C9700979A9700959896009DA09D00E5E6 E600E1E1E200DFDFE000DEDEDF00DCDDDE00DADBDC00D8D9DA00D6D8D800D5D6 D700D2D3D300D0D0D1008F8F8F007A7A7A00C6C7C700C3C4C400C0C1C100BCBF BD00B8BABA00B5B7B600B3B4B300AEB2AF009FA19F007A7A7A0090919000A2A5 A200A0A3A1009DA09D009B9E9B00999C9900999C9900979A9700969996009598 950095989500A5A8A600E6E6E800DFDFE000DCDEDE00DADCDC00D9DADA00D8D8 D900D6D6D700D4D5D500D2D3D400D0D1D200CDCFCE008E8F8E007A7A7A00C4C6 C500C1C3C200BEBFBE00BBBCBB00B7B9B800B3B7B400B0B4B100ADB1AE009E9F 9F007A7A7A008F908F00A1A4A2009FA19F009C9F9C009A9C9A00999C9900979A 970095989600959895009598950096999600B4B7B500EAEAEC00DCDCDE00DADB DB00D8D9DA00D6D8D800D4D5D600D3D4D400D2D2D300BFC1C1008F8F8F008E8F 8F007F7F7F007A7A7A00C1C4C200BFC0C000BCBEBD00B9BBB900B6B8B600B2B5 B3009192920087878700838383007A7A7A008F908F00A0A2A0009DA19D009B9E 9B00989B9800979A97009699960096999600969A9600979A9700979C9700C6C8 C700F2F3F400D9DADA00D8D8D900D6D6D700D4D5D600D2D3D400D1D2D200CED0 D000C8C9C900B7B7B7009D9D9D007A7A7A007A7A7A00C0C2C100BDBFBD00BABC BB00B6B9B800B3B7B500B0B2B200A3A5A400989A9900828383007A7A7A008E8F 8E009FA2A0009DA09D009A9D9A00979A97009799970096999600979A9700989C 9900999C99009A9D9A00DFE0DF00FDFDFD00D9DBDB00D5D6D600D3D4D400D2D2 D300CFD1D100CECFCF00CCCECD00CACCCC00C9CACA00C6C8C700A3A4A4007A7A 7A00BEC0BF00BBBDBD00B8BBB900B5B7B600B2B4B200AFB1B000ACAFAD00A8AC AA00A3A6A3007F807F008E8F8E009DA19D009B9F9B00999C9900989B9800979B 9700979A9700989B99009A9E99009B9E9B00A5A8A600F8F8F800FFFFFF00E5E5 E600D2D4D400D0D2D200CED0D000CDCECE00CCCCCC00CACBCB00C8C9CA00C6C8 C700C4C5C500C2C3C3009D9E9D00BCBEBE00B9BBBA00B6B8B800B4B6B500B1B3 B200AEB0AE00ABADAB00A8ABA800A5A8A500999B9900969996009DA09D009C9E 9C009A9D9A00999C99009A9D9A009A9D9A009B9E9B009B9E9C009DA09D00C6C7 C600FFFFFF00FFFFFF00F8F8F900D2D3D400CECFCF00CCCDCD00CACCCC00C9CA CA00C7C8C800C5C7C700C4C5C500C2C4C300C0C2C200BDC0BF00BBBCBC00B8B9 B900B5B7B600B2B4B300AEB2B000ACAFAD00A9ADAA00A7A9A800A4A6A400A1A4 A2009FA29F009EA09E009DA09D009C9F9C009C9E9C009C9F9B009C9E9C009D9F 9D009DA19E00A4A5A400EFF0F000FFFFFF00FFFFFF00FFFFFF00E4E4E500CCCD CD00CACBCB00C8C9CA00C6C8C700C5C6C600C3C5C400C2C4C300C0C3C200BEBF BF00BCBEBD00B9BBBA00B7B9B700B4B6B400B0B3B100AEB1AE00ABAEAB00A9AC A900A6A9A600A3A6A300A1A4A200A0A2A0009FA2A0009FA29F009DA19E009EA0 9E009DA09E009DA19E009EA29E00A0A3A100CBCDCC00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FCFCFC00D2D4D400C7C9C800C5C7C700C4C6C500C2C4C300C1C3 C300BFC1C100BDBFBF00BCBEBD00BABBBB00B8BAB800B4B7B600B2B4B300B0B3 B000ADAFAE00AAADAA00A8AAA800A5A8A600A4A6A400A3A5A300A2A4A200A1A3 A100A0A4A100A0A3A0009FA4A1009FA39F00A0A3A000A1A4A200B2B4B200F9F9 F900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F4F5F500C9CACA00C3C5 C500C1C3C200C0C3C100BFC0C000BDBFBE00BCBDBD00BABCBA00B8BAB900B5B9 B600B3B6B400B1B4B200AFB1B000ACAFAD00A9ABAA00A7AAA800A6A8A600A5A9 A600A5A8A500A3A7A500A3A6A300A3A6A300A2A5A300A2A5A200A2A5A300A3A6 A300A8AAA800ECECEC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00EDEDED00C4C5C500BFC1C000BEBFBF00BDBEBD00BBBDBC00BABB BB00B8BBB900B7B9B700B5B6B600B2B4B200B0B2B000AEB0AE00ACAEAC00AAAC AA00A9ABA900A8ABA900A7AAA900A7AAA700A7A9A700A6A8A700A5A8A600A5A7 A500A5A8A600A5A8A600A9ABA900E1E2E100FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EDEDED00C3C5C400BCBD BD00BABDBB00B9BBBB00B7BBB900B7B8B700B5B8B500B4B5B500B2B3B200AFB1 B000AEB0AE00ADAEAD00ACAFAC00ACAEAC00AAADAB00ABACAA00AAABAA00A9AB A900A8ACA800A8AAA900A7AAA800A8ABA900AEB0AE00E2E3E200FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00F3F3F300C9CBCA00B8BBB900B7B9B800B7B8B700B5B7B600B4B6 B400B2B4B300B1B3B100AFB1B000AFB1AF00AFB1AF00AEB0B000ADB0AE00ADAF AD00ACB0AD00ACAFAD00ABAEAB00ABAEAC00ABADAC00ABADAB00BABCBB00EDED ED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCFCFC00DCDDDC00BBBD BD00B5B6B500B3B5B500B3B5B300B2B4B300B2B3B200B1B4B200B2B4B200B1B3 B200B1B2B100B0B2B000AFB2B000AFB1AF00AFB1B000AEB1AF00AEB1AF00B3B5 B400D3D4D400F9FAF900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00F5F6F500D8D8D800BDBFBE00B3B5B300B3B5B300B3B6 B400B4B6B500B4B6B400B3B6B300B2B5B300B3B5B300B2B4B300B2B4B300B1B4 B200BABDBB00D2D4D300F2F3F200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FBFB FB00EAEBEA00D9DBD900CCCCCC00C1C2C200BBBEBC00BABCBB00BBBCBB00C0C1 C000CACBCA00D7D8D700E8E8E800FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed10: TSpeedButton Left = 144 Top = 79 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Glyph.Data = { 5A130000424D5A13000000000000360000002800000023000000230000000100 20000000000024130000120B0000120B00000000000000000000CBCBED00FFFF FF00FFFFFF00FFFFFF00FAFAFD00FEFEFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00ECECEC00B5B5B50080808000575757003A3A3B0029292A002626 27002828290039393A00555556007C7C7D00B0B0B100EAEAEA00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFE00EBEBF800F2F2FA00F3F3 FB00CECEEE00CACAEC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00DADADA007B7B7C003232330019191B0019191A001919 1A0019191A001818190018181900181819001717180017171800171718001717 17002D2D2D0074747500D5D5D500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00DBDBF200C4C4EA00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00DEDEEA007F7F890029292B001A1A1C001A1A 1B001A1A1B001A1A1B0019191A0019191A0019191A0019191900181819001818 19001717180017171800171718001717180017171700242424007D7D7E00ECEC EC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D6D6F100F3F3 FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A4A4C6001D1D99001B1B 7D001B1B21001B1B1C001A1A1C001A1A1B001A1A1B001A1A1B0019191B001919 1A0019191A001818190018181900181819001717180017171800171718001717 18001717180016161B002A2A7000AFAFC500FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00D0D0EE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008585 B3001B1B9E001C1CA6001B1BA6001B1B77001B1B21001B1B1C001B1B1C001A1A 1B001A1A1B001A1A1B0019191B0019191A0019191A0018181900181819001818 180017171800171718001717180017171B00171771001717A600171792009090 AC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F5F5FC00FFFFFF00FFFFFF00FFFF FF00FFFFFF008787B4001B1BA0001C1CA6001C1CA6001C1CA6001C1CA6001B1B 78001B1B22001B1B1C001B1B1C001A1A1C001A1A1B001A1A1B0019191B001919 1A0019191A001818190018181900181818001717180017171C00171772001717 A6001717A6001717A600171792009292AC00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00B7B7CC001D1D9B001C1CA6001C1CA6001C1C A6001C1CA6001C1CA6001C1CA6001C1C77001B1B20001B1B1C001B1B1C001A1A 1C001A1A1B001A1A1B0019191B0019191A001919190018181900181819001818 1C00171774001717A6001717A6001717A6001717A6001616A60017179000B2B2 C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F2F2F20045454A001D1D 73001D1DA6001D1DA6001D1DA6001D1DA6001C1CA6001C1CA6001C1CA6001C1C 79001B1B22001B1B1C001B1B1C001A1A1C001A1A1B001A1A1B0019191A001919 1A001919190018181C00181873001818A6001717A6001717A6001717A6001717 A6001717A6001616A60029296D00EDEDED00FFFFFF00FFFFFF00FFFFFF00FFFF FF008B8B8B001D1D1F001D1D21001D1D71001D1DA6001D1DA6001D1DA6001D1D A6001C1CA6001C1CA6001C1CA6001C1C78001B1B23001B1B1C001B1B1C001A1A 1C001A1A1B001A1A1B0019191A0019191D00181874001818A6001818A6001818 A6001717A6001717A6001717A6001717A6001717710016161F007C7C7D00FFFF FF00FFFFFF00FFFFFF00E1E1E1002D2D2E001E1E1F001D1D1F001D1D21001D1D 71001D1DA6001D1DA6001D1DA6001D1DA6001C1CA6001C1CA6001C1CA6001C1C 79001B1B21001B1B1C001B1B1C001A1A1B001A1A1B0019191E00191975001919 A6001818A6001818A6001818A6001818A6001717A6001717A600171772001717 1B001616170020202100D8D8D800FFFFFF00FFFFFF00838383001E1E1F001E1E 1F001E1E1F001E1E1F001E1E21001D1D72001D1DA6001D1DA6001D1DA6001D1D A6001C1CA6001C1CA6001C1CA6001C1C78001B1B21001B1B1C001A1A1C001A1A 1E001A1A73002121A6003838A6003030A6001818A6001818A6001818A6001818 A6001717740017171C0017171800171717001616170072727300FFFFFF00F3F3 F300373738001E1E20001E1E1F001E1E1F001E1E1F001E1E1F001E1E21001E1E 71001D1DA6001D1DA6005959A6009696AC003A3AA6001C1CA6001C1CA6001B1B 7A001B1B21001B1B20001A1A74005F5FA6009494AB009494AB009494AB008484 A6003030A6001818A6001818720017171C001717180017171800171717001616 170029292A00ECECEC00BFBFBF001F1F20001F1F20001F1F20001E1E20001E1E 20001E1E20001E1E1F001E1E22001E1E73001E1EA6005959A6009696AC003B3B A6001C1CA6001C1CA6001C1CA6001C1C7B001B1B78005151A6009595AC007D7D A6003838A6004747A6008C8CA6008C8CA6002020780018181C00181818001717 180017171800171718001717170016161700B1B1B20089898A001F1F20001F1F 20001F1F20001F1F20001F1F20001F1F20001E1E20001E1E1F001E1E21001E1E 73005A5AA6009696AD003B3BA6001D1DA6001C1CA6001C1CA6001C1CA6001B1B A6008D8DA6008D8DA6002222A6001A1AA6001919A6005757A6009494AB004F4F 5B00181819001818190018181800171718001717180017171800171717007B7B 7C005F5F60001F1F21001F1F20001F1F20001F1F20001F1F20001F1F20001F1F 20001E1E20001E1E20001E1E21005A5A8E009696AD003B3BA6001D1DA6001D1D A6001C1CA6001C1CA6004242A6009595AC006767A6001A1AA6001A1AA6001919 A600282879009494AB007D7D8F00181819001818190018181900181818001717 1800171718001717180053535400404042001F1F21001F1F21001F1F21001F1F 20001F1F20001F1F20001F1F20001F1F20001E1E20001E1E20005A5A67009696 AD003C3CA6001D1DA6001D1DA6001D1DA6001C1CA6005959A6009595AC005151 A6001A1AA6001A1AA6001A1A730019191D008C8CA1009494AB00191919001818 1900181819001818190018181800171718001717180038383900303031002020 210020202100202021001F1F21001F1F21001F1F20001F1F20001F1F20001F1F 20001E1E20005A5A66009696AD003C3C80001D1DA6001D1DA6001D1DA6001C1C A6007777A6009595AC003939A6001B1BA6001A1A77001A1A1F001A1A1B007576 87009494AB0038383E0019191A0019191A001919190018181900181819001818 1900272728002C2C2D0020202100202021002020210020202100202021001F1F 21001F1F20001F1F20001F1F20001F1F20005A5A66009696AD003C3C82001E1E A6001D1DA6001D1DA6001C1DA6007777A6009595AC00393AA6001B1BA6001B1B 7A001B1B20001A1A1C00767688009595AB0039393F001A1A1B001A1A1B001919 1B0019191A0019191A0019191900252526003131320020202100202021002020 21002020210020202100202021001F1F21001F1F20001F1F20001F1F20005B5B 68009696AD003C3CA6001E1EA6001D1DA6001D1DA6001D1DA6007777A6009595 AC003A3AA6001C1CA6001B1BA6001B1B77001B1B2000767688009595AC003939 40001B1B1C001A1A1C001A1A1B001A1A1B0019191B0019191A002A2A2B004242 43002020210020202100202021002020210020202100202021001F1F21001F1F 21001F1F20001F1F23005B5B8F009696AD003C3CA6001E1EA6001E1EA6001D1D A6001D1DA6007070A6009696AC003A3AA6001C1CA6001C1CA6001C1CA6001C1C 7900777789009595AC00333338001B1B1D001B1B1C001B1B1C001B1B1C001A1A 1B001A1A1B003B3B3C0062626200202021002020210020202100202021002020 210020202100202021001F1F21001F1F23001F1F77005B5BA6009696AD003C3C A6001E1EA6001E1EA6001D1DA6001D1DA6005959A6009696AC005959A6001D1D A6001D1DA6001D1DA6001D1DA6009696AC009595AC001C1C1D001C1C1D001C1C 1D001C1C1D001B1B1C001B1B1C001B1B1C00575758008C8C8C00202022002020 210020202100202021002020210020202100202021001F1F24003D3D83003D3D A6006A6AA6009696AD003C3CA6001E1EA6001E1EA6001E1EA6001E1E75003535 7D009696AD007070A6001E1EA6001E1EA6001E1EA6003434A6009696AC007777 9D001D1D23001D1D1E001C1D1E001C1C1D001C1C1D001C1C1D001B1B1D008080 8100C2C2C2002020220020202200202022002020210020202100202021002020 2400202075007979A6008E8EA6009696AD009696AD003D3DA6001F1FA6001F1F A6001F1F77001F1F24001F1F23008787A2009696AD003636A6001E1EA6001E1E A6006969A6009696AD004B4BA6001E1E7A001D1D23001D1D1E001D1D1E001D1D 1E001C1C1E001C1C1D00B7B7B700F5F5F5003C3C3E0021212200202022002020 22002020210020202500202075002020A6002020A6001F1FA6006A6AA6009696 AD003D3DA6001F1FA6001F1F75001F1F25001F1F21001F1F210045454E009696 AD008E8EA6005B5BA6006A6AA6009696AD008080A6001F1FA6001E1EA6001E1E 78001E1E23001E1E1F001D1D1F001D1D1E0032323300EFEFEF00FFFFFF008888 890021212200202022002020220020202600202078002020A6002020A6002020 A6002020A6002020A6008888A6003E3EA6002020770020202400202021002020 2100202021002020210045454F0080809F009797AD008F8FA6006A6AA6002727 A6001F1FA6001F1FA6001F1FA6001F1F79001E1E24001E1E1F001E1E1F007B7B 7C00FFFFFF00FFFFFF00E5E5E500313132002020220020202400202076002020 A6002020A6002020A6002020A6002020A6002020A6002020A600202077002020 2500202022002020220020202200202022002020220020202200202023002020 73002020A6002020A6002020A6002020A6002020A6001F1FA6001F1FA6001F1F 79001F1F25002A2A2B00DDDDDD00FFFFFF00FFFFFF00FFFFFF00939393002020 2500202077002020A6002020A6002020A6002020A6002121A6002121A6002121 A600212175002121250021212200212122002121220021212200212122002121 2200212122002121220021212500212175002121A6002020A6002020A6002020 A6002020A6002020A6001F1FA6001F1F780083838A00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E9E9F1002B2B88002121A6002020A6002121A6002121A6002121 A6002121A6002121A60021217600212126002222230022222300222223002222 2300222223002222230022222300212123002121230021212300212124002121 73002121A6002121A6002121A6002020A6002020A6002020A6001B1BA6008484 CF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E6E6F6001B1BAA001E1EA6002121 A6002121A6002121A6002121A6002222A6002222780022222700222223002222 2300222223002222230022222300222223002222230022222300222223002222 2300222223002222230022222600212173002121A6002121A6002121A6002121 A6001E1FA6002C2CAE00E1E1F500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00C2C2E9001717A8001F1FA6002121A6002222A6002222A600222276002222 2700222224002222240022222400232324002323240023232400232324002323 2400232324002223240022222400222224002222230022222300222225002222 73002222A6002121A6002020A6002323A900D3D3EF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BCBCE7001919A8001F1FA6002222 A600222278002222270023232400232324002323240023232400232324002323 2400232324002323240023232400232324002323240023232400232324002323 2400222224002222240022222500222274002020A6002626A800D2D2EF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00C6C6EB002727AD002D2D8A00232327002323240023232400232325002323 2500232325002323250023232500232325002323250023232500232325002323 25002323250023232500232324002323240023232400232324004C4C53007777 BD00DCDCF300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EBEBF800EFEFF300949495003737 3800232325002323250023232500232325002323250023232500232425002424 2500242425002424250023232500232325002323250023232500232325003434 36008E8E8E00F2F2F200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00E3E3E3008B8B8C004141430024242500242425002424 2500242425002424250024242500242425002424260024242500242425002424 25003F3F400085858600DFDFDF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F3F3 F300C2C2C2008E8E900065656700464648003535370031313300343436004545 4700646465008D8D8E00BFBFC000F0F0F000FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FDFDFE00EDEDF900F2F2FA00F3F3FB00} OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed9: TSpeedButton Left = 101 Top = 79 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '09' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed5: TSpeedButton Left = 188 Top = 40 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '05' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object Label1: TLabel Left = 13 Top = 13 Width = 76 Height = 19 Caption = '['#36873#25321#32418#29699']' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object sbRed1: TSpeedButton Left = 14 Top = 40 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Flat = True Glyph.Data = { 5A130000424D5A13000000000000360000002800000023000000230000000100 20000000000024130000120B0000120B00000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00EDECFE00CCC8FB00B1ACF9009E97F7009089F6008B84F6008982 F6008A82F6008B83F600958EF700A69FF800C1BDFA00E6E4FD00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00E6E4FD00BCB8F900A19BF7009992F600948DF5008E87 F5008A81F500867EF500837AF500827AF500827AF500837AF500857CF500847C F500867EF500A49EF800D8D5FC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00F5F4FE00C8C4FA00AFA9F600A9A3F600A19B F6009B95F600958FF6009089F5008C84F5008880F500847CF500827AF500827A F500827AF500827AF500827AF500837AF500857CF500837BF500A49EF800E9E8 FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E6E4FD00C1BFF800B8B4 F700B1ACF700AAA5F600A49EF6009E98F6009892F600938CF5008E87F5008A82 F500877EF500837BF500827AF500827AF500827AF500827AF500827AF500827A F500837AF500857DF5008D85F600CDC9FB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E3E1 FC00C6C3F800C1BFF700BAB6F700B3AFF700AEA9F600A8A2F600A29BF6009C95 F600968FF6009189F5008D84F5008880F500857DF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500847CF500837CF500BEBA FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E5E3FC00CECDF800C9C7F800C2C0F800BDBAF700B7B3F700B1AC F700ABA6F600A59FF6009F99F6009993F600938DF5008E88F5008B83F500877E F500847BF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500827AF500847BF500847CF500BEBAFA00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00EDECFD00D5D4F800D1D0F800CBC9F800C6C3 F800C1BDF800BBB7F700B4B0F700AFAAF600A8A3F600A39CF6009D96F6009790 F600918AF5008D85F5008981F500857DF500827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500847BF500837CF500CECB FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FAFAFE00DBD9F900D9D8 F800D3D2F800CECCF800C9C7F800C3C1F800BEBBF700B8B4F700B2ADF700ACA7 F600A6A0F600A09AF6009A94F600948EF6008F88F5008C84F500887FF500847C F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500827AF500847CF5008C84F600ECEBFE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00E1E0FB00DEDFF800D8D8F800D5D4F800D1CFF800CCCAF800C7C4F800C2BE F800BCB8F700B5B1F700B0ABF600A9A4F600A39DF6009D97F6009891F600928B F5008D86F5008A81F500867EF500837AF500827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500857DF500A59FF800FFFF FF00FFFFFF00FFFFFF00F5F4FE00DDDDF800DEDEF800DBDAF800D7D7F800D3D2 F800CFCDF800CAC7F800C4C1F800BFBCF700AEAAE8008683BA008D89C800A7A1 F600A19AF6009B95F600958FF6009089F5008C84F5008880F500847CF500827A F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500837AF500837BF500DDDAFC00FFFFFF00FFFFFF00E1E0FB00E0E0F900DDDD F800DCDCF800D9D9F800D5D5F800D2D0F800CDCBF800C7C5F80056556E000202 02000202020002020200171621008681C8009E98F6009892F600938CF5008E87 F5008A82F500877EF500433F7C0002020200625CB800827AF500827AF500827A F500827AF500827AF500827AF500827AF500857DF500A49EF800FFFFFF00FAFA FE00DCDCF900DEDEF800DDDDF800DDDDF800DBDBF800D7D7F800D3D3F800D0CE F80072718C0002020200262530008C89BA00706E9B000D0C11000C0C11009891 E7009C95F600968FF6009189F5008D84F5008880F50044407C0002020200625C B800827AF500827AF500827AF500827AF500827AF500827AF500827AF500847B F500867EF500EBEAFE00ECEBFD00DEDEF800DEDEF800DDDDF800DDDDF800DDDD F800DADAF800D6D6F800D3D1F8000F0F11000E0E1100B6B4E900BDBAF700B7B3 F7005A577D00020202005D5A8B009F99F6009993F600938DF5008E88F5008B83 F50045407C0002020200625CB8008279F5008279F5008279F5008279F5008279 F5008279F5008279F5008279F500847BF500C4BFFA00E2E1FB00DEDEF800DBDB F800DBDBF800DBDBF800DBDBF800D9D9F800D6D6F8009190AB00020202004D4C 5F00C3C1F800BEBAF700B8B4F7009B98D80002020200212030009F98F6009892 F600928CF5008D86F5008980F500433F7C00020202005E57B8007D74F5007D74 F5007D74F5007D74F5007D73F5007C73F5007C73F5007C73F4007E75F500A59E F800DBD9FA00D5D5F800D4D4F800D4D3F800D4D3F800D3D3F800D3D3F800D1CF F80068677D00020202006F6D8C00BFBBF800B9B5F700B2AEF700ADA8F6000C0C 1100020202009992F600938CF5008D86F5008880F500837AF500403C7C000202 02005952B700756AF400746AF400746AF400746AF4007469F4007369F4007369 F4007369F4007469F4008C84F600CFCEF900CCCAF800CBC9F800CBC8F800CBC8 F800CAC8F800CAC8F800C8C6F80033324000020202008E8BBA00B7B3F700B1AD F700ACA7F600A6A0F60029283F00020202006E69B8008D84F500867DF5008077 F5007C71F5003C377B0002020200524BB7006B60F4006B5FF4006A5FF3006A5F F400695FF300695EF300695EF300685EF300685EF400756BF400C5C1F900C0BD F800C0BDF700C0BCF700BFBBF700BFBBF700BFBBF700BEBAF70031303F000202 02008784BA00AFAAF600AAA3F600A39DF6009D97F60027263F00020202006862 B800837BF5007D74F500786EF4007268F40037327B00020202004B43B7006055 F3005E52F3005D52F3005D51F3005C51F3005C51F3005C51F3005B50F3005B50 F3006459F400B8B3F700B3AFF700B3AFF700B3AEF700B2AEF700B2ADF700B2AD F700B1ADF7002E2D3F0002020200807BB900A59FF6009F99F6009993F600938C F50025233F0002020200605AB8007B71F500756AF4006E63F400695EF300332D 7B0002020200433AB7005448F3005145F3005044F3004F43F3004F43F3004F43 F3004E42F3004E42F3004E42F300574CF400ADA8F700A7A0F600A6A0F600A6A0 F600A6A0F600A59FF600A59FF600A49EF60035334F00020202007772B9009993 F600958DF6008F87F5008A81F50023203F00020202006259C6007166F4006B60 F4006559F3005E53F3002D277B00020202003A31B700493DF2004638F2004335 F2004335F2004235F2004234F2004233F2004133F2004133F2004C3EF300A9A4 F8009993F6009992F6009992F6009892F6009791F6009791F6009790F6004C49 7C00020202004B477C008F88F5008B82F500857DF5008077F500020202000202 02006E63F400685DF3006156F3005A4FF3005448F30028227B00020202003329 B6003F31F2003B2CF1003729F1003627F1003627F1003626F1003526F1003526 F1003525F1004A3CF300AEA9F8008D86F5008D85F5008D85F5008D84F5008C84 F5008B84F5008B83F500716BC700020202002C2A4E00857DF5008178F5007C73 F5006259C600020202001D1A3F00665BF3006054F300594DF3003E35B7003930 B7001C175C00020202002D21B5003627F1003222F1002E1FF1002B1CF1002A1C F1002A1BF1002A1BF1002A1AF100291AF1005B4EF400BFBAFA008279F5008279 F5008178F5008178F5008178F5008178F5008078F5008077F500121120000202 0200655FC6007A6FF400746BF4002B285D0002020200403998005E54F300584D F3005246F30014113E00060511000202020002020200271CB5002F20F1002A1B F1002616F1002313F1002111F1002110F1002110F1002110F1002010F1007C72 F700DCD9FC00796FF400796FF400786FF400786EF400786EF400786EF400776E F400776EF400524BA80002020200090911003A357B002B275D00020202001513 2F006054F300594EF3005347F3004D40F300473AF2004132F20017125C000202 02002418B5002A1BF1002516F1002111F1001D0CF0001A09F0001A09F0001A09 F0001908F0001A08F000AEA8FA00FAF9FF00897FF6007469F4007469F4007469 F4007469F400746AF400746AF4007469F4007469F4005049A800171630000202 0200090811002A265D006156E4006156F3005C50F300564AF3005044F3004A3D F3004437F2003E30F10009072000271BB5002F1FF100281AF1002515F1002111 F0001E0EF1001C0BF0001C0CF1001D0CF1002F1FF200EAE9FE00FFFFFF00BEBA FA007A6FF4007A70F4007A70F4007A70F4007A70F4007B71F4007B71F4007B71 F4007B71F4007C71F5007B71F500786EF400746AF4007066F4006B61F400675C F3006257F3005B50F300564AF3005043F3004A3DF3004537F2003E31F100392B F1003526F1003021F1002C1DF1002919F1002517F1002516F1002616F1008077 F700FFFFFF00FFFFFF00F2F1FE008C84F600837BF500837AF500837BF500837B F500837BF500847BF500847CF500847CF500857CF500857DF500847AF5008077 F5007C73F500796FF4007469F4006E64F4006A5FF3006459F3005E52F300584C F3005246F3004C3FF300473AF2004134F2003D2EF200382AF1003526F1003223 F1003022F100382BF200DCDAFD00FFFFFF00FFFFFF00FFFFFF00C9C5FA008E87 F5008E86F5008E87F5008E87F5008E87F5008F88F5008F88F5008F89F5009089 F5009089F5009089F5008E86F5008B83F500877EF5008279F5007D74F500796E F4007368F4006D63F400685DF3006257F3005C51F300564AF3005145F3004B3F F300473AF3004436F2004032F2003E31F1009088F700FFFFFF00FFFFFF00FFFF FF00FFFFFF00FCFCFF00AFAAF7009C95F6009B94F6009B94F6009B95F6009C95 F6009C96F6009C96F6009C96F6009D97F6009D97F6009C95F6009993F600958F F600918BF6008D85F5008880F500827AF5007D74F500776DF4007267F4006C61 F400675CF3006155F3005B50F300564AF3005246F3004F43F300675CF500F2F1 FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EDECFD00AEA9F700A9A4 F600A8A3F600A9A3F600A9A4F600A9A4F600AAA4F600AAA5F600AAA5F600ABA5 F600ABA6F600A9A3F600A69FF600A19BF6009D97F6009891F600938CF5008D86 F5008880F5008279F5007C73F500776DF4007167F4006C61F400675CF3006458 F300665BF400D5D2FC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E7E6FD00B9B4F800B6B2F700B5B2F700B5B2F700B6B2F700B6B3 F700B6B3F700B7B3F700B7B4F700B7B4F700B7B3F700B4B0F700B1ACF700ADA7 F600A8A3F600A39DF6009E97F6009891F600928BF5008D85F500877EF5008178 F5007C72F500786EF400766CF400C9C5FB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E9E8FD00C6C2F800C3C1 F800C2BFF800C2C0F800C2C0F800C2C0F800C3C0F800C3C1F800C3C1F800C4C1 F800C2BFF800C0BCF800BCB8F700B7B3F700B2ADF700ADA8F700A8A2F600A29C F6009C96F600968FF6009089F5008D85F5008B84F600CFCCFB00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00F1F0FD00D3D1FA00CFCDF800CECDF800CECCF800CECCF800CECC F800CECDF800CECDF800CFCDF800CECCF800CBCAF800C8C6F800C4C2F800C0BC F800BBB7F700B5B1F700B0ABF700AAA5F600A5A0F600A19AF600A7A2F700E0DE FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFF00E2E1FC00D7D6 F900D8D8F800D8D8F800D7D7F800D7D7F800D7D7F800D8D7F800D8D8F800D6D5 F800D3D2F800CFCEF800CBC9F800C6C3F800C2BFF800BDB9F700B8B4F700B4AF F700C8C5FA00F8F7FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00F7F7FE00E4E4FC00DDDDF900DDDDF800DFDFF800DEDE F800DEDEF800DDDDF800DDDDF800DAD9F800D6D6F800D3D2F800D0CEF800C9C7 F800C7C4F800D3D0FA00F0EFFE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCFC FF00EFEEFD00E5E4FB00E0E0FA00DFDFF900DEDEF900DFDFF800DDDDF900DBDB F900DBD9FA00DEDCFB00E8E7FC00F9F9FE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed4: TSpeedButton Left = 144 Top = 40 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '04' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed3: TSpeedButton Left = 101 Top = 40 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '03' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed2: TSpeedButton Left = 57 Top = 40 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Flat = True Glyph.Data = { 5A130000424D5A13000000000000360000002800000023000000230000000100 20000000000024130000120B0000120B00000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00EDECFE00CCC8FB00B1ACF9009E97F7009089F6008B84F6008982 F6008A82F6008B83F600958EF700A69FF800C1BDFA00E6E4FD00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00E6E4FD00BCB8F900A19BF7009992F600948DF5008E87 F5008A81F500867EF500837AF500827AF500827AF500837AF500857CF500847C F500867EF500A49EF800D8D5FC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00F5F4FE00C8C4FA00AFA9F600A9A3F600A19B F6009B95F600958FF6009089F5008C84F5008880F500847CF500827AF500827A F500827AF500827AF500827AF500837AF500857CF500837BF500A49EF800E9E8 FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E6E4FD00C1BFF800B8B4 F700B1ACF700AAA5F600A49EF6009E98F6009892F600938CF5008E87F5008A82 F500877EF500837BF500827AF500827AF500827AF500827AF500827AF500827A F500837AF500857DF5008D85F600CDC9FB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E3E1 FC00C6C3F800C1BFF700BAB6F700B3AFF700AEA9F600A8A2F600A29BF6009C95 F600968FF6009189F5008D84F5008880F500857DF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500847CF500837CF500BEBA FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E5E3FC00CECDF800C9C7F800C2C0F800BDBAF700B7B3F700B1AC F700ABA6F600A59FF6009F99F6009993F600938DF5008E88F5008B83F500877E F500847BF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500827AF500847BF500847CF500BEBAFA00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00EDECFD00D5D4F800D1D0F800CBC9F800C6C3 F800C1BDF800BBB7F700B4B0F700AFAAF600A8A3F600A39CF6009D96F6009790 F600918AF5008D85F5008981F500857DF500827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500847BF500837CF500CECB FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FAFAFE00DBD9F900D9D8 F800D3D2F800CECCF800C9C7F800C3C1F800BEBBF700B8B4F700B2ADF700ACA7 F600A6A0F600A09AF6009A94F600948EF6008F88F5008C84F500887FF500847C F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500827AF500847CF5008C84F600ECEBFE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00E1E0FB00DEDFF800D8D8F800D5D4F800D1CFF800CCCAF800C7C4F800C2BE F800BCB8F700B5B1F700B0ABF600A9A4F600A39DF6009D97F6009891F600928B F5008D86F5008A81F500867EF500837AF500827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500857DF500A59FF800FFFF FF00FFFFFF00FFFFFF00F5F4FE00DDDDF800DEDEF800DBDAF800D7D7F800D3D2 F800CFCDF800CAC7F800C4C1F800BFBCF700A29FD8008683BA009893D700A7A1 F600A19AF6009B95F600958FF6009089F5008C84F5008880F500847CF500827A F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500837AF500837BF500DDDAFC00FFFFFF00FFFFFF00E1E0FB00E0E0F900DDDD F800DCDCF800D9D9F800D5D5F800D2D0F800CDCBF800BBB9E900323140000202 020002020200020202002C2B3F009A94E7009E98F6009892F6006F69B8000202 020002020200020202000202020002020200020202000202020002020200827A F500827AF500827AF500827AF500827AF500857DF500A49EF800FFFFFF00FAFA FE00DCDCF900DEDEF800DDDDF800DDDDF800DBDBF800D7D7F800D3D3F800D0CE F80041404F00020202004A485E008C89BA005B597D00020202002C2A3F00A29B F6009C95F600837DD700020202001C1A300045417C0044407C00423E7C00423E 7C00423E7C00423E7C00827AF500827AF500827AF500827AF500827AF500847B F500867EF500EBEAFE00ECEBFD00DEDEF800DEDEF800DDDDF800DDDDF800DDDD F800DADAF800D6D6F800ACAACA000202020034334000C2C0F800BDBAF700B7B3 F7002E2D3F00020202008681C8009F99F6009993F6002F2E4E0002020200716B C700877EF500847BF500827AF5008279F5008279F5008279F5008279F5008279 F5008279F5008279F5008279F500847BF500C4BFFA00E2E1FB00DEDEF800DBDB F800DBDBF800DBDBF800DBDBF800D9D9F800D6D6F8005E5D6E00020202007D7D 9B00C3C1F800BEBAF700B8B4F7006F6D9B00020202004A476D009F98F6009892 F600807BD7000B0A11000A0A11006C65C7008078F5007D74F5007D74F5007D74 F5007D74F5007D74F5007D73F5007C73F5007C73F5007C73F4007E75F500A59E F800DBD9FA00D5D5F800D4D4F800D4D3F800D4D3F800D3D3F800D3D3F800D1CF F80035344000020202009F9DCA00BFBBF800B9B5F700B2AEF7008D89C8000202 02002A283F009992F600938CF5008D86F5006F68C7000A0A11000A091100635B C600766DF400756AF400746AF400746AF400746AF4007469F4007369F4007369 F4007369F4007469F4008C84F600CFCEF900CCCAF800CBC9F800CBC8F800CBC8 F800CAC8F800CAC8F800C8C6F8000202020002020200BDB9F700B7B3F700B1AD F700ACA7F600A6A0F6000202020002020200928BF5008D84F500867DF5008077 F500655CC70009091100090811005951C6006B60F4006B5FF4006A5FF3006A5F F400695FF300695EF300695EF300685EF300685EF400756BF400C5C1F900C0BD F800C0BDF700C0BCF700BFBBF700BFBBF700BFBBF700BEBAF700020202000202 0200B3AFF700AFAAF600AAA3F600A39DF6009D97F60002020200020202008A82 F500837BF5007D74F500786EF4007268F4005850C6000F0D2000080711004E45 C6005E52F3005D52F3005D51F3005C51F3005C51F3005C51F3005B50F3005B50 F3006459F400B8B3F700B3AFF700B3AFF700B3AEF700B2AEF700B2ADF700B2AD F700B1ADF7000202020002020200AAA3F600A59FF6009F99F6009993F600938C F50002020200020202008078F5007B71F500756AF4006E63F400695EF3006358 F3005248D50007071100070611004C41E4005044F3004F43F3004F43F3004F43 F3004E42F3004E42F3004E42F300574CF400ADA8F700A7A0F600A6A0F600A6A0 F600A6A0F600A59FF600A59FF600A49EF6000C0C1100020202009E97F6009993 F600958DF6008F87F5008A81F500020202000A091100786DF4007166F4006B60 F4006559F3005E53F300584CF3005346F3003129980002020200201A6B004335 F2004335F2004235F2004234F2004233F2004133F2004133F2004C3EF300A9A4 F8009993F6009992F6009992F6009892F6009791F6009791F6009790F6002726 3F00020202006F69B8008F88F5008B82F500857DF500605AB800020202001F1C 3F006E63F400685DF3001A173E0029246C005448F3004E42F300483BF3004436 F20002020200100D3E003729F1003627F1003627F1003626F1003526F1003526 F1003525F1004A3CF300AEA9F8008D86F5008D85F5008D85F5008D84F5008C84 F5008B84F5008B83F5004F4A8A00020202004E498A00857DF5008178F5007C73 F500443E8A000202020037327B00665BF3006054F3000D0B20000C0B20004C3F F3004739F2004032F1003B2CF100020202000E0A3E002E1FF1002B1CF1002A1C F1002A1BF1002A1BF1002A1AF100291AF1005B4EF400BFBAFA008279F5008279 F5008178F5008178F5008178F5008178F5008078F5007068D700020202001211 2000746DE5007A6FF400746BF400100F200002020200594FD5005E54F300584D F300201C5D0002020200352AB6003F31F100392BF100241AA60002020200140D 6B002616F1002313F1002111F1002110F1002110F1002110F1002010F1007C72 F700DCD9FC00796FF400796FF400786FF400786EF400786EF400786EF400776E F400776EF40035316C0002020200181630003A357B001D1B3F00020202002D29 6C006054F300594EF3005347F3004438D50006061100060511001B146B001812 6B0005041100050411002113D3002111F1001D0CF0001A09F0001A09F0001A09 F0001908F0001A08F000AEA8FA00FAF9FF00897FF6007469F4007469F4007469 F4007469F400746AF400746AF4007469F4007469F4003B367B00100F20000202 0200100E200037327B00675CF3006156F3005C50F300564AF3005044F3003C32 C60017134D000202020002020200110D4D00271AC400281AF1002515F1002111 F0001E0EF1001C0BF0001C0CF1001D0CF1002F1FF200EAE9FE00FFFFFF00BEBA FA007A6FF4007A70F4007A70F4007A70F4007A70F4007B71F4007B71F4007B71 F4007B71F4007C71F5007B71F500786EF400746AF4007066F4006B61F400675C F3006257F3005B50F300564AF3005043F3004A3DF3004537F2003E31F100392B F1003526F1003021F1002C1DF1002919F1002517F1002516F1002616F1008077 F700FFFFFF00FFFFFF00F2F1FE008C84F600837BF500837AF500837BF500837B F500837BF500847BF500847CF500847CF500857CF500857DF500847AF5008077 F5007C73F500796FF4007469F4006E64F4006A5FF3006459F3005E52F300584C F3005246F3004C3FF300473AF2004134F2003D2EF200382AF1003526F1003223 F1003022F100382BF200DCDAFD00FFFFFF00FFFFFF00FFFFFF00C9C5FA008E87 F5008E86F5008E87F5008E87F5008E87F5008F88F5008F88F5008F89F5009089 F5009089F5009089F5008E86F5008B83F500877EF5008279F5007D74F500796E F4007368F4006D63F400685DF3006257F3005C51F300564AF3005145F3004B3F F300473AF3004436F2004032F2003E31F1009088F700FFFFFF00FFFFFF00FFFF FF00FFFFFF00FCFCFF00AFAAF7009C95F6009B94F6009B94F6009B95F6009C95 F6009C96F6009C96F6009C96F6009D97F6009D97F6009C95F6009993F600958F F600918BF6008D85F5008880F500827AF5007D74F500776DF4007267F4006C61 F400675CF3006155F3005B50F300564AF3005246F3004F43F300675CF500F2F1 FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EDECFD00AEA9F700A9A4 F600A8A3F600A9A3F600A9A4F600A9A4F600AAA4F600AAA5F600AAA5F600ABA5 F600ABA6F600A9A3F600A69FF600A19BF6009D97F6009891F600938CF5008D86 F5008880F5008279F5007C73F500776DF4007167F4006C61F400675CF3006458 F300665BF400D5D2FC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E7E6FD00B9B4F800B6B2F700B5B2F700B5B2F700B6B2F700B6B3 F700B6B3F700B7B3F700B7B4F700B7B4F700B7B3F700B4B0F700B1ACF700ADA7 F600A8A3F600A39DF6009E97F6009891F600928BF5008D85F500877EF5008178 F5007C72F500786EF400766CF400C9C5FB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E9E8FD00C6C2F800C3C1 F800C2BFF800C2C0F800C2C0F800C2C0F800C3C0F800C3C1F800C3C1F800C4C1 F800C2BFF800C0BCF800BCB8F700B7B3F700B2ADF700ADA8F700A8A2F600A29C F6009C96F600968FF6009089F5008D85F5008B84F600CFCCFB00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00F1F0FD00D3D1FA00CFCDF800CECDF800CECCF800CECCF800CECC F800CECDF800CECDF800CFCDF800CECCF800CBCAF800C8C6F800C4C2F800C0BC F800BBB7F700B5B1F700B0ABF700AAA5F600A5A0F600A19AF600A7A2F700E0DE FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFF00E2E1FC00D7D6 F900D8D8F800D8D8F800D7D7F800D7D7F800D7D7F800D8D7F800D8D8F800D6D5 F800D3D2F800CFCEF800CBC9F800C6C3F800C2BFF800BDB9F700B8B4F700B4AF F700C8C5FA00F8F7FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00F7F7FE00E4E4FC00DDDDF900DDDDF800DFDFF800DEDE F800DEDEF800DDDDF800DDDDF800DAD9F800D6D6F800D3D2F800D0CEF800C9C7 F800C7C4F800D3D0FA00F0EFFE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCFC FF00EFEEFD00E5E4FB00E0E0FA00DFDFF900DEDEF900DFDFF800DDDDF900DBDB F900DBD9FA00DEDCFB00E8E7FC00F9F9FE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed13: TSpeedButton Left = 14 Top = 119 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '13' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed14: TSpeedButton Left = 57 Top = 119 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '14' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed15: TSpeedButton Left = 101 Top = 119 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '15' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed33: TSpeedButton Left = 101 Top = 239 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '33' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed32: TSpeedButton Left = 57 Top = 239 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '32' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed12: TSpeedButton Left = 232 Top = 79 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '12' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed16: TSpeedButton Left = 144 Top = 119 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '16' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed20: TSpeedButton Left = 57 Top = 159 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '20' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed22: TSpeedButton Left = 144 Top = 159 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '22' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed21: TSpeedButton Left = 101 Top = 159 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '21' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed17: TSpeedButton Left = 188 Top = 119 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '17' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed18: TSpeedButton Left = 232 Top = 119 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '18' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbRed19: TSpeedButton Left = 14 Top = 159 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '19' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue1: TSpeedButton Left = 13 Top = 320 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Glyph.Data = { 5A130000424D5A13000000000000360000002800000023000000230000000100 20000000000024130000120B0000120B00000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FEFAFA00FAEFED00F7E4E100F4DDD900F2D9D600F1D6D200F1D6 D200F1D6D200F2D9D500F4DDDA00F6E4E000FAEEEB00FDFAF900FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FCF6F400F6DFD900F1CFC600F0CBC300F0CEC600F0CE C800F0D0CB00F0D2CD00F0D3CE00F0D3CE00F0D3CE00F0D3CE00F0D4CF00F0D3 CE00F1D6D000F6E0DC00FCF4F200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FEFBFA00F7DED700F1C5B800F0C3B600F0C5 B900F0C8BD00F0CAC000F0CBC300F0CCC500F0CEC800F0D0CA00F0D1CC00F0D2 CE00F0D2CE00F0D2CE00F0D2CE00F0D2CE00F0D3CE00F1D3CE00F6E1DC00FEF9 F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCF1EE00F3C5B500F0B9 A600F0BBAA00F0BDAD00F0C1B300F0C3B500F0C4B700F0C7BC00F0C9BF00F0CB C200F0CCC300F0CEC700F0CFC900F0D1CB00F0D2CD00F0D2CD00F0D2CD00F0D2 CD00F0D2CE00F0D3CF00F2D5D000FBEEEA00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FAE7 E200F0B39F00EFAF9A00F0B39F00F0B6A300F0B9A600F0BAA900F0BDAD00F0C0 B100F0C2B400F0C4B700F0C6BA00F0C9BF00F0CAC000F0CBC400F0CDC600F0CF C800F0D0CB00F0D1CC00F0D1CC00F0D1CC00F0D1CC00F0D2CE00F1D2CD00F9E5 DF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FAE8E200EFA89100EEA68F00EFAA9400EFAC9700EFAF9A00F0B2 9F00F0B5A200F0B8A500F0BAA800F0BCAC00F0BEAF00F0C2B400F0C3B600F0C5 B900F0C8BD00F0CAC000F0CBC300F0CDC500F0CEC700F0CFC900F0D1CC00F0D1 CC00F0D1CC00F0D2CD00F0D2CD00F9E4DD00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FCF0ED00EEA18900ED9C8300EEA08800EEA3 8B00EEA68F00EFAA9300EFAC9600EFAF9A00EFB29D00F0B5A100F0B7A500F0BA A700F0BBAA00F0BEAF00F0C0B200F0C2B400F0C5B900F0C7BC00F0C9BF00F0CB C200F0CCC500F0CDC600F0CFC900F0D0CB00F0D0CB00F0D1CC00F0D0CA00FBEA E500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FEFBF900F0AA9400EC90 7400EC967C00ED997F00ED9B8300ED9F8700EEA28A00EEA68E00EEA89200EFAB 9600EFAE9900EFB19C00F0B4A000F0B7A400F0B9A600F0BBAA00F0BDAD00F0C0 B100F0C2B400F0C4B700F0C6BA00F0C8BD00F0CAC100F0CBC300F0CCC500F0CE C800F0CFC900F0D3CE00F2CFC600FDF6F400FFFFFF00FFFFFF00FFFFFF00FFFF FF00F6CCC000EA856700EB8B6E00EC8F7300EC927700EC967B00ED987E00ED9B 8200ED9E8600EEA28A00EEA58E00EEA89100EFAA9400EFAD9700EFB09B00F0B3 9F00F0B5A200F0B9A600F0BAA800F0BCAC00F0BFB000F0C1B300F0C4B700F0C5 B900F0C8BD00F0CAC000F0CBC200F0CCC500F0CEC700F0D3CE00F6D4C900FFFF FF00FFFFFF00FFFFFF00FDF4F100EB896B00EA816100EA856700EB886A00EB8B 6E00EB8E7100EC917600EC947A00ED987D00ED9A8100ED9E8500EEA18900EEA4 8C00EEA79000EFAA9400EFAC9700EFB09B00EFB29E00F0B5A200F0B7A500F0BA A700F0BCAB00F0BFB000F0C1B300F0C3B600F0C5B900F0C7BC00F0C9BF00F0CB C200F0CCC500F0CCC500FCECE700FFFFFF00FFFFFF00F4C1B100E9745200E97B 5A00EA7E5E00EA816200EA846500EB886A00EB8A6D00EB8D7100C0755E004D2F 260004010000040100004D322900C2826E00EEA38B00EEA68F00EFA99300EFAC 9600EFAE9900EFB19D00C49283003F2F290097746800F0BBAA00F0BEAE00F0C1 B300F0C2B400F0C4B700F0C6BA00F0C9BE00F0CDC500F5CFC300FFFFFF00FEF9 F800EB846600E86F4C00E9745200E9775500E97A5900EA7D5D00EA816100EA84 6500DD7F6200120A0700040100006A4033006A413400130A0800130B0800D089 7300ED9F8700EEA28A00EEA58E00EEA99200EFAA9500B4837300040100007A5B 5000F0B6A300F0B9A600F1BAA900F0BDAD00F0BFB000F0C2B400F0C4B700F0C8 BD00F1C5B900FDF4F200F9E0D800E7684400E86B4700E86D4A00E8714E00E873 5100E9775500E97A5900EA7D5D005B30240004010000864C3A00EB8A6C00EB8C 6F00955A4800040100005B392E00ED997E00ED9B8200ED9E8600EEA18900EEA5 8D00B37D6C00040100007A574C00EFB09B00F0B29F00F0B5A200F0B8A500F1BA A900F0BCAC00F0BFB000F0C1B300F0C5B900F9DBD200F4BBAB00E65E3800E765 4000E7684400E86A4600E86D4A00E8704D00E8725000E9755300120905001209 0600EA7F5F00EA826300EB856600EB886A00120A0700120A0700EC917500EC95 7A00EC977D00ED9A8100ED9D8400B37967000401000079544800EFAA9400EFAC 9700EFAF9A00F0B29E00F0B4A100F0B7A500F0BAA700F0BBAA00F0C2B400F5CB BD00EE947A00E65A3300E65F3900E6613B00E7643F00E7674200E7694500E86C 4900AF533900040100003D1E1500E9785700E97B5A00EA7E5E00EA8161003E22 1A0004010000B1685200EB8D7000EC907400EC937800EC977C00B37460000401 000079504400EEA38B00EEA68F00EEA99200EFAB9600EFAE9900EFB19D00F0B4 A000F0B6A400F0BBA900F3C2B100E9735200E5572E00E65A3300E65C3600E65F 3900E6603A00E7643F00E7664100833B27000401000076382600E8714E00E974 5200E9775500E97A5900773F2F0004010000854A3900EB876900EB8A6C00EB8C 6F00EC8F7300B26E5A0004010000794D4000ED9B8200ED9F8700EEA28A00EEA5 8E00EEA89100EFAB9500EFAC9800EFB09B00F0B4A000F1B9A700E75E3800E553 2A00E5552C00E5572F00E6593100E65C3500E65D3700E6603A0076321F000401 000076352200E76A4600E86D4A00E8704E00E8735100773C2A0004010000773F 2E00EA806000EA826300EB866700EB896B00B16852000401000078493B00EC95 7A00ED987E00ED9B8200ED9E8500EEA18900EEA48C00EEA89100EFAA9400EFAD 9700F0B29E00E5572F00E54F2500E5512800E5532A00E5542C00E5562E00E659 3100E65A3300752F1C000401000076311E00E7654000E7674300E76A4600E86D 4A007638270004010000773B2A00E9795800EA7C5B00EA7E5E00EA816200B164 4C000401000078463700EB8E7100EC917500EC947900ED987D00ED9A8000ED9D 8400EEA08900EEA48C00EEA68F00F0AF9900E65A3300E44B2100E44C2200E54F 2500E5502700E5512800E5542B00E5562D00752D180004010000752F1B00E65F 3900E7613B00E7643F00E7674200763523000401000076382600E8725000E975 5300E9785600E97A5900B05F46000401000077433300EB876900EB8A6D00EB8D 7000EC907400EC937800EC967C00ED9A8000ED9C8300EE9F8800EFA79000E96E 4C00E44C2200E44C2200E44B2100E44C2200E44D2300E44F2500E5512800AD3E 1F00040100004B1C0F00E6593200E65C3500E65E3800E6603A004B2013000401 0000AE4F3300E86B4700E86D4A00E8714F00E9745200B0593F0004010000773F 2F00EA806100EA836400EB876800EB8A6C00EB8C6F00EC8F7300EC927700EC96 7B00ED997F00EFA58D00ED8D7200E44E2400E44F2500E44D2300E44C2100E44B 2000E44B2000E44D2300D649220004010000200B0500E5542B00E5562E00E659 3100E65A3300200D070004010000D95C3800E7654000E7674300E76A4600E86D 4A00AF543A0004010000773C2A00E9795800EA7C5C00EA7F5F00EA826300EB86 6700EB896B00EB8B6E00EB8E7200EC947900F0A89300F3B29F00E5512800E552 2900E5502700E44F2500E44D2300E44B2000E44A1F00E44A20004A190B000401 0000AD3C1C00E5512800E5542B00AD412200040100003D170D00E65C3600E65E 3800E6623C003D1A100004010000040100000401000076382600E9735100E975 5300E9785700E97B5B00EA7F5F00EA816200EB856600EB886A00EB8C7000F3B6 A400F9D7CD00E6593100E5552D00E5532B00E5522900E5502600E44E2400E44D 2200E44B2000AC37170004010000120602009E3518009E3719002E1008000401 0000AD402100E5572F00E6593200E65B3400E65E3800CA543300592617000401 000076352300E86B4800E86F4C00E8714F00E9745200E9775500E97B5A00EA7D 5D00EA816100EA846500F7CFC300FEF7F500EA735100E6593200E6583000E556 2E00E5542B00E5522900E44F2600E44E2400E44C2200902F1400120602000401 0000040100001206020090311700E5502600E5522900E5552C00E5562E00E558 3000E65A3300E65D37003D190F0076321F00E7654000E7684400E86B4700E86D 4A00E8704E00E9745200E9775500E97A5A00EB856700FDF2F000FFFFFF00F2AE 9B00E65E3800E65D3600E6593200E6583000E5562D00E5542B00E5522900E44F 2600E44D2300E44B2100AC381700AC371600E4491E00E44A1F00E44B2100E44D 2300E44F2600E5512800E5532B00E5562D00E5583000C94E2C00CA512F00E65F 3900E7623C00E7643F00E7674300E76A4600E86C4900E8704D00E9745200F1A9 9400FFFFFF00FFFFFF00FCECE800E9704D00E6613B00E65F3900E65C3600E65A 3300E6583000E5552D00E5532B00E5512800E44F2500E44D2300E44C2100E449 1E00E4491E00E4491E00E4491E00E44B2000E44D2300E44F2500E5512700E553 2A00E5552C00E5572F00E65A3200E65C3500E65F3900E6603A00E7643F00E766 4200E7694500E9714F00FBE5DF00FFFFFF00FFFFFF00FFFFFF00F3B5A300E767 4200E7643F00E7613B00E65F3900E65C3500E6593200E5572F00E5552D00E553 2A00E5512800E44F2500E44D2300E44B2000E44A1E00E4491E00E4481D00E449 1E00E44B2000E44C2200E44E2400E5502700E5522900E5542C00E5572E00E659 3100E65B3400E65D3700E6603A00E7623D00F2A99400FFFFFF00FFFFFF00FFFF FF00FFFFFF00FEF8F600EC886C00E86A4600E7664100E7643E00E7613B00E65F 3900E65C3500E65A3300E6572F00E5542C00E5532A00E5512800E44E2400E44D 2300E44B2000E4491E00E4481D00E4481C00E4491E00E44A1F00E44C2100E44D 2300E44F2600E5522900E5532B00E5562E00E6593100E65A3300EA775700FDF3 F100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FBE4DE00EA785700E86C 4900E7694500E7664200E7633E00E7613B00E65E3800E65B3400E6593200E556 2E00E5542C00E5532A00E5502700E44E2400E44C2200E44A1F00E4491E00E448 1D00E4471C00E4481D00E4491E00E44A2000E44D2300E44F2500E5512800E552 2900E65D3700FAE0D900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00F8D2C700E9785800E86F4D00E86B4800E7694500E7664100E763 3E00E6603A00E65E3800E65B3400E6593100E6572F00E5542B00E5522900E54F 2600E44E2400E44C2100E44A1F00E4491E00E4481C00E4471C00E4481C00E449 1E00E44A2000E44B2100E5532A00F7CABE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F8D1C700EA7D5E00E873 5100E86F4C00E86B4800E7684400E7664100E7633E00E6603A00E65E3800E65B 3400E6593100E5562E00E5542B00E5522900E5502700E44E2400E44C2200E449 1F00E4491E00E4471C00E3461B00E3461A00E5542B00F6C7B900FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FAE1DA00ED8F7400E9765400E8725000E86E4B00E86B4800E769 4500E7664100E7633D00E6603A00E65D3700E65B3400E6583100E5562E00E554 2B00E5522900E54F2600E44D2300E44C2100E4491E00E4471C00E96B4800FADC D300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FEF6F400F3B4A200EB7F 6000E9765400E8725000E86E4B00E86B4800E7684400E7664100E7623D00E660 3A00E65E3800E65A3300E6583100E5562E00E5542B00E5512800E44F2500E65A 3300F1A48F00FDF3F100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FCE8E300F2AF9C00EC856800E9755300E8725000E86F 4C00E86B4700E7694500E7664100E7633E00E6603A00E65E3800E65A3300E658 3000E96B4800F1A28C00FBE5DF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDF5 F300F8D3C900F3B3A100EF998000EB856800EA775700E9745300E9735100EA7C 5D00EE8E7400F2AB9700F7CFC300FDF3F100FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue10: TSpeedButton Left = 144 Top = 360 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '10' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue11: TSpeedButton Left = 188 Top = 360 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '11' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue12: TSpeedButton Left = 232 Top = 360 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '12' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue13: TSpeedButton Left = 13 Top = 401 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '13' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue14: TSpeedButton Left = 56 Top = 401 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '14' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue15: TSpeedButton Left = 99 Top = 401 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '15' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue16: TSpeedButton Left = 144 Top = 401 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '16' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue2: TSpeedButton Left = 56 Top = 320 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '02' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue3: TSpeedButton Left = 99 Top = 320 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '03' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue4: TSpeedButton Left = 144 Top = 320 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '04' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue5: TSpeedButton Left = 188 Top = 320 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '05' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue6: TSpeedButton Left = 232 Top = 320 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '06' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue7: TSpeedButton Left = 13 Top = 360 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '07' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue8: TSpeedButton Left = 56 Top = 360 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '08' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object sbBlue9: TSpeedButton Left = 99 Top = 360 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '09' OnClick = sbRed1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object Label2: TLabel Left = 13 Top = 292 Width = 76 Height = 19 Caption = '['#36873#25321#34013#29699']' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object bbtnRedRandom: TBitBtn Left = 136 Top = 14 Width = 33 Height = 22 Caption = #26426#36873 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = bbtnRedRandomClick end object bbtnRedAll: TBitBtn Left = 171 Top = 14 Width = 33 Height = 22 Caption = #20840#36873 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = bbtnRedAllClick end object bbtnRedNone: TBitBtn Left = 206 Top = 14 Width = 33 Height = 22 Caption = #20840#28165 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = bbtnRedNoneClick end object edtRedRandom: TEdit Left = 99 Top = 15 Width = 23 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861 NumbersOnly = True ParentFont = False TabOrder = 3 Text = '6' end object UpDown3: TUpDown Left = 122 Top = 15 Width = 16 Height = 21 Associate = edtRedRandom Min = 6 Max = 33 Position = 6 TabOrder = 4 end object bbtnRedReverse: TBitBtn Left = 242 Top = 15 Width = 33 Height = 22 Caption = #21453#36873 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = bbtnRedReverseClick end object edtBlueRandom: TEdit Left = 99 Top = 296 Width = 23 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861 NumbersOnly = True ParentFont = False TabOrder = 6 Text = '1' end object UpDown4: TUpDown Left = 122 Top = 296 Width = 16 Height = 21 Associate = edtBlueRandom Min = 1 Max = 16 Position = 1 TabOrder = 7 end object bbtnBlueRandom: TBitBtn Left = 136 Top = 295 Width = 33 Height = 22 Caption = #26426#36873 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 8 OnClick = bbtnBlueRandomClick end object bbtnBlueAll: TBitBtn Left = 171 Top = 295 Width = 33 Height = 22 Caption = #20840#36873 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 9 OnClick = bbtnRedAllClick end object bbtnBlueNone: TBitBtn Left = 206 Top = 295 Width = 33 Height = 22 Caption = #20840#28165 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 10 OnClick = bbtnRedNoneClick end object bbtnBlueReverse: TBitBtn Left = 242 Top = 295 Width = 33 Height = 22 Caption = #21453#36873 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 11 OnClick = bbtnRedReverseClick end end end object tsSpecial: TTabSheet Caption = #23450#32966#25302#26432 ImageIndex = 1 ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object pnlSpecial: TPanel Left = 0 Top = 0 Width = 271 Height = 439 Align = alClient AutoSize = True Color = clMoneyGreen ParentBackground = False TabOrder = 0 object Label5: TLabel Left = 2 Top = 291 Width = 76 Height = 19 Caption = '['#36873#25321#34013#29699']' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object r31: TSpeedButton Left = 3 Top = 238 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '31' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r32: TSpeedButton Left = 46 Top = 238 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '32' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b3: TSpeedButton Left = 88 Top = 319 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '03' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b2: TSpeedButton Left = 45 Top = 319 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '02' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b1: TSpeedButton Left = 4 Top = 318 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Glyph.Data = { 5A130000424D5A13000000000000360000002800000023000000230000000100 20000000000024130000120B0000120B00000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FEFAFA00FAEFED00F7E4E100F4DDD900F2D9D600F1D6D200F1D6 D200F1D6D200F2D9D500F4DDDA00F6E4E000FAEEEB00FDFAF900FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FCF6F400F6DFD900F1CFC600F0CBC300F0CEC600F0CE C800F0D0CB00F0D2CD00F0D3CE00F0D3CE00F0D3CE00F0D3CE00F0D4CF00F0D3 CE00F1D6D000F6E0DC00FCF4F200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FEFBFA00F7DED700F1C5B800F0C3B600F0C5 B900F0C8BD00F0CAC000F0CBC300F0CCC500F0CEC800F0D0CA00F0D1CC00F0D2 CE00F0D2CE00F0D2CE00F0D2CE00F0D2CE00F0D3CE00F1D3CE00F6E1DC00FEF9 F700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCF1EE00F3C5B500F0B9 A600F0BBAA00F0BDAD00F0C1B300F0C3B500F0C4B700F0C7BC00F0C9BF00F0CB C200F0CCC300F0CEC700F0CFC900F0D1CB00F0D2CD00F0D2CD00F0D2CD00F0D2 CD00F0D2CE00F0D3CF00F2D5D000FBEEEA00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FAE7 E200F0B39F00EFAF9A00F0B39F00F0B6A300F0B9A600F0BAA900F0BDAD00F0C0 B100F0C2B400F0C4B700F0C6BA00F0C9BF00F0CAC000F0CBC400F0CDC600F0CF C800F0D0CB00F0D1CC00F0D1CC00F0D1CC00F0D1CC00F0D2CE00F1D2CD00F9E5 DF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FAE8E200EFA89100EEA68F00EFAA9400EFAC9700EFAF9A00F0B2 9F00F0B5A200F0B8A500F0BAA800F0BCAC00F0BEAF00F0C2B400F0C3B600F0C5 B900F0C8BD00F0CAC000F0CBC300F0CDC500F0CEC700F0CFC900F0D1CC00F0D1 CC00F0D1CC00F0D2CD00F0D2CD00F9E4DD00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FCF0ED00EEA18900ED9C8300EEA08800EEA3 8B00EEA68F00EFAA9300EFAC9600EFAF9A00EFB29D00F0B5A100F0B7A500F0BA A700F0BBAA00F0BEAF00F0C0B200F0C2B400F0C5B900F0C7BC00F0C9BF00F0CB C200F0CCC500F0CDC600F0CFC900F0D0CB00F0D0CB00F0D1CC00F0D0CA00FBEA E500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FEFBF900F0AA9400EC90 7400EC967C00ED997F00ED9B8300ED9F8700EEA28A00EEA68E00EEA89200EFAB 9600EFAE9900EFB19C00F0B4A000F0B7A400F0B9A600F0BBAA00F0BDAD00F0C0 B100F0C2B400F0C4B700F0C6BA00F0C8BD00F0CAC100F0CBC300F0CCC500F0CE C800F0CFC900F0D3CE00F2CFC600FDF6F400FFFFFF00FFFFFF00FFFFFF00FFFF FF00F6CCC000EA856700EB8B6E00EC8F7300EC927700EC967B00ED987E00ED9B 8200ED9E8600EEA28A00EEA58E00EEA89100EFAA9400EFAD9700EFB09B00F0B3 9F00F0B5A200F0B9A600F0BAA800F0BCAC00F0BFB000F0C1B300F0C4B700F0C5 B900F0C8BD00F0CAC000F0CBC200F0CCC500F0CEC700F0D3CE00F6D4C900FFFF FF00FFFFFF00FFFFFF00FDF4F100EB896B00EA816100EA856700EB886A00EB8B 6E00EB8E7100EC917600EC947A00ED987D00ED9A8100ED9E8500EEA18900EEA4 8C00EEA79000EFAA9400EFAC9700EFB09B00EFB29E00F0B5A200F0B7A500F0BA A700F0BCAB00F0BFB000F0C1B300F0C3B600F0C5B900F0C7BC00F0C9BF00F0CB C200F0CCC500F0CCC500FCECE700FFFFFF00FFFFFF00F4C1B100E9745200E97B 5A00EA7E5E00EA816200EA846500EB886A00EB8A6D00EB8D7100C0755E004D2F 260004010000040100004D322900C2826E00EEA38B00EEA68F00EFA99300EFAC 9600EFAE9900EFB19D00C49283003F2F290097746800F0BBAA00F0BEAE00F0C1 B300F0C2B400F0C4B700F0C6BA00F0C9BE00F0CDC500F5CFC300FFFFFF00FEF9 F800EB846600E86F4C00E9745200E9775500E97A5900EA7D5D00EA816100EA84 6500DD7F6200120A0700040100006A4033006A413400130A0800130B0800D089 7300ED9F8700EEA28A00EEA58E00EEA99200EFAA9500B4837300040100007A5B 5000F0B6A300F0B9A600F1BAA900F0BDAD00F0BFB000F0C2B400F0C4B700F0C8 BD00F1C5B900FDF4F200F9E0D800E7684400E86B4700E86D4A00E8714E00E873 5100E9775500E97A5900EA7D5D005B30240004010000864C3A00EB8A6C00EB8C 6F00955A4800040100005B392E00ED997E00ED9B8200ED9E8600EEA18900EEA5 8D00B37D6C00040100007A574C00EFB09B00F0B29F00F0B5A200F0B8A500F1BA A900F0BCAC00F0BFB000F0C1B300F0C5B900F9DBD200F4BBAB00E65E3800E765 4000E7684400E86A4600E86D4A00E8704D00E8725000E9755300120905001209 0600EA7F5F00EA826300EB856600EB886A00120A0700120A0700EC917500EC95 7A00EC977D00ED9A8100ED9D8400B37967000401000079544800EFAA9400EFAC 9700EFAF9A00F0B29E00F0B4A100F0B7A500F0BAA700F0BBAA00F0C2B400F5CB BD00EE947A00E65A3300E65F3900E6613B00E7643F00E7674200E7694500E86C 4900AF533900040100003D1E1500E9785700E97B5A00EA7E5E00EA8161003E22 1A0004010000B1685200EB8D7000EC907400EC937800EC977C00B37460000401 000079504400EEA38B00EEA68F00EEA99200EFAB9600EFAE9900EFB19D00F0B4 A000F0B6A400F0BBA900F3C2B100E9735200E5572E00E65A3300E65C3600E65F 3900E6603A00E7643F00E7664100833B27000401000076382600E8714E00E974 5200E9775500E97A5900773F2F0004010000854A3900EB876900EB8A6C00EB8C 6F00EC8F7300B26E5A0004010000794D4000ED9B8200ED9F8700EEA28A00EEA5 8E00EEA89100EFAB9500EFAC9800EFB09B00F0B4A000F1B9A700E75E3800E553 2A00E5552C00E5572F00E6593100E65C3500E65D3700E6603A0076321F000401 000076352200E76A4600E86D4A00E8704E00E8735100773C2A0004010000773F 2E00EA806000EA826300EB866700EB896B00B16852000401000078493B00EC95 7A00ED987E00ED9B8200ED9E8500EEA18900EEA48C00EEA89100EFAA9400EFAD 9700F0B29E00E5572F00E54F2500E5512800E5532A00E5542C00E5562E00E659 3100E65A3300752F1C000401000076311E00E7654000E7674300E76A4600E86D 4A007638270004010000773B2A00E9795800EA7C5B00EA7E5E00EA816200B164 4C000401000078463700EB8E7100EC917500EC947900ED987D00ED9A8000ED9D 8400EEA08900EEA48C00EEA68F00F0AF9900E65A3300E44B2100E44C2200E54F 2500E5502700E5512800E5542B00E5562D00752D180004010000752F1B00E65F 3900E7613B00E7643F00E7674200763523000401000076382600E8725000E975 5300E9785600E97A5900B05F46000401000077433300EB876900EB8A6D00EB8D 7000EC907400EC937800EC967C00ED9A8000ED9C8300EE9F8800EFA79000E96E 4C00E44C2200E44C2200E44B2100E44C2200E44D2300E44F2500E5512800AD3E 1F00040100004B1C0F00E6593200E65C3500E65E3800E6603A004B2013000401 0000AE4F3300E86B4700E86D4A00E8714F00E9745200B0593F0004010000773F 2F00EA806100EA836400EB876800EB8A6C00EB8C6F00EC8F7300EC927700EC96 7B00ED997F00EFA58D00ED8D7200E44E2400E44F2500E44D2300E44C2100E44B 2000E44B2000E44D2300D649220004010000200B0500E5542B00E5562E00E659 3100E65A3300200D070004010000D95C3800E7654000E7674300E76A4600E86D 4A00AF543A0004010000773C2A00E9795800EA7C5C00EA7F5F00EA826300EB86 6700EB896B00EB8B6E00EB8E7200EC947900F0A89300F3B29F00E5512800E552 2900E5502700E44F2500E44D2300E44B2000E44A1F00E44A20004A190B000401 0000AD3C1C00E5512800E5542B00AD412200040100003D170D00E65C3600E65E 3800E6623C003D1A100004010000040100000401000076382600E9735100E975 5300E9785700E97B5B00EA7F5F00EA816200EB856600EB886A00EB8C7000F3B6 A400F9D7CD00E6593100E5552D00E5532B00E5522900E5502600E44E2400E44D 2200E44B2000AC37170004010000120602009E3518009E3719002E1008000401 0000AD402100E5572F00E6593200E65B3400E65E3800CA543300592617000401 000076352300E86B4800E86F4C00E8714F00E9745200E9775500E97B5A00EA7D 5D00EA816100EA846500F7CFC300FEF7F500EA735100E6593200E6583000E556 2E00E5542B00E5522900E44F2600E44E2400E44C2200902F1400120602000401 0000040100001206020090311700E5502600E5522900E5552C00E5562E00E558 3000E65A3300E65D37003D190F0076321F00E7654000E7684400E86B4700E86D 4A00E8704E00E9745200E9775500E97A5A00EB856700FDF2F000FFFFFF00F2AE 9B00E65E3800E65D3600E6593200E6583000E5562D00E5542B00E5522900E44F 2600E44D2300E44B2100AC381700AC371600E4491E00E44A1F00E44B2100E44D 2300E44F2600E5512800E5532B00E5562D00E5583000C94E2C00CA512F00E65F 3900E7623C00E7643F00E7674300E76A4600E86C4900E8704D00E9745200F1A9 9400FFFFFF00FFFFFF00FCECE800E9704D00E6613B00E65F3900E65C3600E65A 3300E6583000E5552D00E5532B00E5512800E44F2500E44D2300E44C2100E449 1E00E4491E00E4491E00E4491E00E44B2000E44D2300E44F2500E5512700E553 2A00E5552C00E5572F00E65A3200E65C3500E65F3900E6603A00E7643F00E766 4200E7694500E9714F00FBE5DF00FFFFFF00FFFFFF00FFFFFF00F3B5A300E767 4200E7643F00E7613B00E65F3900E65C3500E6593200E5572F00E5552D00E553 2A00E5512800E44F2500E44D2300E44B2000E44A1E00E4491E00E4481D00E449 1E00E44B2000E44C2200E44E2400E5502700E5522900E5542C00E5572E00E659 3100E65B3400E65D3700E6603A00E7623D00F2A99400FFFFFF00FFFFFF00FFFF FF00FFFFFF00FEF8F600EC886C00E86A4600E7664100E7643E00E7613B00E65F 3900E65C3500E65A3300E6572F00E5542C00E5532A00E5512800E44E2400E44D 2300E44B2000E4491E00E4481D00E4481C00E4491E00E44A1F00E44C2100E44D 2300E44F2600E5522900E5532B00E5562E00E6593100E65A3300EA775700FDF3 F100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FBE4DE00EA785700E86C 4900E7694500E7664200E7633E00E7613B00E65E3800E65B3400E6593200E556 2E00E5542C00E5532A00E5502700E44E2400E44C2200E44A1F00E4491E00E448 1D00E4471C00E4481D00E4491E00E44A2000E44D2300E44F2500E5512800E552 2900E65D3700FAE0D900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00F8D2C700E9785800E86F4D00E86B4800E7694500E7664100E763 3E00E6603A00E65E3800E65B3400E6593100E6572F00E5542B00E5522900E54F 2600E44E2400E44C2100E44A1F00E4491E00E4481C00E4471C00E4481C00E449 1E00E44A2000E44B2100E5532A00F7CABE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F8D1C700EA7D5E00E873 5100E86F4C00E86B4800E7684400E7664100E7633E00E6603A00E65E3800E65B 3400E6593100E5562E00E5542B00E5522900E5502700E44E2400E44C2200E449 1F00E4491E00E4471C00E3461B00E3461A00E5542B00F6C7B900FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FAE1DA00ED8F7400E9765400E8725000E86E4B00E86B4800E769 4500E7664100E7633D00E6603A00E65D3700E65B3400E6583100E5562E00E554 2B00E5522900E54F2600E44D2300E44C2100E4491E00E4471C00E96B4800FADC D300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FEF6F400F3B4A200EB7F 6000E9765400E8725000E86E4B00E86B4800E7684400E7664100E7623D00E660 3A00E65E3800E65A3300E6583100E5562E00E5542B00E5512800E44F2500E65A 3300F1A48F00FDF3F100FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FCE8E300F2AF9C00EC856800E9755300E8725000E86F 4C00E86B4700E7694500E7664100E7633E00E6603A00E65E3800E65A3300E658 3000E96B4800F1A28C00FBE5DF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDF5 F300F8D3C900F3B3A100EF998000EB856800EA775700E9745300E9735100EA7C 5D00EE8E7400F2AB9700F7CFC300FDF3F100FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r28: TSpeedButton Left = 133 Top = 198 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '28' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r27: TSpeedButton Left = 90 Top = 198 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '27' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r26: TSpeedButton Left = 46 Top = 198 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '26' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r33: TSpeedButton Left = 90 Top = 238 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '33' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r30: TSpeedButton Left = 221 Top = 198 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '30' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r29: TSpeedButton Left = 177 Top = 198 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '29' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b4: TSpeedButton Left = 133 Top = 318 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '04' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b16: TSpeedButton Left = 133 Top = 400 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '16' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b12: TSpeedButton Left = 221 Top = 359 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '12' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b11: TSpeedButton Left = 177 Top = 359 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '11' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b13: TSpeedButton Left = 4 Top = 400 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '13' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b14: TSpeedButton Left = 45 Top = 400 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '14' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b15: TSpeedButton Left = 88 Top = 400 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '15' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b7: TSpeedButton Left = 4 Top = 359 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '07' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b6: TSpeedButton Left = 221 Top = 319 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '06' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b5: TSpeedButton Left = 177 Top = 319 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '05' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b10: TSpeedButton Left = 133 Top = 359 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '10' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b9: TSpeedButton Left = 88 Top = 359 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '09' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object b8: TSpeedButton Left = 45 Top = 359 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 2 Caption = '08' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r25: TSpeedButton Left = 3 Top = 198 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '25' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r11: TSpeedButton Left = 177 Top = 78 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Flat = True Glyph.Data = { 5A130000424D5A13000000000000360000002800000023000000230000000100 20000000000024130000120B0000120B00000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FCFCFC00F2F2F400E9E9EC00E3E4E500DFDFE000DCDDDE00D9DA DB00D8DADA00D9D9DB00DCDDDD00E2E2E300ECEDED00F9FAFA00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00F9F9FA00EBECEE00E3E3E600E0E1E200DFE0E100DDDE DE00DBDCDD00DADADB00D8D9D900D5D6D600D2D3D400D1D2D200CFD1D000CDCE CF00D0D1D100DDDDDF00F3F3F400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FCFCFD00EEEFF100E6E7E800E5E5E600E2E3 E400E1E1E200DFE0E100DDDEDF00DADCDD00D9D9DB00D7D7D900D4D5D600D2D3 D300D0D1D000CDCECF00CBCCCC00CACBCB00C9CBCA00C9CBCB00DCDDDE00F9F9 F900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F8F8FA00EBEBEE00E9E9 EA00E6E7E800E5E5E600E3E3E500E1E2E300E0E0E100DEDEDF00DADBDC00D8D9 D900D6D6D700D3D4D400D0D1D200CECFCE00CBCDCC00CACBCA00C8C9C900C6C7 C800C5C7C600C3C5C400CACBCC00EEEFEF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F5F5 F700EBEBEE00EBEBEC00E9E9EA00E7E7E900E5E5E700E3E4E500E2E2E400DFDF E100DCDDDF00DADBDB00D7D8D900D4D6D600D1D2D400CFD0D000CDCECE00CACB CB00C8C8CA00C6C7C600C4C5C500C2C4C300C0C2C200BEC1C000C0C2C100E5E6 E700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00F5F5F700EDEDEF00ECEDEE00EBEBEC00E9E9EB00E8E8E900E6E6 E700E4E4E600E0E1E300DEDFE000DCDCDD00D9DADA00D6D7D700D3D3D500D0D1 D100CDCFCF00CBCBCD00C8C9C900C6C7C600C2C5C400C1C3C200C0C1C100BEBF BE00BCBEBD00BBBDBC00BABCBB00E4E5E600FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00F9F9FA00EDEDF000EEEEEF00ECECEE00EBEB ED00EAEAEB00E8E8EA00E6E6E700E3E3E500E0E1E100DDDEDF00DBDBDC00D7D8 D900D4D5D600D1D3D300CFD0D000CCCCCD00C9CACA00C6C7C700C3C4C500C1C2 C100BEC1C000BDBFBE00BBBDBC00B9BCBB00B8B9B800B6B8B600B7BAB700EDEE EE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFD00EFEFF100EFEF F100EEEEF000EDEDEF00EBEBED00EAEAEC00E7E7E800E4E5E700E2E2E400DFE0 E100DBDDDE00D9D9DB00D6D7D700D3D4D400D0D1D100CDCECE00CACBCB00C7C8 C800C4C5C400C1C3C200BFC0C000BCBDBD00BABDBC00B8BAB900B7B9B800B4B7 B600B3B5B400B2B3B200BABDBC00F8F9F900FFFFFF00FFFFFF00FFFFFF00FFFF FF00F2F2F500F0F0F100EFEFF100EEEEF000EDEDEF00EBEBED00E9E9EB00E6E7 E800E4E4E500E1E1E200DEDFDF00DADBDD00D7D9D900D4D6D600D2D3D400CECF CF00CBCCCC00C9C9C900C4C6C600C2C3C300BEC1C000BCBEBD00BABBBA00B8B9 B800B6B8B600B4B7B500B2B4B300B0B3B100AEB1AF00ADAFAD00D0D2D100FFFF FF00FFFFFF00FFFFFF00FAFAFC00EEEEF100EFEFF100EFEFF100EDEEF000EBEB EE00EAEAEC00E8E8EA00E5E5E700E2E3E400DFE0E200DCDDDE00D9DADB00D7D7 D800D3D3D400D0D0D100CCCECE00C9CACB00C6C7C700C3C4C400C0C2C100BCBE BE00BABCBB00B7B9B700B5B7B600B3B5B400B2B3B200B0B2B000AEAFAE00ACAE AC00ABADAB00ACAEAC00F0F0F100FFFFFF00FFFFFF00F1F1F400EFEFF100EEEE F100EEEEF000ECECEF00EAEBEC00E9E9EB00E6E7E800E4E3E500E1E1E300B8B9 BA00ABABAC00D8D9DA00D5D5D700D2D2D300CECFCF00CACCCC00C7C8C800C4C5 C500C0C2C200B5B6B5009B9B9B00A8A9A800B5B6B600B3B5B400B0B3B100AEB1 B000ADAFAD00ABAEAC00A9ACAB00A8AAA900A6A8A700C9CACA00FFFFFF00FDFD FE00EEEEF100EFEFF100EDECEF00ECECEF00EBEBED00E9E9EB00E7E8E900E4E5 E600E2E2E400DFDFE100939393007A7A7A00D6D7D700D3D4D400D0D1D100CCCD CE00C9CACA00C5C7C700C1C4C200BFC0BF00ABACAC007A7A7A0098999800B2B5 B200B0B2B000AEB1AE00ACAEAC00ABADAB00A9ACA900A7AAA700A6A8A600A3A6 A300AAACAA00F7F8F800F7F7F800EEEEF000EDEDEF00EBEBED00EBEBED00E9EA EB00E8E8E900E5E5E800E3E4E500E0E1E200DEDEDF00929293007A7A7A00D4D5 D600D1D2D300CECFCF00CACCCB00C6C8C800C3C5C400C0C2C100BCBFBE00A9AB AA007A7A7A0096989700B0B2B100AEB0AE00ABAEAC00AAACAA00A8ABA900A6A9 A700A5A8A500A3A6A400A1A4A1009FA29F00DFE0E000F1F1F400EDECEF00EBEB ED00E9EAEC00E9E9EB00E7E7E900E6E6E800E4E4E600E2E2E300DEDFE100DBDE DE00929292007A7A7A00D2D4D400CFD0D000CBCDCD00C8CAC900C5C6C600C1C3 C200BEC0BF00BBBCBB00A8A9A8007A7A7A0096979600AFB1AF00ABAEAC00A9AC AA00A8AAA800A5A8A600A5A7A500A3A5A300A1A4A1009FA29F009DA09D00C8C9 C900EEEEF100EBEBED00E9EAEB00E9E7EA00E7E7E800E5E5E700E4E5E600E3E3 E400E0E0E200DCDDDE00DADBDC00919292007A7A7A00D1D2D100CDCECF00C9CA CA00C6C8C700C3C5C400BFC2C100BCBDBC00B8BAB900A6A8A7007A7A7A009596 9500ACAEAC00A9ACA900A6AAA700A5A7A500A4A6A400A3A4A300A1A4A1009FA2 9F009DA09D009C9E9B00B5B7B600EBEBEE00E9E9EB00E7E7E900E6E7E800E5E5 E700E3E4E500E3E3E400E0E1E200DEDEE000DBDCDD00D7D8DA00919191007A7A 7A00CED0D000CBCCCC00C7C8C800C4C5C500C1C2C100BDBFBE00BABCBB00B6B9 B600A5A6A5007A7A7A0093959400A9ACAA00A7A9A800A5A8A500A3A6A300A1A4 A2009FA39F009EA19F009DA09D009B9E9B009A9C9A00A7AAA800E9E9EB00E7E7 E900E5E5E700E4E5E600E3E3E500E1E2E400E0E0E200DEDFE000DCDDDD00D8DA DA00D6D7D800909191007A7A7A00CCCDCE00C9CACA00C6C7C700C1C4C300BEC0 BF00BBBDBC00B7BAB800B4B6B500A3A5A3007A7A7A0093949300A8ABA900A5A8 A500A3A5A300A1A3A1009FA2A0009DA19E009D9F9D009B9E9B00999C9900989C 98009EA19F00E7E8E900E5E5E700E3E4E500E2E3E400E0E1E200DFE0E100DEDE DF00DBDDDE00D9DADB00D7D7D900D4D5D500909090007A7A7A00CACCCC00C6C9 C800C3C5C400C0C2C100BDBFBD00B9BBBA00B6B8B700B3B5B400A2A3A2007A7A 7A0092939200A7A9A600A3A5A300A1A4A1009EA29F009DA09D009C9E9C009B9E 9B00999C9900999C9900969A97009C9F9B00E5E6E700E3E3E500E1E2E400E0E0 E200DEDFE000DDDEDE00DBDCDC00DADADB00D7D8D800D5D6D600D1D2D2008F90 90007A7A7A00C8CAC900C5C7C600C2C4C300BEC0BF00BBBDBC00B7B9B700B4B6 B400B1B3B100A0A2A0007A7A7A0091929100A4A6A500A1A4A1009FA2A0009DA0 9D009B9F9B00999D9900999C9900989C9700979A9700959896009DA09D00E5E6 E600E1E1E200DFDFE000DEDEDF00DCDDDE00DADBDC00D8D9DA00D6D8D800D5D6 D700D2D3D300D0D0D1008F8F8F007A7A7A00C6C7C700C3C4C400C0C1C100BCBF BD00B8BABA00B5B7B600B3B4B300AEB2AF009FA19F007A7A7A0090919000A2A5 A200A0A3A1009DA09D009B9E9B00999C9900999C9900979A9700969996009598 950095989500A5A8A600E6E6E800DFDFE000DCDEDE00DADCDC00D9DADA00D8D8 D900D6D6D700D4D5D500D2D3D400D0D1D200CDCFCE008E8F8E007A7A7A00C4C6 C500C1C3C200BEBFBE00BBBCBB00B7B9B800B3B7B400B0B4B100ADB1AE009E9F 9F007A7A7A008F908F00A1A4A2009FA19F009C9F9C009A9C9A00999C9900979A 970095989600959895009598950096999600B4B7B500EAEAEC00DCDCDE00DADB DB00D8D9DA00D6D8D800D4D5D600D3D4D400D2D2D300BFC1C1008F8F8F008E8F 8F007F7F7F007A7A7A00C1C4C200BFC0C000BCBEBD00B9BBB900B6B8B600B2B5 B3009192920087878700838383007A7A7A008F908F00A0A2A0009DA19D009B9E 9B00989B9800979A97009699960096999600969A9600979A9700979C9700C6C8 C700F2F3F400D9DADA00D8D8D900D6D6D700D4D5D600D2D3D400D1D2D200CED0 D000C8C9C900B7B7B7009D9D9D007A7A7A007A7A7A00C0C2C100BDBFBD00BABC BB00B6B9B800B3B7B500B0B2B200A3A5A400989A9900828383007A7A7A008E8F 8E009FA2A0009DA09D009A9D9A00979A97009799970096999600979A9700989C 9900999C99009A9D9A00DFE0DF00FDFDFD00D9DBDB00D5D6D600D3D4D400D2D2 D300CFD1D100CECFCF00CCCECD00CACCCC00C9CACA00C6C8C700A3A4A4007A7A 7A00BEC0BF00BBBDBD00B8BBB900B5B7B600B2B4B200AFB1B000ACAFAD00A8AC AA00A3A6A3007F807F008E8F8E009DA19D009B9F9B00999C9900989B9800979B 9700979A9700989B99009A9E99009B9E9B00A5A8A600F8F8F800FFFFFF00E5E5 E600D2D4D400D0D2D200CED0D000CDCECE00CCCCCC00CACBCB00C8C9CA00C6C8 C700C4C5C500C2C3C3009D9E9D00BCBEBE00B9BBBA00B6B8B800B4B6B500B1B3 B200AEB0AE00ABADAB00A8ABA800A5A8A500999B9900969996009DA09D009C9E 9C009A9D9A00999C99009A9D9A009A9D9A009B9E9B009B9E9C009DA09D00C6C7 C600FFFFFF00FFFFFF00F8F8F900D2D3D400CECFCF00CCCDCD00CACCCC00C9CA CA00C7C8C800C5C7C700C4C5C500C2C4C300C0C2C200BDC0BF00BBBCBC00B8B9 B900B5B7B600B2B4B300AEB2B000ACAFAD00A9ADAA00A7A9A800A4A6A400A1A4 A2009FA29F009EA09E009DA09D009C9F9C009C9E9C009C9F9B009C9E9C009D9F 9D009DA19E00A4A5A400EFF0F000FFFFFF00FFFFFF00FFFFFF00E4E4E500CCCD CD00CACBCB00C8C9CA00C6C8C700C5C6C600C3C5C400C2C4C300C0C3C200BEBF BF00BCBEBD00B9BBBA00B7B9B700B4B6B400B0B3B100AEB1AE00ABAEAB00A9AC A900A6A9A600A3A6A300A1A4A200A0A2A0009FA2A0009FA29F009DA19E009EA0 9E009DA09E009DA19E009EA29E00A0A3A100CBCDCC00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FCFCFC00D2D4D400C7C9C800C5C7C700C4C6C500C2C4C300C1C3 C300BFC1C100BDBFBF00BCBEBD00BABBBB00B8BAB800B4B7B600B2B4B300B0B3 B000ADAFAE00AAADAA00A8AAA800A5A8A600A4A6A400A3A5A300A2A4A200A1A3 A100A0A4A100A0A3A0009FA4A1009FA39F00A0A3A000A1A4A200B2B4B200F9F9 F900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F4F5F500C9CACA00C3C5 C500C1C3C200C0C3C100BFC0C000BDBFBE00BCBDBD00BABCBA00B8BAB900B5B9 B600B3B6B400B1B4B200AFB1B000ACAFAD00A9ABAA00A7AAA800A6A8A600A5A9 A600A5A8A500A3A7A500A3A6A300A3A6A300A2A5A300A2A5A200A2A5A300A3A6 A300A8AAA800ECECEC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00EDEDED00C4C5C500BFC1C000BEBFBF00BDBEBD00BBBDBC00BABB BB00B8BBB900B7B9B700B5B6B600B2B4B200B0B2B000AEB0AE00ACAEAC00AAAC AA00A9ABA900A8ABA900A7AAA900A7AAA700A7A9A700A6A8A700A5A8A600A5A7 A500A5A8A600A5A8A600A9ABA900E1E2E100FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EDEDED00C3C5C400BCBD BD00BABDBB00B9BBBB00B7BBB900B7B8B700B5B8B500B4B5B500B2B3B200AFB1 B000AEB0AE00ADAEAD00ACAFAC00ACAEAC00AAADAB00ABACAA00AAABAA00A9AB A900A8ACA800A8AAA900A7AAA800A8ABA900AEB0AE00E2E3E200FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00F3F3F300C9CBCA00B8BBB900B7B9B800B7B8B700B5B7B600B4B6 B400B2B4B300B1B3B100AFB1B000AFB1AF00AFB1AF00AEB0B000ADB0AE00ADAF AD00ACB0AD00ACAFAD00ABAEAB00ABAEAC00ABADAC00ABADAB00BABCBB00EDED ED00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCFCFC00DCDDDC00BBBD BD00B5B6B500B3B5B500B3B5B300B2B4B300B2B3B200B1B4B200B2B4B200B1B3 B200B1B2B100B0B2B000AFB2B000AFB1AF00AFB1B000AEB1AF00AEB1AF00B3B5 B400D3D4D400F9FAF900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00F5F6F500D8D8D800BDBFBE00B3B5B300B3B5B300B3B6 B400B4B6B500B4B6B400B3B6B300B2B5B300B3B5B300B2B4B300B2B4B300B1B4 B200BABDBB00D2D4D300F2F3F200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FBFB FB00EAEBEA00D9DBD900CCCCCC00C1C2C200BBBEBC00BABCBB00BBBCBB00C0C1 C000CACBCA00D7D8D700E8E8E800FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r12: TSpeedButton Left = 221 Top = 78 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '12' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r6: TSpeedButton Left = 221 Top = 39 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '06' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r8: TSpeedButton Left = 46 Top = 78 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '08' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r9: TSpeedButton Left = 90 Top = 78 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '09' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r10: TSpeedButton Left = 133 Top = 78 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Glyph.Data = { 5A130000424D5A13000000000000360000002800000023000000230000000100 20000000000024130000120B0000120B00000000000000000000CBCBED00FFFF FF00FFFFFF00FFFFFF00FAFAFD00FEFEFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00ECECEC00B5B5B50080808000575757003A3A3B0029292A002626 27002828290039393A00555556007C7C7D00B0B0B100EAEAEA00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFE00EBEBF800F2F2FA00F3F3 FB00CECEEE00CACAEC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00DADADA007B7B7C003232330019191B0019191A001919 1A0019191A001818190018181900181819001717180017171800171718001717 17002D2D2D0074747500D5D5D500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00DBDBF200C4C4EA00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00DEDEEA007F7F890029292B001A1A1C001A1A 1B001A1A1B001A1A1B0019191A0019191A0019191A0019191900181819001818 19001717180017171800171718001717180017171700242424007D7D7E00ECEC EC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D6D6F100F3F3 FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A4A4C6001D1D99001B1B 7D001B1B21001B1B1C001A1A1C001A1A1B001A1A1B001A1A1B0019191B001919 1A0019191A001818190018181900181819001717180017171800171718001717 18001717180016161B002A2A7000AFAFC500FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00D0D0EE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008585 B3001B1B9E001C1CA6001B1BA6001B1B77001B1B21001B1B1C001B1B1C001A1A 1B001A1A1B001A1A1B0019191B0019191A0019191A0018181900181819001818 180017171800171718001717180017171B00171771001717A600171792009090 AC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F5F5FC00FFFFFF00FFFFFF00FFFF FF00FFFFFF008787B4001B1BA0001C1CA6001C1CA6001C1CA6001C1CA6001B1B 78001B1B22001B1B1C001B1B1C001A1A1C001A1A1B001A1A1B0019191B001919 1A0019191A001818190018181900181818001717180017171C00171772001717 A6001717A6001717A600171792009292AC00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00B7B7CC001D1D9B001C1CA6001C1CA6001C1C A6001C1CA6001C1CA6001C1CA6001C1C77001B1B20001B1B1C001B1B1C001A1A 1C001A1A1B001A1A1B0019191B0019191A001919190018181900181819001818 1C00171774001717A6001717A6001717A6001717A6001616A60017179000B2B2 C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F2F2F20045454A001D1D 73001D1DA6001D1DA6001D1DA6001D1DA6001C1CA6001C1CA6001C1CA6001C1C 79001B1B22001B1B1C001B1B1C001A1A1C001A1A1B001A1A1B0019191A001919 1A001919190018181C00181873001818A6001717A6001717A6001717A6001717 A6001717A6001616A60029296D00EDEDED00FFFFFF00FFFFFF00FFFFFF00FFFF FF008B8B8B001D1D1F001D1D21001D1D71001D1DA6001D1DA6001D1DA6001D1D A6001C1CA6001C1CA6001C1CA6001C1C78001B1B23001B1B1C001B1B1C001A1A 1C001A1A1B001A1A1B0019191A0019191D00181874001818A6001818A6001818 A6001717A6001717A6001717A6001717A6001717710016161F007C7C7D00FFFF FF00FFFFFF00FFFFFF00E1E1E1002D2D2E001E1E1F001D1D1F001D1D21001D1D 71001D1DA6001D1DA6001D1DA6001D1DA6001C1CA6001C1CA6001C1CA6001C1C 79001B1B21001B1B1C001B1B1C001A1A1B001A1A1B0019191E00191975001919 A6001818A6001818A6001818A6001818A6001717A6001717A600171772001717 1B001616170020202100D8D8D800FFFFFF00FFFFFF00838383001E1E1F001E1E 1F001E1E1F001E1E1F001E1E21001D1D72001D1DA6001D1DA6001D1DA6001D1D A6001C1CA6001C1CA6001C1CA6001C1C78001B1B21001B1B1C001A1A1C001A1A 1E001A1A73002121A6003838A6003030A6001818A6001818A6001818A6001818 A6001717740017171C0017171800171717001616170072727300FFFFFF00F3F3 F300373738001E1E20001E1E1F001E1E1F001E1E1F001E1E1F001E1E21001E1E 71001D1DA6001D1DA6005959A6009696AC003A3AA6001C1CA6001C1CA6001B1B 7A001B1B21001B1B20001A1A74005F5FA6009494AB009494AB009494AB008484 A6003030A6001818A6001818720017171C001717180017171800171717001616 170029292A00ECECEC00BFBFBF001F1F20001F1F20001F1F20001E1E20001E1E 20001E1E20001E1E1F001E1E22001E1E73001E1EA6005959A6009696AC003B3B A6001C1CA6001C1CA6001C1CA6001C1C7B001B1B78005151A6009595AC007D7D A6003838A6004747A6008C8CA6008C8CA6002020780018181C00181818001717 180017171800171718001717170016161700B1B1B20089898A001F1F20001F1F 20001F1F20001F1F20001F1F20001F1F20001E1E20001E1E1F001E1E21001E1E 73005A5AA6009696AD003B3BA6001D1DA6001C1CA6001C1CA6001C1CA6001B1B A6008D8DA6008D8DA6002222A6001A1AA6001919A6005757A6009494AB004F4F 5B00181819001818190018181800171718001717180017171800171717007B7B 7C005F5F60001F1F21001F1F20001F1F20001F1F20001F1F20001F1F20001F1F 20001E1E20001E1E20001E1E21005A5A8E009696AD003B3BA6001D1DA6001D1D A6001C1CA6001C1CA6004242A6009595AC006767A6001A1AA6001A1AA6001919 A600282879009494AB007D7D8F00181819001818190018181900181818001717 1800171718001717180053535400404042001F1F21001F1F21001F1F21001F1F 20001F1F20001F1F20001F1F20001F1F20001E1E20001E1E20005A5A67009696 AD003C3CA6001D1DA6001D1DA6001D1DA6001C1CA6005959A6009595AC005151 A6001A1AA6001A1AA6001A1A730019191D008C8CA1009494AB00191919001818 1900181819001818190018181800171718001717180038383900303031002020 210020202100202021001F1F21001F1F21001F1F20001F1F20001F1F20001F1F 20001E1E20005A5A66009696AD003C3C80001D1DA6001D1DA6001D1DA6001C1C A6007777A6009595AC003939A6001B1BA6001A1A77001A1A1F001A1A1B007576 87009494AB0038383E0019191A0019191A001919190018181900181819001818 1900272728002C2C2D0020202100202021002020210020202100202021001F1F 21001F1F20001F1F20001F1F20001F1F20005A5A66009696AD003C3C82001E1E A6001D1DA6001D1DA6001C1DA6007777A6009595AC00393AA6001B1BA6001B1B 7A001B1B20001A1A1C00767688009595AB0039393F001A1A1B001A1A1B001919 1B0019191A0019191A0019191900252526003131320020202100202021002020 21002020210020202100202021001F1F21001F1F20001F1F20001F1F20005B5B 68009696AD003C3CA6001E1EA6001D1DA6001D1DA6001D1DA6007777A6009595 AC003A3AA6001C1CA6001B1BA6001B1B77001B1B2000767688009595AC003939 40001B1B1C001A1A1C001A1A1B001A1A1B0019191B0019191A002A2A2B004242 43002020210020202100202021002020210020202100202021001F1F21001F1F 21001F1F20001F1F23005B5B8F009696AD003C3CA6001E1EA6001E1EA6001D1D A6001D1DA6007070A6009696AC003A3AA6001C1CA6001C1CA6001C1CA6001C1C 7900777789009595AC00333338001B1B1D001B1B1C001B1B1C001B1B1C001A1A 1B001A1A1B003B3B3C0062626200202021002020210020202100202021002020 210020202100202021001F1F21001F1F23001F1F77005B5BA6009696AD003C3C A6001E1EA6001E1EA6001D1DA6001D1DA6005959A6009696AC005959A6001D1D A6001D1DA6001D1DA6001D1DA6009696AC009595AC001C1C1D001C1C1D001C1C 1D001C1C1D001B1B1C001B1B1C001B1B1C00575758008C8C8C00202022002020 210020202100202021002020210020202100202021001F1F24003D3D83003D3D A6006A6AA6009696AD003C3CA6001E1EA6001E1EA6001E1EA6001E1E75003535 7D009696AD007070A6001E1EA6001E1EA6001E1EA6003434A6009696AC007777 9D001D1D23001D1D1E001C1D1E001C1C1D001C1C1D001C1C1D001B1B1D008080 8100C2C2C2002020220020202200202022002020210020202100202021002020 2400202075007979A6008E8EA6009696AD009696AD003D3DA6001F1FA6001F1F A6001F1F77001F1F24001F1F23008787A2009696AD003636A6001E1EA6001E1E A6006969A6009696AD004B4BA6001E1E7A001D1D23001D1D1E001D1D1E001D1D 1E001C1C1E001C1C1D00B7B7B700F5F5F5003C3C3E0021212200202022002020 22002020210020202500202075002020A6002020A6001F1FA6006A6AA6009696 AD003D3DA6001F1FA6001F1F75001F1F25001F1F21001F1F210045454E009696 AD008E8EA6005B5BA6006A6AA6009696AD008080A6001F1FA6001E1EA6001E1E 78001E1E23001E1E1F001D1D1F001D1D1E0032323300EFEFEF00FFFFFF008888 890021212200202022002020220020202600202078002020A6002020A6002020 A6002020A6002020A6008888A6003E3EA6002020770020202400202021002020 2100202021002020210045454F0080809F009797AD008F8FA6006A6AA6002727 A6001F1FA6001F1FA6001F1FA6001F1F79001E1E24001E1E1F001E1E1F007B7B 7C00FFFFFF00FFFFFF00E5E5E500313132002020220020202400202076002020 A6002020A6002020A6002020A6002020A6002020A6002020A600202077002020 2500202022002020220020202200202022002020220020202200202023002020 73002020A6002020A6002020A6002020A6002020A6001F1FA6001F1FA6001F1F 79001F1F25002A2A2B00DDDDDD00FFFFFF00FFFFFF00FFFFFF00939393002020 2500202077002020A6002020A6002020A6002020A6002121A6002121A6002121 A600212175002121250021212200212122002121220021212200212122002121 2200212122002121220021212500212175002121A6002020A6002020A6002020 A6002020A6002020A6001F1FA6001F1F780083838A00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E9E9F1002B2B88002121A6002020A6002121A6002121A6002121 A6002121A6002121A60021217600212126002222230022222300222223002222 2300222223002222230022222300212123002121230021212300212124002121 73002121A6002121A6002121A6002020A6002020A6002020A6001B1BA6008484 CF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E6E6F6001B1BAA001E1EA6002121 A6002121A6002121A6002121A6002222A6002222780022222700222223002222 2300222223002222230022222300222223002222230022222300222223002222 2300222223002222230022222600212173002121A6002121A6002121A6002121 A6001E1FA6002C2CAE00E1E1F500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00C2C2E9001717A8001F1FA6002121A6002222A6002222A600222276002222 2700222224002222240022222400232324002323240023232400232324002323 2400232324002223240022222400222224002222230022222300222225002222 73002222A6002121A6002020A6002323A900D3D3EF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00BCBCE7001919A8001F1FA6002222 A600222278002222270023232400232324002323240023232400232324002323 2400232324002323240023232400232324002323240023232400232324002323 2400222224002222240022222500222274002020A6002626A800D2D2EF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00C6C6EB002727AD002D2D8A00232327002323240023232400232325002323 2500232325002323250023232500232325002323250023232500232325002323 25002323250023232500232324002323240023232400232324004C4C53007777 BD00DCDCF300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EBEBF800EFEFF300949495003737 3800232325002323250023232500232325002323250023232500232425002424 2500242425002424250023232500232325002323250023232500232325003434 36008E8E8E00F2F2F200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00E3E3E3008B8B8C004141430024242500242425002424 2500242425002424250024242500242425002424260024242500242425002424 25003F3F400085858600DFDFDF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00F3F3 F300C2C2C2008E8E900065656700464648003535370031313300343436004545 4700646465008D8D8E00BFBFC000F0F0F000FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FDFDFE00EDEDF900F2F2FA00F3F3FB00} OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r2: TSpeedButton Tag = 2 Left = 46 Top = 39 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Flat = True Glyph.Data = { 5A130000424D5A13000000000000360000002800000023000000230000000100 20000000000024130000120B0000120B00000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00EDECFE00CCC8FB00B1ACF9009E97F7009089F6008B84F6008982 F6008A82F6008B83F600958EF700A69FF800C1BDFA00E6E4FD00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00E6E4FD00BCB8F900A19BF7009992F600948DF5008E87 F5008A81F500867EF500837AF500827AF500827AF500837AF500857CF500847C F500867EF500A49EF800D8D5FC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00F5F4FE00C8C4FA00AFA9F600A9A3F600A19B F6009B95F600958FF6009089F5008C84F5008880F500847CF500827AF500827A F500827AF500827AF500827AF500837AF500857CF500837BF500A49EF800E9E8 FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E6E4FD00C1BFF800B8B4 F700B1ACF700AAA5F600A49EF6009E98F6009892F600938CF5008E87F5008A82 F500877EF500837BF500827AF500827AF500827AF500827AF500827AF500827A F500837AF500857DF5008D85F600CDC9FB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E3E1 FC00C6C3F800C1BFF700BAB6F700B3AFF700AEA9F600A8A2F600A29BF6009C95 F600968FF6009189F5008D84F5008880F500857DF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500847CF500837CF500BEBA FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E5E3FC00CECDF800C9C7F800C2C0F800BDBAF700B7B3F700B1AC F700ABA6F600A59FF6009F99F6009993F600938DF5008E88F5008B83F500877E F500847BF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500827AF500847BF500847CF500BEBAFA00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00EDECFD00D5D4F800D1D0F800CBC9F800C6C3 F800C1BDF800BBB7F700B4B0F700AFAAF600A8A3F600A39CF6009D96F6009790 F600918AF5008D85F5008981F500857DF500827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500847BF500837CF500CECB FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FAFAFE00DBD9F900D9D8 F800D3D2F800CECCF800C9C7F800C3C1F800BEBBF700B8B4F700B2ADF700ACA7 F600A6A0F600A09AF6009A94F600948EF6008F88F5008C84F500887FF500847C F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500827AF500847CF5008C84F600ECEBFE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00E1E0FB00DEDFF800D8D8F800D5D4F800D1CFF800CCCAF800C7C4F800C2BE F800BCB8F700B5B1F700B0ABF600A9A4F600A39DF6009D97F6009891F600928B F5008D86F5008A81F500867EF500837AF500827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500857DF500A59FF800FFFF FF00FFFFFF00FFFFFF00F5F4FE00DDDDF800DEDEF800DBDAF800D7D7F800D3D2 F800CFCDF800CAC7F800C4C1F800BFBCF700A29FD8008683BA009893D700A7A1 F600A19AF6009B95F600958FF6009089F5008C84F5008880F500847CF500827A F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500837AF500837BF500DDDAFC00FFFFFF00FFFFFF00E1E0FB00E0E0F900DDDD F800DCDCF800D9D9F800D5D5F800D2D0F800CDCBF800BBB9E900323140000202 020002020200020202002C2B3F009A94E7009E98F6009892F6006F69B8000202 020002020200020202000202020002020200020202000202020002020200827A F500827AF500827AF500827AF500827AF500857DF500A49EF800FFFFFF00FAFA FE00DCDCF900DEDEF800DDDDF800DDDDF800DBDBF800D7D7F800D3D3F800D0CE F80041404F00020202004A485E008C89BA005B597D00020202002C2A3F00A29B F6009C95F600837DD700020202001C1A300045417C0044407C00423E7C00423E 7C00423E7C00423E7C00827AF500827AF500827AF500827AF500827AF500847B F500867EF500EBEAFE00ECEBFD00DEDEF800DEDEF800DDDDF800DDDDF800DDDD F800DADAF800D6D6F800ACAACA000202020034334000C2C0F800BDBAF700B7B3 F7002E2D3F00020202008681C8009F99F6009993F6002F2E4E0002020200716B C700877EF500847BF500827AF5008279F5008279F5008279F5008279F5008279 F5008279F5008279F5008279F500847BF500C4BFFA00E2E1FB00DEDEF800DBDB F800DBDBF800DBDBF800DBDBF800D9D9F800D6D6F8005E5D6E00020202007D7D 9B00C3C1F800BEBAF700B8B4F7006F6D9B00020202004A476D009F98F6009892 F600807BD7000B0A11000A0A11006C65C7008078F5007D74F5007D74F5007D74 F5007D74F5007D74F5007D73F5007C73F5007C73F5007C73F4007E75F500A59E F800DBD9FA00D5D5F800D4D4F800D4D3F800D4D3F800D3D3F800D3D3F800D1CF F80035344000020202009F9DCA00BFBBF800B9B5F700B2AEF7008D89C8000202 02002A283F009992F600938CF5008D86F5006F68C7000A0A11000A091100635B C600766DF400756AF400746AF400746AF400746AF4007469F4007369F4007369 F4007369F4007469F4008C84F600CFCEF900CCCAF800CBC9F800CBC8F800CBC8 F800CAC8F800CAC8F800C8C6F8000202020002020200BDB9F700B7B3F700B1AD F700ACA7F600A6A0F6000202020002020200928BF5008D84F500867DF5008077 F500655CC70009091100090811005951C6006B60F4006B5FF4006A5FF3006A5F F400695FF300695EF300695EF300685EF300685EF400756BF400C5C1F900C0BD F800C0BDF700C0BCF700BFBBF700BFBBF700BFBBF700BEBAF700020202000202 0200B3AFF700AFAAF600AAA3F600A39DF6009D97F60002020200020202008A82 F500837BF5007D74F500786EF4007268F4005850C6000F0D2000080711004E45 C6005E52F3005D52F3005D51F3005C51F3005C51F3005C51F3005B50F3005B50 F3006459F400B8B3F700B3AFF700B3AFF700B3AEF700B2AEF700B2ADF700B2AD F700B1ADF7000202020002020200AAA3F600A59FF6009F99F6009993F600938C F50002020200020202008078F5007B71F500756AF4006E63F400695EF3006358 F3005248D50007071100070611004C41E4005044F3004F43F3004F43F3004F43 F3004E42F3004E42F3004E42F300574CF400ADA8F700A7A0F600A6A0F600A6A0 F600A6A0F600A59FF600A59FF600A49EF6000C0C1100020202009E97F6009993 F600958DF6008F87F5008A81F500020202000A091100786DF4007166F4006B60 F4006559F3005E53F300584CF3005346F3003129980002020200201A6B004335 F2004335F2004235F2004234F2004233F2004133F2004133F2004C3EF300A9A4 F8009993F6009992F6009992F6009892F6009791F6009791F6009790F6002726 3F00020202006F69B8008F88F5008B82F500857DF500605AB800020202001F1C 3F006E63F400685DF3001A173E0029246C005448F3004E42F300483BF3004436 F20002020200100D3E003729F1003627F1003627F1003626F1003526F1003526 F1003525F1004A3CF300AEA9F8008D86F5008D85F5008D85F5008D84F5008C84 F5008B84F5008B83F5004F4A8A00020202004E498A00857DF5008178F5007C73 F500443E8A000202020037327B00665BF3006054F3000D0B20000C0B20004C3F F3004739F2004032F1003B2CF100020202000E0A3E002E1FF1002B1CF1002A1C F1002A1BF1002A1BF1002A1AF100291AF1005B4EF400BFBAFA008279F5008279 F5008178F5008178F5008178F5008178F5008078F5007068D700020202001211 2000746DE5007A6FF400746BF400100F200002020200594FD5005E54F300584D F300201C5D0002020200352AB6003F31F100392BF100241AA60002020200140D 6B002616F1002313F1002111F1002110F1002110F1002110F1002010F1007C72 F700DCD9FC00796FF400796FF400786FF400786EF400786EF400786EF400776E F400776EF40035316C0002020200181630003A357B001D1B3F00020202002D29 6C006054F300594EF3005347F3004438D50006061100060511001B146B001812 6B0005041100050411002113D3002111F1001D0CF0001A09F0001A09F0001A09 F0001908F0001A08F000AEA8FA00FAF9FF00897FF6007469F4007469F4007469 F4007469F400746AF400746AF4007469F4007469F4003B367B00100F20000202 0200100E200037327B00675CF3006156F3005C50F300564AF3005044F3003C32 C60017134D000202020002020200110D4D00271AC400281AF1002515F1002111 F0001E0EF1001C0BF0001C0CF1001D0CF1002F1FF200EAE9FE00FFFFFF00BEBA FA007A6FF4007A70F4007A70F4007A70F4007A70F4007B71F4007B71F4007B71 F4007B71F4007C71F5007B71F500786EF400746AF4007066F4006B61F400675C F3006257F3005B50F300564AF3005043F3004A3DF3004537F2003E31F100392B F1003526F1003021F1002C1DF1002919F1002517F1002516F1002616F1008077 F700FFFFFF00FFFFFF00F2F1FE008C84F600837BF500837AF500837BF500837B F500837BF500847BF500847CF500847CF500857CF500857DF500847AF5008077 F5007C73F500796FF4007469F4006E64F4006A5FF3006459F3005E52F300584C F3005246F3004C3FF300473AF2004134F2003D2EF200382AF1003526F1003223 F1003022F100382BF200DCDAFD00FFFFFF00FFFFFF00FFFFFF00C9C5FA008E87 F5008E86F5008E87F5008E87F5008E87F5008F88F5008F88F5008F89F5009089 F5009089F5009089F5008E86F5008B83F500877EF5008279F5007D74F500796E F4007368F4006D63F400685DF3006257F3005C51F300564AF3005145F3004B3F F300473AF3004436F2004032F2003E31F1009088F700FFFFFF00FFFFFF00FFFF FF00FFFFFF00FCFCFF00AFAAF7009C95F6009B94F6009B94F6009B95F6009C95 F6009C96F6009C96F6009C96F6009D97F6009D97F6009C95F6009993F600958F F600918BF6008D85F5008880F500827AF5007D74F500776DF4007267F4006C61 F400675CF3006155F3005B50F300564AF3005246F3004F43F300675CF500F2F1 FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EDECFD00AEA9F700A9A4 F600A8A3F600A9A3F600A9A4F600A9A4F600AAA4F600AAA5F600AAA5F600ABA5 F600ABA6F600A9A3F600A69FF600A19BF6009D97F6009891F600938CF5008D86 F5008880F5008279F5007C73F500776DF4007167F4006C61F400675CF3006458 F300665BF400D5D2FC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E7E6FD00B9B4F800B6B2F700B5B2F700B5B2F700B6B2F700B6B3 F700B6B3F700B7B3F700B7B4F700B7B4F700B7B3F700B4B0F700B1ACF700ADA7 F600A8A3F600A39DF6009E97F6009891F600928BF5008D85F500877EF5008178 F5007C72F500786EF400766CF400C9C5FB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E9E8FD00C6C2F800C3C1 F800C2BFF800C2C0F800C2C0F800C2C0F800C3C0F800C3C1F800C3C1F800C4C1 F800C2BFF800C0BCF800BCB8F700B7B3F700B2ADF700ADA8F700A8A2F600A29C F6009C96F600968FF6009089F5008D85F5008B84F600CFCCFB00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00F1F0FD00D3D1FA00CFCDF800CECDF800CECCF800CECCF800CECC F800CECDF800CECDF800CFCDF800CECCF800CBCAF800C8C6F800C4C2F800C0BC F800BBB7F700B5B1F700B0ABF700AAA5F600A5A0F600A19AF600A7A2F700E0DE FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFF00E2E1FC00D7D6 F900D8D8F800D8D8F800D7D7F800D7D7F800D7D7F800D8D7F800D8D8F800D6D5 F800D3D2F800CFCEF800CBC9F800C6C3F800C2BFF800BDB9F700B8B4F700B4AF F700C8C5FA00F8F7FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00F7F7FE00E4E4FC00DDDDF900DDDDF800DFDFF800DEDE F800DEDEF800DDDDF800DDDDF800DAD9F800D6D6F800D3D2F800D0CEF800C9C7 F800C7C4F800D3D0FA00F0EFFE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCFC FF00EFEEFD00E5E4FB00E0E0FA00DFDFF900DEDEF900DFDFF800DDDDF900DBDB F900DBD9FA00DEDCFB00E8E7FC00F9F9FE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r1: TSpeedButton Tag = 1 Left = 3 Top = 39 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Flat = True Glyph.Data = { 5A130000424D5A13000000000000360000002800000023000000230000000100 20000000000024130000120B0000120B00000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00EDECFE00CCC8FB00B1ACF9009E97F7009089F6008B84F6008982 F6008A82F6008B83F600958EF700A69FF800C1BDFA00E6E4FD00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00E6E4FD00BCB8F900A19BF7009992F600948DF5008E87 F5008A81F500867EF500837AF500827AF500827AF500837AF500857CF500847C F500867EF500A49EF800D8D5FC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00F5F4FE00C8C4FA00AFA9F600A9A3F600A19B F6009B95F600958FF6009089F5008C84F5008880F500847CF500827AF500827A F500827AF500827AF500827AF500837AF500857CF500837BF500A49EF800E9E8 FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E6E4FD00C1BFF800B8B4 F700B1ACF700AAA5F600A49EF6009E98F6009892F600938CF5008E87F5008A82 F500877EF500837BF500827AF500827AF500827AF500827AF500827AF500827A F500837AF500857DF5008D85F600CDC9FB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E3E1 FC00C6C3F800C1BFF700BAB6F700B3AFF700AEA9F600A8A2F600A29BF6009C95 F600968FF6009189F5008D84F5008880F500857DF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500847CF500837CF500BEBA FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E5E3FC00CECDF800C9C7F800C2C0F800BDBAF700B7B3F700B1AC F700ABA6F600A59FF6009F99F6009993F600938DF5008E88F5008B83F500877E F500847BF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500827AF500847BF500847CF500BEBAFA00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00EDECFD00D5D4F800D1D0F800CBC9F800C6C3 F800C1BDF800BBB7F700B4B0F700AFAAF600A8A3F600A39CF6009D96F6009790 F600918AF5008D85F5008981F500857DF500827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500847BF500837CF500CECB FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FAFAFE00DBD9F900D9D8 F800D3D2F800CECCF800C9C7F800C3C1F800BEBBF700B8B4F700B2ADF700ACA7 F600A6A0F600A09AF6009A94F600948EF6008F88F5008C84F500887FF500847C F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500827AF500847CF5008C84F600ECEBFE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00E1E0FB00DEDFF800D8D8F800D5D4F800D1CFF800CCCAF800C7C4F800C2BE F800BCB8F700B5B1F700B0ABF600A9A4F600A39DF6009D97F6009891F600928B F5008D86F5008A81F500867EF500837AF500827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500857DF500A59FF800FFFF FF00FFFFFF00FFFFFF00F5F4FE00DDDDF800DEDEF800DBDAF800D7D7F800D3D2 F800CFCDF800CAC7F800C4C1F800BFBCF700AEAAE8008683BA008D89C800A7A1 F600A19AF6009B95F600958FF6009089F5008C84F5008880F500847CF500827A F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500837AF500837BF500DDDAFC00FFFFFF00FFFFFF00E1E0FB00E0E0F900DDDD F800DCDCF800D9D9F800D5D5F800D2D0F800CDCBF800C7C5F80056556E000202 02000202020002020200171621008681C8009E98F6009892F600938CF5008E87 F5008A82F500877EF500433F7C0002020200625CB800827AF500827AF500827A F500827AF500827AF500827AF500827AF500857DF500A49EF800FFFFFF00FAFA FE00DCDCF900DEDEF800DDDDF800DDDDF800DBDBF800D7D7F800D3D3F800D0CE F80072718C0002020200262530008C89BA00706E9B000D0C11000C0C11009891 E7009C95F600968FF6009189F5008D84F5008880F50044407C0002020200625C B800827AF500827AF500827AF500827AF500827AF500827AF500827AF500847B F500867EF500EBEAFE00ECEBFD00DEDEF800DEDEF800DDDDF800DDDDF800DDDD F800DADAF800D6D6F800D3D1F8000F0F11000E0E1100B6B4E900BDBAF700B7B3 F7005A577D00020202005D5A8B009F99F6009993F600938DF5008E88F5008B83 F50045407C0002020200625CB8008279F5008279F5008279F5008279F5008279 F5008279F5008279F5008279F500847BF500C4BFFA00E2E1FB00DEDEF800DBDB F800DBDBF800DBDBF800DBDBF800D9D9F800D6D6F8009190AB00020202004D4C 5F00C3C1F800BEBAF700B8B4F7009B98D80002020200212030009F98F6009892 F600928CF5008D86F5008980F500433F7C00020202005E57B8007D74F5007D74 F5007D74F5007D74F5007D73F5007C73F5007C73F5007C73F4007E75F500A59E F800DBD9FA00D5D5F800D4D4F800D4D3F800D4D3F800D3D3F800D3D3F800D1CF F80068677D00020202006F6D8C00BFBBF800B9B5F700B2AEF700ADA8F6000C0C 1100020202009992F600938CF5008D86F5008880F500837AF500403C7C000202 02005952B700756AF400746AF400746AF400746AF4007469F4007369F4007369 F4007369F4007469F4008C84F600CFCEF900CCCAF800CBC9F800CBC8F800CBC8 F800CAC8F800CAC8F800C8C6F80033324000020202008E8BBA00B7B3F700B1AD F700ACA7F600A6A0F60029283F00020202006E69B8008D84F500867DF5008077 F5007C71F5003C377B0002020200524BB7006B60F4006B5FF4006A5FF3006A5F F400695FF300695EF300695EF300685EF300685EF400756BF400C5C1F900C0BD F800C0BDF700C0BCF700BFBBF700BFBBF700BFBBF700BEBAF70031303F000202 02008784BA00AFAAF600AAA3F600A39DF6009D97F60027263F00020202006862 B800837BF5007D74F500786EF4007268F40037327B00020202004B43B7006055 F3005E52F3005D52F3005D51F3005C51F3005C51F3005C51F3005B50F3005B50 F3006459F400B8B3F700B3AFF700B3AFF700B3AEF700B2AEF700B2ADF700B2AD F700B1ADF7002E2D3F0002020200807BB900A59FF6009F99F6009993F600938C F50025233F0002020200605AB8007B71F500756AF4006E63F400695EF300332D 7B0002020200433AB7005448F3005145F3005044F3004F43F3004F43F3004F43 F3004E42F3004E42F3004E42F300574CF400ADA8F700A7A0F600A6A0F600A6A0 F600A6A0F600A59FF600A59FF600A49EF60035334F00020202007772B9009993 F600958DF6008F87F5008A81F50023203F00020202006259C6007166F4006B60 F4006559F3005E53F3002D277B00020202003A31B700493DF2004638F2004335 F2004335F2004235F2004234F2004233F2004133F2004133F2004C3EF300A9A4 F8009993F6009992F6009992F6009892F6009791F6009791F6009790F6004C49 7C00020202004B477C008F88F5008B82F500857DF5008077F500020202000202 02006E63F400685DF3006156F3005A4FF3005448F30028227B00020202003329 B6003F31F2003B2CF1003729F1003627F1003627F1003626F1003526F1003526 F1003525F1004A3CF300AEA9F8008D86F5008D85F5008D85F5008D84F5008C84 F5008B84F5008B83F500716BC700020202002C2A4E00857DF5008178F5007C73 F5006259C600020202001D1A3F00665BF3006054F300594DF3003E35B7003930 B7001C175C00020202002D21B5003627F1003222F1002E1FF1002B1CF1002A1C F1002A1BF1002A1BF1002A1AF100291AF1005B4EF400BFBAFA008279F5008279 F5008178F5008178F5008178F5008178F5008078F5008077F500121120000202 0200655FC6007A6FF400746BF4002B285D0002020200403998005E54F300584D F3005246F30014113E00060511000202020002020200271CB5002F20F1002A1B F1002616F1002313F1002111F1002110F1002110F1002110F1002010F1007C72 F700DCD9FC00796FF400796FF400786FF400786EF400786EF400786EF400776E F400776EF400524BA80002020200090911003A357B002B275D00020202001513 2F006054F300594EF3005347F3004D40F300473AF2004132F20017125C000202 02002418B5002A1BF1002516F1002111F1001D0CF0001A09F0001A09F0001A09 F0001908F0001A08F000AEA8FA00FAF9FF00897FF6007469F4007469F4007469 F4007469F400746AF400746AF4007469F4007469F4005049A800171630000202 0200090811002A265D006156E4006156F3005C50F300564AF3005044F3004A3D F3004437F2003E30F10009072000271BB5002F1FF100281AF1002515F1002111 F0001E0EF1001C0BF0001C0CF1001D0CF1002F1FF200EAE9FE00FFFFFF00BEBA FA007A6FF4007A70F4007A70F4007A70F4007A70F4007B71F4007B71F4007B71 F4007B71F4007C71F5007B71F500786EF400746AF4007066F4006B61F400675C F3006257F3005B50F300564AF3005043F3004A3DF3004537F2003E31F100392B F1003526F1003021F1002C1DF1002919F1002517F1002516F1002616F1008077 F700FFFFFF00FFFFFF00F2F1FE008C84F600837BF500837AF500837BF500837B F500837BF500847BF500847CF500847CF500857CF500857DF500847AF5008077 F5007C73F500796FF4007469F4006E64F4006A5FF3006459F3005E52F300584C F3005246F3004C3FF300473AF2004134F2003D2EF200382AF1003526F1003223 F1003022F100382BF200DCDAFD00FFFFFF00FFFFFF00FFFFFF00C9C5FA008E87 F5008E86F5008E87F5008E87F5008E87F5008F88F5008F88F5008F89F5009089 F5009089F5009089F5008E86F5008B83F500877EF5008279F5007D74F500796E F4007368F4006D63F400685DF3006257F3005C51F300564AF3005145F3004B3F F300473AF3004436F2004032F2003E31F1009088F700FFFFFF00FFFFFF00FFFF FF00FFFFFF00FCFCFF00AFAAF7009C95F6009B94F6009B94F6009B95F6009C95 F6009C96F6009C96F6009C96F6009D97F6009D97F6009C95F6009993F600958F F600918BF6008D85F5008880F500827AF5007D74F500776DF4007267F4006C61 F400675CF3006155F3005B50F300564AF3005246F3004F43F300675CF500F2F1 FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EDECFD00AEA9F700A9A4 F600A8A3F600A9A3F600A9A4F600A9A4F600AAA4F600AAA5F600AAA5F600ABA5 F600ABA6F600A9A3F600A69FF600A19BF6009D97F6009891F600938CF5008D86 F5008880F5008279F5007C73F500776DF4007167F4006C61F400675CF3006458 F300665BF400D5D2FC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E7E6FD00B9B4F800B6B2F700B5B2F700B5B2F700B6B2F700B6B3 F700B6B3F700B7B3F700B7B4F700B7B4F700B7B3F700B4B0F700B1ACF700ADA7 F600A8A3F600A39DF6009E97F6009891F600928BF5008D85F500877EF5008178 F5007C72F500786EF400766CF400C9C5FB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E9E8FD00C6C2F800C3C1 F800C2BFF800C2C0F800C2C0F800C2C0F800C3C0F800C3C1F800C3C1F800C4C1 F800C2BFF800C0BCF800BCB8F700B7B3F700B2ADF700ADA8F700A8A2F600A29C F6009C96F600968FF6009089F5008D85F5008B84F600CFCCFB00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00F1F0FD00D3D1FA00CFCDF800CECDF800CECCF800CECCF800CECC F800CECDF800CECDF800CFCDF800CECCF800CBCAF800C8C6F800C4C2F800C0BC F800BBB7F700B5B1F700B0ABF700AAA5F600A5A0F600A19AF600A7A2F700E0DE FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFF00E2E1FC00D7D6 F900D8D8F800D8D8F800D7D7F800D7D7F800D7D7F800D8D7F800D8D8F800D6D5 F800D3D2F800CFCEF800CBC9F800C6C3F800C2BFF800BDB9F700B8B4F700B4AF F700C8C5FA00F8F7FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00F7F7FE00E4E4FC00DDDDF900DDDDF800DFDFF800DEDE F800DEDEF800DDDDF800DDDDF800DAD9F800D6D6F800D3D2F800D0CEF800C9C7 F800C7C4F800D3D0FA00F0EFFE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCFC FF00EFEEFD00E5E4FB00E0E0FA00DFDFF900DEDEF900DFDFF800DDDDF900DBDB F900DBD9FA00DEDCFB00E8E7FC00F9F9FE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object Label4: TLabel Left = 2 Top = 12 Width = 76 Height = 19 Caption = '['#36873#25321#32418#29699']' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object r5: TSpeedButton Tag = 5 Left = 177 Top = 39 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '05' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r4: TSpeedButton Tag = 4 Left = 131 Top = 37 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '04' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r3: TSpeedButton Tag = 3 Left = 90 Top = 39 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '03' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r7: TSpeedButton Left = 3 Top = 78 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Glyph.Data = { 5A130000424D5A13000000000000360000002800000023000000230000000100 20000000000024130000120B0000120B00000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00EDECFE00CCC8FB00B1ACF9009E97F7009089F6008B84F6008982 F6008A82F6008B83F600958EF700A69FF800C1BDFA00E6E4FD00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00E6E4FD00BCB8F900A19BF7009992F600948DF5008E87 F5008A81F500867EF500837AF500827AF500827AF500837AF500857CF500847C F500867EF500A49EF800D8D5FC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00F5F4FE00C8C4FA00AFA9F600A9A3F600A19B F6009B95F600958FF6009089F5008C84F5008880F500847CF500827AF500827A F500827AF500827AF500827AF500837AF500857CF500837BF500A49EF800E9E8 FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E6E4FD00C1BFF800B8B4 F700B1ACF700AAA5F600A49EF6009E98F6009892F600938CF5008E87F5008A82 F500877EF500837BF500827AF500827AF500827AF500827AF500827AF500827A F500837AF500857DF5008D85F600CDC9FB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E3E1 FC00C6C3F800C1BFF700BAB6F700B3AFF700AEA9F600A8A2F600A29BF6009C95 F600968FF6009189F5008D84F5008880F500857DF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500847CF500837CF500BEBA FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E5E3FC00CECDF800C9C7F800C2C0F800BDBAF700B7B3F700B1AC F700ABA6F600A59FF6009F99F6009993F600938DF5008E88F5008B83F500877E F500847BF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500827AF500847BF500847CF500BEBAFA00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00EDECFD00D5D4F800D1D0F800CBC9F800C6C3 F800C1BDF800BBB7F700B4B0F700AFAAF600A8A3F600A39CF6009D96F6009790 F600918AF5008D85F5008981F500857DF500827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500847BF500837CF500CECB FB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FAFAFE00DBD9F900D9D8 F800D3D2F800CECCF800C9C7F800C3C1F800BEBBF700B8B4F700B2ADF700ACA7 F600A6A0F600A09AF6009A94F600948EF6008F88F5008C84F500887FF500847C F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500827AF500847CF5008C84F600ECEBFE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00E1E0FB00DEDFF800D8D8F800D5D4F800D1CFF800CCCAF800C7C4F800C2BE F800BCB8F700B5B1F700B0ABF600A9A4F600A39DF6009D97F6009891F600928B F5008D86F5008A81F500867EF500837AF500827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500827AF500857DF500A59FF800FFFF FF00FFFFFF00FFFFFF00F5F4FE00DDDDF800DEDEF800DBDAF800D7D7F800D3D2 F800CFCDF800CAC7F800C4C1F800BFBCF700A29FD8008683BA009893D700A7A1 F600A19AF6009B95F600958FF6009089F5008C84F5008880F500847CF500827A F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500827A F500837AF500837BF500DDDAFC00FFFFFF00FFFFFF00E1E0FB00E0E0F900DDDD F800DCDCF800D9D9F800D5D5F800D2D0F800CDCBF800BBB9E900323140000202 020002020200020202002C2B3F009A94E7009E98F6009892F600938CF5008E87 F5008A82F5002C294E0002020200726BD700827AF500827AF500827AF500827A F500827AF500827AF500827AF500827AF500857DF500A49EF800FFFFFF00FAFA FE00DCDCF900DEDEF800DDDDF800DDDDF800DBDBF800D7D7F800D3D3F800D0CE F80041404F00020202004A485E008C89BA005B597D00020202002C2A3F00A29B F6009C95F600968FF6009189F5008D84F50056519A00020202004A458A00827A F500827AF500827AF500827AF500827AF500827AF500827AF500827AF500847B F500867EF500EBEAFE00ECEBFD00DEDEF800DEDEF800DDDDF800DDDDF800DDDD F800DADAF800D6D6F800ACAACA000202020034334000C2C0F800BDBAF700B7B3 F7002E2D3F00020202008681C8009F99F6009993F600938DF5008E88F500827B E600020202001A193000827AF5008279F5008279F5008279F5008279F5008279 F5008279F5008279F5008279F500847BF500C4BFFA00E2E1FB00DEDEF800DBDB F800DBDBF800DBDBF800DBDBF800D9D9F800D6D6F8005E5D6E00020202007D7D 9B00C3C1F800BEBAF700B8B4F7006F6D9B00020202004A476D009F98F6009892 F600928CF5008D86F5008980F5002B284E0002020200756DE6007D74F5007D74 F5007D74F5007D74F5007D73F5007C73F5007C73F5007C73F4007E75F500A59E F800DBD9FA00D5D5F800D4D4F800D4D3F800D4D3F800D3D3F800D3D3F800D1CF F80035344000020202009F9DCA00BFBBF800B9B5F700B2AEF7008D89C8000202 02002A283F009992F600938CF5008D86F5008880F500837AF50048428A000202 02004A459900756AF400746AF400746AF400746AF4007469F4007369F4007369 F4007369F4007469F4008C84F600CFCEF900CCCAF800CBC9F800CBC8F800CBC8 F800CAC8F800CAC8F800C8C6F8000202020002020200BDB9F700B7B3F700B1AD F700ACA7F600A6A0F6000202020002020200928BF5008D84F500867DF5008077 F5007C71F500675FD6000202020024204E006B60F4006B5FF4006A5FF3006A5F F400695FF300695EF300695EF300685EF300685EF400756BF400C5C1F900C0BD F800C0BDF700C0BCF700BFBBF700BFBBF700BFBBF700BEBAF700020202000202 0200B3AFF700AFAAF600AAA3F600A39DF6009D97F60002020200020202008A82 F500837BF5007D74F500786EF4007268F4006C62F30015132F00020202006055 F3005E52F3005D52F3005D51F3005C51F3005C51F3005C51F3005B50F3005B50 F3006459F400B8B3F700B3AFF700B3AFF700B3AEF700B2AEF700B2ADF700B2AD F700B1ADF7000202020002020200AAA3F600A59FF6009F99F6009993F600938C F50002020200020202008078F5007B71F500756AF4006E63F400695EF3006358 F300352F8900020202003A32A7005145F3005044F3004F43F3004F43F3004F43 F3004E42F3004E42F3004E42F300574CF400ADA8F700A7A0F600A6A0F600A6A0 F600A6A0F600A59FF600A59FF600A49EF6000C0C1100020202009E97F6009993 F600958DF6008F87F5008A81F500020202000A091100786DF4007166F4006B60 F4006559F3005E53F300584CF3004439C600020202001D185C004638F2004335 F2004335F2004235F2004234F2004233F2004133F2004133F2004C3EF300A9A4 F8009993F6009992F6009992F6009892F6009791F6009791F6009790F6002726 3F00020202006F69B8008F88F5008B82F500857DF500605AB800020202001F1C 3F006E63F400685DF3006156F3005A4FF3005448F3004E42F300483BF3000A09 20000A0820003B2CF1003729F1003627F1003627F1003626F1003526F1003526 F1003525F1004A3CF300AEA9F8008D86F5008D85F5008D85F5008D84F5008C84 F5008B84F5008B83F5004F4A8A00020202004E498A00857DF5008178F5007C73 F500443E8A000202020037327B00665BF3006054F300594DF3005246F3004C3F F3004739F2004032F1001B146B0002020200291CC4002E1FF1002B1CF1002A1C F1002A1BF1002A1BF1002A1AF100291AF1005B4EF400BFBAFA008279F5008279 F5008178F5008178F5008178F5008178F5008078F5007068D700020202001211 2000746DE5007A6FF400746BF400100F200002020200594FD5005E54F300584D F3005246F3004B3FF3004638F2003F31F100392BF1002B1EC40002020200140D 6B002616F1002313F1002111F1002110F1002110F1002110F1002010F1007C72 F700DCD9FC00796FF400796FF400786FF400786EF400786EF400786EF400776E F400776EF40035316C0002020200181630003A357B001D1B3F00020202002D29 6C006054F300594EF3005347F30015123E0013103E00120E3E00100D3E000F0B 3E000D0A3E00020202000B073E002111F1001D0CF0001A09F0001A09F0001A09 F0001908F0001A08F000AEA8FA00FAF9FF00897FF6007469F4007469F4007469 F4007469F400746AF400746AF4007469F4007469F4003B367B00100F20000202 0200100E200037327B00675CF3006156F3005C50F300564AF30016133E001411 3E00130F3E00110E3E00100C3E000E0B3E000D093E00130D6B002515F1002111 F0001E0EF1001C0BF0001C0CF1001D0CF1002F1FF200EAE9FE00FFFFFF00BEBA FA007A6FF4007A70F4007A70F4007A70F4007A70F4007B71F4007B71F4007B71 F4007B71F4007C71F5007B71F500786EF400746AF4007066F4006B61F400675C F3006257F3005B50F300564AF3005043F3004A3DF3004537F2003E31F100392B F1003526F1003021F1002C1DF1002919F1002517F1002516F1002616F1008077 F700FFFFFF00FFFFFF00F2F1FE008C84F600837BF500837AF500837BF500837B F500837BF500847BF500847CF500847CF500857CF500857DF500847AF5008077 F5007C73F500796FF4007469F4006E64F4006A5FF3006459F3005E52F300584C F3005246F3004C3FF300473AF2004134F2003D2EF200382AF1003526F1003223 F1003022F100382BF200DCDAFD00FFFFFF00FFFFFF00FFFFFF00C9C5FA008E87 F5008E86F5008E87F5008E87F5008E87F5008F88F5008F88F5008F89F5009089 F5009089F5009089F5008E86F5008B83F500877EF5008279F5007D74F500796E F4007368F4006D63F400685DF3006257F3005C51F300564AF3005145F3004B3F F300473AF3004436F2004032F2003E31F1009088F700FFFFFF00FFFFFF00FFFF FF00FFFFFF00FCFCFF00AFAAF7009C95F6009B94F6009B94F6009B95F6009C95 F6009C96F6009C96F6009C96F6009D97F6009D97F6009C95F6009993F600958F F600918BF6008D85F5008880F500827AF5007D74F500776DF4007267F4006C61 F400675CF3006155F3005B50F300564AF3005246F3004F43F300675CF500F2F1 FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EDECFD00AEA9F700A9A4 F600A8A3F600A9A3F600A9A4F600A9A4F600AAA4F600AAA5F600AAA5F600ABA5 F600ABA6F600A9A3F600A69FF600A19BF6009D97F6009891F600938CF5008D86 F5008880F5008279F5007C73F500776DF4007167F4006C61F400675CF3006458 F300665BF400D5D2FC00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00E7E6FD00B9B4F800B6B2F700B5B2F700B5B2F700B6B2F700B6B3 F700B6B3F700B7B3F700B7B4F700B7B4F700B7B3F700B4B0F700B1ACF700ADA7 F600A8A3F600A39DF6009E97F6009891F600928BF5008D85F500877EF5008178 F5007C72F500786EF400766CF400C9C5FB00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E9E8FD00C6C2F800C3C1 F800C2BFF800C2C0F800C2C0F800C2C0F800C3C0F800C3C1F800C3C1F800C4C1 F800C2BFF800C0BCF800BCB8F700B7B3F700B2ADF700ADA8F700A8A2F600A29C F6009C96F600968FF6009089F5008D85F5008B84F600CFCCFB00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00F1F0FD00D3D1FA00CFCDF800CECDF800CECCF800CECCF800CECC F800CECDF800CECDF800CFCDF800CECCF800CBCAF800C8C6F800C4C2F800C0BC F800BBB7F700B5B1F700B0ABF700AAA5F600A5A0F600A19AF600A7A2F700E0DE FD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFF00E2E1FC00D7D6 F900D8D8F800D8D8F800D7D7F800D7D7F800D7D7F800D8D7F800D8D8F800D6D5 F800D3D2F800CFCEF800CBC9F800C6C3F800C2BFF800BDB9F700B8B4F700B4AF F700C8C5FA00F8F7FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00F7F7FE00E4E4FC00DDDDF900DDDDF800DFDFF800DEDE F800DEDEF800DDDDF800DDDDF800DAD9F800D6D6F800D3D2F800D0CEF800C9C7 F800C7C4F800D3D0FA00F0EFFE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCFC FF00EFEEFD00E5E4FB00E0E0FA00DFDFF900DEDEF900DFDFF800DDDDF900DBDB F900DBD9FA00DEDCFB00E8E7FC00F9F9FE00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r22: TSpeedButton Left = 133 Top = 158 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '22' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r23: TSpeedButton Left = 177 Top = 158 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '23' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r24: TSpeedButton Left = 221 Top = 158 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '24' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r20: TSpeedButton Left = 46 Top = 158 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '20' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r19: TSpeedButton Left = 3 Top = 158 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '19' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r21: TSpeedButton Left = 90 Top = 158 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '21' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r15: TSpeedButton Left = 90 Top = 118 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '15' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r14: TSpeedButton Left = 46 Top = 118 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '14' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r13: TSpeedButton Left = 3 Top = 118 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '13' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r18: TSpeedButton Left = 221 Top = 118 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '18' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r17: TSpeedButton Left = 177 Top = 118 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '17' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object r16: TSpeedButton Left = 133 Top = 118 Width = 35 Height = 35 AllowAllUp = True GroupIndex = 1 Caption = '16' OnClick = r1Click OnMouseEnter = sbRed1MouseEnter OnMouseLeave = sbRed1MouseLeave end object Label9: TLabel Left = 97 Top = 16 Width = 154 Height = 16 Caption = #32418'-'#32966' '#28784'-'#25302' '#40657'-'#26432 Color = clBlue Font.Charset = DEFAULT_CHARSET Font.Color = clHotLight Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label10: TLabel Left = 134 Top = 251 Width = 126 Height = 13 Caption = #28857#20987#29699#20250#22312'3'#31181#29366#24577#20999#25442 Color = clBlue Font.Charset = DEFAULT_CHARSET Font.Color = clHotLight Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentColor = False ParentFont = False end object btnBClear: TBitBtn Left = 194 Top = 290 Width = 33 Height = 22 Caption = #20840#28165 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = btnBClearClick end object btnBReverse: TBitBtn Left = 226 Top = 290 Width = 33 Height = 22 Caption = #21453#36873 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = btnBReverseClick end object btnBAll: TBitBtn Left = 159 Top = 290 Width = 33 Height = 22 Caption = #20840#36873 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = btnBAllClick end object BitBtn4: TBitBtn Left = 124 Top = 290 Width = 33 Height = 22 Caption = #26426#36873 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = bbtnBlueRandomClick end object UpDown5: TUpDown Left = 110 Top = 291 Width = 16 Height = 21 Associate = edtb Min = 1 Max = 16 Position = 1 TabOrder = 4 end object edtb: TEdit Left = 87 Top = 291 Width = 23 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861 NumbersOnly = True ParentFont = False TabOrder = 5 Text = '1' end end end object tsTailsBetting: TTabSheet Caption = #23614#21495#25237#27880 ImageIndex = 2 object pnlTailsBetting: TPanel Left = 0 Top = 0 Width = 271 Height = 439 Align = alClient Color = clMoneyGreen ParentBackground = False TabOrder = 0 object sbtnAdd: TSpeedButton Left = 205 Top = 17 Width = 59 Height = 29 Caption = #25163#21160#28155#21152 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False OnClick = sbtnAddClick end object sbtnInput: TSpeedButton Left = 205 Top = 59 Width = 59 Height = 29 Caption = #25209#37327#23548#20837 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False OnClick = sbtnInputClick end object sbtnSave: TSpeedButton Left = 205 Top = 102 Width = 59 Height = 29 Caption = #20445' '#23384 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False OnClick = sbtnSaveClick end object sbtnDel: TSpeedButton Left = 205 Top = 145 Width = 59 Height = 29 Caption = #21024' '#38500 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False OnClick = sbtnDelClick end object sbtnClear: TSpeedButton Left = 205 Top = 188 Width = 59 Height = 29 Caption = #28165' '#31354 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False OnClick = sbtnClearClick end object lbTails: TListBox Left = 1 Top = 1 Width = 198 Height = 437 Align = alLeft Color = clMoneyGreen DoubleBuffered = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Tahoma' Font.Style = [] ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ItemHeight = 23 ParentDoubleBuffered = False ParentFont = False TabOrder = 0 end object edtTails: TEdit Left = 25 Top = 276 Width = 121 Height = 24 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 TabOrder = 1 Visible = False OnExit = edtTailsExit OnKeyPress = edtTailsKeyPress end end end end object bbtnProduct: TBitBtn Left = 154 Top = 472 Width = 120 Height = 42 Caption = ' '#25237' '#27880 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] Glyph.Data = { 360F0000424D360F000000000000360000002800000028000000200000000100 180000000000000F0000C40E0000C40E00000000000000000000FEFAF9FDFBFB EFF2F6EBF4F8E6F1F9D5E3EFD2DDF3D8DDFCDBDAFFE2DEFFEBE5FCE6E3ECE4E3 DFE6E7DDE1E2D9DDDCD8D6D7D5D1D1D1D1D1D1D3D3D3CFCFCFC7C7C7C9C9C9D2 D2D2D4D4D4D2D2D2E0E0E0E1E1E1EAEAEAFBFBFBFDFDFDFCFCFCFAFAFAFDFDFD FEFEFEFDFDFDFDFDFDFEFEFEFFFFFFFFFFFFFDF9FEFAF8FEE5E7F2D1D8E9BBC6 DAA6B1CCA6AED3AEB3E0B8B4E8C3BDECCDC8E8D7D4E4E1E1E1D6D9D0C4C3BFC0 C1BDB4B4B4B2B2B2B2B2B2B2B2B2ADADADA8A8A8AAAAAAB0B0B0ABABABB5B5B5 C6C6C6CCCCCCD9D9D9EFEFEFF9F9F9F8F8F8FCFCFCFEFEFEFFFFFFFFFFFFFEFE FEFEFEFEFFFFFFFFFFFFF9F4FFEBE9FCBBBCD88588AE595F8E3D447D3E418545 46904C46935B5399817BACB7B3D0D3D2DCBCBEBE9898988686867E7E7E7F7F7F 7F7F7F7D7D7D7B7B7B7B7B7B808080868686757575797979828282949494ACAC ACD6D6D6F6F6F6F7F7F7FAFAFAFDFDFDFFFFFFFFFFFFFEFEFEFEFEFEFEFEFEFE FEFEF6F4FFDDDBF88D8CB63A3B750F135A03065B0506680A076E0E076F150C66 413B7C8985AEA6A6B89295998283877D7F807F7F7F8181818181817F7F7F7D7D 7D7C7C7C7A7A7A7979798383837E7E7E7C7C7C858585858585B4B4B4F2F2F2FE FEFEF7F7F7FAFAFAFDFDFDFEFEFEFDFDFDFEFEFEFEFEFEFDFDFDF1F0FFD1D1F5 6C6BA3141460090A6C1B1C8E21209E201B9E2017961A117F1E19684B4879676A 7F62656D7C7F83B2B4B5D2D2D2CECECEC7C7C7C2C2C2C3C3C3C9C9C9CCCCCCCC CCCCC9C9C9D5D5D5D9D9D9C2C2C2898989A4A4A4E9E9E9FCFCFCF6F6F6FAFAFA FDFDFDFEFEFEFEFEFEFEFEFEFEFEFEFDFDFDEFF0FFCFD0F65C5C9C0708601718 8A3435BB3332C42E29C02F26B6251E9707045A323268787C947D838A999CA0E3 E5E6FFFFFFFEFEFEFAFAFAF9F9F9FCFCFCFFFFFFFFFFFFFDFDFDF3F3F3FFFFFF EEEEEEB8B8B86F6F6F8B8B8BD0D0D0F4F4F4F9F9F9FCFCFCFFFFFFFFFFFFFEFE FEFEFEFEFEFEFEFDFDFDF1F7FFD2D7F8595B9B0609641E219B3335C32423BF24 20BF342EC31D199606055B585B8EC8CFE3D4DADFCFD2D6EEF0F1F4F4F4F7F7F7 FCFCFCFFFFFFFEFEFEF5F5F5E9E9E9E1E1E1ECECECDEDEDEAFAFAF8080805E5E 5E7A7A7AA7A7A7E0E0E0F9F9F9FDFDFDFFFFFFFFFFFFFEFEFEFFFFFFFFFFFFFE FEFEEAF1FFCED3F255579706086621239F2B2EBF1818B81E1EBE3A38CD0E0C88 04055B7377AAE6EDFFF8FEFFE6E9EDD8D7D9CECDCFC9C9C9C3C3C3C0C0C0BEBE BEBFBFBFC5C5C5CCCCCCD3D3D3C5C5C5A3A3A3A0A0A0A0A0A0969696868686BB BBBBF7F7F7FBFBFBFDFDFDFEFEFEFEFEFEFFFFFFFFFFFFFFFFFFF0F5FFCDD3F0 585C9700035C23279E2D31BF171BB62E2FCD3837C911108805075B6C71A2D0D5 EADDE0E8D2D1DABCBAC0A3A2A47F7F7F7171717A7A7A777777767676959595BA BABACACACADEDEDEE2E2E2F1F1F1E4E4E4AEAEAE7B7B7BAEAEAEFBFBFBFBFBFB FDFDFDFEFEFEFCFCFCFCFCFCFDFDFDFAFAFAEFF4FFCCD0ED60619D080A622428 9E3439C42123BD2628C23838C8121189020458686B9EC8CCE4CACCD6C4C0CCC2 BCC7B5B4B8A5A5A59F9F9FA2A2A2A3A3A3ABABABB8B8B8BDBDBDC8C8C8D4D4D4 CFCFCFD2D2D2C7C7C7A8A8A88A8A8ABABABAFBFBFBFDFDFDFEFEFEFDFDFDFDFD FDFDFDFDFCFCFCFBFBFBF3F5FFCED1F05F609C080A622A2DA03B3FC62627BD2B 2CC44240CF1D1B930A0A5E6B6BA1CCCDE9CDCCDCC7C1D4CBC4D3E2E1E5DCDCDC DDDDDDE0E0E0DDDDDDDDDDDDD9D9D9CECECECCCCCCC3C3C3A4A4A49595959292 929191918E8E8EC1C1C1EFEFEFF6F6F6F4F4F4F3F3F3F8F8F8FBFBFBFAFAFAFE FEFEF3F4FFD2D3F55C5D9906075D3234A43D41C52326B73535C94845D1211C95 0B085E66659DC7C7E5D2D0E3CBC5D8C1BAC9B9B8BCA5A5A5A1A1A1A7A7A7A3A3 A3A3A3A3B3B3B3C3C3C3C8C8C8C8C8C8B4B4B4A9A9A9A7A7A7959595838383B4 B4B4DBDBDBE6E6E6E5E5E5E4E4E4EFEFEFF4F4F4F6F6F6FDFDFDF2F3FFCECFF1 5F609A090B5F3134A14B4ECE3B3DCB4342D4524CD9221B9408055B63629ABFC2 DECECFDDCAC7D6B9B5C09A999D8181817575757575757272727B7B7B9A9A9AB5 B5B5B7B7B7D4D4D4E5E5E5F2F2F2EDEDEDACACAC717171959595D3D3D3E0E0E0 E1E1E1E1E1E1ECECECF2F2F2F3F3F3F9F9F9F6F7FFC9CBEA6061990A0E5D2D30 995D62DD6061ED5956E75D56E1251F9609065C69699FC4C8E1CFD1DBD0D0D6CC CBCFD7D6D8D4D4D4D6D6D6D6D6D6D0D0D0D2D2D2D5D5D5D1D1D1D0D0D0DEDEDE E7E7E7F6F6F6F9F9F9B9B9B97A7A7A969696CDCDCDD9D9D9DDDDDDDEDEDEE8E8 E8F1F1F1F5F5F5FBFBFBF4F8FFCBCFEC5C60930A0F5A393EA16064DB5454DC51 50DC5B54DD2C269B08055A646598CAD0E3D1D9D9CBD0CED2D6D1E5E6E4E1E1E1 EAEAEAF4F4F4F0F0F0EAEAEAE6E6E6E1E1E1D3D3D3D0D0D0D8D8D8E7E7E7ECEC ECB8B8B87979797A7A7AA6A6A6AEAEAEB4B4B4B9B9B9C7C7C7DDDDDDF0F0F0FA FAFAEEF2FFD2D6F25A5E8F10135D5154B65555CB2221A62F2DB55C58D93936A4 0C0B5B5B5F90D0D6E9D8E0E0C6CDC6C9CEC5BDBEBC9898988989899393939090 908F8F8FAEAEAED2D2D2DBDBDBC4C4C4B7B7B7A8A8A89C9C9C8383836969696E 6E6E7272727676767C7C7C8585859A9A9ABFBFBFE2E2E2F2F2F2EDF3FFD4D8F5 56578A1716605653B65953C8211C9D2B27A8625FD335349611135A6A6E9EDDE1 F9E3E7ECC6CAC5C6C9C0B0B1AF8A8A8A7E7E7E8686867F7F7F818181A0A0A0C0 C0C0D1D1D1C6C6C6B0B0B09393938B8B8B8585858989898A8A8A8D8D8D898989 8F8F8F9595959292929E9E9EC8C8C8F3F3F3F2F6FFD5D9F66362941C19614F48 A96B63D5554DC95B56CF7572DF2C2C860B0E52797EABEDF1FFECEEF8D0D1CFD0 D0CAD1D2D0D3D3D3DFDFDFE2E2E2D7D7D7D5D5D5D7D7D7D0D0D0D0D0D0D0D0D0 D3D3D3CFCFCFD4D4D4CECECED3D3D3D6D6D6DBDBDBCFCFCFD5D5D5DADADAB7B7 B7919191B0B0B0F3F3F3F0F1FFD2D4F25F5C8E1612595951AE9189F4877FF486 7FF28783EC3A3891090B4C585B88CDCEEAF6F6FFEFEBF0D9D7D7E4E4E4ECECEC F5F5F5F1F1F1EBEBEBF4F4F4F8F8F8EDEDEDF5F5F5F2F2F2F5F5F5F4F4F4F9F9 F9F5F5F5FCFCFCFFFFFFFFFFFFF8F8F8FFFFFFFFFFFFC8C8C88282829A9A9AEE EEEEF6F5FFE0DEFB65628F1B18566660B2A19AFB948DF59490F78C89E55353A1 0F0F4B20214D84829FDAD7E6FAF5FEF2EFF1D6D4D4D5D5D5DDDDDDE0E0E0DADA DADFDFDFF1F1F1FFFFFFFDFDFDFDFDFDFFFFFFFCFCFCFEFEFEFCFCFCFFFFFFFB FBFBFDFDFDFEFEFEFFFFFFF8F8F8C9C9C9959595ADADADF7F7F7F2F2FFE1DFF5 7573971E1A4E302B704742913D388D4542973F3D893535752526584040647976 8F9B98A7C5C0C9F5F1F6EEEBEDDFDFDFD7D7D7DBDBDBDEDEDED7D7D7C2C2C2AE AEAEB9B9B9BDBDBDC3C3C3B6B6B6B0B0B0AEAEAEB3B3B3A9A9A9A9A9A9AFAFAF AFAFAFACACACA4A4A49F9F9FBEBEBEF1F1F1FBFDFFE7E7F3A7A7BF5A59802F2E 601F1F5B1B1A5A19195916174F3A3C6C717396A5A6C0AAA8BB7D7984847D84C7 C1C6F5F2F4F5F5F5ECECECE5E5E5ECECECE1E1E1A5A5A56161616B6B6B6B6B6B 7676767474747171717070707979797474747878787979797C7C7C898989A2A2 A2BCBCBCDCDCDCFCFCFCFBFEFCEEF2F3DCDEE8BBBCD09395B48184AA7F81AA76 7BA28387AAA0A4C0C9CFE2E6EAF5D7D6DF9E9DA1837E80959092AFADADDEDEDE FFFFFFFCFCFCF7F7F7F0F0F0CACACA9C9C9C6969695C5C5C7676769D9D9DB6B6 B6B5B5B5BCBCBCBBBBBBB5B5B5B1B1B1B3B3B3C0C0C0D3D3D3E6E6E6F6F6F6FF FFFFF7FDF2FBFFF9FAFEFFF6F9FFEDF2FFE5EAFFE4EAFFE8EEFFE9F0FFE7EDFA EDF3FAF4F9FCF3F5F6DEDCDCA9A4A57C7778838181B6B6B6E1E1E1E9E9E9ECEC ECF4F4F4F4F4F4EFEFEFA6A6A67C7C7C8A8A8AC5C5C5F0F0F0F0F0F0F5F5F5F8 F8F8F6F6F6F4F4F4F6F6F6F9F9F9FAFAFAFCFCFCFCFCFCF8F8F8F7FBEFFBFFF6 FCFFFBF9FDFEF7FBFFF1F6FFEFF5FFF4FBFFF5FBFFF7FEFFF7FDFCF6FBF9FDFE FCFAF8F7E1DCDDC3BEBFACAAAAAAAAAA939393979797D1D1D1FDFDFDFAFAFAEE EEEEDFDFDFADADAD7D7D7DA8A8A8F6F6F6FCFCFCFBFBFBFFFFFFFEFEFEFFFFFF FFFFFFFFFFFFFEFEFEFDFDFDFEFEFEFFFFFFF8FCF1FDFFF6FBFFFAF9FCFAF7FB FCF3F8FBF2F6FBF6FBFEE8EDEEF5FAF9FBFFFEF6F9F7F2F3F1F7F5F4FEF9FAFD FAFCE6E6E6C1C1C18383836D6D6D9B9B9BD3D3D3EDEDEDF7F7F7FCFCFCCDCDCD 7E7E7E868686E0E0E0FFFFFFFFFFFFF5F5F5FBFBFBFCFCFCFDFDFDFCFCFCFAFA FAF9F9F9FAFAFAFCFCFCFAFBF7FCFDF9FBFCFAF7F9F9F9FBFCF5F8FCF3F6FAF6 F9FDFAFEFFF9FBFCF5F7F7F4F4F4F8F7F9FEFDFFFFFDFFFEFAFFFDFCFEF4F4F4 CECECE9A9A9A7C7C7C8B8B8BC6C6C6FFFFFFFBFBFBD1D1D1858585898989DFDF DFFDFDFDFEFEFEFFFFFFFDFDFDFDFDFDFDFDFDFBFBFBFAFAFAF9F9F9FAFAFAFC FCFCFBFBFBFCFCFCF9F9F9F8F7F9F9FAFEF9FAFEF7F8FCF8F9FDF9FBFCF7F9FA F8F7F9FBFAFCFDFCFFFDFCFFFAF9FDF7F6FAFAF9FBFFFFFFFAFAFACFCFCF9292 927979799F9F9FD3D3D3E7E7E7B9B9B98686869E9E9EEBEBEBFCFCFCF9F9F9FC FCFCFFFFFFFFFFFFFEFEFEFDFDFDFCFCFCFCFCFCFDFDFDFFFFFFFAFCFDFAFCFD F9F8FAF9F8FAFDFCFFFDFCFFFBFAFEFCFBFFF9F8FAFAF9FBFCFBFDFDFCFEFAFC FDF8FAFBFAFCFDFFFEFFFFFFFFFBFBFBFEFEFEF8F8F8D3D3D3A1A1A17F7F7F72 72726E6E6E797979959595C1C1C1F1F1F1FAFAFAFDFDFDFBFBFBFEFEFEFDFDFD FDFDFDFCFCFCFCFCFCFDFDFDFEFEFEFFFFFFFAFCFCFBFDFDFAFAFAFAFAFAFEFD FFFFFEFFFDFCFEFEFDFFFFFFFFFEFEFEFAFAFAFCFCFCFBFDFDFAFCFCF8FAFAF8 FAFAFFFFFFF6F6F6F6F6F6FDFDFDF2F2F2D6D6D6B7B7B7A3A3A39F9F9FA7A7A7 C4C4C4DFDFDFF8F8F8FFFFFFFFFFFFFBFBFBFDFDFDFDFDFDFCFCFCFCFCFCFDFD FDFEFEFEFFFFFFFFFFFFFAFEF9FBFFFAF9FCFAF8FBF9FFFFFEFFFFFEFFFDFCFF FEFDFAF8F7FDFBFAFEFFFBFEFFFBFAFEF8F8FCF6F7FEF7FCFFFAFDFEFCFBFBFB FDFDFDFFFFFFFFFFFFF5F5F5E7E7E7DDDDDDE4E4E4EAEAEAFBFBFBFEFEFEFFFF FFF5F5F5F6F6F6FAFAFAFDFDFDFDFDFDFDFDFDFDFDFDFEFEFEFEFEFEFFFFFFFF FFFFFAFEF8FCFFFAFAFEF9F9FDF8FEFFFBFEFFFBFEFDF9FFFEFAFFFFFBFFFEFA FCFEF8FBFDF7F9FEF5FAFFF6F8FFF5F7FFF5FBFCFAFFFFFFFFFFFFF9F9F9F8F8 F8FAFAFAFDFDFDFFFFFFFFFFFFFFFFFFFEFEFEF4F4F4FFFFFFFFFFFFFCFCFCFA FAFAFCFCFCFCFCFCFCFCFCFCFCFCFDFDFDFDFDFDFDFDFDFCFCFC} ParentFont = False TabOrder = 1 OnClick = bbtnProductClick OnMouseEnter = sbtnLastMouseEnter OnMouseLeave = sbtnLastMouseLeave end end object Panel2: TPanel Left = 0 Top = 47 Width = 283 Height = 35 Alignment = taLeftJustify BevelInner = bvRaised BevelOuter = bvLowered Caption = ' '#9312' '#35774#32622#25237#27880#22797#24335#24182#25237#27880 Color = clMoneyGreen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentBackground = False ParentFont = False TabOrder = 1 object bbtnBetting: TBitBtn Left = 191 Top = 1 Width = 89 Height = 32 Caption = #25237#27880#25805#20316' '#9660 DoubleBuffered = False PopupMenu = popmnuBetting TabOrder = 0 OnMouseDown = bbtnBettingMouseDown end end object Panel3: TPanel Left = 281 Top = 47 Width = 318 Height = 35 Alignment = taLeftJustify BevelInner = bvRaised BevelOuter = bvLowered Caption = ' '#9313' '#35774#32622#36807#28388#26465#20214#24182#36807#28388 Color = clMoneyGreen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentBackground = False ParentFont = False TabOrder = 2 object bbtnFiltering: TBitBtn Left = 221 Top = 1 Width = 94 Height = 32 Caption = #36807#28388#25805#20316' '#9660 PopupMenu = popmnuFiltering TabOrder = 0 OnMouseDown = bbtnFilteringMouseDown end end object Panel4: TPanel Left = 596 Top = 47 Width = 293 Height = 35 Alignment = taLeftJustify BevelInner = bvRaised BevelOuter = bvLowered Caption = ' '#9314' '#25237#27880#32467#26524#36755#20986 Color = clMoneyGreen Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentBackground = False ParentFont = False TabOrder = 3 object bbtnOutput: TBitBtn Left = 198 Top = 1 Width = 94 Height = 32 Caption = #32467#26524#22788#29702' '#9660 PopupMenu = popmnuOutput TabOrder = 0 OnMouseDown = bbtnOutputMouseDown end end object Panel5: TPanel Left = 280 Top = 87 Width = 317 Height = 535 BevelOuter = bvLowered BorderWidth = 1 Caption = 'Panel5' TabOrder = 4 object pgcFilter: TPageControl Left = 2 Top = 1 Width = 314 Height = 492 ActivePage = tsCommonFilter TabOrder = 0 object tsCommonFilter: TTabSheet Caption = #26465#20214#19968 object pnlFilter: TPanel Left = 0 Top = 0 Width = 306 Height = 464 Align = alClient Color = clMoneyGreen ParentBackground = False TabOrder = 0 object Label6: TLabel Left = 175 Top = 12 Width = 12 Height = 13 Caption = #33267 end object chkSum: TCheckBox Left = 8 Top = 8 Width = 97 Height = 21 Caption = #32418#29699#21644#20540#33539#22260 TabOrder = 0 OnClick = chkSumClick end object edtMin: TEdit Left = 111 Top = 9 Width = 41 Height = 21 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861 TabOrder = 1 Text = '60' end object UpDown1: TUpDown Left = 152 Top = 9 Width = 16 Height = 21 Associate = edtMin Min = 22 Max = 183 Position = 60 TabOrder = 2 end object edtMax: TEdit Left = 193 Top = 9 Width = 41 Height = 21 ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861 TabOrder = 3 Text = '130' end object UpDown2: TUpDown Left = 234 Top = 9 Width = 16 Height = 21 Associate = edtMax Min = 22 Max = 183 Position = 130 TabOrder = 4 end object bbtnSum: TBitBtn Left = 262 Top = 8 Width = 37 Height = 22 Caption = #21382#21490 TabOrder = 5 OnClick = bbtnSumClick end object chkRepeat: TCheckBox Left = 8 Top = 44 Width = 215 Height = 21 Caption = #37325#30721#20010#25968#65288#19982#21069#19968#26399#32418#29699#37325#22797#65289 TabOrder = 6 OnClick = chkRepeatClick end object bbtnRepeat: TBitBtn Left = 262 Top = 44 Width = 37 Height = 22 Caption = #21382#21490 TabOrder = 7 OnClick = bbtnRepeatClick end object chkTilt: TCheckBox Left = 8 Top = 95 Width = 215 Height = 21 Caption = #26012#30721#20010#25968#65288#19982#21069#19968#26399#32418#29699#30456#37051#30340#29699#65289 TabOrder = 8 OnClick = chkRepeatClick end object bbtnTilt: TBitBtn Left = 261 Top = 95 Width = 37 Height = 22 Caption = #21382#21490 TabOrder = 9 OnClick = bbtnTiltClick end object chkOdd: TCheckBox Left = 8 Top = 145 Width = 161 Height = 21 Caption = #22855#25968#20010#25968#65288#22855#25968#30340#32418#29699#65289 TabOrder = 10 OnClick = chkRepeatClick end object bbtnOdd: TBitBtn Left = 261 Top = 145 Width = 37 Height = 22 Caption = #21382#21490 TabOrder = 11 OnClick = bbtnOddClick end object chkBig: TCheckBox Left = 8 Top = 197 Width = 215 Height = 21 Caption = #22823#25968#20010#25968#65288#22823#20110#31561#20110'17'#30340#32418#29699#65289 TabOrder = 12 OnClick = chkRepeatClick end object bbtnBig: TBitBtn Left = 261 Top = 197 Width = 37 Height = 22 Caption = #21382#21490 TabOrder = 13 OnClick = bbtnBigClick end object chkOld: TCheckBox Left = 8 Top = 250 Width = 215 Height = 21 Caption = #26087#30721#20010#25968#65288#36817'5'#26399#20986#29616#36807#30340#32418#29699#65289 TabOrder = 14 OnClick = chkRepeatClick end object bbtnOld: TBitBtn Left = 261 Top = 250 Width = 37 Height = 22 Caption = #21382#21490 TabOrder = 15 OnClick = bbtnOldClick end object chkBigTail: TCheckBox Left = 8 Top = 303 Width = 215 Height = 21 Caption = #39640#23614#20010#25968#65288#32418#29699#23614#25968#22823#20110#31561#20110'5'#65289 TabOrder = 16 OnClick = chkRepeatClick end object bbtnBigTail: TBitBtn Left = 261 Top = 303 Width = 37 Height = 22 Caption = #21382#21490 TabOrder = 17 OnClick = bbtnBigTailClick end object chkTails: TCheckBox Left = 8 Top = 356 Width = 215 Height = 21 Caption = #24322#23614#20010#25968#65288#19981#37325#22797#30340#32418#29699#23614#20010#25968#65289 TabOrder = 18 OnClick = chkRepeatClick end object bbtnTails: TBitBtn Left = 261 Top = 356 Width = 37 Height = 22 Caption = #21382#21490 TabOrder = 19 OnClick = bbtnTailsClick end object chkContinuous: TCheckBox Left = 8 Top = 407 Width = 215 Height = 21 Caption = #36830#21495#20010#25968#65288#30456#36830#30340#32418#29699#20010#25968#65289 TabOrder = 20 OnClick = chkRepeatClick end object bbtnContinuous: TBitBtn Left = 261 Top = 408 Width = 37 Height = 22 Caption = #21382#21490 TabOrder = 21 OnClick = bbtnContinuousClick end object gbRepeat: TGroupBox Left = 22 Top = 66 Width = 275 Height = 22 TabOrder = 22 object chkRepeat0: TCheckBox Left = 16 Top = 2 Width = 33 Height = 21 Caption = '0' TabOrder = 0 end object chkRepeat1: TCheckBox Left = 53 Top = 2 Width = 33 Height = 21 Caption = '1' TabOrder = 1 end object chkRepeat2: TCheckBox Left = 90 Top = 2 Width = 33 Height = 21 Caption = '2' TabOrder = 2 end object chkRepeat3: TCheckBox Left = 127 Top = 2 Width = 33 Height = 21 Caption = '3' TabOrder = 3 end object chkRepeat4: TCheckBox Left = 164 Top = 2 Width = 33 Height = 21 Caption = '4' TabOrder = 4 end object chkRepeat5: TCheckBox Left = 201 Top = 2 Width = 33 Height = 21 Caption = '5' TabOrder = 5 end object chkRepeat6: TCheckBox Left = 239 Top = 2 Width = 33 Height = 21 Caption = '6' TabOrder = 6 end end object gbOdd: TGroupBox Left = 22 Top = 168 Width = 275 Height = 22 TabOrder = 23 object CheckBox1: TCheckBox Left = 16 Top = 2 Width = 33 Height = 21 Caption = '0' TabOrder = 0 end object CheckBox2: TCheckBox Left = 53 Top = 2 Width = 33 Height = 21 Caption = '1' TabOrder = 1 end object CheckBox3: TCheckBox Left = 90 Top = 2 Width = 33 Height = 21 Caption = '2' TabOrder = 2 end object CheckBox4: TCheckBox Left = 127 Top = 2 Width = 33 Height = 21 Caption = '3' TabOrder = 3 end object CheckBox5: TCheckBox Left = 164 Top = 2 Width = 33 Height = 21 Caption = '4' TabOrder = 4 end object CheckBox6: TCheckBox Left = 201 Top = 2 Width = 33 Height = 21 Caption = '5' TabOrder = 5 end object CheckBox7: TCheckBox Left = 239 Top = 2 Width = 33 Height = 21 Caption = '6' TabOrder = 6 end end object gbBig: TGroupBox Left = 22 Top = 220 Width = 275 Height = 22 TabOrder = 24 object CheckBox8: TCheckBox Left = 16 Top = 2 Width = 33 Height = 21 Caption = '0' TabOrder = 0 end object CheckBox9: TCheckBox Left = 53 Top = 2 Width = 33 Height = 21 Caption = '1' TabOrder = 1 end object CheckBox10: TCheckBox Left = 90 Top = 2 Width = 33 Height = 21 Caption = '2' TabOrder = 2 end object CheckBox11: TCheckBox Left = 127 Top = 2 Width = 33 Height = 21 Caption = '3' TabOrder = 3 end object CheckBox17: TCheckBox Left = 164 Top = 2 Width = 33 Height = 21 Caption = '4' TabOrder = 4 end object CheckBox18: TCheckBox Left = 201 Top = 2 Width = 33 Height = 21 Caption = '5' TabOrder = 5 end object CheckBox19: TCheckBox Left = 239 Top = 2 Width = 33 Height = 21 Caption = '6' TabOrder = 6 end end object gbOld: TGroupBox Left = 22 Top = 273 Width = 275 Height = 22 TabOrder = 25 object CheckBox20: TCheckBox Left = 16 Top = 2 Width = 33 Height = 21 Caption = '0' TabOrder = 0 end object CheckBox21: TCheckBox Left = 53 Top = 2 Width = 33 Height = 21 Caption = '1' TabOrder = 1 end object CheckBox22: TCheckBox Left = 90 Top = 2 Width = 33 Height = 21 Caption = '2' TabOrder = 2 end object CheckBox23: TCheckBox Left = 127 Top = 2 Width = 33 Height = 21 Caption = '3' TabOrder = 3 end object CheckBox25: TCheckBox Left = 164 Top = 2 Width = 33 Height = 21 Caption = '4' TabOrder = 4 end object CheckBox26: TCheckBox Left = 201 Top = 2 Width = 33 Height = 21 Caption = '5' TabOrder = 5 end object CheckBox27: TCheckBox Left = 239 Top = 2 Width = 33 Height = 21 Caption = '6' TabOrder = 6 end end object gbBigTail: TGroupBox Left = 22 Top = 326 Width = 275 Height = 22 TabOrder = 26 object CheckBox28: TCheckBox Left = 16 Top = 2 Width = 33 Height = 21 Caption = '0' TabOrder = 0 end object CheckBox29: TCheckBox Left = 53 Top = 2 Width = 33 Height = 21 Caption = '1' TabOrder = 1 end object CheckBox30: TCheckBox Left = 90 Top = 2 Width = 33 Height = 21 Caption = '2' TabOrder = 2 end object CheckBox31: TCheckBox Left = 127 Top = 2 Width = 33 Height = 21 Caption = '3' TabOrder = 3 end object CheckBox33: TCheckBox Left = 164 Top = 2 Width = 33 Height = 21 Caption = '4' TabOrder = 4 end object CheckBox34: TCheckBox Left = 201 Top = 2 Width = 33 Height = 21 Caption = '5' TabOrder = 5 end object CheckBox35: TCheckBox Left = 239 Top = 2 Width = 33 Height = 21 Caption = '6' TabOrder = 6 end end object gbTails: TGroupBox Left = 22 Top = 380 Width = 275 Height = 22 TabOrder = 27 object CheckBox36: TCheckBox Left = 16 Top = 2 Width = 33 Height = 21 Caption = '0' TabOrder = 0 end object CheckBox37: TCheckBox Left = 53 Top = 2 Width = 33 Height = 21 Caption = '1' TabOrder = 1 end object CheckBox38: TCheckBox Left = 90 Top = 2 Width = 33 Height = 21 Caption = '2' TabOrder = 2 end object CheckBox39: TCheckBox Left = 127 Top = 2 Width = 33 Height = 21 Caption = '3' TabOrder = 3 end object CheckBox41: TCheckBox Left = 164 Top = 2 Width = 33 Height = 21 Caption = '4' TabOrder = 4 end object CheckBox42: TCheckBox Left = 201 Top = 2 Width = 33 Height = 21 Caption = '5' TabOrder = 5 end object CheckBox43: TCheckBox Left = 239 Top = 2 Width = 33 Height = 21 Caption = '6' TabOrder = 6 end end object gbContinuous: TGroupBox Left = 22 Top = 432 Width = 275 Height = 22 TabOrder = 28 object CheckBox44: TCheckBox Left = 16 Top = 2 Width = 33 Height = 21 Caption = '0' TabOrder = 0 end object CheckBox45: TCheckBox Left = 53 Top = 2 Width = 33 Height = 21 Caption = '1' TabOrder = 1 end object CheckBox46: TCheckBox Left = 92 Top = 2 Width = 33 Height = 21 Caption = '2' TabOrder = 2 end object CheckBox47: TCheckBox Left = 127 Top = 2 Width = 33 Height = 21 Caption = '3' TabOrder = 3 end object CheckBox49: TCheckBox Left = 164 Top = 2 Width = 33 Height = 21 Caption = '4' TabOrder = 4 end object CheckBox50: TCheckBox Left = 201 Top = 2 Width = 33 Height = 21 Caption = '5' TabOrder = 5 end object CheckBox51: TCheckBox Left = 239 Top = 2 Width = 33 Height = 21 Caption = '6' TabOrder = 6 end end object gbTilt: TGroupBox Left = 22 Top = 117 Width = 275 Height = 22 TabOrder = 29 object CheckBox12: TCheckBox Left = 16 Top = 2 Width = 33 Height = 21 Caption = '0' TabOrder = 0 end object CheckBox13: TCheckBox Left = 53 Top = 2 Width = 33 Height = 21 Caption = '1' TabOrder = 1 end object CheckBox14: TCheckBox Left = 90 Top = 2 Width = 33 Height = 21 Caption = '2' TabOrder = 2 end object CheckBox15: TCheckBox Left = 127 Top = 2 Width = 33 Height = 21 Caption = '3' TabOrder = 3 end object CheckBox52: TCheckBox Left = 164 Top = 2 Width = 33 Height = 21 Caption = '4' TabOrder = 4 end object CheckBox53: TCheckBox Left = 201 Top = 2 Width = 33 Height = 21 Caption = '5' TabOrder = 5 end object CheckBox54: TCheckBox Left = 239 Top = 2 Width = 33 Height = 21 Caption = '6' TabOrder = 6 end end end end object tsAdvance: TTabSheet Caption = #26465#20214#20108 ImageIndex = 1 ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object pnlAdvancefilter: TPanel Left = 0 Top = 0 Width = 306 Height = 464 Align = alClient Color = clMoneyGreen ParentBackground = False TabOrder = 0 object sbSumRemainder: TSpeedButton Left = 249 Top = 156 Width = 24 Height = 21 Glyph.Data = { 32040000424D3204000000000000360000002800000013000000110000000100 180000000000FC030000C40E0000C40E000000000000000000007F552B61360B 66390D66380967390A67390A65380C65390A65390A65390A653A0963390A6339 0C65380D67360E67370D643809734C20A78B69000000D5BEB6E0C5BBE9CABBE6 C8B5E2C7B3E1C9B7E2CEBDDCC8B7E1CBB9DFCAB5DBC6B0E1CDBBE3CDC1DAC0BA E7C6C3E6C4BEE6CBB6DCC5AB86715B000000CFC1C5D0BFC2DFC9CBDFC9CBD4C0 C5DECDD6CCBDCBD2C6D2CFC0C8D9CBD1D2C3CBCBBFCBC9BCCCD5C5D7D7C0CFD9 C3C8D6C6C0D8CBBDC8BBAD000000D8CCC6DDCECBE0CBCED9C0CEDEC4E2D8BEE6 D5BDE7D6BEE6D7BFE2D3BBDED8C1EDD3BFECD2C0E9D2C2E1D5C1CDE2D0D1DACE CCDCD3CFFFFEFA000000DDD1C7EBDDD7DFCCCFE1C8DCE5CAF54F3466533C6956 3E6659416458406A533A76442E6F513F7A4C3C65E4D3DEDBCCCAD7CFD0D3CED0 FFFEFF000000EADBD2E0D3CBE7D7D8E8D5E4D8C3E957436DE7D7EFDECFDDE0D0 DBE8D5EE44306BD0BCFFD2C3FF4D3F6FE0CFDCEDE1DDE0D9DCE0DCE2FFFCFF00 0000EFDFD8E6D8D2E7DAD8E8DAE6E0CFF44C3B60D8CDDDEADFE1E6DBD7DCCFDF 52418146368A3A2D7B473A72E6D7E5E2D6D2DCD5D8E3DFE5FDF9FF000000EBD8 D3E8D9D6E9DEDADCD3DDD8CBF153456EE2D7E7E0D5D7ECE1DDDCD0E4413079D0 C0FFCBBFFF443977E3D8E8E7DCD8E0D8D8E2DCDDFFFEFF000000F3DEE0ECDDDB EDE4E0E6DFE6DED3F9433860E8DEEFE7DFE0E7DBD9E5D8EE4839833326883C33 8E403879E1D6EAEADFDBECE3E0E1DAD7FFFFFC000000F6E1E9F2E4E6EEE8E3E5 E1E6E5DCFD4D4268E2D8E9F1E7EDF1E8E5E7DCF040347CD4C9FFD6CEFF3F3776 EADEF4F3E7E7EFE6E3F2ECE7FFFCF7000000FFEFFAFFF3F9F3EFEAF0ECF1F5EE FF413761F8ECFFF9EDFFF3E8F2FEF2FF43377F352C8338328348427BF2E6FCF6 EBEDF6EFECF8F2EDFFFFFA000000FDF0F8FCF2F8FDF8F7FCF6FFF1E8FF493C70 F6E7FFF3E4FFFFEEFFF5E4FF42337DE9DCFFE4DDFF413C6FFDF3FFFFF8F8FBF7 F6F8F7F3FFFFFE000000FFF8FFFFF9FCF7F1F2FCF7FFF2E9FF483E694C416951 456955466544355B4E427E423A7B3D3770444168FCF2FFFAF2F2FCFAF9F7F7F7 FEFEFE000000F9F5FAFCF7F8FFFCFBFCF7F9FFFAFFF8F6FFF9F7FFF4F4FAF8F6 F6FFFDFFEFEBFFF6F5FFF1F0FFF1EEFFFFFAFFFFFBFBFDFBFBF6F8F9FCFEFF00 0000FBFEFCFFFFFEFFFFFEFFFEFFFCF8FEFAFAFFF2F7F6FBFFF9FFFFF7FDFEF4 F8F9FDF7F8FFF8FAFFFBFBFFFFFCFDFFFBF6FFFEFDFAFAFAFFFEFF000000FBFF F9F4F8F2FFFAFBFFFCFFFAF3FAFDFDFFFBFFFFF5FEF4FEFFF6FFFFF7FFFFFEFA FBFFF6F7FFFBF9FFFFFCF5FFFFF7FFFEFBFFFBFAFFFEFF000000F5FFF2FCFFF8 FFFAFBFFFAFFFFFBFFFFFEFFF0F6F5FAFFF9FDFFF7F6FAEEFFFFFBFCFCFCFBFB FFFFFDFFFFFFF7FFFDF0FFFEF9FFFAF9FFFFFE000000} OnClick = sbSumRemainderClick end object sbSumTails: TSpeedButton Left = 249 Top = 194 Width = 24 Height = 21 Glyph.Data = { 32040000424D3204000000000000360000002800000013000000110000000100 180000000000FC030000C40E0000C40E000000000000000000007F552B61360B 66390D66380967390A67390A65380C65390A65390A65390A653A0963390A6339 0C65380D67360E67370D643809734C20A78B69000000D5BEB6E0C5BBE9CABBE6 C8B5E2C7B3E1C9B7E2CEBDDCC8B7E1CBB9DFCAB5DBC6B0E1CDBBE3CDC1DAC0BA E7C6C3E6C4BEE6CBB6DCC5AB86715B000000CFC1C5D0BFC2DFC9CBDFC9CBD4C0 C5DECDD6CCBDCBD2C6D2CFC0C8D9CBD1D2C3CBCBBFCBC9BCCCD5C5D7D7C0CFD9 C3C8D6C6C0D8CBBDC8BBAD000000D8CCC6DDCECBE0CBCED9C0CEDEC4E2D8BEE6 D5BDE7D6BEE6D7BFE2D3BBDED8C1EDD3BFECD2C0E9D2C2E1D5C1CDE2D0D1DACE CCDCD3CFFFFEFA000000DDD1C7EBDDD7DFCCCFE1C8DCE5CAF54F3466533C6956 3E6659416458406A533A76442E6F513F7A4C3C65E4D3DEDBCCCAD7CFD0D3CED0 FFFEFF000000EADBD2E0D3CBE7D7D8E8D5E4D8C3E957436DE7D7EFDECFDDE0D0 DBE8D5EE44306BD0BCFFD2C3FF4D3F6FE0CFDCEDE1DDE0D9DCE0DCE2FFFCFF00 0000EFDFD8E6D8D2E7DAD8E8DAE6E0CFF44C3B60D8CDDDEADFE1E6DBD7DCCFDF 52418146368A3A2D7B473A72E6D7E5E2D6D2DCD5D8E3DFE5FDF9FF000000EBD8 D3E8D9D6E9DEDADCD3DDD8CBF153456EE2D7E7E0D5D7ECE1DDDCD0E4413079D0 C0FFCBBFFF443977E3D8E8E7DCD8E0D8D8E2DCDDFFFEFF000000F3DEE0ECDDDB EDE4E0E6DFE6DED3F9433860E8DEEFE7DFE0E7DBD9E5D8EE4839833326883C33 8E403879E1D6EAEADFDBECE3E0E1DAD7FFFFFC000000F6E1E9F2E4E6EEE8E3E5 E1E6E5DCFD4D4268E2D8E9F1E7EDF1E8E5E7DCF040347CD4C9FFD6CEFF3F3776 EADEF4F3E7E7EFE6E3F2ECE7FFFCF7000000FFEFFAFFF3F9F3EFEAF0ECF1F5EE FF413761F8ECFFF9EDFFF3E8F2FEF2FF43377F352C8338328348427BF2E6FCF6 EBEDF6EFECF8F2EDFFFFFA000000FDF0F8FCF2F8FDF8F7FCF6FFF1E8FF493C70 F6E7FFF3E4FFFFEEFFF5E4FF42337DE9DCFFE4DDFF413C6FFDF3FFFFF8F8FBF7 F6F8F7F3FFFFFE000000FFF8FFFFF9FCF7F1F2FCF7FFF2E9FF483E694C416951 456955466544355B4E427E423A7B3D3770444168FCF2FFFAF2F2FCFAF9F7F7F7 FEFEFE000000F9F5FAFCF7F8FFFCFBFCF7F9FFFAFFF8F6FFF9F7FFF4F4FAF8F6 F6FFFDFFEFEBFFF6F5FFF1F0FFF1EEFFFFFAFFFFFBFBFDFBFBF6F8F9FCFEFF00 0000FBFEFCFFFFFEFFFFFEFFFEFFFCF8FEFAFAFFF2F7F6FBFFF9FFFFF7FDFEF4 F8F9FDF7F8FFF8FAFFFBFBFFFFFCFDFFFBF6FFFEFDFAFAFAFFFEFF000000FBFF F9F4F8F2FFFAFBFFFCFFFAF3FAFDFDFFFBFFFFF5FEF4FEFFF6FFFFF7FFFFFEFA FBFFF6F7FFFBF9FFFFFCF5FFFFF7FFFEFBFFFBFAFFFEFF000000F5FFF2FCFFF8 FFFAFBFFFAFFFFFBFFFFFEFFF0F6F5FAFFF9FDFFF7F6FAEEFFFFFBFCFCFCFBFB FFFFFDFFFFFFF7FFFDF0FFFEF9FFFAF9FFFFFE000000} OnClick = sbSumTailsClick end object sbSameMatch: TSpeedButton Left = 249 Top = 12 Width = 24 Height = 21 Glyph.Data = { 32040000424D3204000000000000360000002800000013000000110000000100 180000000000FC030000C40E0000C40E000000000000000000007F552B61360B 66390D66380967390A67390A65380C65390A65390A65390A653A0963390A6339 0C65380D67360E67370D643809734C20A78B69000000D5BEB6E0C5BBE9CABBE6 C8B5E2C7B3E1C9B7E2CEBDDCC8B7E1CBB9DFCAB5DBC6B0E1CDBBE3CDC1DAC0BA E7C6C3E6C4BEE6CBB6DCC5AB86715B000000CFC1C5D0BFC2DFC9CBDFC9CBD4C0 C5DECDD6CCBDCBD2C6D2CFC0C8D9CBD1D2C3CBCBBFCBC9BCCCD5C5D7D7C0CFD9 C3C8D6C6C0D8CBBDC8BBAD000000D8CCC6DDCECBE0CBCED9C0CEDEC4E2D8BEE6 D5BDE7D6BEE6D7BFE2D3BBDED8C1EDD3BFECD2C0E9D2C2E1D5C1CDE2D0D1DACE CCDCD3CFFFFEFA000000DDD1C7EBDDD7DFCCCFE1C8DCE5CAF54F3466533C6956 3E6659416458406A533A76442E6F513F7A4C3C65E4D3DEDBCCCAD7CFD0D3CED0 FFFEFF000000EADBD2E0D3CBE7D7D8E8D5E4D8C3E957436DE7D7EFDECFDDE0D0 DBE8D5EE44306BD0BCFFD2C3FF4D3F6FE0CFDCEDE1DDE0D9DCE0DCE2FFFCFF00 0000EFDFD8E6D8D2E7DAD8E8DAE6E0CFF44C3B60D8CDDDEADFE1E6DBD7DCCFDF 52418146368A3A2D7B473A72E6D7E5E2D6D2DCD5D8E3DFE5FDF9FF000000EBD8 D3E8D9D6E9DEDADCD3DDD8CBF153456EE2D7E7E0D5D7ECE1DDDCD0E4413079D0 C0FFCBBFFF443977E3D8E8E7DCD8E0D8D8E2DCDDFFFEFF000000F3DEE0ECDDDB EDE4E0E6DFE6DED3F9433860E8DEEFE7DFE0E7DBD9E5D8EE4839833326883C33 8E403879E1D6EAEADFDBECE3E0E1DAD7FFFFFC000000F6E1E9F2E4E6EEE8E3E5 E1E6E5DCFD4D4268E2D8E9F1E7EDF1E8E5E7DCF040347CD4C9FFD6CEFF3F3776 EADEF4F3E7E7EFE6E3F2ECE7FFFCF7000000FFEFFAFFF3F9F3EFEAF0ECF1F5EE FF413761F8ECFFF9EDFFF3E8F2FEF2FF43377F352C8338328348427BF2E6FCF6 EBEDF6EFECF8F2EDFFFFFA000000FDF0F8FCF2F8FDF8F7FCF6FFF1E8FF493C70 F6E7FFF3E4FFFFEEFFF5E4FF42337DE9DCFFE4DDFF413C6FFDF3FFFFF8F8FBF7 F6F8F7F3FFFFFE000000FFF8FFFFF9FCF7F1F2FCF7FFF2E9FF483E694C416951 456955466544355B4E427E423A7B3D3770444168FCF2FFFAF2F2FCFAF9F7F7F7 FEFEFE000000F9F5FAFCF7F8FFFCFBFCF7F9FFFAFFF8F6FFF9F7FFF4F4FAF8F6 F6FFFDFFEFEBFFF6F5FFF1F0FFF1EEFFFFFAFFFFFBFBFDFBFBF6F8F9FCFEFF00 0000FBFEFCFFFFFEFFFFFEFFFEFFFCF8FEFAFAFFF2F7F6FBFFF9FFFFF7FDFEF4 F8F9FDF7F8FFF8FAFFFBFBFFFFFCFDFFFBF6FFFEFDFAFAFAFFFEFF000000FBFF F9F4F8F2FFFAFBFFFCFFFAF3FAFDFDFFFBFFFFF5FEF4FEFFF6FFFFF7FFFFFEFA FBFFF6F7FFFBF9FFFFFCF5FFFFF7FFFEFBFFFBFAFFFEFF000000F5FFF2FCFFF8 FFFAFBFFFAFFFFFBFFFFFEFFF0F6F5FAFFF9FDFFF7F6FAEEFFFFFBFCFCFCFBFB FFFFFDFFFFFFF7FFFDF0FFFEF9FFFAF9FFFFFE000000} OnClick = sbSameMatchClick end object sbFixed: TSpeedButton Left = 249 Top = 80 Width = 24 Height = 21 Glyph.Data = { 32040000424D3204000000000000360000002800000013000000110000000100 180000000000FC030000C40E0000C40E000000000000000000007F552B61360B 66390D66380967390A67390A65380C65390A65390A65390A653A0963390A6339 0C65380D67360E67370D643809734C20A78B69000000D5BEB6E0C5BBE9CABBE6 C8B5E2C7B3E1C9B7E2CEBDDCC8B7E1CBB9DFCAB5DBC6B0E1CDBBE3CDC1DAC0BA E7C6C3E6C4BEE6CBB6DCC5AB86715B000000CFC1C5D0BFC2DFC9CBDFC9CBD4C0 C5DECDD6CCBDCBD2C6D2CFC0C8D9CBD1D2C3CBCBBFCBC9BCCCD5C5D7D7C0CFD9 C3C8D6C6C0D8CBBDC8BBAD000000D8CCC6DDCECBE0CBCED9C0CEDEC4E2D8BEE6 D5BDE7D6BEE6D7BFE2D3BBDED8C1EDD3BFECD2C0E9D2C2E1D5C1CDE2D0D1DACE CCDCD3CFFFFEFA000000DDD1C7EBDDD7DFCCCFE1C8DCE5CAF54F3466533C6956 3E6659416458406A533A76442E6F513F7A4C3C65E4D3DEDBCCCAD7CFD0D3CED0 FFFEFF000000EADBD2E0D3CBE7D7D8E8D5E4D8C3E957436DE7D7EFDECFDDE0D0 DBE8D5EE44306BD0BCFFD2C3FF4D3F6FE0CFDCEDE1DDE0D9DCE0DCE2FFFCFF00 0000EFDFD8E6D8D2E7DAD8E8DAE6E0CFF44C3B60D8CDDDEADFE1E6DBD7DCCFDF 52418146368A3A2D7B473A72E6D7E5E2D6D2DCD5D8E3DFE5FDF9FF000000EBD8 D3E8D9D6E9DEDADCD3DDD8CBF153456EE2D7E7E0D5D7ECE1DDDCD0E4413079D0 C0FFCBBFFF443977E3D8E8E7DCD8E0D8D8E2DCDDFFFEFF000000F3DEE0ECDDDB EDE4E0E6DFE6DED3F9433860E8DEEFE7DFE0E7DBD9E5D8EE4839833326883C33 8E403879E1D6EAEADFDBECE3E0E1DAD7FFFFFC000000F6E1E9F2E4E6EEE8E3E5 E1E6E5DCFD4D4268E2D8E9F1E7EDF1E8E5E7DCF040347CD4C9FFD6CEFF3F3776 EADEF4F3E7E7EFE6E3F2ECE7FFFCF7000000FFEFFAFFF3F9F3EFEAF0ECF1F5EE FF413761F8ECFFF9EDFFF3E8F2FEF2FF43377F352C8338328348427BF2E6FCF6 EBEDF6EFECF8F2EDFFFFFA000000FDF0F8FCF2F8FDF8F7FCF6FFF1E8FF493C70 F6E7FFF3E4FFFFEEFFF5E4FF42337DE9DCFFE4DDFF413C6FFDF3FFFFF8F8FBF7 F6F8F7F3FFFFFE000000FFF8FFFFF9FCF7F1F2FCF7FFF2E9FF483E694C416951 456955466544355B4E427E423A7B3D3770444168FCF2FFFAF2F2FCFAF9F7F7F7 FEFEFE000000F9F5FAFCF7F8FFFCFBFCF7F9FFFAFFF8F6FFF9F7FFF4F4FAF8F6 F6FFFDFFEFEBFFF6F5FFF1F0FFF1EEFFFFFAFFFFFBFBFDFBFBF6F8F9FCFEFF00 0000FBFEFCFFFFFEFFFFFEFFFEFFFCF8FEFAFAFFF2F7F6FBFFF9FFFFF7FDFEF4 F8F9FDF7F8FFF8FAFFFBFBFFFFFCFDFFFBF6FFFEFDFAFAFAFFFEFF000000FBFF F9F4F8F2FFFAFBFFFCFFFAF3FAFDFDFFFBFFFFF5FEF4FEFFF6FFFFF7FFFFFEFA FBFFF6F7FFFBF9FFFFFCF5FFFFF7FFFEFBFFFBFAFFFEFF000000F5FFF2FCFFF8 FFFAFBFFFAFFFFFBFFFFFEFFF0F6F5FAFFF9FDFFF7F6FAEEFFFFFBFCFCFCFBFB FFFFFDFFFFFFF7FFFDF0FFFEF9FFFAF9FFFFFE000000} OnClick = sbFixedClick end object sbTailsFixed: TSpeedButton Left = 249 Top = 118 Width = 24 Height = 21 Glyph.Data = { 32040000424D3204000000000000360000002800000013000000110000000100 180000000000FC030000C40E0000C40E000000000000000000007F552B61360B 66390D66380967390A67390A65380C65390A65390A65390A653A0963390A6339 0C65380D67360E67370D643809734C20A78B69000000D5BEB6E0C5BBE9CABBE6 C8B5E2C7B3E1C9B7E2CEBDDCC8B7E1CBB9DFCAB5DBC6B0E1CDBBE3CDC1DAC0BA E7C6C3E6C4BEE6CBB6DCC5AB86715B000000CFC1C5D0BFC2DFC9CBDFC9CBD4C0 C5DECDD6CCBDCBD2C6D2CFC0C8D9CBD1D2C3CBCBBFCBC9BCCCD5C5D7D7C0CFD9 C3C8D6C6C0D8CBBDC8BBAD000000D8CCC6DDCECBE0CBCED9C0CEDEC4E2D8BEE6 D5BDE7D6BEE6D7BFE2D3BBDED8C1EDD3BFECD2C0E9D2C2E1D5C1CDE2D0D1DACE CCDCD3CFFFFEFA000000DDD1C7EBDDD7DFCCCFE1C8DCE5CAF54F3466533C6956 3E6659416458406A533A76442E6F513F7A4C3C65E4D3DEDBCCCAD7CFD0D3CED0 FFFEFF000000EADBD2E0D3CBE7D7D8E8D5E4D8C3E957436DE7D7EFDECFDDE0D0 DBE8D5EE44306BD0BCFFD2C3FF4D3F6FE0CFDCEDE1DDE0D9DCE0DCE2FFFCFF00 0000EFDFD8E6D8D2E7DAD8E8DAE6E0CFF44C3B60D8CDDDEADFE1E6DBD7DCCFDF 52418146368A3A2D7B473A72E6D7E5E2D6D2DCD5D8E3DFE5FDF9FF000000EBD8 D3E8D9D6E9DEDADCD3DDD8CBF153456EE2D7E7E0D5D7ECE1DDDCD0E4413079D0 C0FFCBBFFF443977E3D8E8E7DCD8E0D8D8E2DCDDFFFEFF000000F3DEE0ECDDDB EDE4E0E6DFE6DED3F9433860E8DEEFE7DFE0E7DBD9E5D8EE4839833326883C33 8E403879E1D6EAEADFDBECE3E0E1DAD7FFFFFC000000F6E1E9F2E4E6EEE8E3E5 E1E6E5DCFD4D4268E2D8E9F1E7EDF1E8E5E7DCF040347CD4C9FFD6CEFF3F3776 EADEF4F3E7E7EFE6E3F2ECE7FFFCF7000000FFEFFAFFF3F9F3EFEAF0ECF1F5EE FF413761F8ECFFF9EDFFF3E8F2FEF2FF43377F352C8338328348427BF2E6FCF6 EBEDF6EFECF8F2EDFFFFFA000000FDF0F8FCF2F8FDF8F7FCF6FFF1E8FF493C70 F6E7FFF3E4FFFFEEFFF5E4FF42337DE9DCFFE4DDFF413C6FFDF3FFFFF8F8FBF7 F6F8F7F3FFFFFE000000FFF8FFFFF9FCF7F1F2FCF7FFF2E9FF483E694C416951 456955466544355B4E427E423A7B3D3770444168FCF2FFFAF2F2FCFAF9F7F7F7 FEFEFE000000F9F5FAFCF7F8FFFCFBFCF7F9FFFAFFF8F6FFF9F7FFF4F4FAF8F6 F6FFFDFFEFEBFFF6F5FFF1F0FFF1EEFFFFFAFFFFFBFBFDFBFBF6F8F9FCFEFF00 0000FBFEFCFFFFFEFFFFFEFFFEFFFCF8FEFAFAFFF2F7F6FBFFF9FFFFF7FDFEF4 F8F9FDF7F8FFF8FAFFFBFBFFFFFCFDFFFBF6FFFEFDFAFAFAFFFEFF000000FBFF F9F4F8F2FFFAFBFFFCFFFAF3FAFDFDFFFBFFFFF5FEF4FEFFF6FFFFF7FFFFFEFA FBFFF6F7FFFBF9FFFFFCF5FFFFF7FFFEFBFFFBFAFFFEFF000000F5FFF2FCFFF8 FFFAFBFFFAFFFFFBFFFFFEFFF0F6F5FAFFF9FDFFF7F6FAEEFFFFFBFCFCFCFBFB FFFFFDFFFFFFF7FFFDF0FFFEF9FFFAF9FFFFFE000000} OnClick = sbTailsFixedClick end object sbTailsMatch: TSpeedButton Left = 249 Top = 44 Width = 24 Height = 21 Glyph.Data = { 32040000424D3204000000000000360000002800000013000000110000000100 180000000000FC030000C40E0000C40E000000000000000000007F552B61360B 66390D66380967390A67390A65380C65390A65390A65390A653A0963390A6339 0C65380D67360E67370D643809734C20A78B69000000D5BEB6E0C5BBE9CABBE6 C8B5E2C7B3E1C9B7E2CEBDDCC8B7E1CBB9DFCAB5DBC6B0E1CDBBE3CDC1DAC0BA E7C6C3E6C4BEE6CBB6DCC5AB86715B000000CFC1C5D0BFC2DFC9CBDFC9CBD4C0 C5DECDD6CCBDCBD2C6D2CFC0C8D9CBD1D2C3CBCBBFCBC9BCCCD5C5D7D7C0CFD9 C3C8D6C6C0D8CBBDC8BBAD000000D8CCC6DDCECBE0CBCED9C0CEDEC4E2D8BEE6 D5BDE7D6BEE6D7BFE2D3BBDED8C1EDD3BFECD2C0E9D2C2E1D5C1CDE2D0D1DACE CCDCD3CFFFFEFA000000DDD1C7EBDDD7DFCCCFE1C8DCE5CAF54F3466533C6956 3E6659416458406A533A76442E6F513F7A4C3C65E4D3DEDBCCCAD7CFD0D3CED0 FFFEFF000000EADBD2E0D3CBE7D7D8E8D5E4D8C3E957436DE7D7EFDECFDDE0D0 DBE8D5EE44306BD0BCFFD2C3FF4D3F6FE0CFDCEDE1DDE0D9DCE0DCE2FFFCFF00 0000EFDFD8E6D8D2E7DAD8E8DAE6E0CFF44C3B60D8CDDDEADFE1E6DBD7DCCFDF 52418146368A3A2D7B473A72E6D7E5E2D6D2DCD5D8E3DFE5FDF9FF000000EBD8 D3E8D9D6E9DEDADCD3DDD8CBF153456EE2D7E7E0D5D7ECE1DDDCD0E4413079D0 C0FFCBBFFF443977E3D8E8E7DCD8E0D8D8E2DCDDFFFEFF000000F3DEE0ECDDDB EDE4E0E6DFE6DED3F9433860E8DEEFE7DFE0E7DBD9E5D8EE4839833326883C33 8E403879E1D6EAEADFDBECE3E0E1DAD7FFFFFC000000F6E1E9F2E4E6EEE8E3E5 E1E6E5DCFD4D4268E2D8E9F1E7EDF1E8E5E7DCF040347CD4C9FFD6CEFF3F3776 EADEF4F3E7E7EFE6E3F2ECE7FFFCF7000000FFEFFAFFF3F9F3EFEAF0ECF1F5EE FF413761F8ECFFF9EDFFF3E8F2FEF2FF43377F352C8338328348427BF2E6FCF6 EBEDF6EFECF8F2EDFFFFFA000000FDF0F8FCF2F8FDF8F7FCF6FFF1E8FF493C70 F6E7FFF3E4FFFFEEFFF5E4FF42337DE9DCFFE4DDFF413C6FFDF3FFFFF8F8FBF7 F6F8F7F3FFFFFE000000FFF8FFFFF9FCF7F1F2FCF7FFF2E9FF483E694C416951 456955466544355B4E427E423A7B3D3770444168FCF2FFFAF2F2FCFAF9F7F7F7 FEFEFE000000F9F5FAFCF7F8FFFCFBFCF7F9FFFAFFF8F6FFF9F7FFF4F4FAF8F6 F6FFFDFFEFEBFFF6F5FFF1F0FFF1EEFFFFFAFFFFFBFBFDFBFBF6F8F9FCFEFF00 0000FBFEFCFFFFFEFFFFFEFFFEFFFCF8FEFAFAFFF2F7F6FBFFF9FFFFF7FDFEF4 F8F9FDF7F8FFF8FAFFFBFBFFFFFCFDFFFBF6FFFEFDFAFAFAFFFEFF000000FBFF F9F4F8F2FFFAFBFFFCFFFAF3FAFDFDFFFBFFFFF5FEF4FEFFF6FFFFF7FFFFFEFA FBFFF6F7FFFBF9FFFFFCF5FFFFF7FFFEFBFFFBFAFFFEFF000000F5FFF2FCFFF8 FFFAFBFFFAFFFFFBFFFFFEFFF0F6F5FAFFF9FDFFF7F6FAEEFFFFFBFCFCFCFBFB FFFFFDFFFFFFF7FFFDF0FFFEF9FFFAF9FFFFFE000000} OnClick = sbTailsMatchClick end object chkSumRemainder: TCheckBox Left = 8 Top = 158 Width = 65 Height = 17 Caption = #21644#20540#20313#25968 TabOrder = 4 OnClick = chkSameMatchClick end object edtSumRemainder: TEdit Left = 79 Top = 156 Width = 170 Height = 21 ImeName = #20013#25991' ('#31616#20307') - '#19975#33021#20116#31508#20869#32622#36755#20837#27861 ReadOnly = True TabOrder = 6 end object chkSumTails: TCheckBox Left = 8 Top = 196 Width = 65 Height = 17 Caption = #21644#20540#23614#25968 TabOrder = 5 OnClick = chkSameMatchClick end object edtSumTails: TEdit Left = 79 Top = 194 Width = 170 Height = 21 ImeName = #20013#25991' ('#31616#20307') - '#19975#33021#20116#31508#20869#32622#36755#20837#27861 ReadOnly = True TabOrder = 7 end object chkSameMatch: TCheckBox Left = 8 Top = 14 Width = 65 Height = 17 Caption = #20132#38598#21305#37197 TabOrder = 0 OnClick = chkSameMatchClick end object edtSameMatch: TEdit Left = 79 Top = 12 Width = 170 Height = 21 ImeName = #20013#25991' ('#31616#20307') - '#19975#33021#20116#31508#20869#32622#36755#20837#27861 ReadOnly = True TabOrder = 8 end object chkFixed: TCheckBox Left = 8 Top = 82 Width = 65 Height = 17 Caption = #23450#20301#21305#37197 TabOrder = 2 OnClick = chkSameMatchClick end object edtFixed: TEdit Left = 79 Top = 80 Width = 170 Height = 21 ImeName = #20013#25991' ('#31616#20307') - '#19975#33021#20116#31508#20869#32622#36755#20837#27861 ReadOnly = True TabOrder = 9 end object chkTailsFixed: TCheckBox Left = 8 Top = 120 Width = 65 Height = 17 Caption = #23450#23614#21305#37197 TabOrder = 3 OnClick = chkSameMatchClick end object edtTailsFixed: TEdit Left = 79 Top = 118 Width = 170 Height = 21 ImeName = #20013#25991' ('#31616#20307') - '#19975#33021#20116#31508#20869#32622#36755#20837#27861 ReadOnly = True TabOrder = 10 end object chkTailsMatch: TCheckBox Left = 8 Top = 46 Width = 65 Height = 17 Caption = #23614#25968#21305#37197 TabOrder = 1 OnClick = chkSameMatchClick end object edtTailsMatch: TEdit Left = 79 Top = 44 Width = 170 Height = 21 ImeName = #20013#25991' ('#31616#20307') - '#19975#33021#20116#31508#20869#32622#36755#20837#27861 ReadOnly = True TabOrder = 11 end end end end object bbtnFilter: TBitBtn Left = 192 Top = 492 Width = 120 Height = 42 Caption = ' '#36807' '#28388 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] Glyph.Data = { B60E0000424DB60E000000000000360000002800000026000000200000000100 180000000000800E0000C40E0000C40E00000000000000000000F8FEEDF6F6E4 FFFAE6FFFCE5FFF6DAFEF0D3F7EAD0FAEAD3FFF1E2FFF0E5F1E3DDE7E1DCDFE3 DED9DFDAD9DDD7D8D9D5D3D2D4CBCACECECDCFD0CFD1D3D1D1D0CECECECCCCD6 D4D4D3D1D0DAD8D7E8E8E8EDEDEDEFF1F1F9FBFBF7FCFBF3F8F7FEFEFEFFFFFF FFFFFFFFFFFFFDFDFDFCFCFC8080F8FBEBF4F3DFF7EBD3F0E0C3E2D2AED6C6A1 D4C4A0D9C7A8DCC6ADEBD7C6EEDFD6E6E0D9D4D5D1C1C7C2BFC0BCBCBAB9B4B3 B5B0AFB3B2B1B3AFAEB0ACAAAAAAA8A8A7A5A5ACAAAAB9B7B6BDBBBAC8C8C8D2 D2D2E1E3E3F2F4F4F7FCFBFBFFFFFEFEFEFDFDFDFCFCFCFCFCFCFCFCFCFDFDFD 8080FFFFEFEEEAD2C7BA9A9F8B628873407D68317B662F7F6A378B724AA79175 C7B7A6DCD3C9CBCBC5A8ABA9949292847F817B777C7D7C808483858281838381 818785858583838684848381807F7D7C8787879F9F9FC6C8C8EAECECF3F8F7F7 FCFBFEFEFEFCFCFCFAFAFAFAFAFAFCFCFCFDFDFD8080FAF9E5D4CDB28D7C5560 4814614603674C02684E026A500A6C5118725A308F7E63B2AA99A8A5A0868686 827C81837D827B777C7B7A7E7E7D7F7776787B79798482828280807F7D7D7E7C 7B7E7C7B8282828484849EA0A0D9DBDBF9FEFDFDFFFFFEFEFEFDFDFDFCFCFCFC FCFCFCFCFCFDFDFD8080FBF8E3C1B799755F2F725413A68430B39133AF8E2DB4 953A9B7C316C5118614F2A7E765F77746C6D6B6B9C959ACDC5CCD6D2D7D0CFD3 CBCACCC1C0C2C6C4C4D1CFCFCDCBCBC9C7C7CDCBCADBD9D8D1D1D19A9A9A8789 89CBCDCDFDFFFFF8FAFAFCFCFCFDFDFDFFFFFFFFFFFFFEFEFEFDFDFD8080FFFF EBB9AD8B684E188C691FE3B958E6BD50D8B03FE5C156C4A2496F520F54411483 7A5F908E83949291CEC7CCFFFCFFFFFBFFFAF9FDFBFAFCF8F7F9FDFBFBFFFFFF F9F7F7F4F2F2FFFFFEFEFCFBD0D0D08080806E7070BABCBCF1F3F3EEF0F0F9F9 F9FCFCFCFEFEFEFFFFFFFEFEFEFDFDFD8080FFFFE6B6A884604209885F10E4B5 4CE4B43ED3A42AE5B946C59F4173530A6C5828BBB396DEDDCFD8D9D5EDE6E9FB F4F9F5F4F8F1F2F6FBFAFCFCFBFDFAFAFAF5F5F5EFEDEDF0EEEEEAE8E7C9C7C6 8F8F8F6262626D6D6D9B9B9BC8CACAF2F4F4F9F9F9FAFAFAFBFBFBFCFCFCFDFD FDFDFDFD8080FFFFE8C3B5916C4B13875A09DCAA40DFAA32CE9A1ED9AA37BB91 3175540B816D3DDCD4B6FFFFF0EEF0EAE6E2E1D7D2D3C1C0C2BBBCC0C3C2C4C4 C3C5C0C0C0BEBEBEC3C1C1D2D0D0CCCAC9B5B3B29E9E9EA4A4A4A5A5A5818181 8D8F8FE4E6E6FBFBFBFAFAFAF9F9F9FAFAFAFBFBFBFCFCFC8080FFFAE3C8B998 73511B8B5D0FDBA540E6AF3CD09A25DCA93BBD90356D4B05796536CFC7A9ECEE DBD5DBD0BFBFB9A9A6A28685877A7B7F717072717072797979858585A3A1A1C3 C1C1D8D6D5E5E3E2E8E8E8EFEFEFD4D4D47D7D7D848686E1E3E3FEFEFEFBFBFB F7F7F7F8F8F8FCFCFCFFFFFF8080FFFFE9B9AA896646118F6219DBA546DBA338 CB9326DDAC46C0923E6F4C0A796437C7C2A3DCE1CCC8CFC2C3C7BCC3C3BDADAD ADA6A7AB9F9EA09D9C9EA5A5A5AFAFAFB9B7B7C1BFBFD3D1D0D6D4D3D0D0D0CD CDCDBCBCBC8888889B9D9DDFE1E1FFFFFFFEFEFEFDFDFDFCFCFCFDFDFDFEFEFE 8080FFFEE7BCAD8D6747168E6320DCA953D5A241C2902CE2B357BF9346714D11 7B683DCAC5A6DADFCAC2CCBCC8CFC2D6D9D0DFE1E1DBDCE0D8DADBDCDEDFE4E4 E4E4E4E4DDDBDBD5D3D3C3C1C0B5B3B2A09E9E969494929292868686ADADADE2 E2E2F7F7F7F4F4F4F3F3F3F6F6F6F7F7F7F7F7F78080FFFDE4C7B898694B1C87 5E1FDAAD5CD3A449B78B2EDFB45DC0964F6B4A12725F34C5C0A1DCE1CCC2CCBC BBC2B5B9BDB7AAACACA2A3A7A1A3A4A6A8A9A8A8A8ABABABBDBBBBCECCCCC8C6 C5BBB9B8AEACACACAAAAA6A6A68787879C9C9CCCCCCCEBEBEBE5E5E5E5E5E5ED EDEDF5F5F5F6F6F68080FFFFE4C2B3926347187F5C1DD2AB60DAB35EC59F47DE B866C5A15B6C4E156E5B30C2BA9CDFE1CDC7D0C3B7BCB3A9ADA8808485777A7E 757778747677727272818181A7A5A5C5C3C3D2D0CFD5D3D2DDDBDBEBE9E9D3D3 D3858585818181BDBDBDDFDFDFDCDCDCDEDEDEE8E8E8F2F2F2F6F6F68080FFFD E1BBAD89664C1D816225D1B166F8D683F2D07CEBCA7ABC9C556E5216776439C8 BEA0DCDECACBD1C6CBCFCACFD1D1D6DADBCED1D5D0D2D3D2D4D5D4D4D4DADADA DCDADAD0CECED2D0CFDEDCDBF2F0F0FFFFFFE5E5E5838383767676B7B7B7D4D4 D4D5D5D5D9D9D9E1E1E1EAEAEAF0F0F08080FFFDDFC0B08B68512187692ED5B8 6EEBCE7DDEC36DE4CA76B99C526A4E11746134C7BE9DDCDDC9C9CEC5D1D3D3DE DFE3ECEFF3E3E6EAE9EBECEFF1F2F1F1F1F2F2F2E9E7E7D2D0D0D9D7D6DAD8D7 E4E2E2F0EEEED3D3D3838383717171939393B2B2B2B2B2B2B6B6B6C1C1C1D4D4 D4E5E5E58080FFFFE4BFB48E5D4919876F33D4BB73AE96448C7420C7AF5DCFB6 6E6B5317675729C5BB9DE9E7D5D3D6CDC5C7C7C2C3C797989C8B8D8E8B8D8E8B 8D8E8888889A9A9AC3C1C1DAD8D8DAD8D7C1BFBEAEACACA9A7A7999999727272 6B6B6B7272727979797777777A7A7A8E8E8EB2B2B2D1D1D18080FFFFE1BCB790 4F431388793BD5BF77A0893978600EC0A95BCEB77368551C77693FD6CEB1F7F4 E5CECFC6CCCCCCB4B6B78A8C8D7A7A7A8686867F7F7F7373738E8E8EB1B1B1CE CECED2D2D2B5B5B59999998F8F8F8C8C8C8A8A8A8C8C8C8F8F8F8E8E8E8B8B8B 8888888D8D8D9B9B9BB5B5B58080FFFFE2B7B48E4F481783773DD6C47DD5BE72 C7B062E7D085BEAA695949147C714BEEE7CCFFFEEFD6D4CCCCCDCBCECECED5D5 D5DCDCDCDBDBDBDEDEDEDFDFDFCCCCCCC7C7C7DEDEDED6D6D6D0D0D0CFCFCFCC CCCCC9C9C9D1D1D1D7D7D7CFCFCFE2E2E2DEDEDEDCDCDCC7C7C79F9F9F9A9A9A 8080FEFADDB6B28F473E127A6F36EAD897FFF5ACFFEAA2FFF5B1D9C6895D4E1D 5B4F2BBEB79EF1ECDDFAF7EFE6E5E1D5D5D5E5E5E5F6F6F6F0F0F0F5F5F5FCFC FCF6F6F6F5F5F5EDEDEDEDEDEDF1F1F1FDFDFDFDFDFDF6F6F6FEFEFEFFFFFFF6 F6F6F9F9F9F9F9F9FFFFFFE3E3E39C9C9C8A8A8A8080FFFFEABFBA9B544C2485 7A48F0E0A5FFFAB9FFF1B0FFF5B8E2D09B79693E433818716952BFB9ACFFFCF4 FCF9F5DAD8D7D0D0D0DEDEDEDDDDDDDADADADADADAE9E9E9FFFFFFF9F9F9FFFF FFFDFDFDFEFEFEFEFEFEFBFBFBFCFCFCFEFEFEFDFDFDFEFEFEFBFBFBFFFFFFE1 E1E19F9F9F8E8E8E8080FFFFE7BCB89C69603E6C63388B7D4C9788509B8C548F 814C897A4C756A4462593E6E6754979184B9B6AEE0DDD8F2F0EFE9E9E9DDDDDD D3D3D3D9D9D9DCDCDCCACACAB8B8B8B5B5B5BDBDBDBEBEBEB5B5B5AFAFAFB0B0 B0ABABABAAAAAAB4B4B4ADADADACACACB0B0B0AFAFAFA3A3A3ABABAB8080FFFC EAE5E0CBA69F846F66445248204F441855481C51451B5B522D867E60A7A08CB6 B1A2A09C9177746CA3A09CEBE9E8FBFBFBE5E5E5E6E6E6F4F4F4E8E8E8BFBFBF 8A8A8A6464646363637171717474747575757979797676767373737B7B7B7373 737777777E7E7E959595B3B3B3D0D0D08080FFFDF2FFFFF1EBE5D2B6B198A39D 809E997A9A9274AAA284B1AC93CEC9B4EAE5D6F6F2E7C8C5BD898682827F7BAE ACABCECECEE6E6E6FDFDFDFFFFFFECECECD5D5D5B9B9B98484846060606B6B6B 898989AAAAAAB8B8B8B9B9B9BBBBBBBDBDBDAEAEAEB1B1B1B6B6B6CACACAE1E1 E1F9F9F98080FFFFF8F4F2E8FFFFF6FFFEEFFBFAE6FAF9E4F5F1DEFEFAE7FBF8 E9FAF9EBFDFBF1FEFBF6DDDAD6BFBDBC8A88877B7B7B989898D9D9D9E0E0E0E6 E6E6FAFAFAFBFBFBEDEDEDC1C1C18282827B7B7BA7A7A7E5E5E5F7F7F7F6F6F6 FAFAFAF6F6F6F9F9F9F7F7F7F8F8F8F9F9F9F4F4F4FCFCFC8080F9F8F4FBFAF6 FBFBF5FAFBF2FCFDF3FFFFF5FFFFF6FDFEF4FFFFF7FFFFFBFDFCF8F6F7F5F7F7 F7EEF0F0CFD1D1ACAEAEA7A7A7979797909090B4B4B4EDEDEDFEFEFEEDEDEDE4 E4E4C9C9C9979797909090D6D6D6FDFDFDFAFAFAFFFFFFFAFAFAFFFFFFFFFFFF FEFEFEFEFEFEFEFEFEFEFEFE8080FCFDFBFBFEFCFCFFFDF8FDFBF7FDF8F7FDF8 F5FBF6F5F8F6F3F6F4F8F8F8FAFAFAF8FAFBFBFDFEFBFFFFF6FAFBEEF2F3D3D5 D59999996C6C6C808080BDBDBDEFEFEFFBFBFBF0F0F0FAFAFA9696966E6E6EC0 C0C0FEFEFEFCFCFCFDFDFDFAFAFAFDFDFDFDFDFDFCFCFCFCFCFCFCFCFCFDFDFD 8080F7F9F9FAFCFCFAFFFEF9FFFEF5FDFDF4FCFCF4F9FAF3F8F9F4F8F9F7F9FA FAFCFDFBFCFFF7F8FCF2F5F9F4F9FCFAFFFFF4F6F6D9D9D9B4B4B48B8B8B7F7F 7FB3B3B3F1F1F1FFFFFFFEFEFE989898717171C2C2C2FCFCFCF4F4F4F3F3F3F7 F7F7FBFBFBFBFBFBFCFCFCFCFCFCFCFCFCFCFCFC8080F4F6F6F8FAFAF9FEFDF8 FDFEF4FCFCF1FAFDF3FAFDF5FAFDF8FBFFF8F9FDF9FAFEFCFDFFFAFBFFF3F6FA F2F7FAF5FAFBF6F8F8FAFAFAE9E9E9ABABAB727272878787C2C2C2DEDEDECFCF CF949494878787CACACAFDFDFDFFFFFFFFFFFFFEFEFEFBFBFBFCFCFCFDFDFDFE FEFEFEFEFEFEFEFE8080FBFCFAFAFDFBFAFFFDF8FEFDF4FCFCF2FAFAF4F9FCF6 FBFEFAFCFDFBFAFCFAF9FBFAF9FBFBFDFEFBFFFFFAFFFFFAFFFFFBFDFDFDFDFD FBFBFBE3E3E3B4B4B4898989767676717171717171848484B2B2B2E6E6E6FBFB FBF9F9F9FAFAFAF8F8F8FCFCFCFDFDFDFEFEFEFFFFFFFFFFFFFFFFFF8080FFFF FAFEFFFBFCFFFBFAFFFDF7FDFCF6FBFCF7FCFDFAFEFFFDFCFEFFFFFFFFFEFFFE FCFCFBFBFBF9FDFEF7FCFDF4F9FAFDFFFFFFFFFFFCFCFCF5F5F5DFDFDFBCBCBC A3A3A3A1A1A1A9A9A9B9B9B9D4D4D4EEEEEEFCFCFCFFFFFFFFFFFFFFFFFFFDFD FDFDFDFDFEFEFEFEFEFEFEFEFEFEFEFE8080FFFFF8FEFFF6FAFEF8FAFFFBFBFF FEFAFFFEFCFEFEFFFFFEFFFBFAFFFEFDFFFFFEFFFFFEFFFFFEFDFFFFF9FFFEF7 FDFCF9FBFBFDFDFDFEFEFEFCFCFCF8F8F8F2F2F2EBEBEBE8E8E8E5E5E5EFEFEF FCFCFCFFFFFFFBFBFBF9F9F9FAFAFAFDFDFDFEFEFEFEFEFEFEFEFEFEFEFEFEFE FEFEFEFE8080FFFFF8FFFFF6FCFEF8FCFFFAFBFFFEF9FEFCFCFDFBFFFDFCFFFF FCFFFBF8FFF8F5FFFAF7FFFDFCFDFFFEF9FFFEF9FFFEFDFFFFF8F8F8FBFBFBFF FFFFFDFDFDFBFBFBFEFEFEFFFFFFFEFEFEFFFFFFFFFFFFFDFDFDFCFCFCFFFFFF FEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFEFEFEFEFE8080} ParentFont = False TabOrder = 1 OnClick = bbtnFilterClick OnMouseEnter = sbtnLastMouseEnter OnMouseLeave = sbtnLastMouseLeave end end object Panel6: TPanel Left = 0 Top = 0 Width = 893 Height = 46 Align = alTop BevelKind = bkSoft BorderWidth = 1 Caption = 'Panel6' TabOrder = 5 object Label3: TLabel Left = 564 Top = 7 Width = 308 Height = 27 Caption = #21452#33394#29699#20998#26512#25237#27880#30340#22909#24110#25163 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clTeal Font.Height = -27 Font.Name = #38582#20070 Font.Style = [fsBold, fsUnderline] ParentColor = False ParentFont = False end object tbSSPanda: TToolBar Left = 2 Top = 2 Width = 559 Height = 38 Align = alLeft ButtonHeight = 39 ButtonWidth = 67 Caption = 'tbSSPanda' EdgeBorders = [ebRight] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] Images = imglPanda ParentFont = False ShowCaptions = True TabOrder = 0 object ToolButton3: TToolButton Left = 0 Top = 0 Action = acDataUpadate ImageIndex = 0 end object ToolButton2: TToolButton Left = 67 Top = 0 Width = 5 Caption = 'ToolButton2' ImageIndex = 1 Style = tbsSeparator end object ToolButton5: TToolButton Left = 72 Top = 0 Action = acManualUpdate ImageIndex = 2 end object ToolButton4: TToolButton Left = 139 Top = 0 Width = 8 Caption = 'ToolButton4' ImageIndex = 2 Style = tbsSeparator end object ToolButton1: TToolButton Left = 147 Top = 0 Action = acChartReport end object ToolButton6: TToolButton Left = 214 Top = 0 Width = 8 Caption = 'ToolButton6' ImageIndex = 3 Style = tbsSeparator end object ToolButton7: TToolButton Left = 222 Top = 0 Action = acPrizeLookup ImageIndex = 3 end object ToolButton8: TToolButton Left = 289 Top = 0 Width = 8 Caption = 'ToolButton8' ImageIndex = 4 Style = tbsSeparator end object tbRollback: TToolButton Left = 297 Top = 0 Action = acRollback ImageIndex = 4 end object ToolButton10: TToolButton Left = 364 Top = 0 Width = 8 Caption = 'ToolButton10' ImageIndex = 5 Style = tbsSeparator end object tbGoahead: TToolButton Left = 372 Top = 0 Action = acGoAhead ImageIndex = 5 end object ToolButton12: TToolButton Left = 439 Top = 0 Width = 8 Caption = 'ToolButton12' ImageIndex = 6 Style = tbsSeparator end object ToolButton13: TToolButton Left = 447 Top = 0 Action = acExit ImageIndex = 6 end end end object stsSSPanda: TStatusBar Left = 0 Top = 623 Width = 893 Height = 32 BorderWidth = 1 Panels = < item Alignment = taCenter Bevel = pbRaised Text = #31069#24744#22909#36816#65281 Width = 80 end item Alignment = taCenter Width = 600 end item Alignment = taRightJustify Text = 'CopyRight by BoltWolf&&CC ' Width = 100 end> end object GroupBox1: TGroupBox Left = 598 Top = 91 Width = 291 Height = 528 TabOrder = 7 object sbtnNext: TSpeedButton Left = 224 Top = 465 Width = 64 Height = 22 Caption = #19979#19968#39029'>>' OnClick = sbtnNextClick OnMouseEnter = sbtnLastMouseEnter OnMouseLeave = sbtnLastMouseLeave end object lblPageCount: TLabel Left = 166 Top = 470 Width = 34 Height = 13 Caption = #39029'/0'#39029 end object lblJmp: TLabel Left = 80 Top = 470 Width = 36 Height = 13 Caption = #36339#21040#31532 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False OnClick = lblJmpClick OnMouseEnter = lblJmpMouseEnter OnMouseLeave = lblJmpMouseLeave end object sbtnLast: TSpeedButton Left = 7 Top = 465 Width = 64 Height = 22 Caption = '<<'#19978#19968#39029 OnClick = sbtnLastClick OnMouseEnter = sbtnLastMouseEnter OnMouseLeave = sbtnLastMouseLeave end object Label7: TLabel Left = 16 Top = 504 Width = 30 Height = 16 Caption = #20849#65306 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 98 Top = 504 Width = 15 Height = 16 Caption = #27880 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object lblRecCount: TLabel Left = 40 Top = 504 Width = 4 Height = 16 Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object sgResult: TStringGrid Left = 4 Top = 3 Width = 284 Height = 461 Color = clMoneyGreen ColCount = 2 Ctl3D = False DoubleBuffered = True DrawingStyle = gdsGradient FixedColor = clWindowText FixedCols = 0 RowCount = 2 Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] GradientEndColor = clMoneyGreen ParentCtl3D = False ParentDoubleBuffered = False ParentFont = False PopupMenu = popmnuSg ScrollBars = ssVertical TabOrder = 0 OnMouseDown = sgResultMouseDown ColWidths = ( 73 210) end object edtPage: TEdit Left = 126 Top = 467 Width = 35 Height = 21 ImeName = #20013#25991' ('#31616#20307') - '#19975#33021#20116#31508#20869#32622#36755#20837#27861 TabOrder = 1 end end object mnuPanda: TMainMenu Left = 720 Top = 153 object N1: TMenuItem Caption = #25991#20214 object N7: TMenuItem Action = acInputResult end object N8: TMenuItem Action = acInsertInput end object N55: TMenuItem Action = acSaveResult end object N9: TMenuItem Caption = '-' end object N10: TMenuItem Action = acExit end end object N2: TMenuItem Caption = #24320#22870#26356#26032 object N11: TMenuItem Action = acDataUpadate Caption = #33258#21160#26356#26032 end object N15: TMenuItem Caption = '-' end object N14: TMenuItem Action = acManualUpdate end end object N3: TMenuItem Caption = #25237#27880#32467#26524 object N16: TMenuItem Action = acPrintResult end object N17: TMenuItem Caption = '-' end object N18: TMenuItem Action = acPrizeLookup end object N19: TMenuItem Caption = '-' end object N20: TMenuItem Action = acFilterRestore end object N21: TMenuItem Action = acRollback end object N22: TMenuItem Action = acGoAhead end object N23: TMenuItem Caption = '-' end object N24: TMenuItem Caption = #21495#30721#20998#24067#32479#35745 end object N25: TMenuItem Action = acResultClear end end object N4: TMenuItem Caption = #25968#25454#22270#34920 object N26: TMenuItem Action = acChartReport end end object N5: TMenuItem Caption = #31995#32479 object N27: TMenuItem Caption = #31995#32479#35774#32622 end object N28: TMenuItem Caption = #35745#31639#22120 OnClick = N28Click end object N29: TMenuItem Caption = '-' end object N30: TMenuItem Caption = #36807#28388#25554#20214#31649#29702 end end object N6: TMenuItem Caption = #24110#21161 object N31: TMenuItem Caption = #20351#29992#35828#26126 OnClick = N31Click end object N32: TMenuItem Caption = #20851#20110 OnClick = N32Click end end end object imglPanda: TImageList Left = 656 Top = 137 Bitmap = { 494C010107000A00040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000002000000001002000000000000020 0000000000000000000000000000000000000000000045D695003CC896003BC8 9A003AC899003BC899003AC999003AC999003BC899003AC999003AC999003BC9 99003BC999003BC9990045D6950000000000000000001A553B003FC58C003EC4 8B003EC48B003EC48B003EC48B003EC48A003DC48A003DC48A003DC48A003DC4 8A003DC48A003EC48B001A553A00000000009F5D0000F3E68100BF840000BF84 0000C1870000C28A0000C48C0000C48C0000C48C0000C38C0000C2890000C187 0000BF840000BF840000C7931400FBF595000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000045D695003ACA9E0040CFAB0040CE AB0040CEAA003FCEAA003DCDA9003DCFA9003CCEA9003CCEA8003BCEA7003ACD A60038CDA60039CDA60039CAA00045D694002F996A004DDBA20067D9BD0067D9 BD0069DABE006ADAC0006CDBC1006CDAC1006FDCC2006FDBC2006FDBC20071DC C30071DCC50071DCC4004CDAA2002F996A00A7690A00C38C0A00C2880000C48C 0000C7910000C8940000C9960000CA970000CA970000C9960000C8930000C691 0000C48C0000C1880000BF840000C38C0A000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000003CC793003ECEAA004ED2B2004DD2 B2004CD2B1004BD2B10040BA9C00FDF7F90020B38D0085CAB80036CCA5003FCF AA003DCEA7003BCDA60038CDA6003DC7930048C9950066D9BC006FDBC10073DD C20077DEC60075DDC60084CABB0071D8C200D9F3EE0072CFBD0088E1D10088E1 D00089E2D2008AE3D20076DDC60046C99500B7852800C68F0000CA960000CC9B 0000CFA00000F9F3DF00A78350007F4A00007F4A00008F612000FFFFFF00D2A5 1000CC9A0000C9950000C58E0000D1A628000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000003CC7920041CFAC0053D3B60051D3 B40051D3B40050D6B600FFFCFE009BD7C80040B19600FFFFFF0019B38C0024B6 910036C49F003DCEA70039CDA7003DC7920049CA980066D9BC006EDBC0006FDC C20067D3BA0060D0B700FFFFFF005DBCA800D4E2E000E0EEEC008AE4D30089E3 D2008BE3D3008AE3D30075DDC70048CA9700B7852800CB980000CF9F0000D2A4 0000FAF4DF007F4A00007F4A00007F4A00007F4A00007F4A00007F4A0000F7F4 EF00D1A30000CF9F0000CA970000D5AC28000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000003CC7920043D0AE0057D5B90057D5 B80057D6B9003DC7A600E8F1EF00159E7C00FFFFFF00FFFFFF00FFFFFF00FFFF FF005BBBA20038CCA50039CDA8003DC7920049CA980066D9BC006BD9BE0070CA B400E4EFED00DFEEEB00FFFFFF00E9F2F000429E8C00FFFFFF007FDECA0089E3 D20089E3D1008AE3D20075DDC70048CA9700AE730A00D2A40000D7AD0000DAB2 0000834E000087510000E0BD0600E0BE0900E0BE0800E0BD060088520000854F 0000E0BF3000D6AC0000D1A30000D0A30A000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000003BC6910046D1B0005BD6BB005AD7 BB0050D2B50075C2B0001C9A7E00D9EAE600FFFFFF00FFFFFF00FFFFFF00FFFF FF00A3DBCD0033C9A2003ACDA7003DC7920049CA980066D9BC0063D5BA00B7E1 D600FFFFFF00FFFFFF00FFFFFF00FFFFFF00BEE4DC0063B1A0007ECCBC0087E4 D20089E3D10089E3D20075DDC60048CA9700AF750A00D6AC0000DCB50000E1BF 11008D570000A5740500E2C31A00E3C41C00E3C31C00E2C31900CDA70E008F58 0000E1CD8F00DBB40000D6AB0000D5AA0A000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000003BC6910049D2B20062DAC10043BC A200F8F8F900A3D4CA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF009CD9CA0035CAA4003ACEA7003DC792004ACA990067DABD0061D5B800AEDE D200FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00DBE8E600D9EB E70075D7C5008AE3D30076DDC70047CA9700B7852800DDB80000E1BF0D00CFA9 12009B640000E5C92F00E6CC3600D2BE9F00A47C4000E6CB3600E5C92D009D65 0000A9770500E0BE0A00DCB60000E2C328000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000003FC7930048D2B2005CD8BF00A5E2 D500ECF1F00034A48D00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00A2DACD0038CBA50039CEA8003CC792003CC692004ED2B00065D6B900B0DF D300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00349C8700FFFE FF0089D8C80067DBC40074DCC50049CA9800B7852800E0BD0700E3C41C00D2AE 1E00A46C0000F2E49400E9D14A00955D0000965F0000E9D14900E7CE3F00A66E 0000B07E0900E2C31900E0BC0500E5C828000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000049CA980074DCC50067DBC40089D8 C800FFFEFF00349C8700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00B0DFD30065D6B9004ED2B0003CC692003CC7920039CEA80038CBA500A2DA CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0034A48D00ECF1 F000A5E2D5005CD8BF0048D2B2003FC79300B27D1500E6D54400E9DA5700EBDD 6300B1770000BB851000EFE58600AD730000AE750000F1E58B00D8B77000B37A 0000E3C83800E5C92E00E2C21700E2C110000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000047CA970076DDC7008AE3D30075D7 C500D9EBE700DBE8E600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00AEDED20061D5B80067DABD004ACA99003DC792003ACEA70035CAA4009CD9 CA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A3D4CA00F8F8 F90043BCA20062DAC10049D2B2003BC69100B27D1600E8D74C00EADC6000ECE0 6C00B97E0000BF840000F1E99300BC820000BE840000F2E99800C0870000BC81 0000EFDE7C00E7CF4100E3C52100E3C41A000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000048CA970075DDC60089E3D20089E3 D10087E4D2007ECCBC0063B1A000BEE4DC00FFFFFF00FFFFFF00FFFFFF00FFFF FF00B7E1D60063D5BA0066D9BC0049CA98003DC792003ACDA70033C9A200A3DB CD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D9EAE6001C9A7E0075C2B00050D2 B5005AD7BB005BD6BB0046D1B0003BC69100B6852800E9DA5500ECE06A00EDE3 7800F0E98C00D6B23900F4EFA600CA960000CB990000F5EFAB00CA970A00F3E8 9900F1E38C00F0DF8000EDD96E00EEDB62000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000048CA970075DDC7008AE3D20089E3 D10089E3D2007FDECA00FFFFFF00429E8C00E9F2F000FFFFFF00DFEEEB00E4EF ED0070CAB4006BD9BE0066D9BC0049CA98003DC7920039CDA80038CCA5005BBB A200FFFFFF00FFFFFF00FFFFFF00FFFFFF00159E7C00E8F1EF003DC7A60057D6 B90057D5B80057D5B90043D0AE003CC79200B6852800E9DC5A00ECE27000EEE5 7E00F2EB9300F3EEA100F5F2B100D1A20000D3A70000F6F2B600F4EEAB00F3EA A100F2E49200F0E18500EEDB7200F0E17B000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000048CA970075DDC7008AE3D3008BE3 D30089E3D2008AE4D300E0EEEC00D4E2E0005DBCA800FFFFFF0060D0B70067D3 BA006FDCC2006EDBC00066D9BC0049CA98003DC7920039CDA7003DCEA70036C4 9F0024B6910019B38C00FFFFFF0040B196009BD7C800FFFCFE0050D6B60051D3 B40051D3B40053D3B60041CFAC003CC79200B27E1900EADD5E00EDE37500F0E7 8500F2ED9B00F5F1AA00F7F7C000F3ECA600E9D35A00F8F6C400F6F0B400F5EC A900F2E79700F1E28B00EEDC7600EDDB6E000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000046C9950076DDC6008AE3D20089E2 D20088E1D00088E1D10072CFBD00D9F3EE0071D8C20084CABB0075DDC60077DE C60073DDC2006FDBC10066D9BC0048C995003DC7930038CDA6003BCDA6003DCE A7003FCFAA0036CCA50085CAB80020B38D00FDF7F90040BA9C004BD2B1004CD2 B1004DD2B2004ED2B2003ECEAA003CC79300B27F1900EADD5F00EDE37600F0E8 8600F3EE9D00F5F2AC00F8F8C300F9FCD300FAFCD300F8F7C800F6F1B600F5ED AA00F2E79900F1E38C00FFFFFF00F0DF81000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000002F996A004CDAA20071DCC40071DC C50071DCC3006FDBC2006FDBC2006FDCC2006CDAC1006CDBC1006ADAC00069DA BE0067D9BD0067D9BD004DDBA2002F996A0045D6940039CAA00039CDA60038CD A6003ACDA6003BCEA7003CCEA8003CCEA9003DCFA9003DCDA9003FCEAA0040CE AA0040CEAB0040CFAB003ACA9E0045D695009F5D0000F1EB7B00EFE67A00F1EA 8700F4F09C00F6F3A800F7F7BA00F9F9C300F9F9C400F9F7BE00F7F2B200F6EE A900F4EB9D00F5EBA100F4E9A000F7EE98000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000001A553A003EC48B003DC4 8A003DC48A003DC48A003DC48A003DC48A003EC48A003EC48B003EC48B003EC4 8B003EC48B003FC58C001A553B0000000000040C080045D695003BC999003BC9 99003BC999003AC999003AC999003BC899003AC999003AC999003BC899003AC8 99003BC89A003CC8960045D69500040C0800FFFFFF009F5D00009F5D00009F5D 00009F5D00009F5D00009F5D00009F5D00009F5D00009F5D00009F5D00009F5D 00009F5D00009F5D00009F5D00009F5D00000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000003987F5FF3B9EF7FF3BA0 F7FF3BA0F7FF3BA0F7FF3B9FF7FF3B9FF7FF3B9EF7FF3B9EF7FF3B9DF7FF3B9C F7FF3B9BF7FF3B9BF7FF3B9BF7FF3A92F5FF949496FF2222D6FF2222D6FF2222 D6FF2222D6FF2222D6FF2222D6FF2222D6FF2222D6FF2222D6FF2222D6FF2222 D6FF2222D6FF2222D6FF2222D6FF2222D6FF000000007A00CCFF8B00EBFF8B00 EBFF8B00EBFF8B00EBFF8A00EAFF8A00EAFF8A00EAFF8A00EAFF8A00EAFF8B00 EBFF8B00EBFF8B00EBFF8B00EBFF7A00CCFF000000003987F5FF3B9DF7FF3B9E F7FF3B9FF7FF3B9EF7FF3B9DF7FF3B9DF7FF3B9DF7FF3B9DF7FF3B9CF7FF3B9B F7FF3B9BF7FF3B9BF7FF3B9AF6FF3988F5FF193B6B6F3A9AF6FF3BA4F8FF3BA8 F8FF3BA7F8FF3BA6F8FF3BA5F8FF3BA4F8FF3BA3F8FF3BA2F8FF3BA0F7FF3B9F F7FF3B9DF7FF3B9CF7FF3B9BF7FF3B9BF7FF6F6F9EFF1B1BCAFF1B1BCAFF1B1B CAFF1B1BCAFF1B1BCAFF1B1BCAFF1B1BCAFF1B1BCAFF1B1BCAFF1B1BCAFF1B1B CAFF1B1BCAFF1B1BCAFF1B1BCAFF1B1BCAFF54008CAF8B00EBFF8B00EBFF8B00 EBFF8B00EBFF8600E3FF7B00D0FF7B00D0FF7B00D0FF7B00D0FF8300DEFF8A00 EAFF8B00EBFF8B00EBFF8B00EBFF8B00EBFF1C437A7F3A9AF6FF3BA3F8FF3BA6 F8FF3BA4F7FF3AA1F4FF3AA0F3FF3A9FF3FF3A9EF2FF3A9EF2FF3A9CF2FF3A9B F2FF3B9CF6FF3B9CF7FF3B9BF7FF3B9AF6FF2B65B8BF3B9DF7FF3BABF8FF37A4 EBFF369EE2FF369DE2FF369BE1FF369AE1FF38A1EEFF3AA6F7FF3BA4F8FF3BA2 F8FF3B9FF7FF3B9EF7FF3B9CF7FF3B9BF7FF6C6C9CFF1212B7FF908CBDFFA2A0 D4FF7E7DD2FFC0BDD0FF6D6BBBFF9A99D7FF5050D0FF9E9CCFFF6D6BBBFF9D9B CDFF7B7ACCFFB1AECAFF1212B7FF1212B7FF7A00CCFF8B00EBFF8B00EBFF8B00 EBFF7C00D3FFFFFFFFFFC59FDFFF943FCFFF953FD0FF933FCDFFDABFECFF8700 E6FF8B00EBFF8B00EBFF8B00EBFF8B00EBFF3987F5FF3B9EF7FF3BABF9FF3BAD F9FF38A2EAFF8B3737FF973B2BFF9C4128FFA34A25FFA75023FFAE591FFFB35F 1DFF3896E8FF3B9EF7FF3B9CF7FF3B9BF7FF2B65B8BF3B9EF7FF3BAFF9FF9E5D 1DFFC46500FFDB7600FFEC9F2BFFF3BC4FFFBDC999FF3AA6F5FF3BA6F8FF3BA5 F8FF3BA1F8FF3B9FF7FF3B9DF7FF3B9BF7FF6A6A9AFF0B0BABFF9B97BCFF0808 A4FF0909A6FF4747BDFF6B68B6FF0909A6FF0909A6FF4646BCFF6A68B5FF0B0B A9FF0A0AA9FF4747BEFF0B0BABFF0B0BABFF7A00CCFF8B00EBFF8B00EBFF8600 E3FFFFFFFFFFA25FD1FFB57FDAFF8700E6FF8A00EAFF8800E7FFFFFFFFFF8700 E6FF8B00EBFF8B00EBFF8B00EBFF8B00EBFF3987F5FF3B9FF7FF3BAFF9FF3BB1 FAFF36A2E6FF95382CFF6B5F6BFFA04726FF726667FFAC5620FF816B5AFFB765 1BFF3694E4FF3B9EF6FF3B9DF7FF3B9BF7FF2B65B8BF3B9FF7FF3BB5FAFFAC52 00FF3AB3F6FF3BB5FAFF3BB3FAFFF3BC4FFF3193D1FF778072FF3496DBFF3AA6 F6FF3BA4F8FF3BA2F8FF3B9EF7FF3B9CF7FF666698FF020298FFA4A2C6FF0000 94FF000093FF4040ADFF6E6DB7FF00008EFF00008EFF4040AAFF6B69B2FF0000 93FF000093FF4040AEFF020298FF020298FF7A00CCFF8B00EBFF7C00D3FFFFFF FFFF6E00BAFF7600C8FFAC6FD6FF8700E6FF8B00EBFF8A00EAFFFFFFFFFF8700 E6FF8000D8FF7B00D0FF8500E1FF8A00EAFF3987F5FF3BA1F7FF3BB5FAFF3BB7 FBFF36A8E7FF9C4128FF85594BFFA75023FF8E6446FFB35F1DFF9F6D38FFBE6E 17FF3697E5FF3BA1F7FF3B9DF7FF3B9BF7FF2B65B8BF3BA1F7FF3BB8FAFFAC52 00FF3AB7F7FF3BBAFBFF3BB7FBFF39B1F4FFA66A25FFD26F00FFC48A32FF3395 D9FF3AA5F7FF3BA3F7FF3B9FF7FF3B9CF7FF656598FF000092FFA4A2C5FF0303 B6FF0202B4FF4141C6FF6F6EB6FF0000A7FF0000A7FF4040BDFF6F6DB5FF0000 8EFF00008EFF4040AAFF000092FF000092FF7A00CCFF8B00EBFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF7C00D3FF8A00EAFF8A00EAFF8A00EAFFFFFFFFFF8400 DFFFF5EFFAFFFFFFFFFF7400C5FF8900E9FF3987F5FF3BA2F7FF3BB8FBFF3BBA FCFF36AAE7FFA04726FF726A68FFAC5620FF787165FFB7651BFF7E7861FFC274 15FF3698E5FF3BA2F7FF3B9EF7FF3B9CF7FF2B65B8BF3BA2F7FF3BBDFBFFAC52 00FF36B0E8FF38B7F1FF39B9F7FF976229FFC16200FFD26F00FFE78C12FFEDA3 2FFF3391D6FFA4BBA1FF3A9EF4FF3B9DF7FF656599FF00008DFF9A97B7FF5454 F6FF4E4EF4FF7878F6FF6C6AAFFF1313CCFF1313CCFF4E4ED9FF7372B8FF0000 A0FF0000A0FF4040B8FF00008DFF00008DFF7A00CCFF8B00EBFFFFFFFFFF7B00 D0FF8700E6FF8700E6FF8800E6FF8A00E9FF831FC8FFDABFECFFD0AFE7FFF5EF FAFFFFFFFFFFFFFFFFFF7900CCFF8A00EAFF3987F5FF3BA4F8FF3BBDFCFF3BBF FCFF36B0E8FFA75023FF96633DFFB35F1DFF9F6E38FFBE6E17FFA87933FFC97C 12FF369BE5FF3BA3F7FF3BA0F7FF3B9DF7FF2B65B8BF4CAAF8FF3BBFFCFFAC52 00FFC46500FF3999BDFF38B8F2FFAE5300FFC16200FFD26F00FFE78C12FFEDA3 2FFFE9C160FFFBDC76FF3A9EF3FF3B9DF7FF64649DFF000098FF9793B6FFF0F0 FFFFEBEBFFFFE3E2F3FF7576B5FF5D5DF9FF5D5DF9FF8686FBFF8B8BC8FF0101 B1FF0101B1FF4040C5FF000098FF000098FF7A00CCFF8B00EBFFFFFFFFFF7600 C7FFB57FDAFFB57FDAFF821FC5FF840FD4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFE3CFF1FF8600E3FF8B00EBFF3987F5FF3BA5F8FF3BC0FCFF3BC3 FDFF36B3E9FFAC5620FF707970FFB7651BFF757E6DFFC27415FF7B8369FFCD83 0FFF3A9FE5FF3BA5F7FF3BA1F7FF3B9DF7FF2B65B8BF62B6F9FF62CDFCFF749F A0FF59BEE7FFAB9256FF58A4C0FF5CC1EEFFC16200FFD26F00FFE78C12FFEDA3 2FFFF5C55AFFFBDC76FF60B1F4FF62B1F9FF6363A4FF1D2AB9FF1821BBFF0000 BAFF0000BAFF0000BAFF797BBEFFD7D3D0FFE4E2E0FFD0CBC8FF8888CCFF0A0A C3FF0A0AC4FF4747D2FF3333BCFF3333BCFF7A00CCFFA233EFFFFFFFFFFF8C2B CEFFFFFFFFFFFFFFFFFFB279D9FFFFFFFFFF8D2CD0FFA032EDFFA032ECFFA053 D5FFF6F1FAFF962FDEFFA233EFFFA233EFFF3987F5FF62B8F9FF62CEFDFF62D1 FDFF5AC1E9FFB35F1DFFAC6E2EFFBE6E17FFB57B29FFC97C12FFBF8724FFD48B 0CFF5AADE6FF62B8F9FF62B4F9FF62B0F9FF2B65B8BF62B6F9FF62CFFDFF62D3 FDFF62D2FDFF60D0FBFFEC9F2BFF58A6C2FF5CC1EEFFD26F00FFE78C12FFEDA3 2FFFF5C55AFFFBDC76FF60B2F4FF62B1F9FF6363A8FF2332C4FF2533C4FF2633 C4FF2833C4FF2A33C4FF1E24C1FF0000BAFF0000BAFF0000BAFF8585CBFF2828 DDFF2929DEFF5F5FE6FF3535C4FF3535C4FF7A00CCFFA233EFFFFFFFFFFF902D D4FFA133EEFFA133EEFF9930E2FFFFFFFFFF972FDFFFA133EEFFA233EFFF982F E0FFFFFFFFFF912DD5FFA233EFFFA233EFFF3987F5FF62B8F9FF62CFFDFF62D3 FEFF5AC2EAFFB7651BFFBE6E17FFC27415FFC97C12FFCD830FFFD48B0CFFD992 09FF5AAEE6FF62B9F9FF62B5F9FF62B1F9FF2B65B8BF62B6F9FF62CFFDFF62D5 FEFF62D4FEFF62D4FEFF60D0FBFFA7BF9DFF5EC8F6FFA48852FFE78C12FFEDA3 2FFFF5C55AFFFBDC76FF60B2F4FF62B1F9FF6464AEFF2837CEFF2A37CEFF2C38 CEFF2D38CEFF2F38CEFF3038CEFF3239CEFF3439CEFF3539CEFF807FC7FF7F7F FDFF8181FDFFA1A1FDFF3A3ACEFF3A3ACEFF7A00CCFFA233EFFFFFFFFFFF9D5D C9FF902DD4FF902DD4FF8E2CD1FFFFFFFFFF944FC4FF982FE0FF952EDCFFD9BC EDFFD7BBE9FF9E32EAFFA233EFFFA233EFFF3987F5FF62B8F9FF62D0FDFF62D5 FEFF5AC3EAFFBE6E17FF59BDE5FF60CBF7FF60C8F7FF60C6F7FF5EBDF1FFE09A 06FF5AB0E7FF62BBF9FF62B5F9FF62B1F9FF2B65B8BF62B6F9FF62D0FDFF62D5 FEFF62D5FEFF62D5FEFF62D3FEFF62D0FCFF5DC6F2FFD26F00FFE78C12FFEDA3 2FFFF5C55AFFFBDC76FF60B3F4FF62B2F9FF6767B4FF313FD7FF3340D7FF3440 D7FF3640D7FF3741D7FF3941D7FF3A41D7FF3C41D7FF3D42D7FF8483CBFFD5D5 FEFFD5D5FEFFDEDEFBFF4343D7FF4343D7FF7A00CCFFA233EFFF982FE0FFFFFF FFFFFFFFFFFFFFFFFFFFBB87E0FF9945D2FFFFFFFFFFEEE3F5FFFFFFFFFFFFFF FFFF912DD6FFA132EEFFA233EFFFA233EFFF3987F5FF62B8F9FF62D1FDFF62D5 FEFF5BC5EBFFC27415FF55B6DCFF5AC1E9FF5ABEE9FF5ABCE9FF57B0DFFFE4A0 04FF5AB0E7FF62BBF9FF62B6F9FF62B1F9FF2B65B8BF62B4F9FF62D0FDFF62D5 FEFF62D4FEFF62D4FEFF62D2FEFF62D1FDFF62CFFDFF62CCFDFF62C8FDFF62C5 FCFF62C1FBFF62BDFAFF62B8F9FF62B2F9FF6D6DBEFF414FE4FF4350E4FF4450 E4FF4650E4FF4750E4FF4951E4FF4A51E4FF4C51E4FF4D51E4FF3233D4FF3231 BCFF3231BCFF3231BCFF5252E4FF5252E4FF7A00CCFFA233EFFFA233EFFFA133 EEFFA133EEFFA133EEFFA133EEFFA233EFFF9930E2FF952FDCFF912DD6FF9A30 E4FFA233EFFFA233EFFFA233EFFFA233EFFF3987F5FF62B7F9FF62D1FDFF62D5 FEFF60D1F9FFBA842BFFD0860EFFD48B0CFFDB9408FFE09A06FFE7A303FFEBA9 00FF5FBAF3FF62BDFAFF62B7F9FF62B1F9FF193B6B6F5CABF8FF62C8FCFF62CF FDFF62CEFDFF62CDFDFF62CBFDFF62CAFDFF62C8FCFF62C7FCFF62C4FBFF62C2 FBFF62BDFAFF62BAFAFF62B4F9FF62B0F9FF7171C4FF4E5DEDFF505DEDFF515D EDFF535EEDFF545EEDFF565EEDFF585EEDFF595FEDFF5B5FEDFF5D5FEDFF5E60 EDFF6060EDFF6060EDFF6060EDFF6060EDFF7A00CCFFA233EFFFA233EFFFA233 EFFFA233EFFFA233EFFFA233EFFFA233EFFFA233EFFFA233EFFFA233EFFFA233 EFFFA233EFFFA233EFFFA233EFFFA233EFFF2B65B8BF62B3F9FF62CDFDFF62D2 FDFF62CFFCFF60CCF9FF60CAF8FF60C9F8FF60C7F8FF60C5F8FF60C1F7FF60BF F6FF62BDF9FF62BBFAFF62B5F9FF62B0F9FF000000002454999F5AA8F8FF62B4 F9FF62B5F9FF62B4F9FF62B5F9FF62B4F9FF62B4F9FF62B2F9FF62B2F9FF62B1 F9FF62B0F9FF62B0F9FF5AA5F7FF3987F5FFABABC6FF6372FAFF6572FAFF6672 FAFF6872FAFF6973FAFF6B73FAFF6C73FAFF6E74FAFF6F74FAFF7174FAFF7274 FAFF7475FAFF7575FAFF7575FAFF7575FAFF000000007A00CCFFA233EFFFA233 EFFFA233EFFFA233EFFFA233EFFFA233EFFFA233EFFFA233EFFFA233EFFFA233 EFFFA233EFFFA233EFFFA133EDFF7A00CCFF000000003987F5FF62B6F9FF62BA F9FF62BBFAFF62B9F9FF62BAF9FF62B9F9FF62B8F9FF62B6F9FF62B5F9FF62B4 F9FF62B2F9FF62B1F9FF62AFF8FF3B89F5FF0000000000000000122A4C4F1C43 7A7F1C437A7F1C437A7F1C437A7F1C437A7F1C437A7F1C437A7F1C437A7F1C43 7A7F1C437A7F1C437A7F0E213D3F00000000FFFFFF00C5C5D1FFBEBEDCFFBEBE DCFFBEBEDCFFBEBEDCFFBEBEDCFFBEBEDCFFBEBEDCFFBEBEDCFFBEBEDCFFBEBE DCFFBEBEDCFFBEBEDCFFBEBEDCFFC5C5D1FF00000000000000007200BFEF7A00 CCFF7A00CCFF7A00CCFF7A00CCFF7A00CCFF7A00CCFF7A00CCFF7A00CCFF7A00 CCFF7A00CCFF7A00CCFF4C007F9F000000000000000000000000357FE6EF3987 F5FF3987F5FF3987F5FF3987F5FF3987F5FF3987F5FF3987F5FF3987F5FF3987 F5FF3987F5FF3987F5FF275DA8AF00000000424D3E000000000000003E000000 2800000040000000200000000100010000000000000100000000000000000000 000000000000000000000000FFFFFF0080018001000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000} end object actSSPanda: TActionList Images = imglPanda Left = 640 Top = 217 object acExit: TAction Caption = #36864' '#20986 OnExecute = acExitExecute end object acDataUpadate: TAction Caption = #24320#22870#26356#26032 OnExecute = acDataUpadateExecute end object acSaveResult: TAction Caption = #20445#23384#32467#26524 OnExecute = acSaveResultExecute end object acInputResult: TAction Caption = #35206#30422#23548#20837 OnExecute = acInputResultExecute end object acChartReport: TAction Caption = #22270#34920#20998#26512 ImageIndex = 1 OnExecute = acChartReportExecute end object acSaveFilter: TAction Caption = #20445#23384#36807#28388#35774#32622 OnExecute = acSaveFilterExecute end object acOpenFilter: TAction Caption = #23548#20837#36807#28388#35774#32622 OnExecute = acOpenFilterExecute end object acManualUpdate: TAction Caption = #25163#21160#32500#25252 OnExecute = acManualUpdateExecute end object acPrizeLookup: TAction Caption = #20013#22870#26597#35810 OnExecute = acPrizeLookupExecute end object acChecks: TAction Caption = #22797#36873#20998#26512 ImageIndex = 4 OnExecute = acChecksExecute end object acRollback: TAction Caption = #36807#28388#22238#22797 OnExecute = acRollbackExecute end object acGoAhead: TAction Caption = #36807#28388#37325#20570 OnExecute = acGoAheadExecute end object acResultEdit: TAction Caption = #25237#27880#32534#36753 OnExecute = acResultEditExecute end object acResultAdd: TAction Caption = #25237#27880#28155#21152 OnExecute = acResultAddExecute end object acResultDel: TAction Caption = #25237#27880#21024#38500 OnExecute = acResultDelExecute end object acResultClear: TAction Caption = #20840#37096#28165#31354 OnExecute = acResultClearExecute end object acBlueReplace: TAction Caption = #34013#29699#26367#25442 OnExecute = acBlueReplaceExecute end object acInsertInput: TAction Caption = #36861#21152#23548#20837 OnExecute = acInsertInputExecute end object acFilterRestore: TAction Caption = #36807#28388#22238#25910 OnExecute = acFilterRestoreExecute end object acPrintResult: TAction Caption = #32467#26524#25171#21360 OnExecute = acPrintResultExecute end object acSaveBetting: TAction Caption = #20445#23384#25237#27880#26041#26696 OnExecute = acSaveBettingExecute end object acOpenBetting: TAction Caption = #23548#20837#25237#27880#26041#26696 OnExecute = acOpenBettingExecute end end object popmnuBetting: TPopupMenu AutoPopup = False Left = 720 Top = 216 object N33: TMenuItem Action = acSaveBetting end object N34: TMenuItem Action = acOpenBetting end end object popmnuFiltering: TPopupMenu AutoPopup = False Left = 632 Top = 288 object N37: TMenuItem Action = acSaveFilter end object N38: TMenuItem Action = acOpenFilter end end object popmnuOutput: TPopupMenu AutoPopup = False Left = 720 Top = 280 object N54: TMenuItem Action = acPrintResult end object N53: TMenuItem Caption = '-' end object N35: TMenuItem Action = acSaveResult end object N36: TMenuItem Action = acInputResult end object N46: TMenuItem Action = acInsertInput end object N47: TMenuItem Caption = '-' end object N48: TMenuItem Action = acResultEdit end object N49: TMenuItem Action = acResultAdd end object N50: TMenuItem Action = acResultDel end object N51: TMenuItem Action = acResultClear end object N52: TMenuItem Action = acBlueReplace end end object odOpen: TOpenDialog DefaultExt = 'txt' Filter = #25237#27880#32467#26524#25991#20214'(*.txt)|*.txt' Left = 784 Top = 328 end object sdSave: TSaveTextFileDialog DefaultExt = 'fts' Filter = #36807#28388#25991#20214'(*.fts)|*.fts' Left = 664 Top = 400 end object popmnuSg: TPopupMenu Left = 776 Top = 160 object N13: TMenuItem Action = acSaveResult end object N12: TMenuItem Action = acInputResult end object N45: TMenuItem Action = acInsertInput end object N39: TMenuItem Caption = '-' end object N40: TMenuItem Action = acResultEdit end object N41: TMenuItem Action = acResultAdd end object N42: TMenuItem Action = acResultDel end object N43: TMenuItem Action = acResultClear end object N44: TMenuItem Action = acBlueReplace end end end
上传实在太慢了！其他文件上传要暂搁了。。。
