object formKanbanObj: TformKanbanObj Left = 0 Top = 0 BorderIcons = [biSystemMenu] Caption = 'Kanban objedn'#225'vka' ClientHeight = 626 ClientWidth = 737 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Position = poMainFormCenter OnClose = FormClose OnShow = FormShow TextHeight = 13 object Label1: TLabel Left = 391 Top = 19 Width = 87 Height = 16 Caption = 'Po'#269'et polo'#382'ek :' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object lblPocetPol: TLabel Left = 489 Top = 4 Width = 24 Height = 45 Caption = '0' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -37 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 26 Top = 24 Width = 65 Height = 16 Caption = 'Dodavatel :' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object lblDodavatel: TLabel Left = 102 Top = 19 Width = 7 Height = 25 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 26 Top = 66 Width = 75 Height = 16 Caption = 'Kanban box :' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object lblWork: TLabel Left = 444 Top = 606 Width = 285 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'lblWork' end object btnStorno: TButton Left = 638 Top = 565 Width = 75 Height = 25 Caption = 'Zru'#353'it' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = btnStornoClick end object btnOK: TButton Left = 490 Top = 565 Width = 75 Height = 25 Caption = 'OK' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = btnOKClick end object btnGenObj: TButton Left = 558 Top = 12 Width = 155 Height = 29 Caption = 'Generuj v'#253'dejku obal'#367 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = btnGenObjClick end object btnGenKoopOrVPr: TButton Left = 558 Top = 8 Width = 155 Height = 29 Caption = 'Generuj v'#253'dejku obal'#367 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = btnGenKoopOrVPrClick end object mLog: TMemo Left = 26 Top = 538 Width = 401 Height = 75 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] Lines.Strings = ( '') ParentFont = False ScrollBars = ssVertical TabOrder = 3 end object edtBox: TEdit Left = 107 Top = 63 Width = 121 Height = 24 Alignment = taCenter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] NumbersOnly = True ParentFont = False TabOrder = 4 OnKeyUp = edtBoxKeyUp end object grdPolozky: TJvDBGrid Left = 25 Top = 90 Width = 687 Height = 440 DataSource = ds Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack] TabOrder = 5 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnKeyUp = grdPolozkyKeyUp ScrollBars = ssVertical SelectColumnsDialogStrings.Caption = 'Select columns' SelectColumnsDialogStrings.OK = '&OK' SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' EditControls = <> RowsHeight = 17 TitleRowHeight = 17 Columns = < item Alignment = taCenter Expanded = False FieldName = 'IdKanbanBox' Title.Alignment = taCenter Title.Caption = #268#237'slo boxu' Width = 84 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'RegCis' Title.Alignment = taCenter Title.Caption = 'Reg. '#269#237'slo' Width = 126 Visible = True end item Expanded = False FieldName = 'Nazev' Title.Caption = 'Popis' Width = 373 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'Mnozstvi' Title.Alignment = taCenter Title.Caption = 'Mno'#382'stv'#237 Width = 73 Visible = True end item Expanded = False FieldName = 'IdPohybu' Visible = False end> end object ds: TDataSource DataSet = vTable Left = 282 Top = 8 end object vTable: TFDMemTable FetchOptions.AssignedValues = [evMode] FetchOptions.Mode = fmAll ResourceOptions.AssignedValues = [rvSilentMode] ResourceOptions.SilentMode = True UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates] UpdateOptions.CheckRequired = False UpdateOptions.AutoCommitUpdates = True Left = 328 Top = 10 object vTableIdPohybu: TIntegerField FieldName = 'IdPohybu' end object vTableIdKanbanBox: TIntegerField FieldName = 'IdKanbanBox' Required = True end object vTableRegCis: TStringField FieldName = 'RegCis' Required = True Size = 30 end object vTableNazev: TStringField FieldName = 'Nazev' Required = True Size = 50 end object vTableMnozstvi: TSmallintField FieldName = 'Mnozstvi' Required = True DisplayFormat = '#,##0' end end end