object KVsadit: TKVsadit Left = 190 Top = 72 Width = 551 Height = 432 HelpContext = 199 HorzScrollBar.Range = 1200 HorzScrollBar.Visible = False VertScrollBar.Range = 2000 VertScrollBar.Visible = False BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Kolik vsadit, abyste vyhr�li ?' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Scaled = False OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 14 object Label1: TLabel Left = 25 Top = 5 Width = 301 Height = 13 Caption = 'Vsazena kombinace ��sel : (1-10 ��sel)' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 25 Top = 28 Width = 174 Height = 12 Caption = 'N�sobek vkladu pro p��t� den' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 261 Top = 29 Width = 85 Height = 13 Caption = '(1,000 - 2,500)' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 25 Top = 51 Width = 112 Height = 13 Caption = 'Celkem zobrazit dn�' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 261 Top = 53 Width = 56 Height = 13 Caption = '(10 - 999)' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 25 Top = 72 Width = 94 Height = 13 Caption = 'Po��te�n� vklad' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Button1: TButton Left = 471 Top = 66 Width = 67 Height = 25 Cancel = True Caption = '&Opustit' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 7 OnClick = Button1Click end object StringGrid: TStringGrid Left = 2 Top = 94 Width = 540 Height = 310 Hint = 'Prav� tla��tko my�i = vyvol�n� skryt�ho menu' ColCount = 8 DefaultRowHeight = 17 FixedCols = 0 RowCount = 2 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goRowSelect] ParentFont = False ParentShowHint = False PopupMenu = PopupMenu1 ScrollBars = ssVertical ShowHint = True TabOrder = 5 Visible = False OnSelectCell = StringGridSelectCell ColWidths = ( 27 64 77 60 69 51 93 64) end object Edit1: TEdit Left = 208 Top = 2 Width = 35 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 2 ParentFont = False TabOrder = 0 OnExit = Edit1Exit OnKeyPress = Edit1KeyPress end object Edit2: TEdit Left = 208 Top = 24 Width = 49 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 5 ParentFont = False TabOrder = 1 OnExit = Edit2Exit OnKeyPress = Edit2KeyPress end object Button2: TButton Left = 471 Top = 7 Width = 67 Height = 25 Caption = 'V�&po�et' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = Button2Click end object Edit3: TEdit Left = 208 Top = 47 Width = 35 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 3 ParentFont = False TabOrder = 2 OnExit = Edit3Exit OnKeyPress = Edit3KeyPress end object ComboBox: TComboBox Left = 208 Top = 69 Width = 60 Height = 21 Style = csDropDownList Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( '5 K�' '10 K�' '15 K�' '20 K�' '25 K�' '30 K�' '35 K�' '40 K�' '45 K�' '50 K�' '55 K�' '60 K�' '65 K�' '70 K�' '75 K�' '80 K�' '85 K�' '90 K�' '95 K�' '100 K�') ParentFont = False TabOrder = 3 OnKeyPress = ComboBoxKeyPress end object ScrollBox1: TScrollBox Left = 559 Top = 20 Width = 673 Height = 245 TabOrder = 8 object QRBand1: TQRBand Left = 0 Top = 0 Width = 669 Height = 17 Align = alTop BandType = rbPageHeader Color = clWhite ForceNewPage = False Frame.Width = 0 Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Ruler = qrrNone end object QRBand2: TQRBand Left = 0 Top = 17 Width = 669 Height = 96 Align = alTop BandType = rbPageHeader Color = clWhite Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ForceNewPage = False Frame.Width = 0 Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False ParentFont = False Ruler = qrrNone object QRLabel1: TQRLabel Left = 16 Top = 41 Width = 114 Height = 16 Caption = 'Kombinace 10 ��sel' AlignToBand = False end object QRLabel2: TQRLabel Left = 155 Top = 41 Width = 206 Height = 16 Caption = 'N�sobek vkladu pro p��t� den je 2,1' AlignToBand = False end object QRLabel3: TQRLabel Left = 391 Top = 41 Width = 83 Height = 16 Caption = 'Celkem dn� 10' AlignToBand = False end object QRLabel4: TQRLabel Left = 513 Top = 41 Width = 122 Height = 16 Caption = 'Po��te�n� vklad 5 K�' AlignToBand = False end object QRLabel6: TQRLabel Left = 20 Top = 71 Width = 23 Height = 16 Caption = 'Den' AlignToBand = False end object QRLabel7: TQRLabel Left = 67 Top = 71 Width = 38 Height = 16 Caption = 'Datum' AlignToBand = False end object QRLabel8: TQRLabel Left = 238 Top = 71 Width = 34 Height = 16 Caption = 'V�hra' AlignToBand = False end object QRLabel9: TQRLabel Left = 323 Top = 71 Width = 24 Height = 16 Caption = 'Zisk' AlignToBand = False end object QRLabel10: TQRLabel Left = 366 Top = 71 Width = 49 Height = 16 Caption = 'Zisk v %' AlignToBand = False end object QRLabel11: TQRLabel Left = 456 Top = 70 Width = 82 Height = 16 Caption = 'Celkem ve h�e' AlignToBand = False end object QRShape1: TQRShape Left = 11 Top = 91 width = 637 Height = 4 Shape = qrsHorLine end object QRLabel5: TQRLabel Left = 23 Top = 8 Width = 532 Height = 22 Caption = 'Tabulka v�sledk� syst�mu n�sobn� s�zky - ��astn�ch 10' AlignToBand = False Font.Color = clBlack Font.Height = -19 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object QRSysData1: TQRSysData Left = 614 Top = 10 Width = 49 Height = 17 AlignToBand = False Data = qrsPageNumber end object QRLabel12: TQRLabel Left = 572 Top = 11 Width = 38 Height = 16 Caption = 'Strana' AlignToBand = False end object QRLabel13: TQRLabel Left = 132 Top = 71 Width = 51 Height = 16 Caption = 'Vsazeno' AlignToBand = False end object QRLabel14: TQRLabel Left = 560 Top = 70 Width = 89 Height = 16 Caption = 'Skute�n� v�hra' AlignToBand = False end end object QRBand3: TQRBand Left = 0 Top = 113 Width = 669 Height = 14 Align = alTop BandType = rbDetail Color = clWhite Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ForceNewPage = False Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False ParentFont = False Ruler = qrrNone object QRDBText1: TQRDBText Left = 16 Top = -1 Width = 29 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataM.DTable DataField = 'C1' end object QRDBText2: TQRDBText Left = 58 Top = -1 Width = 62 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataM.DTable DataField = 'C2' end object QRDBText3: TQRDBText Left = 199 Top = -1 Width = 73 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataM.DTable DataField = 'C4' end object QRDBText4: TQRDBText Left = 282 Top = -1 Width = 75 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataM.DTable DataField = 'C5' end object QRDBText5: TQRDBText Left = 366 Top = -1 Width = 43 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataM.DTable DataField = 'C6' end object QRDBText6: TQRDBText Left = 437 Top = -1 Width = 98 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataM.DTable DataField = 'Por1' end object QRDBText7: TQRDBText Left = 132 Top = -1 Width = 55 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataM.DTable DataField = 'C3' end object QRDBText8: TQRDBText Left = 553 Top = -2 Width = 85 Height = 17 Alignment = taRightJustify AlignToBand = False DataSource = DataM.DTable DataField = 'Por2' end end end object Button4: TButton Left = 472 Top = 36 Width = 66 Height = 25 Caption = '&Nahr�t' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = Button4Click end object MSOfficeCaption1: TMSOfficeCaption AppNameText.FontKind = fkSystemB AppNameText.Visible = True CaptionText.Caption = 'Kolik vsadit, abyste vyhr�li ?' CaptionText.ColorActive = clYellow CaptionText.ColorInactive = clGray CaptionText.FontKind = fkSystem CaptionText.Visible = True CompanyText.FontKind = fkSystemBI CompanyText.Visible = True Color = clMaroon Left = 152 Top = 160 end object QuickReport1: TQuickReport DataSource = DataM.DTable ColumnMarginInches = 0 ColumnMarginMM = 0 Columns = 1 DisplayPrintDialog = False LeftMarginInches = 0 LeftMarginMM = 0 Orientation = poPortrait PageFrame.DrawTop = False PageFrame.DrawBottom = False PageFrame.DrawLeft = False PageFrame.DrawRight = False PaperLength = 0 PaperSize = qrpDefault PaperWidth = 0 RestartData = True ShowProgress = False SQLCompatible = False TitleBeforeHeader = False Left = 96 Top = 160 end object PopupMenu1: TPopupMenu Left = 124 Top = 160 object Doplnitvhru1: TMenuItem Caption = '&Doplnit v�hru' ShortCut = 86 OnClick = Doplnitvhru1Click end object Doplnitdatum1: TMenuItem Caption = 'D&oplnit datum' ShortCut = 68 OnClick = Doplnitdatum1Click end object Zmnitvklad1: TMenuItem Caption = 'Zm�nit vklad' ShortCut = 75 OnClick = Zmnitvklad1Click end object Uloitszku1: TMenuItem Caption = '&Ulo�it s�zku' ShortCut = 85 OnClick = Uloitszku1Click end object Nahrtszku1: TMenuItem Caption = '&Nahr�t s�zku' ShortCut = 72 OnClick = Nahrtszku1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Tiskszky1: TMenuItem Caption = '&Tisk s�zky' ShortCut = 0 OnClick = Tiskszky1Click end end object SaveDialog1: TSaveDialog DefaultExt = 'kvs' FileEditStyle = fsEdit Filter = 'Kolik vsadit ��astn�ch 10|*.kvs' Options = [ofOverwritePrompt] Left = 180 Top = 160 end object OpenDialog1: TOpenDialog DefaultExt = 'kvs' FileEditStyle = fsEdit Filter = 'Kolik vsadit ��astn�ch 10|*.kvs' Left = 208 Top = 160 end end