object formVyberTydne: TformVyberTydne Left = 0 Top = 0 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = ' V'#253'robn'#237' t'#253'den' ClientHeight = 473 ClientWidth = 311 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Segoe UI' Font.Style = [] Position = poOwnerFormCenter OnClose = FormClose OnShow = FormShow TextHeight = 21 object grdTydny: TJvDBGrid Left = 4 Top = 51 Width = 303 Height = 395 DataSource = dm2.dsVyrobniTyden Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -16 TitleFont.Name = 'Segoe UI' TitleFont.Style = [] OnDblClick = grdTydnyDblClick ScrollBars = ssVertical SelectColumnsDialogStrings.Caption = 'Select columns' SelectColumnsDialogStrings.OK = '&OK' SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' EditControls = <> RowsHeight = 25 TitleRowHeight = 25 Columns = < item Expanded = False FieldName = 'colRok' Visible = False end item Alignment = taCenter Color = 13041359 Expanded = False FieldName = 'colTyden' Title.Alignment = taCenter Title.Caption = 'T'#253'den' Width = 59 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'colDatumOd' Title.Alignment = taCenter Title.Caption = 'Datum od' Width = 100 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'colDatumDo' Title.Alignment = taCenter Title.Caption = 'Datum do' Width = 107 Visible = True end> end object cbRok: TComboBox Left = 8 Top = 12 Width = 99 Height = 29 Style = csDropDownList TabOrder = 1 OnChange = cbRokChange end object btnDnes: TButton Left = 196 Top = 8 Width = 105 Height = 36 Caption = 'Dnes' TabOrder = 2 OnClick = btnDnesClick end end