object SifarnikImenaPakiranja: TSifarnikImenaPakiranja Tag = 1 Left = 214 Top = 133 Width = 371 Height = 350 ActiveControl = gMain BorderIcons = [biSystemMenu, biMinimize] Caption = 'Oznake za na�ine pakiranja' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 233 Top = 0 Width = 130 Height = 169 Align = alClient BevelOuter = bvNone BorderWidth = 2 TabOrder = 0 object gMain: TMyDBGrid Left = 2 Top = 2 Width = 126 Height = 165 FindByName = True Align = alClient DataSource = sMain Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -12 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end object Panel2: TPanel Left = 0 Top = 0 Width = 233 Height = 169 Align = alLeft BevelOuter = bvNone TabOrder = 1 object Panel3: TPanel Left = 0 Top = 117 Width = 233 Height = 52 Align = alBottom BevelInner = bvRaised BevelOuter = bvNone BorderWidth = 2 TabOrder = 1 object Label1: TLabel Left = 8 Top = 4 Width = 54 Height = 13 Caption = 'Pakiranje' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 96 Top = 4 Width = 59 Height = 13 Caption = 'Min. koli�ina' end object cSifra: TDBKeyField Left = 8 Top = 20 Width = 77 Height = 21 AutoSize = False DataField = 'SIFRA' DataSource = sTable TabOrder = 0 DisplayName = '�ifra na�ina pakiranja' OnF2Press = cSifraF2Press end object eMinKol: TDBVar Left = 92 Top = 20 Width = 73 Height = 21 AutoSize = False DataField = 'MinKolicina' DataSource = sTable TabOrder = 1 end object eJedinica: TDBVar Left = 164 Top = 20 Width = 57 Height = 21 TabStop = False AutoSize = False Color = clBtnFace DataField = 'Sifra' DataSource = sMain Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clGray Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end end object Panel5: TPanel Left = 0 Top = 0 Width = 233 Height = 117 Align = alClient BevelOuter = bvNone BorderWidth = 3 TabOrder = 0 object eSifra: TDBEdit Left = 200 Top = 12 Width = 21 Height = 21 TabStop = False DataField = 'Code' DataSource = sTable Enabled = False TabOrder = 1 OnChange = eSifraChange end object gTable: TMyDBGrid Left = 3 Top = 3 Width = 227 Height = 111 FindByName = True Align = alClient DataSource = sTable Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -12 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end end object Panel4: TPanel Left = 0 Top = 169 Width = 363 Height = 154 Align = alBottom BevelOuter = bvNone TabOrder = 2 object Bevel2: TBevel Left = 4 Top = 100 Width = 285 Height = 49 Style = bsRaised end object Label4: TLabel Left = 12 Top = 104 Width = 227 Height = 13 Caption = 'Oznaka za na�in pakiranja na odabranom jeziku' end object gGovor: TMyDBGrid Left = 4 Top = 4 Width = 353 Height = 93 FindByName = True DataSource = sGovor Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -12 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object eNaziv: TDBVar Left = 12 Top = 120 Width = 269 Height = 21 AutoSize = False DataField = 'Naziv' DataSource = sImePak TabOrder = 1 OnExitChanged = eNazivExitChanged end object ZapisiButton: TBitBtn Left = 292 Top = 124 Width = 69 Height = 25 Caption = 'Naziv' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = ZapisiButtonClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF 0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0 33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 end object IzlazButton: TBitBtn Left = 312 Top = 100 Width = 49 Height = 21 Cancel = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = IzlazButtonClick Glyph.Data = { 76020000424D7602000000000000760000002800000040000000100000000100 0400000000000002000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333C33333 333333333333333333333333338F33333333333333333333333333333C0C3333 3333333333333333333333333888F333333333333333333333333333C0F0C333 33333333333333333333333388388F3333333333333FF3333333333C0FFF0C33 33333333330033333333333888F388F33333333333883FF3333333CCC0FFF0C3 333333333309003333333383388F388F33333333338F883FF3333CCCCC0FFF0C 3333333333099900333338333388F388F3333FFFFF8F33883FF34CCCCCC0FFF0 C33300000009999900338F3333388F388F33888888833333883FC4CCCCCC0FFF 0C33099999999999990088F333F388F388F38FFFFFFF33333F883C4CC0CCC0FF F0C30000000999990033388F3833F88F38838888888F333F883333C4CCC0CC0F 0C3333333309990033333388F338F38888333333338F3F883333333C4C00CCC0 3333333333090033333333388F883338F3333333338F883333333333C4CCCCCC 33333333330033333333333388F333F83333333333883333333333333C4CCCC3 333333333333333333333333388F388333333333333333333333333333C4C333 3333333333333333333333333388833333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end end object sMain: TDataSource DataSet = tMain Left = 296 Top = 52 end object sTable: TDataSource DataSet = tTable Left = 52 Top = 28 end object sGovor: TDataSource DataSet = tGovor Left = 52 Top = 204 end object sImePak: TDataSource DataSet = tImePak Left = 108 Top = 288 end object tImePak2: TMyTable DatabaseName = 'Global' IndexFieldNames = 'Pakung;Govor' TableName = 'IME_PAK.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 144 Top = 212 object tImePak2Pakung: TIntegerField FieldName = 'Pakung' end object tImePak2Govor: TIntegerField FieldName = 'Govor' end object tImePak2Naziv: TStringField FieldName = 'Naziv' Size = 60 end end object tImePak: TMyTable BeforePost = tImePakBeforePost DatabaseName = 'Global' IndexFieldNames = 'Pakung;Govor' MasterFields = 'Pakung;Code' MasterSource = sGovor TableName = 'IME_PAK.DB' AutoOpen = True AutoFlush = True FreeToModify = True FreeToDelete = True FreeToInsert = True Left = 80 Top = 288 end object tGovor: TMyTable OnCalcFields = tGovorCalcFields DatabaseName = 'Global' TableName = 'GOVOR.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 24 Top = 204 object tGovorCode: TAutoIncField FieldName = 'Code' Visible = False end object tGovorSifra: TStringField DisplayLabel = 'Govor' DisplayWidth = 15 FieldName = 'Sifra' Size = 40 end object tGovorNaziv: TStringField FieldName = 'Naziv' Visible = False Size = 60 end object tGovorPakung: TIntegerField FieldName = 'Pakung' Visible = False Calculated = True end object tGovorIme: TStringField DisplayLabel = 'Oznaka za na�in pakiranja' DisplayWidth = 37 FieldName = 'Ime' OnGetText = tGovorImeGetText Size = 50 Calculated = True end end object tTable: TMyTable DatabaseName = 'Global' IndexFieldNames = 'JEDINICA;SIFRA' MasterFields = 'Code' MasterSource = sMain TableName = 'PAKUNG.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 24 Top = 28 object tTableCode: TAutoIncField FieldName = 'Code' Visible = False end object tTableJedinica: TIntegerField FieldName = 'Jedinica' Visible = False end object tTableSifra: TStringField DisplayLabel = 'Pakiranje' DisplayWidth = 20 FieldName = 'Sifra' Size = 40 end object tTableMinKolicina: TFloatField DisplayLabel = 'Min. koli�ina' DisplayWidth = 11 FieldName = 'MinKolicina' Precision = 9 end object tTableImaAtoma: TBooleanField FieldName = 'ImaAtoma' Visible = False end object tTableCijene: TFloatField FieldName = 'Cijene' Visible = False Precision = 9 end end object tMain: TMyTable DatabaseName = 'Global' TableName = 'JEDINICE.DB' AutoOpen = True AutoFlush = True FreeToModify = False FreeToDelete = True FreeToInsert = True Left = 268 Top = 52 object tMainCode: TAutoIncField FieldName = 'Code' Visible = False end object tMainSifra: TStringField DisplayLabel = 'Jedinica mjere' DisplayWidth = 15 FieldName = 'Sifra' Size = 40 end end end