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

144 lines
3.5 KiB
Plaintext

object formPrevPrij: TformPrevPrij
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
Caption = ' Oprava P'#345'evodky / P'#345#237'jemky'
ClientHeight = 348
ClientWidth = 601
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
Position = poMainFormCenter
OnClose = FormClose
OnShow = FormShow
TextHeight = 16
object btnOK: TButton
Left = 396
Top = 315
Width = 75
Height = 25
Caption = 'OK'
TabOrder = 0
OnClick = btnOKClick
end
object btnCancel: TButton
Left = 518
Top = 315
Width = 75
Height = 25
Caption = 'Storno'
TabOrder = 1
OnClick = btnCancelClick
end
object grdPrijemky: TJvDBGrid
Left = 8
Top = 16
Width = 585
Height = 290
DataSource = ds1
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDrawColumnCell = grdPrijemkyDrawColumnCell
OnDblClick = grdPrijemkyDblClick
ScrollBars = ssVertical
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 20
TitleRowHeight = 20
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'SZ'
Title.Alignment = taCenter
Title.Caption = 'SK'
Width = 50
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'RegCis'
Title.Alignment = taCenter
Title.Caption = 'Registra'#269'n'#237' '#269#237'slo'
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'Nazev1'
Title.Caption = 'N'#225'zev'
Width = 310
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Mnoz'
Title.Alignment = taCenter
Title.Caption = 'Mno'#382'stv'#237
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'idPZ'
Visible = False
end
item
Expanded = False
FieldName = 'idPZold'
Visible = False
end>
end
object vTab1: TFDMemTable
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 194
Top = 2
object vTab1idPZ: TIntegerField
FieldName = 'idPZ'
end
object vTab1SZ: TStringField
FieldName = 'SZ'
Size = 3
end
object vTab1RegCis: TStringField
FieldName = 'RegCis'
Size = 30
end
object vTab1Nazev1: TStringField
FieldName = 'Nazev1'
Size = 100
end
object vTab1Mnoz: TFloatField
FieldName = 'Mnoz'
DisplayFormat = '#,##0.###'
end
object vTab1idPZold: TIntegerField
FieldName = 'idPZold'
Visible = False
end
end
object ds1: TDataSource
DataSet = vTab1
Left = 242
Top = 4
end
end