TomBuzin/Rootvin-pluginHDCRTN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Prvni verze

Browse Source
This commit is contained in:
TomBuz
2025-05-21 21:06:33 +02:00
parent a976e7392e
commit fedc940ac4
189 changed files with 72374 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

367
frmSeznamPalet.dfm Normal file
View File

@ -0,0 +1,367 @@
object formSeznamPalet: TformSeznamPalet
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = ' Seznam palet '
ClientHeight = 797
ClientWidth = 948
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Segoe UI'
Font.Style = []
Position = poOwnerFormCenter
OnShow = FormShow
TextHeight = 21
object GridPanel1: TGridPanel
Left = 0
Top = 0
Width = 948
Height = 797
Align = alClient
ColumnCollection = <
item
Value = 100.000000000000000000
end>
ControlCollection = <
item
Column = 0
Control = grdSeznamPalet
Row = 1
end
item
Column = 0
Control = edtVyrobniDen
Row = 0
end
item
Column = 0
Control = GridPanel2
Row = 2
end>
RowCollection = <
item
Value = 6.000000000000000000
end
item
Value = 78.000000000000000000
end
item
Value = 16.000000000000000000
end>
TabOrder = 0
DesignSize = (
948
797)
object grdSeznamPalet: TJvDBGrid
Left = 1
Top = 49
Width = 946
Height = 620
Align = alClient
DataSource = dm.dsSeznamPalet
DrawingStyle = gdsGradient
GradientEndColor = clActiveCaption
GradientStartColor = 16776176
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -16
TitleFont.Name = 'Segoe UI'
TitleFont.Style = []
OnCellClick = grdSeznamPaletCellClick
OnDrawColumnCell = grdSeznamPaletDrawColumnCell
OnMouseUp = grdSeznamPaletMouseUp
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 = 'colID'
Visible = False
end
item
Alignment = taCenter
Expanded = False
FieldName = 'colPaletovyList'
Title.Alignment = taCenter
Title.Caption = 'Paletov'#253' list'
Width = 121
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'colSZ'
Title.Alignment = taCenter
Title.Caption = 'SZ'
Width = 38
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'colRC'
Title.Alignment = taCenter
Title.Caption = 'Reg. '#269#237'slo'
Width = 95
Visible = True
end
item
Expanded = False
FieldName = 'colNazev1'
Title.Alignment = taCenter
Title.Caption = 'N'#225'zev'
Width = 301
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'colMnozstvi'
Title.Alignment = taCenter
Title.Caption = 'Mno'#382'stv'#237
Width = 82
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'colPocetKA'
Title.Alignment = taCenter
Title.Caption = 'Po'#269'et KA'
Width = 79
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'colDatum'
Title.Alignment = taCenter
Title.Caption = 'Datum'
Width = 140
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'colSmena'
Title.Alignment = taCenter
Title.Caption = 'Sm'#283'na'
Visible = False
end
item
Expanded = False
FieldName = 'colDatPorizeni'
Visible = False
end
item
Expanded = False
FieldName = 'colSklad'
Title.Alignment = taCenter
Title.Caption = 'Sklad'
Width = 61
Visible = True
end>
end
object edtVyrobniDen: TLabeledEdit
Left = 463
Top = 11
Width = 121
Height = 29
TabStop = False
Anchors = []
Color = 15790320
EditLabel.Width = 96
EditLabel.Height = 29
EditLabel.Caption = 'V'#253'robn'#237' den: '
LabelPosition = lpLeft
ReadOnly = True
TabOrder = 1
Text = ''
end
object GridPanel2: TGridPanel
Left = 1
Top = 669
Width = 946
Height = 127
Align = alClient
ColumnCollection = <
item
Value = 33.333333333333340000
end
item
Value = 33.333333333333340000
end
item
Value = 33.333333333333310000
end>
ControlCollection = <
item
Column = 0
Control = btnTiskNahledSeznamuPalet
Row = 0
end
item
Column = 1
Control = GridPanel3
Row = 0
end>
RowCollection = <
item
Value = 100.000000000000000000
end>
TabOrder = 2
DesignSize = (
946
127)
object btnTiskNahledSeznamuPalet: TButton
Left = 58
Top = 36
Width = 200
Height = 55
Anchors = []
Caption = 'N'#225'hled seznamu palet'
TabOrder = 0
end
object GridPanel3: TGridPanel
Left = 316
Top = 1
Width = 314
Height = 125
Align = alClient
ColumnCollection = <
item
Value = 50.000000000000000000
end
item
Value = 50.000000000000000000
end>
ControlCollection = <
item
Column = 0
ColumnSpan = 2
Control = edtPaletList
Row = 0
end
item
Column = 0
Control = pnlTiskKA
Row = 1
end
item
Column = 0
Control = pnlTiskPa
Row = 2
end
item
Column = 0
Control = pnlTiskPL
Row = 3
end
item
Column = 1
Control = btnTisk
Row = 1
RowSpan = 3
end>
RowCollection = <
item
Value = 25.000000000000000000
end
item
Value = 25.000000000000000000
end
item
Value = 25.000000000000000000
end
item
Value = 25.000000000000000000
end>
TabOrder = 1
DesignSize = (
314
125)
object edtPaletList: TLabeledEdit
Left = 166
Top = 2
Width = 121
Height = 29
Anchors = []
Color = 15790320
EditLabel.Width = 137
EditLabel.Height = 29
EditLabel.Caption = 'Opak. tisk k palet'#283': '
LabelPosition = lpLeft
TabOrder = 0
Text = ''
end
object pnlTiskKA: TPanel
AlignWithMargins = True
Left = 21
Top = 35
Width = 116
Height = 24
Margins.Left = 20
Margins.Right = 20
Align = alClient
AutoSize = True
Caption = 'KA '#353't'#237'tky'
ParentBackground = False
TabOrder = 1
OnMouseDown = pnlTiskKAMouseDown
OnMouseUp = pnlTiskKAMouseUp
end
object pnlTiskPa: TPanel
AlignWithMargins = True
Left = 21
Top = 65
Width = 116
Height = 25
Margins.Left = 20
Margins.Right = 20
Align = alClient
AutoSize = True
Caption = 'Pa '#353't'#237'tek'
ParentBackground = False
TabOrder = 2
OnMouseDown = pnlTiskPaMouseDown
OnMouseUp = pnlTiskPaMouseUp
end
object pnlTiskPL: TPanel
AlignWithMargins = True
Left = 21
Top = 96
Width = 116
Height = 25
Margins.Left = 20
Margins.Right = 20
Align = alClient
AutoSize = True
Caption = 'Paletov'#253' list'
ParentBackground = False
TabOrder = 3
OnMouseDown = pnlTiskPLMouseDown
OnMouseUp = pnlTiskPLMouseUp
end
object btnTisk: TButton
AlignWithMargins = True
Left = 160
Top = 47
Width = 140
Height = 55
Margins.Top = 15
Caption = 'Opakovan'#253' tisk'#13#10' ('#353't'#237'tky, PL..)'
TabOrder = 4
end
end
end
end
end