home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 January
/
Chip_1999-01_cd.bin
/
zkuste
/
Globy
/
_SETUP.1
/
Sazeni3D.exe
/
0
/
RCDATA
/
TST10
/
TST10.txt
Wrap
Text File
|
1994-11-07
|
88KB
|
3,349 lines
object ST10: TST10
Left = 131
Top = 115
HelpContext = 100
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = '��astn�ch 10'
ClientHeight = 404
ClientWidth = 639
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
Position = poScreenCenter
OnClose = FormClose
OnDestroy = FormDestroy
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 1
Top = 2
Width = 637
Height = 381
ActivePage = TS3
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnChange = PageControl1Change
object TS0: TTabSheet
Caption = ' Data '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
object Label12: TLabel
Left = 562
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 Label13: TLabel
Left = 560
Top = 295
Width = 66
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 = 560
Top = 311
Width = 66
Height = 13
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label33: TLabel
Left = 578
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 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 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 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 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 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 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 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 = 562
Top = 38
Width = 63
Height = 21
Style = csDropDownList
DropDownCount = 15
ItemHeight = 13
Items.Strings = (
'V�e')
TabOrder = 0
OnChange = ComboBox1Change
end
object Button9: TButton
Left = 563
Top = 68
Width = 62
Height = 25
Caption = '&Hled�n�'
TabOrder = 1
OnClick = Button9Click
end
object RxDBGrid1: TRxDBGrid
Left = 2
Top = 8
Width = 554
Height = 329
Hint = 'Prav� tla��tko my�i = vyvol�n� skryt�ho menu'
Columns = <
item
FieldName = 'Datum'
Title.Caption = 'Datum �.'
Width = 61
end
item
FieldName = 'C1'
Title.Alignment = taRightJustify
Title.Caption = '1'
Width = 18
end
item
FieldName = 'C2'
Title.Alignment = taRightJustify
Title.Caption = '2'
Width = 18
end
item
FieldName = 'C3'
Title.Alignment = taRightJustify
Title.Caption = '3'
Width = 18
end
item
FieldName = 'C4'
Title.Alignment = taRightJustify
Title.Caption = '4'
Width = 18
end
item
FieldName = 'C5'
Title.Alignment = taRightJustify
Title.Caption = '5'
Width = 18
end
item
FieldName = 'C6'
Title.Alignment = taRightJustify
Title.Caption = '6'
Width = 18
end
item
FieldName = 'C7'
Title.Alignment = taRightJustify
Title.Caption = '7'
Width = 18
end
item
FieldName = 'C8'
Title.Alignment = taRightJustify
Title.Caption = '8'
Width = 18
end
item
FieldName = 'C9'
Title.Alignment = taRightJustify
Title.Caption = '9'
Width = 18
end
item
FieldName = 'C10'
Title.Alignment = taRightJustify
Title.Caption = '10'
Width = 22
end
item
FieldName = 'C11'
Title.Alignment = taRightJustify
Title.Caption = '11'
Width = 22
end
item
FieldName = 'C12'
Title.Alignment = taRightJustify
Title.Caption = '12'
Width = 22
end
item
FieldName = 'C13'
Title.Alignment = taRightJustify
Title.Caption = '13'
Width = 22
end
item
FieldName = 'C14'
Title.Alignment = taRightJustify
Title.Caption = '14'
Width = 22
end
item
FieldName = 'C15'
Title.Alignment = taRightJustify
Title.Caption = '15'
Width = 22
end
item
FieldName = 'C16'
Title.Alignment = taRightJustify
Title.Caption = '16'
Width = 22
end
item
FieldName = 'C17'
Title.Alignment = taRightJustify
Title.Caption = '17'
Width = 22
end
item
FieldName = 'C18'
Title.Alignment = taRightJustify
Title.Caption = '18'
Width = 22
end
item
FieldName = 'C19'
Title.Alignment = taRightJustify
Title.Caption = '19'
Width = 22
end
item
FieldName = 'C20'
Title.Alignment = taRightJustify
Title.Caption = '20'
Width = 22
end
item
Alignment = taRightJustify
FieldName = 'Suma'
Title.Alignment = taCenter
Width = 33
end>
DataSource = DataM.DataSource1
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 = 274
Top = 5
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 = 430
Top = 5
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 = 162
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 = 3
Width = 155
Height = 342
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 = 145
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 = 6
Top = 49
Width = 62
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 = 70
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 = 143
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 = 97
Height = 21
Hint = ' Dvojit� klik my��@zv��en� fiktivn�ho vkladu'
TabStop = False
DataField = 'FondF'
DataSource = DataM.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 = DBEdit2DblClick
end
object DBEdit2: TDBEdit
Left = 78
Top = 66
Width = 58
Height = 21
TabStop = False
DataField = 'PocetFV'
DataSource = DataM.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 = 59
Height = 21
TabStop = False
DataField = 'PocetFS'
DataSource = DataM.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 = 102
Height = 21
Hint = ' Dvojit� klik my��@zv��en� fiktivn�ho vkladu'
TabStop = False
DataField = 'StavF'
DataSource = DataM.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 = DBEdit2DblClick
end
end
object GroupBox3: TGroupBox
Left = 5
Top = 210
Width = 143
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 = 97
Height = 21
Hint = 'Dvojit� klik my��@zv��en� vkladu'
TabStop = False
DataField = 'FondP'
DataSource = DataM.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 = 59
Height = 21
TabStop = False
DataField = 'PocetS'
DataSource = DataM.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 = 58
Height = 21
TabStop = False
DataField = 'PocetV'
DataSource = DataM.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 = 101
Height = 21
Hint = 'Dvojit� klik my��@zv��en� vkladu'
TabStop = False
DataField = 'Stav'
DataSource = DataM.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 = DBEdit11DblClick
end
end
end
object Edit11: TEdit
Left = 465
Top = 2
Width = 64
Height = 21
TabStop = False
DragMode = dmAutomatic
ReadOnly = True
TabOrder = 2
end
object Edit12: TEdit
Left = 356
Top = 2
Width = 64
Height = 21
TabStop = False
DragMode = dmAutomatic
ReadOnly = True
TabOrder = 1
end
object ComboBox6: TComboBox
Left = 545
Top = 1
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 RxDBGrid2: TRxDBGrid
Left = 158
Top = 26
Width = 469
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 = 16
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 = 16
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 = 16
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 = 16
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 = 16
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 = 16
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 = 16
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 = 16
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 = 16
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 = 18
end
item
FieldName = 'Sance'
Title.Caption = '�M'
Title.Font.Color = clBlack
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 20
end
item
FieldName = 'Sazka'
ReadOnly = True
Title.Caption = 'S�zka'
Title.Font.Color = clBlack
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 44
end
item
FieldName = 'Vyhra'
ReadOnly = True
Title.Caption = 'V�hra'
Title.Font.Color = clBlack
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 56
end
item
FieldName = 'Opakovat'
Title.Caption = 'Opak.'
Title.Font.Color = clBlack
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 32
end
item
FieldName = 'Losovat'
Title.Caption = 'Los.'
Title.Font.Color = clBlack
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 23
end
item
Alignment = taCenter
FieldName = 'Tisk'
Title.Alignment = taCenter
Title.Font.Color = clBlack
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 23
end>
DataSource = DataM.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
object Button4: TButton
Left = 159
Top = 324
Width = 81
Height = 23
Caption = 'Nov� &S�zka'
TabOrder = 5
OnClick = Button4Click
end
object Button6: TButton
Left = 250
Top = 324
Width = 47
Height = 23
Caption = 'Tis&k'
TabOrder = 6
OnClick = Button6Click
end
object Button11: TButton
Left = 307
Top = 324
Width = 94
Height = 23
Caption = 'D&oplnit v�hru'
Enabled = False
TabOrder = 7
OnClick = Button11Click
end
object Button10: TButton
Left = 445
Top = 324
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 = 8
OnClick = Button10Click
end
object Button5: TButton
Left = 530
Top = 324
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 = 9
OnClick = Button5Click
end
end
object TS2: TTabSheet
Caption = 'Statistika'
object StringGrid1: TStringGrid
Left = 1
Top = 31
Width = 203
Height = 309
Color = clWhite
ColCount = 3
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
OnKeyDown = StringGrid1KeyDown
OnMouseDown = StringGrid1MouseDown
OnSelectCell = StringGrid1SelectCell
end
object StringGrid2: TStringGrid
Left = 420
Top = 31
Width = 203
Height = 309
ColCount = 3
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
OnEnter = StringGrid2Enter
OnKeyDown = StringGrid2KeyDown
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 = '<< '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
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 = 13
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'Statistika jednoho ��sla'
'Statistika dvojice ��sel'
'Statistika trojice ��sel'
'Statistika �tve�ice ��sel'
'V�skyt v oblasti 2 ��sel'
'V�skyt v oblasti 5 ��sel'
'V�skyt v oblasti 10 ��sel'
'V�skyt v oblasti 16 ��sel'
'V�skyt v oblasti 20 ��sel'
'V�skyt v oblasti 40 ��sel'
'Sou�ty v�hern�ch ��sel'
'Opakov�n� ��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
Caption = 'Panel9'
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'
'41'
'42'
'43'
'44'
'45'
'46'
'47'
'48'
'49'
'50'
'51'
'52'
'53'
'54'
'55'
'56'
'57'
'58'
'59'
'60'
'61'
'62'
'63'
'64'
'65'
'66'
'67'
'68'
'69'
'70'
'71'
'72'
'73'
'74'
'75'
'76'
'77'
'78'
'79'
'80')
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 = 277
Top = 55
Width = 353
Height = 295
Hint = 'Prav� tla��tko my�i = vyvol�n� skryt�ho menu'
Color = clWhite
ColCount = 12
DefaultColWidth = 23
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
OnSelectCell = StringGrid3SelectCell
end
object GroupBox4: TGroupBox
Left = 277
Top = 3
Width = 353
Height = 49
Caption = ' Stav '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
object Label35: TLabel
Left = 18
Top = 14
Width = 8
Height = 13
Caption = '1'
end
object Label36: TLabel
Left = 49
Top = 14
Width = 8
Height = 13
Caption = '2'
end
object Label37: TLabel
Left = 81
Top = 14
Width = 8
Height = 13
Caption = '3'
end
object Label38: TLabel
Left = 112
Top = 14
Width = 8
Height = 13
Caption = '4'
end
object Label39: TLabel
Left = 143
Top = 14
Width = 8
Height = 13
Caption = '5'
end
object Label40: TLabel
Left = 176
Top = 14
Width = 8
Height = 13
Caption = '6'
end
object Label41: TLabel
Left = 208
Top = 14
Width = 8
Height = 13
Caption = '7'
end
object Label42: TLabel
Left = 239
Top = 14
Width = 8
Height = 13
Caption = '8'
end
object Label43: TLabel
Left = 272
Top = 14
Width = 8
Height = 13
Caption = '9'
end
object Label44: TLabel
Left = 300
Top = 14
Width = 15
Height = 13
Caption = '10'
end
object Label45: TLabel
Left = 6
Top = 30
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label34: TLabel
Left = 38
Top = 30
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label46: TLabel
Left = 70
Top = 30
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label47: TLabel
Left = 102
Top = 30
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label48: TLabel
Left = 134
Top = 30
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label49: TLabel
Left = 166
Top = 30
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label50: TLabel
Left = 198
Top = 30
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label51: TLabel
Left = 230
Top = 30
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label52: TLabel
Left = 262
Top = 30
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label53: TLabel
Left = 294
Top = 30
Width = 31
Height = 13
Alignment = taCenter
AutoSize = False
Font.Color = clBlack
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object GroupBox8: TGroupBox
Left = 0
Top = 74
Width = 275
Height = 66
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 = 212
Top = 37
Width = 57
Height = 23
Caption = 'Pou��t'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 12
OnClick = Button16Click
end
object CheckBox1: TCheckBox
Left = 136
Top = 41
Width = 65
Height = 17
Caption = 'Spole�n�'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object Edit8: TEdit
Left = 8
Top = 15
Width = 27
Height = 21
Hint = 'Dvojit� klik my�� = vyma�e v�echna pole.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnDblClick = Edit8DblClick
OnExit = Edit8Exit
OnKeyPress = Edit8KeyPress
end
object Edit9: TEdit
Left = 40
Top = 15
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 = 15
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 = 103
Top = 15
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 = 134
Top = 15
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 Edit15: TEdit
Left = 166
Top = 15
Width = 27
Height = 21
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 2
ParentFont = False
TabOrder = 5
OnExit = Edit15Exit
OnKeyPress = Edit15KeyPress
end
object Edit6: TEdit
Left = 8
Top = 39
Width = 27
Height = 21
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 2
ParentFont = False
TabOrder = 6
OnExit = Edit6Exit
OnKeyPress = Edit6KeyPress
end
object Edit7: TEdit
Left = 40
Top = 39
Width = 27
Height = 21
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 2
ParentFont = False
TabOrder = 7
OnExit = Edit7Exit
OnKeyPress = Edit7KeyPress
end
object Edit16: TEdit
Left = 71
Top = 39
Width = 27
Height = 21
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 2
ParentFont = False
TabOrder = 8
OnExit = Edit16Exit
OnKeyPress = Edit16KeyPress
end
object Edit17: TEdit
Left = 103
Top = 39
Width = 27
Height = 21
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 2
ParentFont = False
TabOrder = 9
OnExit = Edit17Exit
OnKeyPress = Edit17KeyPress
end
object CheckBox13: TCheckBox
Left = 213
Top = 12
Width = 53
Height = 17
Caption = 'Vy�adit'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
end
end
object GroupBox6: TGroupBox
Left = 0
Top = 227
Width = 275
Height = 65
Caption = ' V�hra '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
object Label61: TLabel
Left = 76
Top = 18
Width = 41
Height = 13
Caption = 'n�sobek'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label63: TLabel
Left = 183
Top = 18
Width = 59
Height = 13
Caption = '% �sp�nost'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object PB3: TGauge
Left = 4
Top = 14
Width = 263
Height = 23
ForeColor = clNavy
BackColor = clYellow
Progress = 0
Visible = False
end
object Label74: TLabel
Left = 8
Top = 40
Width = 29
Height = 13
Caption = 'V�hry:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Button12: TButton
Left = 203
Top = 38
Width = 64
Height = 22
Caption = 'P�epo��tat'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button12Click
end
object Edit1: TEdit
Left = 6
Top = 15
Width = 67
Height = 21
TabStop = False
AutoSelect = False
DragCursor = crHourGlass
DragMode = dmAutomatic
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 3
end
object RadioButton5: TRadioButton
Left = 40
Top = 41
Width = 74
Height = 14
Caption = 'v n�sobku'
Checked = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
end
object RadioButton6: TRadioButton
Left = 130
Top = 41
Width = 38
Height = 15
Caption = 'v %'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object Edit2: TEdit
Left = 127
Top = 15
Width = 52
Height = 21
TabStop = False
AutoSelect = False
DragCursor = crHourGlass
DragMode = dmAutomatic
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 4
end
end
object GroupBox9: TGroupBox
Left = 0
Top = 302
Width = 275
Height = 47
Caption = ' Stav schr�nky '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
object Label55: TLabel
Left = 96
Top = 20
Width = 10
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = '0'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label54: TLabel
Left = 5
Top = 22
Width = 22
Height = 13
Caption = 'Po�.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label56: TLabel
Left = 137
Top = 20
Width = 10
Height = 13
Alignment = taCenter
AutoSize = False
Caption = '0'
end
object Label57: TLabel
Left = 192
Top = 12
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 Label58: TLabel
Left = 191
Top = 27
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 Label59: TLabel
Left = 234
Top = 12
Width = 34
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = '0'
end
object Label60: TLabel
Left = 230
Top = 27
Width = 38
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = '0'
end
object Label62: TLabel
Left = 176
Top = 20
Width = 10
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = '0'
end
object ComboBox9: TComboBox
Left = 29
Top = 18
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 = 110
Top = 16
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 = 149
Top = 16
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 GroupBox5: TGroupBox
Left = 0
Top = 3
Width = 275
Height = 62
Caption = ' Po�et ��sel v ��dku '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Button15: TButton
Left = 212
Top = 33
Width = 57
Height = 23
Caption = 'Pou��t'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
OnClick = Button15Click
end
object CheckBox2: TCheckBox
Left = 5
Top = 15
Width = 29
Height = 17
Caption = '1 '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object CheckBox3: TCheckBox
Left = 44
Top = 15
Width = 29
Height = 17
Caption = '2'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object CheckBox4: TCheckBox
Left = 83
Top = 15
Width = 29
Height = 17
Caption = '3'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object CheckBox5: TCheckBox
Left = 122
Top = 15
Width = 29
Height = 17
Caption = '4'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object CheckBox6: TCheckBox
Left = 161
Top = 15
Width = 29
Height = 17
Caption = '5'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object CheckBox7: TCheckBox
Left = 5
Top = 36
Width = 37
Height = 15
Caption = '6'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object CheckBox8: TCheckBox
Left = 44
Top = 36
Width = 37
Height = 17
Caption = '7'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object CheckBox9: TCheckBox
Left = 83
Top = 36
Width = 37
Height = 17
Caption = '8'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object CheckBox10: TCheckBox
Left = 122
Top = 36
Width = 37
Height = 17
Caption = '9'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object CheckBox11: TCheckBox
Left = 161
Top = 36
Width = 37
Height = 17
Caption = '10'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
end
object CheckBox12: TCheckBox
Left = 213
Top = 11
Width = 53
Height = 17
Caption = 'Vy�adit'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
end
object GroupBox7: TGroupBox
Left = 0
Top = 149
Width = 275
Height = 69
Caption = ' T��dit schr�nku dle '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
object Label75: TLabel
Left = 5
Top = 17
Width = 17
Height = 13
Caption = '��s.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Button14: TButton
Left = 212
Top = 41
Width = 57
Height = 23
Caption = 'T��dit'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 13
OnClick = Button14Click
end
object RadioButton3: TRadioButton
Left = 24
Top = 16
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 = 16
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 = 16
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 = 16
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 = 16
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 RadioButton10: TRadioButton
Left = 24
Top = 33
Width = 26
Height = 17
Caption = '6'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object RadioButton11: TRadioButton
Left = 93
Top = 33
Width = 26
Height = 17
Caption = '8'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object RadioButton12: TRadioButton
Left = 59
Top = 33
Width = 26
Height = 17
Caption = '7'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object RadioButton13: TRadioButton
Left = 126
Top = 33
Width = 26
Height = 17
Caption = '9'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object RadioButton14: TRadioButton
Left = 160
Top = 33
Width = 31
Height = 17
Caption = '10'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
end
object CheckBox14: TCheckBox
Left = 200
Top = 12
Width = 71
Height = 17
Caption = 'Sestupn�'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 12
end
object RadioButton15: TRadioButton
Left = 24
Top = 50
Width = 67
Height = 15
Caption = 'po�. ��sel'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object RadioButton16: TRadioButton
Left = 94
Top = 51
Width = 111
Height = 15
Caption = 'v�hry n�sobk�'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
end
end
end
end
object StatusBar: TpsiStatusBar
Left = 0
Top = 385
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 = '7.11.1994 20:56 10'
Width = 135
end>
ParentFont = False
ParentShowHint = False
ShowHint = False
SimplePanel = False
end
object MainMenu1: TMainMenu
Left = 448
object Systm1: TMenuItem
Caption = 'Syst�&m'
ShortCut = 0
object Nastaven1: TMenuItem
Caption = '&Nastaven�'
HelpContext = 110
ShortCut = 0
OnClick = Nastaven1Click
end
object Kontrola1: TMenuItem
Caption = '&Kontrola dat'
ShortCut = 0
OnClick = Kontrola1Click
end
object N3: TMenuItem
Caption = '-'
ShortCut = 0
end
object Opustit1: TMenuItem
Caption = '&Opustit'
ShortCut = 32883
OnClick = Opustit1Click
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 = 130
ShortCut = 32839
OnClick = Globkn1Click
end
object Run1: TMenuItem
Caption = '&Vlastn�'
HelpContext = 140
ShortCut = 32854
OnClick = Run1Click
end
end
object Database1: TMenuItem
Caption = 'Datab�z&e'
ShortCut = 0
object Doplovndat1: TMenuItem
Caption = '&Dopl�ov�n� dat'
HelpContext = 150
ShortCut = 32836
OnClick = Doplovndat1Click
end
object Opravadat1: TMenuItem
Caption = '&Oprava dat'
HelpContext = 150
ShortCut = 0
OnClick = Opravadat1Click
end
object Prohlendat1: TMenuItem
Caption = '&Prohl�en� dat'
HelpContext = 150
ShortCut = 0
OnClick = Prohlendat1Click
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object Tabulkavher1: TMenuItem
Caption = '&Tabulka v�her'
HelpContext = 136
ShortCut = 0
OnClick = Tabulkavher1Click
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 = 101
ShortCut = 32817
OnClick = Data1Click
end
object Szky1: TMenuItem
Caption = '&S�zky'
HelpContext = 102
ShortCut = 32818
OnClick = Szky1Click
end
object Statistika1: TMenuItem
Caption = 'S&tatistika'
HelpContext = 103
ShortCut = 32819
OnClick = Statistika1Click
end
object Schrnka1: TMenuItem
Caption = 'Schr�&nka'
ShortCut = 32820
OnClick = Schrnka1Click
end
end
object Rozpisy1: TMenuItem
Caption = '&Rozpisy'
ShortCut = 0
object Celkombinace1: TMenuItem
Caption = '&Cel� kombinace + tutovky'
ShortCut = 32835
OnClick = Celkombinace1Click
end
object Databzerozpis1: TMenuItem
Caption = '&Datab�ze rozpis�'
ShortCut = 32834
OnClick = Databzerozpis1Click
end
object N7: TMenuItem
Caption = '-'
ShortCut = 0
end
object Doplnndatabzerozpis1: TMenuItem
Caption = 'D&opln�n� datab�ze rozpis�'
ShortCut = 0
OnClick = Doplnndatabzerozpis1Click
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 Kolikvsadit2: TMenuItem
Caption = '&Kolik vsadit'
ShortCut = 32843
OnClick = Kolikvsadit2Click
end
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 Pepotatvhry1: TMenuItem
Caption = 'P�epo��tat &v�hry'
ShortCut = 0
OnClick = Pepotatvhry1Click
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 Szense1: TMenuItem
Caption = '&Pro ��astn�ch 10'
ShortCut = 112
OnClick = Szense1Click
end
object Obsaharejstk1: TMenuItem
Caption = 'Obsa&h a rejst��k'
ShortCut = 0
OnClick = Obsaharejstk1Click
end
object N5: 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 N15: TMenuItem
Caption = '-'
ShortCut = 0
end
object Oprogramu1: TMenuItem
Caption = '&O programu'
ShortCut = 0
OnClick = Oprogramu1Click
end
end
end
object PopMenu1: TPopupMenu
Left = 480
object Cisla1: TMenuItem
Caption = '&Graf ��sla'
ShortCut = 0
OnClick = Cisla1Click
end
object Cisla2: TMenuItem
Caption = 'Graf cisla'
ShortCut = 0
OnClick = Cisla2Click
end
object Cisla3: TMenuItem
Caption = 'Graf cisla'
ShortCut = 0
OnClick = Cisla3Click
end
object Cisla4: TMenuItem
Caption = 'Graf cisla'
ShortCut = 0
OnClick = Cisla4Click
end
object Gcet: TMenuItem
Caption = 'Graf �et&nosti'
ShortCut = 0
OnClick = GcetClick
end
object Gnep: TMenuItem
Caption = 'Graf &nepadlo'
ShortCut = 0
OnClick = GnepClick
end
object Tisk1: TMenuItem
Caption = 'Tisk &statistiky ��sel'
ShortCut = 0
OnClick = Tisk1Click
end
object N13: TMenuItem
Caption = '-'
ShortCut = 0
end
object Vloitdoschrnky1: TMenuItem
Caption = '&Vlo�it do schr�nky'
ShortCut = 116
OnClick = Vloitdoschrnky1Click
end
end
object PMenu: TPopupMenu
OnPopup = PMenuPopup
Left = 512
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 N4: TMenuItem
Caption = '-'
ShortCut = 0
end
object Naplnitnhodn1: TMenuItem
Caption = 'Naplnit n�hodn�'
ShortCut = 78
OnClick = Naplnitnhodn1Click
end
object Vhrakombinace1: TMenuItem
Caption = 'V�hra kombinace'
ShortCut = 86
OnClick = Vhrakombinace1Click
end
object Pehledvher1: TMenuItem
Caption = 'Uka� denn� p�ehled v�her'
ShortCut = 0
object Kombinace1: TMenuItem
Caption = 'Kombinace'
ShortCut = 0
OnClick = Kombinace1Click
end
object Schrnky1: TMenuItem
Caption = 'Schr�nky'
ShortCut = 0
OnClick = Schrnky1Click
end
object N10: 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 N8: 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 ExportschrnkydoTXTneboDBF1: 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 N9: TMenuItem
Caption = '-'
ShortCut = 0
end
object Vsaditkombinaci1: TMenuItem
Caption = 'Vsadit kombinaci'
ShortCut = 83
OnClick = Vsaditkombinaci1Click
end
object Vsaditcelouschrnku1: TMenuItem
Caption = 'Vsadit celou schr�nku'
ShortCut = 0
OnClick = Vsaditcelouschrnku1Click
end
object N12: TMenuItem
Caption = '-'
ShortCut = 0
end
object Tiskschrnky1: TMenuItem
Caption = 'Tisk schr�nky'
ShortCut = 0
OnClick = Tiskschrnky1Click
end
end
object MSOfficeCaption1: TMSOfficeCaption
AppNameText.FontKind = fkSystemB
AppNameText.Visible = True
CaptionText.Caption = '��astn�ch 10'
CaptionText.ColorActive = clYellow
CaptionText.ColorInactive = clGray
CaptionText.FontKind = fkSystem
CaptionText.Visible = True
CompanyText.FontKind = fkSystemBI
CompanyText.Visible = True
Color = clMaroon
Left = 544
end
object OpenDialog1: TOpenDialog
DefaultExt = 'sch'
FileEditStyle = fsEdit
Filter = 'schr�nka ��astn�ch 10|*.ch1'
Options = [ofPathMustExist, ofFileMustExist]
Left = 386
end
object SaveDialog1: TSaveDialog
DefaultExt = 'sch'
FileEditStyle = fsEdit
Filter = 'schr�nka ��astn�ch 10|*.ch1'
Options = [ofOverwritePrompt, ofPathMustExist]
Left = 418
end
object PMenuData: TPopupMenu
OnPopup = PMenuDataPopup
Left = 578
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 Grafsla1: TMenuItem
Caption = 'Graf ��sla'
ShortCut = 71
OnClick = Grafsla1Click
end
object N14: 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 = 609
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 Pepotatvhry2: TMenuItem
Caption = '&P�epo��tat v�hry'
ShortCut = 80
OnClick = Pepotatvhry2Click
end
object Doplnitvhru1: TMenuItem
Caption = '&Doplnit v�hru'
ShortCut = 79
OnClick = Doplnitvhru1Click
end
object Grafvher1: TMenuItem
Caption = '&Graf v�her'
ShortCut = 71
OnClick = Grafvher1Click
end
object Zruitvhruance1: TMenuItem
Caption = 'U&ka� v�hru �ance'
ShortCut = 83
OnClick = Zruitvhruance1Click
end
object Zopakovatszku1: TMenuItem
Caption = '&Zopakovat s�zku'
ShortCut = 90
OnClick = Zopakovatszku1Click
end
end
end
