object Ze40: TZe40 Left = 106 Top = 114 HelpContext = 300 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = '5 ze 40' ClientHeight = 402 ClientWidth = 639 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 OnClose = FormClose OnDestroy = FormDestroy OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object StatusBar: TpsiStatusBar Left = 0 Top = 383 Width = 639 Height = 19 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Panels = < item Width = 0 end item Alignment = taCenter Width = 0 end item Alignment = taCenter Width = 0 end item Text = '2.11.1998 20:41 58' Width = 135 end> ParentFont = False ParentShowHint = False ShowHint = False SimplePanel = False end object PageControl1: TPageControl Left = 1 Top = 1 Width = 637 Height = 381 ActivePage = TS3 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnChange = PageControl1Change object TS0: TTabSheet Caption = ' Data ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False object Label13: TLabel Left = 545 Top = 295 Width = 77 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Pozice' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label31: TLabel Left = 545 Top = 311 Width = 77 Height = 13 Alignment = taCenter AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label12: TLabel Left = 552 Top = 8 Width = 59 Height = 13 Alignment = taCenter Caption = 'Nastaven�' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label33: TLabel Left = 568 Top = 22 Width = 26 Height = 13 Alignment = taCenter Caption = 'filtru' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label64: TLabel Left = 571 Top = 124 Width = 46 Height = 13 Caption = 'Ozna�en�' end object Label66: TLabel Left = 573 Top = 143 Width = 15 Height = 13 Alignment = taCenter AutoSize = False Caption = '1' Color = clYellow Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label65: TLabel Left = 573 Top = 161 Width = 15 Height = 13 Alignment = taCenter AutoSize = False Caption = '2' Color = clRed Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label67: TLabel Left = 573 Top = 179 Width = 15 Height = 13 Alignment = taCenter AutoSize = False Caption = '3' Color = clLime Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label70: TLabel Left = 592 Top = 177 Width = 6 Height = 16 Caption = '-' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label69: TLabel Left = 592 Top = 160 Width = 6 Height = 16 Caption = '-' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label68: TLabel Left = 592 Top = 142 Width = 6 Height = 16 Caption = '-' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label71: TLabel Left = 602 Top = 143 Width = 15 Height = 13 Alignment = taCenter AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label72: TLabel Left = 602 Top = 161 Width = 15 Height = 13 Alignment = taCenter AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label73: TLabel Left = 602 Top = 179 Width = 15 Height = 13 Alignment = taCenter AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object ComboBox1: TComboBox Left = 547 Top = 38 Width = 73 Height = 21 Style = csDropDownList DropDownCount = 25 ItemHeight = 13 Items.Strings = ( 'V�e') TabOrder = 0 OnChange = ComboBox1Change end object Button9: TButton Left = 548 Top = 68 Width = 72 Height = 25 Caption = '&Hled�n�' Default = True TabOrder = 1 OnClick = Button9Click end object RxDBGrid1: TRxDBGrid Left = 4 Top = 8 Width = 296 Height = 329 Hint = 'Prav� tla��tko my�i = vyvol�n� skryt�ho menu' Columns = < item Alignment = taCenter FieldName = 'Tyden' Title.Caption = 'T�den' Width = 35 end item FieldName = 'Datum' Width = 60 end item FieldName = 'C1' Title.Caption = '�.1' Width = 25 end item FieldName = 'C2' Title.Caption = '�.2' Width = 25 end item FieldName = 'C3' Title.Caption = '�.3' Width = 25 end item FieldName = 'C4' Title.Caption = '�.4' Width = 25 end item FieldName = 'C5' Title.Caption = '�.5' Width = 25 end item Alignment = taRightJustify FieldName = 'Suma' Title.Alignment = taCenter Width = 33 end> DataSource = DataZ.DataD Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit] ParentShowHint = False PopupMenu = PMenuData ReadOnly = True ShowHint = True TabOrder = 2 TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDblClick = RxDBGrid1DblClick OnKeyPress = RxDBGrid1KeyPress OnGetCellParams = RxDBGrid1GetCellParams end end object TS1: TTabSheet Caption = 'S�zky' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False object Label14: TLabel Left = 267 Top = 6 Width = 80 Height = 13 Caption = 'Fiktivn� v�hra' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label21: TLabel Left = 422 Top = 6 Width = 33 Height = 13 Caption = 'V�hra' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label32: TLabel Left = 148 Top = 8 Width = 105 Height = 13 AutoSize = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object GroupBox1: TGroupBox Left = -1 Top = 2 Width = 146 Height = 343 Caption = ' Hr�� ' TabOrder = 0 object Label22: TLabel Left = 180 Top = 230 Width = 17 Height = 13 Caption = 'K�' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object ComboBox5: TComboBox Left = 5 Top = 18 Width = 137 Height = 21 Style = csDropDownList Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 0 ParentFont = False Sorted = True TabOrder = 0 OnChange = ComboBox5Change end object Button2: TButton Left = 4 Top = 49 Width = 59 Height = 25 Caption = 'Nov� &hr��' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = Button2Click end object Button3: TButton Left = 63 Top = 49 Width = 79 Height = 25 Caption = 'Vym&azat hr��e' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = Button3Click end object GroupBox2: TGroupBox Left = 5 Top = 80 Width = 137 Height = 120 Caption = ' Fiktivn� fond ' TabOrder = 3 object Label23: TLabel Left = 5 Top = 21 Width = 33 Height = 13 Caption = 'Vklad' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label16: TLabel Left = 4 Top = 69 Width = 72 Height = 15 Caption = 'Po�et v�her' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label24: TLabel Left = 4 Top = 45 Width = 73 Height = 14 Caption = 'Po�et s�zek' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label20: TLabel Left = 4 Top = 94 Width = 27 Height = 13 Caption = 'Stav' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object DBEdit8: TDBEdit Left = 40 Top = 17 Width = 93 Height = 21 Hint = ' Dvojit� klik my��@zv��en� fiktivn�ho vkladu' TabStop = False DataField = 'FondF' DataSource = DataZ.DHraci Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 0 OnDblClick = DBEdit8DblClick end object DBEdit2: TDBEdit Left = 78 Top = 66 Width = 54 Height = 21 TabStop = False DataField = 'PocetFV' DataSource = DataZ.DHraci DragMode = dmAutomatic Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False ReadOnly = True TabOrder = 1 end object DBEdit9: TDBEdit Left = 77 Top = 42 Width = 55 Height = 21 TabStop = False DataField = 'PocetFS' DataSource = DataZ.DHraci DragMode = dmAutomatic Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False ReadOnly = True TabOrder = 2 end object DBEdit1: TDBEdit Left = 34 Top = 91 Width = 98 Height = 21 Hint = ' Dvojit� klik my��@zv��en� fiktivn�ho vkladu' TabStop = False DataField = 'StavF' DataSource = DataZ.DHraci Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 3 OnDblClick = DBEdit8DblClick end end object GroupBox3: TGroupBox Left = 5 Top = 210 Width = 137 Height = 121 Caption = ' Hotovost ' TabOrder = 4 object Label15: TLabel Left = 4 Top = 20 Width = 33 Height = 13 Caption = 'Vklad' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label18: TLabel Left = 4 Top = 45 Width = 73 Height = 14 Caption = 'Po�et s�zek' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label19: TLabel Left = 4 Top = 70 Width = 72 Height = 15 Caption = 'Po�et v�her' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label17: TLabel Left = 4 Top = 95 Width = 27 Height = 13 Caption = 'Stav' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object DBEdit6: TDBEdit Left = 40 Top = 17 Width = 92 Height = 21 Hint = 'Dvojit� klik my��@zv��en� vkladu' TabStop = False DataField = 'FondP' DataSource = DataZ.DHraci Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 0 OnDblClick = DBEdit6DblClick end object DBEdit7: TDBEdit Left = 77 Top = 42 Width = 54 Height = 21 TabStop = False DataField = 'PocetS' DataSource = DataZ.DHraci DragMode = dmAutomatic Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False ReadOnly = True TabOrder = 1 end object DBEdit10: TDBEdit Left = 78 Top = 67 Width = 53 Height = 21 TabStop = False DataField = 'PocetV' DataSource = DataZ.DHraci DragMode = dmAutomatic Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False ReadOnly = True TabOrder = 2 end object DBEdit11: TDBEdit Left = 35 Top = 92 Width = 96 Height = 21 Hint = 'Dvojit� klik my��@zv��en� vkladu' TabStop = False DataField = 'Stav' DataSource = DataZ.DHraci Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 3 OnDblClick = DBEdit6DblClick end end end object Edit12: TEdit Left = 348 Top = 3 Width = 64 Height = 21 TabStop = False DragMode = dmAutomatic ReadOnly = True TabOrder = 1 end object Edit11: TEdit Left = 457 Top = 3 Width = 75 Height = 21 TabStop = False DragMode = dmAutomatic ReadOnly = True TabOrder = 2 end object ComboBox6: TComboBox Left = 547 Top = 2 Width = 82 Height = 21 Style = csDropDownList DropDownCount = 25 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 0 ParentFont = False TabOrder = 3 OnChange = ComboBox6Change end object Button4: TButton Left = 154 Top = 322 Width = 81 Height = 23 Caption = 'Nov� &S�zka' TabOrder = 7 OnClick = Button4Click end object Button6: TButton Left = 245 Top = 322 Width = 47 Height = 23 Caption = 'Tis&k' TabOrder = 8 OnClick = Button6Click end object Button11: TButton Left = 302 Top = 322 Width = 94 Height = 23 Caption = 'D&oplnit v�hru' TabOrder = 9 OnClick = Button11Click end object Button10: TButton Left = 446 Top = 322 Width = 76 Height = 23 Caption = 'Zru�it s�zku' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = Button10Click end object Button5: TButton Left = 530 Top = 322 Width = 97 Height = 23 Caption = 'Zru�it star� s�zky' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = Button5Click end object RxDBGrid2: TRxDBGrid Left = 143 Top = 27 Width = 486 Height = 292 Hint = 'Prav� tla��tko my�i = vyvol�n� skryt�ho menu' TabStop = False Columns = < item FieldName = 'Datum' ReadOnly = True Title.Caption = 'Datum �' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 59 end item Alignment = taCenter FieldName = 'C1' ReadOnly = True Title.Alignment = taCenter Title.Caption = '1' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 15 end item Alignment = taCenter FieldName = 'C2' ReadOnly = True Title.Alignment = taCenter Title.Caption = '2' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 15 end item Alignment = taCenter FieldName = 'C3' ReadOnly = True Title.Alignment = taCenter Title.Caption = '3' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 15 end item Alignment = taCenter FieldName = 'C4' ReadOnly = True Title.Alignment = taCenter Title.Caption = '4' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 15 end item Alignment = taCenter FieldName = 'C5' ReadOnly = True Title.Alignment = taCenter Title.Caption = '5' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 15 end item Alignment = taCenter FieldName = 'C6' ReadOnly = True Title.Alignment = taCenter Title.Caption = '6' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 15 end item Alignment = taCenter FieldName = 'C7' ReadOnly = True Title.Alignment = taCenter Title.Caption = '7' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 15 end item Alignment = taCenter FieldName = 'C8' ReadOnly = True Title.Alignment = taCenter Title.Caption = '8' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 15 end item Alignment = taCenter FieldName = 'C9' ReadOnly = True Title.Alignment = taCenter Title.Caption = '9' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 15 end item Alignment = taCenter FieldName = 'C10' ReadOnly = True Title.Alignment = taCenter Title.Caption = '10' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 17 end item FieldName = 'C11' Title.Caption = '11' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 17 end item FieldName = 'C12' Title.Caption = '12' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 17 end item FieldName = 'C13' Title.Caption = '13' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 17 end item FieldName = 'C14' Title.Caption = '14' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 17 end item FieldName = 'Sazka' Title.Caption = 'Vsazeno' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 45 end item Alignment = taCenter FieldName = 'VyhraOk' Title.Alignment = taCenter Title.Caption = 'V' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 14 end item FieldName = 'Vyhra' ReadOnly = True Title.Alignment = taCenter Title.Caption = 'Kolik' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 51 end item Alignment = taCenter FieldName = 'Sance' Title.Alignment = taCenter Title.Caption = '�' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 14 end item Alignment = taCenter FieldName = 'Losovat' Title.Alignment = taCenter Title.Caption = 'L' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 14 end item Alignment = taCenter FieldName = 'Tisk' Title.Alignment = taCenter Title.Caption = 'T' Title.Font.Color = clBlack Title.Font.Height = -11 Title.Font.Name = 'MS Sans Serif' Title.Font.Style = [] Width = 14 end> DataSource = DataZ.DSazky Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgCancelOnExit] ParentFont = False ParentShowHint = False PopupMenu = PopupSazky ReadOnly = True ShowHint = True TabOrder = 4 TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [fsBold] OnDblClick = DBGrid6DblClick OnKeyDown = DBGrid6KeyDown OnGetCellParams = RxDBGrid2GetCellParams end end object TS2: TTabSheet Caption = 'Statistika' object StringGrid1: TStringGrid Left = 4 Top = 31 Width = 203 Height = 309 ColCount = 7 DefaultColWidth = 25 DefaultRowHeight = 18 FixedCols = 0 RowCount = 15 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goRowSelect] ParentFont = False ParentShowHint = False ScrollBars = ssVertical ShowHint = True TabOrder = 0 Visible = False OnEnter = StringGrid1Enter OnMouseDown = StringGrid1MouseDown OnSelectCell = StringGrid1SelectCell end object StringGrid2: TStringGrid Left = 418 Top = 31 Width = 203 Height = 309 ColCount = 7 DefaultColWidth = 25 DefaultRowHeight = 18 FixedCols = 0 RowCount = 15 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goRowSelect] ParentFont = False ParentShowHint = False ScrollBars = ssVertical ShowHint = True TabOrder = 1 Visible = False OnClick = StringGrid2Click OnEnter = StringGrid2Enter OnMouseDown = StringGrid2MouseDown OnSelectCell = StringGrid2SelectCell end object Panel1: TPanel Left = 233 Top = 0 Width = 160 Height = 28 TabOrder = 2 object Label6: TLabel Left = 43 Top = 7 Width = 72 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Lev� panel' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object RadioButton1: TRadioButton Left = 6 Top = 6 Width = 40 Height = 17 Caption = '<< ' Checked = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 TabStop = True OnClick = RadioButton1Click end object RadioButton2: TRadioButton Left = 113 Top = 6 Width = 40 Height = 17 Alignment = taLeftJustify Caption = ' >>' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = RadioButton2Click end end object Panel3: TPanel Left = 215 Top = 250 Width = 197 Height = 63 TabOrder = 3 Visible = False object Label4: TLabel Left = 14 Top = 25 Width = 61 Height = 13 Alignment = taCenter Caption = 'Celkem stran' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 18 Top = 40 Width = 51 Height = 12 Alignment = taCenter AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label27: TLabel Left = 7 Top = 9 Width = 88 Height = 13 Caption = 'Str�nkov�n� po' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object ComboBox3: TComboBox Left = 99 Top = 6 Width = 91 Height = 21 Style = csDropDownList DropDownCount = 7 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( '15' '25' '50' '100' '500' '1000' '2500') ParentFont = False TabOrder = 0 OnChange = ComboBox3Change end object Button7: TButton Left = 81 Top = 34 Width = 51 Height = 20 Caption = '<<' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = Button7Click end object Button8: TButton Left = 137 Top = 34 Width = 51 Height = 20 Caption = '>>' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button8Click end end object Panel4: TPanel Left = 11 Top = 125 Width = 187 Height = 81 TabOrder = 4 Visible = False object Label1: TLabel Left = 5 Top = 34 Width = 46 Height = 13 Caption = 'Nalezeno' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Pb1: TGauge Left = 54 Top = 33 Width = 129 Height = 16 ForeColor = clBlue BackColor = clYellow Progress = 0 end object Pb2: TGauge Left = 54 Top = 51 Width = 129 Height = 16 ForeColor = clBlue BackColor = clYellow Progress = 0 end object Label2: TLabel Left = 5 Top = 51 Width = 38 Height = 13 Caption = 'Soubor' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 6 Top = 6 Width = 175 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Pracuji �ekejte !!!' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end object Panel7: TPanel Left = 215 Top = 32 Width = 197 Height = 204 TabOrder = 5 object Panel8: TPanel Left = 2 Top = 2 Width = 193 Height = 106 TabOrder = 0 object Label28: TLabel Left = 16 Top = 8 Width = 161 Height = 13 Alignment = taCenter AutoSize = False Caption = 'V�b�r pro zobrazen�' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 26 Top = 52 Width = 44 Height = 13 Caption = '�etnost' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object ComboBox2: TComboBox Left = 8 Top = 24 Width = 178 Height = 21 Style = csDropDownList DropDownCount = 11 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'Statistika jednoho ��sla' 'Statistika dvojic' 'Statistika trojic' 'Statistika �tve�ic' 'Statistika p�tic' 'V�skyt v oblasti 2 ��sel' 'V�skyt v oblasti 5 ��sel' 'V�skyt v oblasti 8 ��sel' 'V�skyt v oblasti 10 ��sel' 'V�skyt v oblasti 20 ��sel' 'Sou�ty v�hern�ch ��sel') ParentFont = False TabOrder = 0 OnChange = ComboBox2Change end object ComboBox4: TComboBox Left = 75 Top = 48 Width = 111 Height = 21 Style = csDropDownList DropDownCount = 20 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 0 ParentFont = False TabOrder = 1 OnChange = ComboBox4Change end object Button1: TButton Left = 4 Top = 76 Width = 184 Height = 26 Caption = 'Zobrazit' Default = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button1Click end end object Panel9: TPanel Left = 2 Top = 111 Width = 193 Height = 23 TabOrder = 1 object Label3: TLabel Left = 2 Top = 4 Width = 189 Height = 16 Alignment = taCenter AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end object Panel10: TPanel Left = 2 Top = 138 Width = 193 Height = 64 TabOrder = 2 object Label26: TLabel Left = 11 Top = 40 Width = 42 Height = 13 Caption = 'T��dit dle' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label10: TLabel Left = 11 Top = 12 Width = 118 Height = 13 Caption = 'Zobrazit kombinace ��sla' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Visible = False end object ComboBox7: TComboBox Left = 64 Top = 36 Width = 121 Height = 21 Style = csDropDownList DropDownCount = 12 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 0 ParentFont = False TabOrder = 1 OnChange = ComboBox7Change end object ComboBox8: TComboBox Left = 135 Top = 9 Width = 49 Height = 21 Style = csDropDownList DropDownCount = 10 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( '1' '2' '3' '4' '5' '6' '7' '8' '9' '10' '11' '12' '13' '14' '15' '16' '17' '18' '19' '20' '21' '22' '23' '24' '25' '26' '27' '28' '29' '30' '31' '32' '33' '34' '35' '36' '37' '38' '39' '40') ParentFont = False TabOrder = 0 Visible = False OnChange = ComboBox8Change end end end object Panel2: TPanel Left = 0 Top = 0 Width = 233 Height = 28 TabOrder = 6 object Label25: TLabel Left = 1 Top = 6 Width = 230 Height = 15 Alignment = taCenter AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end end object Panel5: TPanel Left = 393 Top = 0 Width = 235 Height = 28 TabOrder = 7 object Label9: TLabel Left = 1 Top = 6 Width = 233 Height = 15 Alignment = taCenter AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end end object Panel6: TPanel Left = 215 Top = 316 Width = 197 Height = 25 TabOrder = 8 object Label11: TLabel Left = 12 Top = 5 Width = 43 Height = 16 AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label30: TLabel Left = 61 Top = 5 Width = 77 Height = 15 AutoSize = False Caption = '<< Pozice >>' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label29: TLabel Left = 142 Top = 4 Width = 43 Height = 16 Alignment = taRightJustify AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end end object TS3: TTabSheet Caption = 'Schr�nka ��sel' object StringGrid3: TStringGrid Left = 385 Top = 4 Width = 240 Height = 344 Hint = 'Prav� tla��tko my�i = vyvol�n� skryt�ho menu' Color = clWhite ColCount = 7 DefaultColWidth = 26 DefaultRowHeight = 17 FixedCols = 0 RowCount = 2 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect] ParentFont = False ParentShowHint = False PopupMenu = PMenu ScrollBars = ssVertical ShowHint = True TabOrder = 0 OnClick = StringGrid3Click OnEnter = StringGrid3Enter OnKeyDown = StringGrid3KeyDown OnRowMoved = StringGrid3RowMoved OnSelectCell = StringGrid3SelectCell end object GroupBox5: TGroupBox Left = 1 Top = 1 Width = 378 Height = 70 Caption = ' Pom�r sud�ch a lich�ch ��sel ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object Label52: TLabel Left = 302 Top = 9 Width = 38 Height = 13 AutoSize = False end object Label53: TLabel Left = 208 Top = 9 Width = 90 Height = 13 Caption = 'Pom�r na akt. v�t�' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Button15: TButton Left = 314 Top = 41 Width = 57 Height = 23 Caption = 'Pou��t' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 8 OnClick = Button15Click end object CheckBox2: TCheckBox Left = 10 Top = 15 Width = 83 Height = 13 Caption = '5:0' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object CheckBox3: TCheckBox Left = 10 Top = 32 Width = 83 Height = 13 Caption = '4:1' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object CheckBox4: TCheckBox Left = 10 Top = 49 Width = 83 Height = 13 Caption = '3:2' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object CheckBox6: TCheckBox Left = 96 Top = 49 Width = 83 Height = 13 Caption = '2:3' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 end object CheckBox7: TCheckBox Left = 96 Top = 32 Width = 83 Height = 13 Caption = '1:4' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object CheckBox8: TCheckBox Left = 96 Top = 15 Width = 83 Height = 13 Caption = '0:5' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object CheckBox9: TCheckBox Left = 239 Top = 25 Width = 107 Height = 15 Caption = 'Zobrazit hodnoty' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = CheckBox9Click end object CheckBox12: TCheckBox Left = 239 Top = 40 Width = 53 Height = 17 Caption = 'Vy�adit' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 7 end end object GroupBox8: TGroupBox Left = 1 Top = 76 Width = 378 Height = 47 Caption = ' ��sla ve schr�nce ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 object Button16: TButton Left = 314 Top = 18 Width = 57 Height = 23 Caption = 'Pou��t' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 7 OnClick = Button16Click end object CheckBox1: TCheckBox Left = 239 Top = 12 Width = 65 Height = 15 Caption = 'Spole�n�' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 end object Edit8: TEdit Left = 8 Top = 18 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 0 OnExit = Edit8Exit OnKeyPress = Edit8KeyPress end object Edit9: TEdit Left = 40 Top = 18 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 1 OnExit = Edit9Exit OnKeyPress = Edit9KeyPress end object Edit10: TEdit Left = 72 Top = 18 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 2 OnExit = Edit10Exit OnKeyPress = Edit10KeyPress end object Edit13: TEdit Left = 104 Top = 18 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 3 OnExit = Edit13Exit OnKeyPress = Edit13KeyPress end object Edit14: TEdit Left = 137 Top = 18 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 4 OnExit = Edit14Exit OnKeyPress = Edit14KeyPress end object CheckBox5: TCheckBox Left = 239 Top = 28 Width = 53 Height = 15 Caption = 'Vy�adit' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 end end object GroupBox7: TGroupBox Left = 1 Top = 185 Width = 378 Height = 68 Caption = ' Sou�ty ��sel �estice (Suma) ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 object Label43: TLabel Left = 10 Top = 18 Width = 45 Height = 13 Caption = 'Pr�m�rn�' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label44: TLabel Left = 10 Top = 50 Width = 47 Height = 13 Caption = 'Maxim�ln�' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label45: TLabel Left = 10 Top = 34 Width = 44 Height = 13 Caption = 'Minim�ln�' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label46: TLabel Left = 61 Top = 19 Width = 48 Height = 13 Alignment = taRightJustify AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label47: TLabel Left = 61 Top = 50 Width = 48 Height = 14 Alignment = taRightJustify AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label48: TLabel Left = 61 Top = 34 Width = 48 Height = 14 Alignment = taRightJustify AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label49: TLabel Left = 126 Top = 44 Width = 12 Height = 13 Caption = 'do' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label50: TLabel Left = 126 Top = 20 Width = 12 Height = 13 Caption = 'od' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Button14: TButton Left = 314 Top = 40 Width = 57 Height = 23 Caption = 'Pou��t' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = Button14Click end object Edit6: TEdit Left = 143 Top = 16 Width = 46 Height = 21 AutoSelect = False DragCursor = crHourGlass Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 3 ParentFont = False TabOrder = 0 OnExit = Edit6Exit OnKeyPress = Edit6KeyPress end object Edit7: TEdit Left = 143 Top = 41 Width = 46 Height = 21 AutoSelect = False DragCursor = crHourGlass Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 3 ParentFont = False TabOrder = 1 OnExit = Edit7Exit OnKeyPress = Edit7KeyPress end object CheckBox10: TCheckBox Left = 239 Top = 43 Width = 53 Height = 17 Caption = 'Vy�adit' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end end object GroupBox4: TGroupBox Left = 1 Top = 259 Width = 378 Height = 42 Caption = ' V�hry ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 object Label38: TLabel Left = 8 Top = 18 Width = 9 Height = 13 Caption = '1.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label39: TLabel Left = 51 Top = 18 Width = 9 Height = 13 Caption = '2.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label40: TLabel Left = 110 Top = 18 Width = 9 Height = 13 Caption = '3.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object PB3: TGauge Left = 7 Top = 14 Width = 364 Height = 21 ForeColor = clNavy BackColor = clYellow Progress = 0 Visible = False end object Button12: TButton Left = 307 Top = 13 Width = 66 Height = 23 Caption = 'P�epo��tat' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = Button12Click end object Edit1: TEdit Left = 20 Top = 14 Width = 28 Height = 21 TabStop = False AutoSelect = False DragCursor = crHourGlass DragMode = dmAutomatic ReadOnly = True TabOrder = 1 end object Edit2: TEdit Left = 64 Top = 14 Width = 42 Height = 21 TabStop = False AutoSelect = False DragCursor = crHourGlass DragMode = dmAutomatic ReadOnly = True TabOrder = 2 end object Edit3: TEdit Left = 122 Top = 14 Width = 60 Height = 21 TabStop = False AutoSelect = False DragCursor = crHourGlass DragMode = dmAutomatic ReadOnly = True TabOrder = 3 end end object GroupBox6: TGroupBox Left = 1 Top = 307 Width = 378 Height = 41 Caption = ' Stav schr�nky ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 5 object Label34: TLabel Left = 336 Top = 10 Width = 34 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '0' end object Label35: TLabel Left = 295 Top = 10 Width = 37 Height = 13 AutoSize = False Caption = 'Pozice: ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label36: TLabel Left = 292 Top = 23 Width = 40 Height = 13 AutoSize = False Caption = 'Celkem: ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label37: TLabel Left = 332 Top = 23 Width = 38 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '0' end object Label55: TLabel Left = 8 Top = 18 Width = 59 Height = 13 Caption = 'Po�et ��dk�' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label54: TLabel Left = 167 Top = 16 Width = 8 Height = 13 Caption = '0' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label51: TLabel Left = 205 Top = 16 Width = 10 Height = 13 Alignment = taCenter AutoSize = False Caption = '0' end object Label56: TLabel Left = 245 Top = 16 Width = 8 Height = 13 Caption = '0' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object ComboBox9: TComboBox Left = 70 Top = 14 Width = 57 Height = 21 Style = csDropDownList DropDownCount = 2 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( '1000' '2000' '3000' '4000' '5000') ParentFont = False TabOrder = 0 OnChange = ComboBox9Change end object Button13: TButton Left = 179 Top = 11 Width = 25 Height = 23 Caption = '<' Enabled = False Font.Color = clBlack Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = Button13Click end object Button17: TButton Left = 217 Top = 11 Width = 25 Height = 23 Caption = '>' Enabled = False Font.Color = clBlack Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button17Click end end object GroupBox9: TGroupBox Left = 1 Top = 127 Width = 378 Height = 52 Caption = ' T��dit schr�nku dle ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 6 object Label75: TLabel Left = 5 Top = 15 Width = 17 Height = 13 Caption = '��s.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Button18: TButton Left = 314 Top = 24 Width = 57 Height = 23 Caption = 'T��dit' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 8 OnClick = Button18Click end object RadioButton3: TRadioButton Left = 24 Top = 14 Width = 26 Height = 17 Caption = '1' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object RadioButton4: TRadioButton Left = 59 Top = 14 Width = 26 Height = 17 Caption = '2' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object RadioButton7: TRadioButton Left = 93 Top = 14 Width = 26 Height = 17 Caption = '3' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object RadioButton8: TRadioButton Left = 126 Top = 14 Width = 26 Height = 17 Caption = '4' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object RadioButton9: TRadioButton Left = 160 Top = 14 Width = 26 Height = 17 Caption = '5' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object CheckBox14: TCheckBox Left = 239 Top = 29 Width = 68 Height = 17 Caption = 'Sestupn�' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 7 end object RadioButton16: TRadioButton Left = 93 Top = 33 Width = 99 Height = 15 Caption = 'v�hry n�sobk�' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 end object RadioButton5: TRadioButton Left = 25 Top = 34 Width = 49 Height = 15 Caption = 'Sumy' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 end end end end object MainMenu1: TMainMenu Left = 432 object Systm1: TMenuItem Caption = 'Syst�&m' ShortCut = 0 object Nastaven1: TMenuItem Caption = '&Nastaven�' HelpContext = 310 ShortCut = 0 OnClick = Nastaven1Click end object Kontroladat1: TMenuItem Caption = '&Kontrola dat' ShortCut = 0 OnClick = Kontroladat1Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object Konec1: TMenuItem Caption = '&Opustit' ShortCut = 32883 OnClick = Konec1Click end end object Analza1: TMenuItem Caption = 'Anal�za' ShortCut = 0 object Poetdn2: TMenuItem Caption = 'Po�et dn�' HelpContext = 125 ShortCut = 32848 OnClick = Poetdn2Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Globkn1: TMenuItem Caption = '&Glob�ln�' HelpContext = 230 ShortCut = 32839 OnClick = Globkn1Click end object Run1: TMenuItem Caption = '&Vlastn�' HelpContext = 340 ShortCut = 32854 OnClick = Run1Click end end object Database1: TMenuItem Caption = 'Datab�z&e' ShortCut = 0 object Doplovndat1: TMenuItem Caption = '&Dopl�ov�n� dat' HelpContext = 350 ShortCut = 32836 OnClick = Doplovndat1Click end object Opravadat1: TMenuItem Caption = '&Oprava dat' HelpContext = 350 ShortCut = 0 OnClick = Opravadat1Click end object Prohlendat1: TMenuItem Caption = '&Prohl�en� dat' HelpContext = 350 ShortCut = 0 OnClick = Prohlendat1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Importdat1: TMenuItem Caption = 'I&mport dat' ShortCut = 0 OnClick = Importdat1Click end end object Strana1: TMenuItem Caption = 'S&trana' ShortCut = 0 object Data1: TMenuItem Caption = '&Data' HelpContext = 301 ShortCut = 32817 OnClick = Data1Click end object Szky1: TMenuItem Caption = '&S�zky' HelpContext = 302 ShortCut = 32818 OnClick = Szky1Click end object Statistika1: TMenuItem Caption = 'S&tatistika' HelpContext = 303 ShortCut = 32819 OnClick = Statistika1Click end object Schrnka1: TMenuItem Caption = 'Schr�&nka' ShortCut = 32820 OnClick = Schrnka1Click end end object Rozpisy2: TMenuItem Caption = '&Rozpisy' ShortCut = 0 object Celkombinacetutovky1: TMenuItem Caption = '&Cel� kombinace + tutovky' ShortCut = 32835 OnClick = Celkombinacetutovky1Click end object Databzerozpis1: TMenuItem Caption = '&Datab�ze rozpis�' ShortCut = 32834 OnClick = Databzerozpis1Click end object N5: TMenuItem Caption = '-' ShortCut = 0 end object Doplnnrozpis2: TMenuItem Caption = 'D&opln�n� datab�ze rozpis�' ShortCut = 0 OnClick = Doplnnrozpis2Click end object Importrozpis1: TMenuItem Caption = '&Import rozpis�' ShortCut = 0 OnClick = Importrozpis1Click end object Exportrozpis1: TMenuItem Caption = '&Export rozpis�' ShortCut = 0 OnClick = Exportrozpis1Click end end object Nstroje1: TMenuItem Caption = 'N�stro&je' ShortCut = 0 object Poetkombinac1: TMenuItem Caption = '&Po�et kombinac�' ShortCut = 0 OnClick = Poetkombinac1Click end object Kalkulaka1: TMenuItem Caption = 'K&alkula�ka' ShortCut = 32844 OnClick = Kalkulaka1Click end object Nevhernszenka1: TMenuItem Caption = '&Nev�hern� s�zenka' ShortCut = 0 OnClick = Nevhernszenka1Click end object Pepotatvhry2: TMenuItem Caption = 'P�epo��tat &v�hry' ShortCut = 0 OnClick = Pepotatvhry2Click end object Grafvcesel1: TMenuItem Caption = '&Graf v�ce ��sel' ShortCut = 0 OnClick = Grafvcesel1Click end end object Npovda1: TMenuItem Caption = '&N�pov�da' ShortCut = 0 object Proastnch101: TMenuItem Caption = '&Pro 5 ze 40' ShortCut = 112 OnClick = Proastnch101Click end object Obsaharejstk1: TMenuItem Caption = 'Obsa&h a rejst��k' ShortCut = 0 OnClick = Obsaharejstk1Click end object N4: TMenuItem Caption = '-' ShortCut = 0 end object NaeWWWstrnky1: TMenuItem Caption = 'Na�e &WWW str�nky' ShortCut = 0 OnClick = NaeWWWstrnky1Click end object Napitenm1: TMenuItem Caption = '&Napi�te n�m' ShortCut = 0 OnClick = Napitenm1Click end object N13: TMenuItem Caption = '-' ShortCut = 0 end object Oprogramu1: TMenuItem Caption = '&O programu' ShortCut = 0 OnClick = Oprogramu1Click end end end object PopMenu1: TPopupMenu Left = 464 object Grafsla1: TMenuItem Caption = 'Graf ��sla' ShortCut = 0 OnClick = Grafsla1Click end object Grafsla2: TMenuItem Caption = 'Graf ��sla' ShortCut = 0 OnClick = Grafsla2Click end object Grafsla3: TMenuItem Caption = 'Graf ��sla' ShortCut = 0 OnClick = Grafsla3Click end object Grafsla4: TMenuItem Caption = 'Graf ��sla' ShortCut = 0 OnClick = Grafsla4Click end object Grafsla5: TMenuItem Caption = 'Graf ��sla' ShortCut = 0 OnClick = Grafsla5Click end object Grafetnosti1: TMenuItem Caption = 'Graf �etnosti' ShortCut = 0 OnClick = Grafetnosti1Click end object Grafnepadlo1: TMenuItem Caption = 'Graf nepadlo' ShortCut = 0 OnClick = Grafnepadlo1Click end object Tiskstatistikysel1: TMenuItem Caption = 'Tisk &statistiky ��sel' ShortCut = 0 OnClick = Tiskstatistikysel1Click end end object MSOfficeCaption1: TMSOfficeCaption AppNameText.FontKind = fkSystemB AppNameText.Visible = True CaptionText.Caption = '5 ze 40' CaptionText.ColorActive = clYellow CaptionText.ColorInactive = clGray CaptionText.FontKind = fkSystem CaptionText.Visible = True CompanyText.FontKind = fkSystemBI CompanyText.Visible = True Color = clNavy Left = 400 Top = 1 end object PMenu: TPopupMenu OnPopup = PMenuPopup Left = 496 object Zadnnovchsel1: TMenuItem Caption = '&Zad�n� nov�ch ��sel Ins' ShortCut = 0 OnClick = Zadnnovchsel1Click end object Zmnavybranhodku1: TMenuItem Caption = 'Z&m�na vybran�ho ��dku Enter' ShortCut = 0 OnClick = Zmnavybranhodku1Click end object Vymazndku1: TMenuItem Caption = '&Vymaz�n� ��dku Del' ShortCut = 0 OnClick = Vymazndku1Click end object MenuItem1: TMenuItem Caption = '-' ShortCut = 0 end object Naplnitnhodn1: TMenuItem Caption = 'Naplnit n�hodn�' ShortCut = 78 OnClick = Naplnitnhodn1Click end object Vhrakombinace1: TMenuItem Caption = 'V�hra p�tice' ShortCut = 86 OnClick = Vhrakombinace1Click end object Ukadennpehledvher1: TMenuItem Caption = 'Uka� denn� p�ehled v�her' ShortCut = 0 object Kombinace1: TMenuItem Caption = 'P�tice' ShortCut = 0 OnClick = Kombinace1Click end object Schrnky1: TMenuItem Caption = 'Schr�nky' ShortCut = 0 OnClick = Schrnky1Click end object N12: TMenuItem Caption = '-' ShortCut = 0 end object Ukldatinevherndatumy1: TMenuItem Caption = 'Ukl�dat i nev�hern� datumy' Checked = True ShortCut = 0 OnClick = Ukldatinevherndatumy1Click end end object N6: TMenuItem Caption = '-' ShortCut = 0 end object a1: TMenuItem Caption = 'Vypr�zdnit schr�nku Ctrl + Del' ShortCut = 0 OnClick = a1Click end object N7: TMenuItem Caption = '-' ShortCut = 0 end object Uloitschrnku1: TMenuItem Caption = 'Ulo�it schr�nku' ShortCut = 85 OnClick = Uloitschrnku1Click end object Nahrtschrnku1: TMenuItem Caption = 'Nahr�t schr�nku' ShortCut = 72 OnClick = Nahrtschrnku1Click end object Exportschrnkydo1: TMenuItem Caption = '&Export schr�nky do' ShortCut = 0 object souboruTXT1: TMenuItem Caption = 'souboru *.TXT' ShortCut = 0 OnClick = souboruTXT1Click end object souboruDBF1: TMenuItem Caption = 'souboru *.DBF' ShortCut = 0 OnClick = souboruDBF1Click end end object N8: TMenuItem Caption = '-' ShortCut = 0 end object Vsaditptici1: TMenuItem Caption = 'Vsadit p�tici' ShortCut = 83 OnClick = Vsaditptici1Click end object Vsaditcelouschrnku1: TMenuItem Caption = 'Vsadit celou schr�nku' ShortCut = 0 OnClick = Vsaditcelouschrnku1Click end object N9: TMenuItem Caption = '-' ShortCut = 0 end object Tiskschrnky1: TMenuItem Caption = 'Tisk schr�nky' ShortCut = 0 OnClick = Tiskschrnky1Click end end object SaveDialog1: TSaveDialog DefaultExt = 'ch2' FileEditStyle = fsEdit Filter = 'schr�nka 5 ze 40|*.ch2' Options = [ofOverwritePrompt, ofPathMustExist] Left = 368 end object OpenDialog1: TOpenDialog DefaultExt = 'ch2' FileEditStyle = fsEdit Filter = 'schr�nka 5 ze 40|*.ch2' Options = [ofPathMustExist, ofFileMustExist] Left = 336 end object PMenuData: TPopupMenu OnPopup = PMenuDataPopup Left = 529 object Oznaitslo1: TMenuItem Caption = 'Ozna�it ��slo' ShortCut = 49 OnClick = Oznaitslo1Click end object Oznaitslo21: TMenuItem Caption = 'Ozna�it ��slo' ShortCut = 50 OnClick = Oznaitslo21Click end object Oznaitslo31: TMenuItem Caption = 'Ozna�it ��slo' ShortCut = 51 OnClick = Oznaitslo31Click end object Zruitoznaen1: TMenuItem Caption = 'Zru�it barevn� ozna�en�' ShortCut = 46 OnClick = Zruitoznaen1Click end object N11: TMenuItem Caption = '-' ShortCut = 0 end object MenuItem2: TMenuItem Caption = 'Graf ��sla' ShortCut = 71 OnClick = MenuItem2Click end object N10: TMenuItem Caption = '-' ShortCut = 0 end object Exportdatdo1: TMenuItem Caption = '&Export dat do ' ShortCut = 0 object souboruTXT2: TMenuItem Caption = 'souboru *.TXT' ShortCut = 0 OnClick = souboruTXT2Click end object souboruDBF2: TMenuItem Caption = 'souboru *.DBF' ShortCut = 0 OnClick = souboruDBF2Click end end end object PopupSazky: TPopupMenu OnPopup = PopupSazkyPopup Left = 563 object Nastavittisk1: TMenuItem Caption = '&Nastavit tisk' ShortCut = 84 OnClick = Nastavittisk1Click end object Ukzatvhry1: TMenuItem Caption = '&Uk�zat v�hry' ShortCut = 86 OnClick = Ukzatvhry1Click end object Pepotatvhry1: TMenuItem Caption = '&P�epo��tat v�hry' ShortCut = 80 OnClick = Pepotatvhry1Click end object Doplnitvhru1: TMenuItem Caption = '&Doplnit v�hru' ShortCut = 79 OnClick = Doplnitvhru1Click end object Zopakovatszku1: TMenuItem Caption = '&Zopakovat s�zku' ShortCut = 90 OnClick = Zopakovatszku1Click end end end