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

366
frmPredvyroba.dfm Normal file
View File

@ -0,0 +1,366 @@
object formPredvyroba: TformPredvyroba
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = ' P'#345'edv'#253'roba / Polotovary'
ClientHeight = 762
ClientWidth = 1180
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 GridPanel3: TGridPanel
Left = 0
Top = 0
Width = 1180
Height = 762
Align = alClient
ColumnCollection = <
item
Value = 100.000000000000000000
end>
ControlCollection = <
item
Column = 0
Control = GridPanel1
Row = 1
end
item
Column = 0
Control = Button1
Row = 0
end>
RowCollection = <
item
Value = 10.000000000000000000
end
item
Value = 90.000000000000000000
end>
TabOrder = 0
DesignSize = (
1180
762)
object GridPanel1: TGridPanel
Left = 1
Top = 77
Width = 1178
Height = 684
Align = alClient
ColumnCollection = <
item
Value = 100.000000000000000000
end>
ControlCollection = <
item
Column = 0
Control = grdPredvyroba
Row = 1
end
item
Column = 0
Control = GridPanel2
Row = 0
end>
RowCollection = <
item
Value = 6.000000000000000000
end
item
Value = 94.000000000000000000
end>
TabOrder = 0
object grdPredvyroba: TDBGrid
AlignWithMargins = True
Left = 4
Top = 45
Width = 1170
Height = 635
Align = alClient
DataSource = dm.dsPredvyroba
DrawingStyle = gdsGradient
GradientEndColor = clActiveCaption
GradientStartColor = 16776176
Options = [dgTitles, dgIndicator, 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 = []
OnDrawColumnCell = grdPredvyrobaDrawColumnCell
OnDblClick = grdPredvyrobaDblClick
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'colIDKmen'
Title.Alignment = taCenter
Visible = False
end
item
Alignment = taCenter
Expanded = False
FieldName = 'colSZ'
Title.Alignment = taCenter
Title.Caption = 'SZ'
Width = 62
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'colRegCis'
Title.Alignment = taCenter
Title.Caption = 'Reg. '#269#237'slo'
Width = 139
Visible = True
end
item
Expanded = False
FieldName = 'colNazev1'
Title.Caption = 'N'#225'zev'
Width = 336
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'colMJ'
Title.Alignment = taCenter
Title.Caption = 'MJ'
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'colBaleni'
Title.Alignment = taCenter
Title.Caption = 'ks/KA'
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'colBaleni2'
Title.Alignment = taCenter
Title.Caption = 'KA/pal'
Width = 84
Visible = True
end
item
Expanded = False
FieldName = 'colStroj'
Title.Caption = 'Stroj'
Width = 361
Visible = True
end>
end
object GridPanel2: TGridPanel
Left = 1
Top = 1
Width = 1176
Height = 41
Align = alClient
ColumnCollection = <
item
Value = 1.400000000000000000
end
item
Value = 5.500000000000000000
end
item
Value = 12.000000000000000000
end
item
Value = 28.600000000000000000
end
item
Value = 5.100000000000000000
end
item
Value = 7.000000000000000000
end
item
Value = 7.000000000000000000
end
item
Value = 31.000000000000000000
end
item
Value = 2.400000000000007000
end>
ControlCollection = <
item
Column = 1
Control = edtSZ
Row = 0
end
item
Column = 2
Control = edtRegCis
Row = 0
end
item
Column = 6
Control = edtBal2
Row = 0
end
item
Column = 3
Control = edtNazev1
Row = 0
end
item
Column = 4
Control = edtMJ
Row = 0
end
item
Column = 5
Control = edtBal
Row = 0
end
item
Column = 7
Control = edtStroj
Row = 0
end
item
Column = 0
Control = lblReset
Row = 0
end>
RowCollection = <
item
Value = 100.000000000000000000
end>
TabOrder = 1
DesignSize = (
1176
41)
object edtSZ: TEdit
AlignWithMargins = True
Left = 20
Top = 4
Width = 59
Height = 33
Align = alClient
Alignment = taCenter
TabOrder = 0
OnChange = edtSZChange
ExplicitHeight = 29
end
object edtRegCis: TEdit
AlignWithMargins = True
Left = 85
Top = 4
Width = 135
Height = 33
Align = alClient
Alignment = taCenter
MaxLength = 30
TabOrder = 1
OnChange = edtRegCisChange
ExplicitHeight = 29
end
object edtBal2: TEdit
AlignWithMargins = True
Left = 704
Top = 4
Width = 76
Height = 33
Align = alClient
Enabled = False
MaxLength = 8
TabOrder = 2
ExplicitHeight = 29
end
object edtNazev1: TEdit
AlignWithMargins = True
Left = 226
Top = 4
Width = 330
Height = 33
Align = alClient
MaxLength = 100
TabOrder = 3
OnChange = edtNazev1Change
ExplicitHeight = 29
end
object edtMJ: TEdit
AlignWithMargins = True
Left = 562
Top = 4
Width = 54
Height = 33
Align = alClient
Alignment = taCenter
Enabled = False
MaxLength = 10
TabOrder = 4
ExplicitHeight = 29
end
object edtBal: TEdit
AlignWithMargins = True
Left = 622
Top = 4
Width = 76
Height = 33
Align = alClient
Alignment = taCenter
Enabled = False
MaxLength = 8
TabOrder = 5
ExplicitHeight = 29
end
object edtStroj: TEdit
AlignWithMargins = True
Left = 786
Top = 4
Width = 358
Height = 33
Align = alClient
MaxLength = 100
TabOrder = 6
OnChange = edtStrojChange
ExplicitHeight = 29
end
object lblReset: TLabel
Left = 4
Top = 10
Width = 9
Height = 21
Anchors = []
Caption = 'X'
OnClick = lblResetClick
ExplicitLeft = 3
ExplicitTop = 8
end
end
end
object Button1: TButton
Left = 457
Top = 16
Width = 265
Height = 45
Anchors = []
Caption = 'P'#345'ehled - paletov'#233' listy'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
end
end