Prvni verze
This commit is contained in:
521
frmSpravaVzorku.dfm
Normal file
521
frmSpravaVzorku.dfm
Normal file
@ -0,0 +1,521 @@
|
||||
object formSpravaVzorku: TformSpravaVzorku
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = ' Spr'#225'va vzork'#367
|
||||
ClientHeight = 635
|
||||
ClientWidth = 1476
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Segoe UI'
|
||||
Font.Style = []
|
||||
Position = poOwnerFormCenter
|
||||
OnShow = FormShow
|
||||
DesignSize = (
|
||||
1476
|
||||
635)
|
||||
TextHeight = 21
|
||||
object GridPanel1: TGridPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1476
|
||||
Height = 635
|
||||
Align = alClient
|
||||
ColumnCollection = <
|
||||
item
|
||||
Value = 100.000000000000000000
|
||||
end>
|
||||
ControlCollection = <
|
||||
item
|
||||
Column = 0
|
||||
Control = grdSpravaVzorku
|
||||
Row = 1
|
||||
end
|
||||
item
|
||||
Column = 0
|
||||
Control = GridPanel2
|
||||
Row = 0
|
||||
end>
|
||||
RowCollection = <
|
||||
item
|
||||
Value = 22.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 75.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 3.000000000000004000
|
||||
end>
|
||||
TabOrder = 0
|
||||
object grdSpravaVzorku: TJvDBGrid
|
||||
Left = 1
|
||||
Top = 140
|
||||
Width = 1474
|
||||
Height = 475
|
||||
Align = alClient
|
||||
DataSource = dm.dsSpravaVzorku
|
||||
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 = []
|
||||
OnColEnter = grdSpravaVzorkuColEnter
|
||||
OnColExit = grdSpravaVzorkuColExit
|
||||
OnDrawColumnCell = grdSpravaVzorkuDrawColumnCell
|
||||
OnDblClick = grdSpravaVzorkuDblClick
|
||||
OnMouseUp = grdSpravaVzorkuMouseUp
|
||||
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
|
||||
Expanded = False
|
||||
FieldName = 'colIDArchiv'
|
||||
Visible = False
|
||||
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 = 113
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'colNazev1'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'N'#225'zev'
|
||||
Width = 377
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'colStroj'
|
||||
Title.Alignment = taCenter
|
||||
Width = 361
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'colMistr'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Mistr'
|
||||
Width = 148
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'colDatPorizeni'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = 'Datum'
|
||||
Width = 151
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'colKArchivaci'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = ' '
|
||||
Width = 32
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'colArchiv'
|
||||
Title.Alignment = taCenter
|
||||
Width = 140
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'colUkonceno'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = ' '
|
||||
Width = 32
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
Expanded = False
|
||||
FieldName = 'colVyrazeno'
|
||||
Title.Alignment = taCenter
|
||||
Title.Caption = ' '
|
||||
Width = 32
|
||||
Visible = True
|
||||
end>
|
||||
end
|
||||
object GridPanel2: TGridPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1474
|
||||
Height = 139
|
||||
Align = alClient
|
||||
ColumnCollection = <
|
||||
item
|
||||
Value = 100.000000000000000000
|
||||
end>
|
||||
ControlCollection = <
|
||||
item
|
||||
Column = 0
|
||||
Control = GridPanel3
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 0
|
||||
Control = GridPanel4
|
||||
Row = 1
|
||||
end>
|
||||
RowCollection = <
|
||||
item
|
||||
Value = 35.515097939819110000
|
||||
end
|
||||
item
|
||||
Value = 64.484902060180900000
|
||||
end>
|
||||
TabOrder = 1
|
||||
object GridPanel3: TGridPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1472
|
||||
Height = 49
|
||||
Align = alClient
|
||||
ColumnCollection = <
|
||||
item
|
||||
Value = 20.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 20.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 20.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 20.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 20.000000000000000000
|
||||
end>
|
||||
ControlCollection = <
|
||||
item
|
||||
Column = 1
|
||||
Control = btnTiskKartonu
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 2
|
||||
Control = btnTiskSeznamVzorku
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 4
|
||||
Control = btnUkoncitKarton
|
||||
Row = 0
|
||||
end>
|
||||
RowCollection = <
|
||||
item
|
||||
Value = 100.000000000000000000
|
||||
end>
|
||||
TabOrder = 0
|
||||
DesignSize = (
|
||||
1472
|
||||
49)
|
||||
object btnTiskKartonu: TButton
|
||||
Left = 352
|
||||
Top = 2
|
||||
Width = 180
|
||||
Height = 45
|
||||
Anchors = []
|
||||
Caption = 'Tisk - '#353't'#237'tek kartonu'
|
||||
TabOrder = 0
|
||||
end
|
||||
object btnTiskSeznamVzorku: TButton
|
||||
Left = 602
|
||||
Top = 2
|
||||
Width = 268
|
||||
Height = 45
|
||||
Anchors = []
|
||||
Caption = 'Tisk - seznam vzork'#367' v kartonu'
|
||||
TabOrder = 1
|
||||
end
|
||||
object btnUkoncitKarton: TButton
|
||||
Left = 1254
|
||||
Top = 2
|
||||
Width = 140
|
||||
Height = 45
|
||||
Anchors = []
|
||||
Caption = 'Ukon'#269'it karton'
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object GridPanel4: TGridPanel
|
||||
Left = 1
|
||||
Top = 50
|
||||
Width = 1472
|
||||
Height = 88
|
||||
Align = alClient
|
||||
ColumnCollection = <
|
||||
item
|
||||
Value = 0.800000000000000000
|
||||
end
|
||||
item
|
||||
Value = 2.600000000000000000
|
||||
end
|
||||
item
|
||||
Value = 7.900000000000000000
|
||||
end
|
||||
item
|
||||
Value = 25.800000000000000000
|
||||
end
|
||||
item
|
||||
Value = 24.700000000000000000
|
||||
end
|
||||
item
|
||||
Value = 10.000000000000000000
|
||||
end
|
||||
item
|
||||
Value = 10.100000000000000000
|
||||
end
|
||||
item
|
||||
Value = 2.200000000000000000
|
||||
end
|
||||
item
|
||||
Value = 9.900000000000000000
|
||||
end
|
||||
item
|
||||
Value = 2.200000000000000000
|
||||
end
|
||||
item
|
||||
Value = 2.200000000000000000
|
||||
end
|
||||
item
|
||||
Value = 1.599999999999993000
|
||||
end>
|
||||
ControlCollection = <
|
||||
item
|
||||
Column = 0
|
||||
Control = Label1
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 1
|
||||
Control = edtSZ
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 2
|
||||
Control = edtRegCis
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 3
|
||||
Control = edtNazev1
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 4
|
||||
Control = edtStroj
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 10
|
||||
Control = Label9
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 7
|
||||
Control = Label2
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 9
|
||||
Control = Label3
|
||||
Row = 0
|
||||
end
|
||||
item
|
||||
Column = 5
|
||||
ColumnSpan = 2
|
||||
Control = btnVyraditVzorek
|
||||
Row = 0
|
||||
end>
|
||||
RowCollection = <
|
||||
item
|
||||
Value = 100.000000000000000000
|
||||
end>
|
||||
TabOrder = 1
|
||||
DesignSize = (
|
||||
1472
|
||||
88)
|
||||
object Label1: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 1
|
||||
Top = 63
|
||||
Width = 12
|
||||
Height = 21
|
||||
Margins.Left = 0
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
Margins.Bottom = 3
|
||||
Align = alBottom
|
||||
Caption = 'X'
|
||||
OnClick = Label1Click
|
||||
ExplicitWidth = 9
|
||||
end
|
||||
object edtSZ: TEdit
|
||||
Left = 13
|
||||
Top = 58
|
||||
Width = 38
|
||||
Height = 29
|
||||
Align = alBottom
|
||||
Alignment = taCenter
|
||||
MaxLength = 3
|
||||
TabOrder = 0
|
||||
OnChange = edtSZChange
|
||||
end
|
||||
object edtRegCis: TEdit
|
||||
Left = 51
|
||||
Top = 58
|
||||
Width = 116
|
||||
Height = 29
|
||||
Align = alBottom
|
||||
Alignment = taCenter
|
||||
MaxLength = 30
|
||||
TabOrder = 1
|
||||
OnChange = edtRegCisChange
|
||||
end
|
||||
object edtNazev1: TEdit
|
||||
Left = 167
|
||||
Top = 58
|
||||
Width = 379
|
||||
Height = 29
|
||||
Align = alBottom
|
||||
Alignment = taCenter
|
||||
MaxLength = 100
|
||||
TabOrder = 2
|
||||
OnChange = edtNazev1Change
|
||||
end
|
||||
object edtStroj: TEdit
|
||||
Left = 546
|
||||
Top = 58
|
||||
Width = 363
|
||||
Height = 29
|
||||
Align = alBottom
|
||||
Alignment = taCenter
|
||||
MaxLength = 100
|
||||
TabOrder = 3
|
||||
OnChange = edtStrojChange
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 1419
|
||||
Top = 8
|
||||
Width = 23
|
||||
Height = 72
|
||||
Anchors = []
|
||||
Caption = 'Vy'#345'azeno'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Segoe UI'
|
||||
Font.Orientation = 2700
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Layout = tlCenter
|
||||
WordWrap = True
|
||||
ExplicitLeft = 979
|
||||
ExplicitTop = 10
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 1209
|
||||
Top = 2
|
||||
Width = 23
|
||||
Height = 83
|
||||
Anchors = []
|
||||
Caption = 'K archivaci'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Segoe UI'
|
||||
Font.Orientation = 2700
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Layout = tlCenter
|
||||
WordWrap = True
|
||||
ExplicitLeft = 979
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 1387
|
||||
Top = 5
|
||||
Width = 23
|
||||
Height = 78
|
||||
Anchors = []
|
||||
Caption = 'Ukon'#269'eno'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Segoe UI'
|
||||
Font.Orientation = 2700
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Layout = tlCenter
|
||||
WordWrap = True
|
||||
ExplicitLeft = 1124
|
||||
ExplicitTop = 7
|
||||
end
|
||||
object btnVyraditVzorek: TButton
|
||||
Left = 987
|
||||
Top = 21
|
||||
Width = 140
|
||||
Height = 45
|
||||
Anchors = []
|
||||
Caption = 'Vy'#345'adit vzorek'
|
||||
TabOrder = 4
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object dbCb1: TJvDBCheckBox
|
||||
Left = 151
|
||||
Top = 228
|
||||
Width = 20
|
||||
Height = 30
|
||||
Anchors = []
|
||||
Color = clBtnFace
|
||||
DataField = 'colKArchivaci'
|
||||
DataSource = dm.dsSpravaVzorku
|
||||
ParentColor = False
|
||||
TabOrder = 1
|
||||
ValueChecked = 'X'
|
||||
ValueUnchecked = ''
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
Reference in New Issue
Block a user