object ZDRozpis: TZDRozpis Left = 199 Top = 152 HelpContext = 364 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Datab�ze rozpis� - hra 5 ze 40' ClientHeight = 278 ClientWidth = 485 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 6 Top = 32 Width = 82 Height = 13 Caption = 'Po�et sloupc�' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label22: TLabel Left = 148 Top = 32 Width = 30 Height = 13 Caption = 'Cena' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label20: TLabel Left = 6 Top = 52 Width = 85 Height = 13 Caption = 'Z�ruka rozpisu' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 6 Top = 7 Width = 81 Height = 13 Caption = 'N�zev rozpisu' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 7 Top = 160 Width = 472 Height = 13 AutoSize = False Caption = 'Zadejte ��sla:' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 343 Top = 32 Width = 97 Height = 13 Caption = 'z toho je tutovek' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 233 Top = 32 Width = 65 Height = 13 Caption = 'Po�et ��sel' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Button1: TButton Left = 430 Top = 252 Width = 51 Height = 22 Cancel = True Caption = '&Opustit' TabOrder = 49 OnClick = Button1Click end object DBMemo1: TDBMemo Left = 5 Top = 67 Width = 476 Height = 91 TabStop = False DataField = 'Zaruka' DataSource = DataZ.DRoz ReadOnly = True ScrollBars = ssVertical TabOrder = 5 OnKeyPress = DBMemo1KeyPress end object ComboBox1: TComboBox Left = 94 Top = 3 Width = 387 Height = 22 Style = csOwnerDrawFixed DropDownCount = 20 ItemHeight = 16 Sorted = True TabOrder = 0 OnChange = ComboBox1Change OnKeyPress = ComboBox1KeyPress end object Edit1: TEdit Left = 5 Top = 177 Width = 27 Height = 21 Hint = 'Dvojit� klik my�� = zbytek pr�zdn�ch pol� se dopln� n�hodn�mi ��' + 'sly.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 6 OnDblClick = Edit1DblClick OnExit = Edit1Exit OnKeyPress = Edit1KeyPress end object Edit2: TEdit Left = 39 Top = 177 Width = 27 Height = 21 Hint = 'Dvojit� kilk my�� = p�eps�n� v�ech pol� n�hodn�mi ��sly (i op�to' + 'vn�).' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 7 OnDblClick = Edit2DblClick OnExit = Edit2Exit OnKeyPress = Edit1KeyPress end object Edit3: TEdit Left = 74 Top = 177 Width = 27 Height = 21 Hint = 'Dvojit� klik my�� = vymaz�n� v�ech pol�.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 8 OnDblClick = Edit3DblClick OnExit = Edit3Exit OnKeyPress = Edit1KeyPress end object Edit4: TEdit Left = 108 Top = 177 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 = Edit4Exit OnKeyPress = Edit1KeyPress end object Edit5: TEdit Left = 143 Top = 177 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 10 OnExit = Edit5Exit OnKeyPress = Edit1KeyPress end object Edit6: TEdit Left = 177 Top = 177 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 11 OnExit = Edit6Exit OnKeyPress = Edit1KeyPress end object Edit7: TEdit Left = 212 Top = 177 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 12 OnExit = Edit7Exit OnKeyPress = Edit1KeyPress end object Edit8: TEdit Left = 246 Top = 177 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 13 OnExit = Edit8Exit OnKeyPress = Edit1KeyPress end object Edit9: TEdit Left = 281 Top = 177 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 14 OnExit = Edit9Exit OnKeyPress = Edit1KeyPress end object Edit10: TEdit Left = 315 Top = 177 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 15 OnExit = Edit10Exit OnKeyPress = Edit1KeyPress end object Edit11: TEdit Left = 350 Top = 177 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 16 OnExit = Edit11Exit OnKeyPress = Edit1KeyPress end object Edit12: TEdit Left = 384 Top = 177 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 17 OnExit = Edit12Exit OnKeyPress = Edit1KeyPress end object Edit13: TEdit Left = 419 Top = 177 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 18 OnExit = Edit13Exit OnKeyPress = Edit1KeyPress end object Edit14: TEdit Left = 453 Top = 177 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 19 OnExit = Edit14Exit OnKeyPress = Edit1KeyPress end object Edit15: TEdit Left = 5 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 20 OnExit = Edit15Exit OnKeyPress = Edit1KeyPress end object Edit16: TEdit Left = 39 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 21 OnExit = Edit16Exit OnKeyPress = Edit1KeyPress end object Edit17: TEdit Left = 74 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 22 OnExit = Edit17Exit OnKeyPress = Edit1KeyPress end object Edit18: TEdit Left = 108 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 23 OnExit = Edit18Exit OnKeyPress = Edit1KeyPress end object Edit19: TEdit Left = 143 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 24 OnExit = Edit19Exit OnKeyPress = Edit1KeyPress end object Edit20: TEdit Left = 177 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 25 OnExit = Edit20Exit OnKeyPress = Edit1KeyPress end object Edit21: TEdit Left = 212 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 26 OnExit = Edit21Exit OnKeyPress = Edit1KeyPress end object Edit22: TEdit Left = 246 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 27 OnExit = Edit22Exit OnKeyPress = Edit1KeyPress end object Edit23: TEdit Left = 281 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 28 OnExit = Edit23Exit OnKeyPress = Edit1KeyPress end object Edit24: TEdit Left = 315 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 29 OnExit = Edit24Exit OnKeyPress = Edit1KeyPress end object Edit25: TEdit Left = 350 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 30 OnExit = Edit25Exit OnKeyPress = Edit1KeyPress end object Edit26: TEdit Left = 384 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 31 OnExit = Edit26Exit OnKeyPress = Edit1KeyPress end object Edit27: TEdit Left = 419 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 32 OnExit = Edit27Exit OnKeyPress = Edit1KeyPress end object Edit28: TEdit Left = 453 Top = 201 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 33 OnExit = Edit28Exit OnKeyPress = Edit1KeyPress end object Edit29: TEdit Left = 5 Top = 225 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 34 OnExit = Edit29Exit OnKeyPress = Edit1KeyPress end object Edit30: TEdit Left = 39 Top = 225 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 35 OnExit = Edit30Exit OnKeyPress = Edit1KeyPress end object Edit31: TEdit Left = 74 Top = 225 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 36 OnExit = Edit31Exit OnKeyPress = Edit1KeyPress end object Edit32: TEdit Left = 108 Top = 225 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 37 OnExit = Edit32Exit OnKeyPress = Edit1KeyPress end object Edit33: TEdit Left = 143 Top = 225 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 38 OnExit = Edit33Exit OnKeyPress = Edit1KeyPress end object Edit34: TEdit Left = 177 Top = 225 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 39 OnExit = Edit34Exit OnKeyPress = Edit1KeyPress end object Edit35: TEdit Left = 212 Top = 225 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 40 OnExit = Edit35Exit OnKeyPress = Edit1KeyPress end object Edit36: TEdit Left = 246 Top = 225 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 41 OnExit = Edit36Exit OnKeyPress = Edit1KeyPress end object Edit37: TEdit Left = 281 Top = 225 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 42 OnExit = Edit37Exit OnKeyPress = Edit1KeyPress end object Edit38: TEdit Left = 315 Top = 225 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 43 OnExit = Edit38Exit OnKeyPress = Edit1KeyPress end object Edit39: TEdit Left = 350 Top = 225 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 44 OnExit = Edit39Exit OnKeyPress = Edit1KeyPress end object Edit40: TEdit Left = 384 Top = 225 Width = 27 Height = 21 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 2 ParentFont = False TabOrder = 45 OnExit = Edit40Exit OnKeyPress = Edit1KeyPress end object Button2: TButton Left = 246 Top = 252 Width = 58 Height = 22 Caption = '&Zobrazit' Enabled = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 46 OnClick = Button2Click end object Button3: TButton Left = 312 Top = 252 Width = 51 Height = 22 Caption = '&Nahr�t' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 47 OnClick = Button3Click OnEnter = Button3Enter end object DBEdit1: TDBEdit Left = 94 Top = 29 Width = 36 Height = 21 TabStop = False DataField = 'Sazenek' DataSource = DataZ.DRoz DragCursor = crHourGlass DragMode = dmAutomatic MaxLength = 0 ReadOnly = True TabOrder = 1 end object DBEdit3: TDBEdit Left = 301 Top = 29 Width = 36 Height = 21 TabStop = False DataField = 'Pc' DataSource = DataZ.DRoz DragCursor = crHourGlass DragMode = dmAutomatic MaxLength = 0 ReadOnly = True TabOrder = 3 end object DBEdit4: TDBEdit Left = 443 Top = 29 Width = 36 Height = 21 TabStop = False DataField = 'PcT' DataSource = DataZ.DRoz DragCursor = crHourGlass DragMode = dmAutomatic MaxLength = 0 ReadOnly = True TabOrder = 4 end object Edit94: TEdit Left = 182 Top = 29 Width = 35 Height = 21 TabStop = False DragCursor = crHourGlass DragMode = dmAutomatic MaxLength = 2 ReadOnly = True TabOrder = 2 Text = 'Edit94' end object Button4: TButton Left = 372 Top = 252 Width = 51 Height = 22 Caption = '&Ulo�it' Enabled = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 48 OnClick = Button4Click end object GroupBox2: TGroupBox Left = -3 Top = -219 Width = 490 Height = 288 TabOrder = 50 Visible = False object Label9: TLabel Left = 193 Top = 10 Width = 22 Height = 13 Caption = 'Filtr' Font.Color = clRed Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False OnDblClick = Label9DblClick end object Label4: TLabel Left = 219 Top = 10 Width = 77 Height = 13 Caption = 'Po�et v�her :' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 296 Top = 10 Width = 30 Height = 13 Alignment = taCenter AutoSize = False end object Label10: TLabel Left = 330 Top = 10 Width = 30 Height = 13 Alignment = taCenter AutoSize = False end object Label11: TLabel Left = 364 Top = 10 Width = 30 Height = 13 Alignment = taCenter AutoSize = False end object Label14: TLabel Left = 193 Top = 238 Width = 34 Height = 13 Caption = '��sla: ' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label15: TLabel Left = 233 Top = 238 Width = 11 Height = 13 Alignment = taRightJustify AutoSize = False end object Label16: TLabel Left = 249 Top = 238 Width = 11 Height = 13 Alignment = taRightJustify AutoSize = False end object Label17: TLabel Left = 265 Top = 238 Width = 11 Height = 13 Alignment = taRightJustify AutoSize = False end object Label18: TLabel Left = 281 Top = 238 Width = 11 Height = 13 Alignment = taRightJustify AutoSize = False end object Label19: TLabel Left = 297 Top = 238 Width = 11 Height = 13 Alignment = taRightJustify AutoSize = False end object StringGrid1: TStringGrid Left = 3 Top = 10 Width = 187 Height = 273 Hint = 'Prav� tla��tko my�i = vyvol�n� skryt�ho menu' ColCount = 6 DefaultColWidth = 22 DefaultRowHeight = 17 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 PopupMenu = PMenu ScrollBars = ssVertical ShowHint = True TabOrder = 0 end object StringGrid2: TStringGrid Left = 192 Top = 23 Width = 294 Height = 212 Hint = 'Prav� tla��tko my�i = vyvol�n� skryt�ho menu' DefaultColWidth = 33 DefaultRowHeight = 18 FixedCols = 0 RowCount = 2 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goRowSelect] ParentFont = False ParentShowHint = False PopupMenu = PopupMenu1 ScrollBars = ssVertical ShowHint = True TabOrder = 1 OnClick = StringGrid2Click OnDblClick = StringGrid2DblClick OnEnter = StringGrid2Enter OnKeyPress = StringGrid2KeyPress end object Button5: TButton Left = 349 Top = 262 Width = 61 Height = 21 Cancel = True Caption = '&N�vrat' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button5Click end object Button6: TButton Left = 426 Top = 262 Width = 61 Height = 21 Caption = '&Opustit' TabOrder = 3 OnClick = Button6Click end object Button7: TButton Left = 194 Top = 262 Width = 61 Height = 21 Caption = '&Vsadit' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = Button7Click end object Button8: TButton Left = 271 Top = 262 Width = 61 Height = 21 Caption = '&Tisk' TabOrder = 5 OnClick = Button8Click end end object GroupBox1: TGroupBox Left = 243 Top = 115 Width = 240 Height = 55 TabOrder = 51 Visible = False object PB1: TGauge Left = 7 Top = 26 Width = 227 Height = 21 ForeColor = clNavy BackColor = clYellow Progress = 0 end object Label3: TLabel Left = 7 Top = 9 Width = 227 Height = 13 Alignment = taCenter AutoSize = False end end object MSOfficeCaption1: TMSOfficeCaption AppNameText.FontKind = fkSystemB AppNameText.Visible = True CaptionText.Caption = 'Datab�ze rozpis� - hra 5 ze 40' CaptionText.ColorActive = clYellow CaptionText.ColorInactive = clGray CaptionText.FontKind = fkSystem CaptionText.Visible = True CompanyText.FontKind = fkSystemBI CompanyText.Visible = True Color = clNavy Left = 449 Top = 8 end object PopupMenu1: TPopupMenu Left = 419 Top = 8 object Zobrazitve1: TMenuItem Caption = 'Zobrazit v�e' ShortCut = 0 OnClick = Zobrazitve1Click end object N1poad1: TMenuItem Caption = '1. po�ad�' ShortCut = 0 OnClick = N1poad1Click end object N2poad1: TMenuItem Caption = '2. po�ad�' ShortCut = 0 OnClick = N2poad1Click end object N3poad1: TMenuItem Caption = '3. po�ad�' ShortCut = 0 OnClick = N3poad1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Grafvsledk1: TMenuItem Caption = '&Graf v�sledk�' ShortCut = 0 OnClick = Grafvsledk1Click end end object PMenu: TPopupMenu Left = 152 Top = 24 object Vloitdoschrnky1: TMenuItem Caption = '&Vlo�it do schr�nky' ShortCut = 116 OnClick = Vloitdoschrnky1Click end object Vsaditrozpis1: TMenuItem Caption = 'Vsadit &rozpis' ShortCut = 0 OnClick = Vsaditrozpis1Click end end end