Files
LOVATO-plugin/frmKanbanObj_bak_do210318.dfm
2026-04-07 18:23:56 +02:00

308 lines
7.6 KiB
Plaintext

object formKanbanObj: TformKanbanObj
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
Caption = 'Kanban objedn'#225'vka'
ClientHeight = 624
ClientWidth = 737
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
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 gPolozky: TcxGrid
Left = 26
Top = 93
Width = 687
Height = 439
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
object vgPolozky: TcxGridDBTableView
OnKeyUp = vgPolozkyKeyUp
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = ds
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
Column = vgPolozkyMnozstvi
end>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.ColumnHorzSizing = False
OptionsCustomize.ColumnMoving = False
OptionsCustomize.GroupBySorting = True
OptionsData.Deleting = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
object vgPolozkyIdPohybu: TcxGridDBColumn
DataBinding.FieldName = 'IdPohybu'
Visible = False
end
object vgPolozkyIdKanbanBox: TcxGridDBColumn
Caption = #268#237'slo boxu'
DataBinding.FieldName = 'IdKanbanBox'
PropertiesClassName = 'TcxLabelProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
MinWidth = 84
Options.Editing = False
Options.Filtering = False
Options.AutoWidthSizable = False
Options.Grouping = False
Options.HorzSizing = False
Options.Moving = False
Width = 84
end
object vgPolozkyRegCis: TcxGridDBColumn
Caption = 'Reg. '#269#237'slo'
DataBinding.FieldName = 'RegCis'
PropertiesClassName = 'TcxLabelProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
MinWidth = 126
Options.Editing = False
Options.Filtering = False
Options.HorzSizing = False
Options.Moving = False
Width = 126
end
object vgPolozkyNazev: TcxGridDBColumn
Caption = 'Popis'
DataBinding.FieldName = 'Nazev'
PropertiesClassName = 'TcxLabelProperties'
MinWidth = 373
Options.Editing = False
Options.Filtering = False
Options.AutoWidthSizable = False
Options.HorzSizing = False
Options.Moving = False
Options.Sorting = False
Width = 373
end
object vgPolozkyMnozstvi: TcxGridDBColumn
Caption = 'Mno'#382'stv'#237
DataBinding.FieldName = 'Mnozstvi'
PropertiesClassName = 'TcxLabelProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
MinWidth = 73
Options.Editing = False
Options.Filtering = False
Options.AutoWidthSizable = False
Options.Grouping = False
Options.HorzSizing = False
Options.Moving = False
Options.Sorting = False
Width = 73
end
end
object lvlgPolozky: TcxGridLevel
GridView = vgPolozky
end
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 = 1
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 = 2
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 = 3
OnClick = btnGenObjClick
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 = 4
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 = 5
OnKeyUp = edtBoxKeyUp
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
end
end
end