Files
Rootvin-pluginHDCRTN/_plgPlan/frmPlanPaletListy.dfm
2025-05-21 21:06:33 +02:00

1102 lines
27 KiB
Plaintext

object formPlanPaletListy: TformPlanPaletListy
Left = 0
Top = 0
Caption = 'Paletov'#233' listy zak'#225'zky'
ClientHeight = 795
ClientWidth = 604
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Position = poOwnerFormCenter
OnShow = FormShow
TextHeight = 15
object GridPanel1: TGridPanel
Left = 0
Top = 0
Width = 604
Height = 795
Align = alClient
ColumnCollection = <
item
Value = 100.000000000000000000
end>
ControlCollection = <
item
Column = 0
Control = GridPanel2
Row = 0
end
item
Column = 0
Control = GridPanel3
Row = 1
end>
RowCollection = <
item
Value = 60.000000000000000000
end
item
Value = 40.000000000000000000
end>
TabOrder = 0
object GridPanel2: TGridPanel
AlignWithMargins = True
Left = 4
Top = 4
Width = 596
Height = 470
Align = alClient
ColumnCollection = <
item
Value = 10.000000000000000000
end
item
Value = 40.000000000000000000
end
item
Value = 40.000000000000000000
end
item
Value = 10.000000000000000000
end>
ControlCollection = <
item
Column = 1
ColumnSpan = 2
Control = GridPanel4
Row = 1
end
item
Column = 1
ColumnSpan = 2
Control = GridPanel5
Row = 2
end
item
Column = 0
ColumnSpan = 4
Control = GridPanel6
Row = 0
end>
RowCollection = <
item
Value = 36.000000000000000000
end
item
Value = 32.000000000000000000
end
item
Value = 32.000000000000000000
end>
TabOrder = 0
object GridPanel4: TGridPanel
AlignWithMargins = True
Left = 63
Top = 172
Width = 470
Height = 144
Align = alClient
ColumnCollection = <
item
Value = 10.000000000000000000
end
item
Value = 46.000000000000000000
end
item
Value = 22.000000000000000000
end
item
Value = 22.000000000000000000
end>
ControlCollection = <
item
Column = 2
Control = pnlKATiskSarzeAno
Row = 0
end
item
Column = 3
Control = pnlKATiskSarzeNe
Row = 0
end
item
Column = 2
Control = pnlKATiskExpiraceAno
Row = 1
end
item
Column = 3
Control = pnlKATiskExpiraceNe
Row = 1
end
item
Column = 2
ColumnSpan = 2
Control = btnKATisk
Row = 2
end
item
Column = 0
Control = Label1
Row = 0
RowSpan = 3
end
item
Column = 1
Control = Label2
Row = 0
end
item
Column = 1
Control = Label3
Row = 1
end>
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
RowCollection = <
item
Value = 37.537009144953850000
end
item
Value = 37.537009144953850000
end
item
Value = 24.925981710092300000
end>
TabOrder = 0
DesignSize = (
470
144)
object pnlKATiskSarzeAno: TPanel
Left = 263
Top = 1
Width = 103
Height = 53
Align = alClient
Color = clMoneyGreen
ParentBackground = False
TabOrder = 0
OnClick = pnlKATiskSarzeAnoClick
object rbKATiskSarzeAno: TRadioButton
AlignWithMargins = True
Left = 4
Top = 4
Width = 95
Height = 45
Align = alClient
Caption = 'Ano'
Checked = True
TabOrder = 0
TabStop = True
OnClick = rbKATiskSarzeAnoClick
end
end
object pnlKATiskSarzeNe: TPanel
Left = 366
Top = 1
Width = 103
Height = 53
Align = alClient
FullRepaint = False
ParentBackground = False
TabOrder = 1
OnClick = pnlKATiskSarzeNeClick
object rbKATiskSarzeNe: TRadioButton
AlignWithMargins = True
Left = 4
Top = 4
Width = 95
Height = 45
Align = alClient
Caption = 'Ne'
TabOrder = 0
OnClick = rbKATiskSarzeNeClick
end
end
object pnlKATiskExpiraceAno: TPanel
Left = 263
Top = 54
Width = 103
Height = 54
Align = alClient
Color = clMoneyGreen
ParentBackground = False
TabOrder = 2
OnClick = pnlKATiskExpiraceAnoClick
object rbKATiskExpiraceAno: TRadioButton
AlignWithMargins = True
Left = 4
Top = 4
Width = 95
Height = 46
Align = alClient
Caption = 'Ano'
Checked = True
TabOrder = 0
TabStop = True
OnClick = rbKATiskExpiraceAnoClick
end
end
object pnlKATiskExpiraceNe: TPanel
Left = 366
Top = 54
Width = 103
Height = 54
Align = alClient
FullRepaint = False
ParentBackground = False
TabOrder = 3
OnClick = pnlKATiskExpiraceNeClick
object rbKATiskExpiraceNe: TRadioButton
AlignWithMargins = True
Left = 4
Top = 4
Width = 95
Height = 46
Align = alClient
Caption = 'Ne'
TabOrder = 0
OnClick = rbKATiskExpiraceNeClick
end
end
object btnKATisk: TButton
Left = 318
Top = 108
Width = 96
Height = 37
Anchors = []
Caption = 'Tisk'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = btnKATiskClick
end
object Label1: TLabel
Left = 5
Top = 55
Width = 38
Height = 33
Anchors = []
Caption = 'KA'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = 'Segoe UI'
Font.Orientation = 2700
Font.Style = []
ParentFont = False
ExplicitLeft = 1
ExplicitTop = 46
end
object Label2: TLabel
AlignWithMargins = True
Left = 51
Top = 16
Width = 46
Height = 25
Anchors = [akLeft]
Caption = #352'ar'#382'e'
ExplicitTop = 17
end
object Label3: TLabel
AlignWithMargins = True
Left = 51
Top = 70
Width = 134
Height = 25
Anchors = [akLeft]
Caption = 'Datum spot'#345'eby'
end
end
object GridPanel5: TGridPanel
AlignWithMargins = True
Left = 63
Top = 322
Width = 470
Height = 144
Align = alClient
ColumnCollection = <
item
Value = 10.000000000000000000
end
item
Value = 46.000000000000000000
end
item
Value = 22.000000000000000000
end
item
Value = 22.000000000000000000
end>
ControlCollection = <
item
Column = 0
Control = Label4
Row = 0
RowSpan = 2
end
item
Column = 1
Control = lblPaPopis1
Row = 0
end
item
Column = 1
Control = lblPaPopis2
Row = 1
end
item
Column = 2
ColumnSpan = 2
Control = btnTiskPA1
Row = 0
end
item
Column = 2
ColumnSpan = 2
Control = btnTiskPA2
Row = 1
end>
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
RowCollection = <
item
Value = 50.000000000000000000
end
item
Value = 50.000000000000000000
end>
TabOrder = 1
DesignSize = (
470
144)
object Label4: TLabel
Left = 5
Top = 58
Width = 38
Height = 28
Anchors = []
Caption = 'Pa'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = 'Segoe UI'
Font.Orientation = 2700
Font.Style = []
ParentFont = False
ExplicitTop = 50
end
object lblPaPopis1: TLabel
AlignWithMargins = True
Left = 51
Top = 25
Width = 96
Height = 25
Anchors = [akLeft]
Caption = 'lblPaPopis1'
ExplicitTop = 18
end
object lblPaPopis2: TLabel
AlignWithMargins = True
Left = 51
Top = 96
Width = 96
Height = 25
Anchors = [akLeft]
Caption = 'lblPaPopis2'
ExplicitTop = 18
end
object btnTiskPA1: TButton
Left = 318
Top = 18
Width = 96
Height = 37
Anchors = []
Caption = 'Tisk'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object btnTiskPA2: TButton
Left = 318
Top = 89
Width = 96
Height = 37
Anchors = []
Caption = 'Tisk'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 1
end
end
object GridPanel6: TGridPanel
AlignWithMargins = True
Left = 4
Top = 4
Width = 588
Height = 162
Align = alClient
ColumnCollection = <
item
Value = 50.000000000000000000
end
item
Value = 50.000000000000000000
end>
ControlCollection = <
item
Column = 0
ColumnSpan = 2
Control = GridPanel7
Row = 0
end
item
Column = 0
ColumnSpan = 2
Control = GridPanel8
Row = 1
end
item
Column = 0
ColumnSpan = 2
Control = GridPanel9
Row = 2
end>
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
RowCollection = <
item
Value = 33.333333333333340000
end
item
Value = 33.333333333333340000
end
item
Value = 33.333333333333310000
end>
TabOrder = 2
object GridPanel7: TGridPanel
Left = 1
Top = 1
Width = 586
Height = 53
Align = alClient
ColumnCollection = <
item
Value = 25.000000000000000000
end
item
Value = 25.000000000000000000
end
item
Value = 25.000000000000000000
end
item
Value = 25.000000000000000000
end>
ControlCollection = <
item
Column = 1
Control = Label5
Row = 0
end
item
Column = 3
Control = Label6
Row = 0
end
item
Column = 1
Control = edtZakazka
Row = 1
end
item
Column = 3
Control = edtExtZakazka
Row = 1
end
item
Column = 0
Control = btnKonec
Row = 0
RowSpan = 2
end>
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
RowCollection = <
item
Value = 35.000000000000000000
end
item
Value = 65.000000000000000000
end>
TabOrder = 0
DesignSize = (
586
53)
object Label5: TLabel
AlignWithMargins = True
Left = 150
Top = 1
Width = 140
Height = 17
Margins.Top = 0
Margins.Bottom = 1
Align = alClient
Alignment = taCenter
Caption = 'Zak'#225'zka'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ExplicitWidth = 46
end
object Label6: TLabel
AlignWithMargins = True
Left = 442
Top = 1
Width = 140
Height = 17
Margins.Top = 0
Margins.Bottom = 1
Align = alClient
Alignment = taCenter
Caption = 'Extern'#237' zak'#225'zka'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ExplicitWidth = 88
end
object edtZakazka: TEdit
AlignWithMargins = True
Left = 159
Top = 19
Width = 121
Height = 33
Margins.Top = 0
Alignment = taCenter
Anchors = []
Color = 15132390
ReadOnly = True
TabOrder = 0
end
object edtExtZakazka: TEdit
AlignWithMargins = True
Left = 451
Top = 19
Width = 121
Height = 33
Margins.Top = 0
Alignment = taCenter
Anchors = []
Color = 15132390
ReadOnly = True
TabOrder = 1
end
object btnKonec: TButton
Left = 1
Top = 1
Width = 58
Height = 41
ImageAlignment = iaCenter
ImageIndex = 2
ImageName = 'Item3'
Images = dm2.imgList
TabOrder = 2
OnClick = btnKonecClick
end
end
object GridPanel8: TGridPanel
Left = 1
Top = 54
Width = 586
Height = 54
Align = alClient
ColumnCollection = <
item
Value = 50.000000000000000000
end
item
Value = 50.000000000000000000
end>
ControlCollection = <
item
Column = 0
ColumnSpan = 2
Control = Label7
Row = 0
end
item
Column = 0
ColumnSpan = 2
Control = edtNazev
Row = 1
end>
RowCollection = <
item
Value = 35.000000000000000000
end
item
Value = 65.000000000000000000
end>
TabOrder = 1
object Label7: TLabel
AlignWithMargins = True
Left = 4
Top = 1
Width = 578
Height = 17
Margins.Top = 0
Margins.Bottom = 1
Align = alClient
Alignment = taCenter
Caption = 'N'#225'zev'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ExplicitWidth = 36
end
object edtNazev: TEdit
AlignWithMargins = True
Left = 21
Top = 19
Width = 544
Height = 31
Margins.Left = 20
Margins.Top = 0
Margins.Right = 20
Align = alClient
Color = 15132390
ReadOnly = True
TabOrder = 0
ExplicitHeight = 38
end
end
object GridPanel9: TGridPanel
Left = 1
Top = 108
Width = 586
Height = 53
Align = alClient
ColumnCollection = <
item
Value = 16.000000000000000000
end
item
Value = 10.000000000000000000
end
item
Value = 16.000000000000000000
end
item
Value = 16.000000000000000000
end
item
Value = 37.000000000000000000
end
item
Value = 5.000000000000000000
end>
ControlCollection = <
item
Column = 1
Control = Label8
Row = 0
end
item
Column = 2
Control = Label9
Row = 0
end
item
Column = 3
Control = Label10
Row = 0
end
item
Column = 4
Control = Label11
Row = 0
end
item
Column = 4
Control = edtBarvaStitku
Row = 1
end
item
Column = 3
Control = edtStitkuNaA4
Row = 1
end
item
Column = 2
Control = edtRegCis
Row = 1
end
item
Column = 1
Control = edtSZ
Row = 1
end>
RowCollection = <
item
Value = 35.000000000000000000
end
item
Value = 65.000000000000000000
end>
TabOrder = 2
object Label8: TLabel
AlignWithMargins = True
Left = 97
Top = 1
Width = 53
Height = 17
Margins.Top = 0
Margins.Bottom = 1
Align = alClient
Alignment = taCenter
Caption = 'SK'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ExplicitWidth = 15
end
object Label9: TLabel
AlignWithMargins = True
Left = 156
Top = 1
Width = 87
Height = 17
Margins.Top = 0
Margins.Bottom = 1
Align = alClient
Alignment = taCenter
Caption = 'RegCis'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ExplicitWidth = 40
end
object Label10: TLabel
AlignWithMargins = True
Left = 249
Top = 1
Width = 88
Height = 17
Margins.Top = 0
Margins.Bottom = 1
Align = alClient
Alignment = taCenter
Caption = #352't'#237'tk'#367'/A4'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ExplicitWidth = 51
end
object Label11: TLabel
AlignWithMargins = True
Left = 343
Top = 1
Width = 210
Height = 17
Margins.Top = 0
Margins.Bottom = 1
Align = alClient
Alignment = taCenter
Caption = 'Barva '#353't'#237'tk'#367
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ExplicitWidth = 66
end
object edtBarvaStitku: TEdit
AlignWithMargins = True
Left = 343
Top = 19
Width = 210
Height = 30
Margins.Top = 0
Align = alClient
Alignment = taCenter
Color = 15132390
ReadOnly = True
TabOrder = 0
ExplicitHeight = 38
end
object edtStitkuNaA4: TEdit
AlignWithMargins = True
Left = 249
Top = 19
Width = 88
Height = 30
Margins.Top = 0
Align = alClient
Alignment = taCenter
Color = 15132390
ReadOnly = True
TabOrder = 1
ExplicitHeight = 38
end
object edtRegCis: TEdit
AlignWithMargins = True
Left = 156
Top = 19
Width = 87
Height = 30
Margins.Top = 0
Align = alClient
Alignment = taCenter
Color = 15132390
ReadOnly = True
TabOrder = 2
ExplicitHeight = 38
end
object edtSZ: TEdit
AlignWithMargins = True
Left = 97
Top = 19
Width = 53
Height = 30
Margins.Top = 0
Align = alClient
Alignment = taCenter
Color = 15132390
ReadOnly = True
TabOrder = 3
ExplicitHeight = 38
end
end
end
end
object GridPanel3: TGridPanel
AlignWithMargins = True
Left = 4
Top = 480
Width = 596
Height = 311
Align = alClient
ColumnCollection = <
item
Value = 100.000000000000000000
end>
ControlCollection = <
item
Column = 0
Control = grdPL
Row = 1
end
item
Column = 0
Control = GridPanel10
Row = 0
end>
RowCollection = <
item
Value = 15.000000000000000000
end
item
Value = 85.000000000000000000
end>
TabOrder = 1
object grdPL: TJvDBGrid
Left = 1
Top = 47
Width = 594
Height = 263
Align = alClient
DataSource = dm2.dsPlanPL
DrawingStyle = gdsClassic
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Segoe UI'
Font.Style = []
Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Segoe UI'
TitleFont.Style = []
OnCellClick = grdPLCellClick
ScrollBars = ssVertical
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
AutoSizeRows = False
RowsHeight = 30
TitleRowHeight = 30
Delphi2010OptionsMigrated = True
end
object GridPanel10: TGridPanel
Left = 1
Top = 1
Width = 594
Height = 46
Align = alClient
ColumnCollection = <
item
Value = 50.000000000000000000
end
item
Value = 50.000000000000000000
end>
ControlCollection = <
item
Column = 0
ColumnSpan = 2
Control = Button3
Row = 0
end
item
Column = 0
ColumnSpan = 2
Control = GridPanel11
Row = 1
end>
RowCollection = <
item
Value = 65.069746634674030000
end
item
Value = 34.930253365325960000
end>
TabOrder = 1
DesignSize = (
594
46)
object Button3: TButton
AlignWithMargins = True
Left = 183
Top = 1
Width = 228
Height = 27
Margins.Top = 0
Anchors = []
Caption = 'Kontrola Label Zebra'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object GridPanel11: TGridPanel
Left = 1
Top = 30
Width = 592
Height = 15
Align = alClient
ColumnCollection = <
item
Value = 15.000000000000000000
end
item
Value = 58.000000000000000000
end
item
Value = 21.000000000000000000
end
item
Value = 6.000000000000000000
end>
ControlCollection = <
item
Column = 2
Control = Label12
Row = 0
end
item
Column = 1
Control = Label13
Row = 0
end>
RowCollection = <
item
Value = 100.000000000000000000
end>
TabOrder = 1
DesignSize = (
592
15)
object Label12: TLabel
Left = 467
Top = 1
Width = 53
Height = 15
Anchors = []
Caption = 'Na palet'#283':'
ExplicitLeft = 486
end
object Label13: TLabel
Left = 238
Top = 1
Width = 45
Height = 15
Anchors = []
Caption = 'Datumy:'
ExplicitLeft = 239
end
end
end
end
end
end