home *** CD-ROM | disk | FTP | other *** search
/ BUG 11 / BUGCD1998_02.ISO / aplic / trade / _setup.1 / main.exe / 0 / RCDATA / TSIFARNIKIMENAPAKIRANJA / TSIFARNIKIMENAPAKIRANJA.txt
Text File  |  1998-01-05  |  12KB  |  443 lines
  1. object SifarnikImenaPakiranja: TSifarnikImenaPakiranja
  2.   Tag = 1
  3.   Left = 214
  4.   Top = 133
  5.   Width = 371
  6.   Height = 350
  7.   ActiveControl = gMain
  8.   BorderIcons = [biSystemMenu, biMinimize]
  9.   Caption = 'Oznake za na∩┐╜ine pakiranja'
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -12
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   KeyPreview = True
  16.   Position = poScreenCenter
  17.   OnKeyDown = FormKeyDown
  18.   OnShow = FormShow
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object Panel1: TPanel
  22.     Left = 233
  23.     Top = 0
  24.     Width = 130
  25.     Height = 169
  26.     Align = alClient
  27.     BevelOuter = bvNone
  28.     BorderWidth = 2
  29.     TabOrder = 0
  30.     object gMain: TMyDBGrid
  31.       Left = 2
  32.       Top = 2
  33.       Width = 126
  34.       Height = 165
  35.       FindByName = True
  36.       Align = alClient
  37.       DataSource = sMain
  38.       Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete]
  39.       TabOrder = 0
  40.       TitleFont.Charset = DEFAULT_CHARSET
  41.       TitleFont.Color = clWindowText
  42.       TitleFont.Height = -12
  43.       TitleFont.Name = 'MS Sans Serif'
  44.       TitleFont.Style = []
  45.     end
  46.   end
  47.   object Panel2: TPanel
  48.     Left = 0
  49.     Top = 0
  50.     Width = 233
  51.     Height = 169
  52.     Align = alLeft
  53.     BevelOuter = bvNone
  54.     TabOrder = 1
  55.     object Panel3: TPanel
  56.       Left = 0
  57.       Top = 117
  58.       Width = 233
  59.       Height = 52
  60.       Align = alBottom
  61.       BevelInner = bvRaised
  62.       BevelOuter = bvNone
  63.       BorderWidth = 2
  64.       TabOrder = 1
  65.       object Label1: TLabel
  66.         Left = 8
  67.         Top = 4
  68.         Width = 54
  69.         Height = 13
  70.         Caption = 'Pakiranje'
  71.         Font.Charset = DEFAULT_CHARSET
  72.         Font.Color = clWindowText
  73.         Font.Height = -12
  74.         Font.Name = 'MS Sans Serif'
  75.         Font.Style = [fsBold]
  76.         ParentFont = False
  77.       end
  78.       object Label2: TLabel
  79.         Left = 96
  80.         Top = 4
  81.         Width = 59
  82.         Height = 13
  83.         Caption = 'Min. koli∩┐╜ina'
  84.       end
  85.       object cSifra: TDBKeyField
  86.         Left = 8
  87.         Top = 20
  88.         Width = 77
  89.         Height = 21
  90.         AutoSize = False
  91.         DataField = 'SIFRA'
  92.         DataSource = sTable
  93.         TabOrder = 0
  94.         DisplayName = '∩┐╜ifra na∩┐╜ina pakiranja'
  95.         OnF2Press = cSifraF2Press
  96.       end
  97.       object eMinKol: TDBVar
  98.         Left = 92
  99.         Top = 20
  100.         Width = 73
  101.         Height = 21
  102.         AutoSize = False
  103.         DataField = 'MinKolicina'
  104.         DataSource = sTable
  105.         TabOrder = 1
  106.       end
  107.       object eJedinica: TDBVar
  108.         Left = 164
  109.         Top = 20
  110.         Width = 57
  111.         Height = 21
  112.         TabStop = False
  113.         AutoSize = False
  114.         Color = clBtnFace
  115.         DataField = 'Sifra'
  116.         DataSource = sMain
  117.         Enabled = False
  118.         Font.Charset = DEFAULT_CHARSET
  119.         Font.Color = clGray
  120.         Font.Height = -12
  121.         Font.Name = 'MS Sans Serif'
  122.         Font.Style = []
  123.         ParentFont = False
  124.         TabOrder = 2
  125.       end
  126.     end
  127.     object Panel5: TPanel
  128.       Left = 0
  129.       Top = 0
  130.       Width = 233
  131.       Height = 117
  132.       Align = alClient
  133.       BevelOuter = bvNone
  134.       BorderWidth = 3
  135.       TabOrder = 0
  136.       object eSifra: TDBEdit
  137.         Left = 200
  138.         Top = 12
  139.         Width = 21
  140.         Height = 21
  141.         TabStop = False
  142.         DataField = 'Code'
  143.         DataSource = sTable
  144.         Enabled = False
  145.         TabOrder = 1
  146.         OnChange = eSifraChange
  147.       end
  148.       object gTable: TMyDBGrid
  149.         Left = 3
  150.         Top = 3
  151.         Width = 227
  152.         Height = 111
  153.         FindByName = True
  154.         Align = alClient
  155.         DataSource = sTable
  156.         Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete]
  157.         TabOrder = 0
  158.         TitleFont.Charset = DEFAULT_CHARSET
  159.         TitleFont.Color = clWindowText
  160.         TitleFont.Height = -12
  161.         TitleFont.Name = 'MS Sans Serif'
  162.         TitleFont.Style = []
  163.       end
  164.     end
  165.   end
  166.   object Panel4: TPanel
  167.     Left = 0
  168.     Top = 169
  169.     Width = 363
  170.     Height = 154
  171.     Align = alBottom
  172.     BevelOuter = bvNone
  173.     TabOrder = 2
  174.     object Bevel2: TBevel
  175.       Left = 4
  176.       Top = 100
  177.       Width = 285
  178.       Height = 49
  179.       Style = bsRaised
  180.     end
  181.     object Label4: TLabel
  182.       Left = 12
  183.       Top = 104
  184.       Width = 227
  185.       Height = 13
  186.       Caption = 'Oznaka za na∩┐╜in pakiranja na odabranom jeziku'
  187.     end
  188.     object gGovor: TMyDBGrid
  189.       Left = 4
  190.       Top = 4
  191.       Width = 353
  192.       Height = 93
  193.       FindByName = True
  194.       DataSource = sGovor
  195.       Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete]
  196.       TabOrder = 0
  197.       TitleFont.Charset = DEFAULT_CHARSET
  198.       TitleFont.Color = clWindowText
  199.       TitleFont.Height = -12
  200.       TitleFont.Name = 'MS Sans Serif'
  201.       TitleFont.Style = []
  202.     end
  203.     object eNaziv: TDBVar
  204.       Left = 12
  205.       Top = 120
  206.       Width = 269
  207.       Height = 21
  208.       AutoSize = False
  209.       DataField = 'Naziv'
  210.       DataSource = sImePak
  211.       TabOrder = 1
  212.       OnExitChanged = eNazivExitChanged
  213.     end
  214.     object ZapisiButton: TBitBtn
  215.       Left = 292
  216.       Top = 124
  217.       Width = 69
  218.       Height = 25
  219.       Caption = 'Naziv'
  220.       Font.Charset = DEFAULT_CHARSET
  221.       Font.Color = clWindowText
  222.       Font.Height = -13
  223.       Font.Name = 'MS Sans Serif'
  224.       Font.Style = []
  225.       ParentFont = False
  226.       TabOrder = 2
  227.       OnClick = ZapisiButtonClick
  228.       Glyph.Data = {
  229.         76010000424D7601000000000000760000002800000020000000100000000100
  230.         04000000000000010000130B0000130B00001000000000000000000000000000
  231.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  232.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
  233.         333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
  234.         0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
  235.         07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
  236.         07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
  237.         0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
  238.         33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
  239.         B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
  240.         3BB33773333773333773B333333B3333333B7333333733333337}
  241.       NumGlyphs = 2
  242.     end
  243.     object IzlazButton: TBitBtn
  244.       Left = 312
  245.       Top = 100
  246.       Width = 49
  247.       Height = 21
  248.       Cancel = True
  249.       Font.Charset = DEFAULT_CHARSET
  250.       Font.Color = clWindowText
  251.       Font.Height = -13
  252.       Font.Name = 'MS Sans Serif'
  253.       Font.Style = [fsBold]
  254.       ParentFont = False
  255.       TabOrder = 3
  256.       OnClick = IzlazButtonClick
  257.       Glyph.Data = {
  258.         76020000424D7602000000000000760000002800000040000000100000000100
  259.         0400000000000002000000000000000000001000000000000000000000000000
  260.         80000080000000808000800000008000800080800000C0C0C000808080000000
  261.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  262.         3333333333333333333333333333333333333333333333333333333333C33333
  263.         333333333333333333333333338F33333333333333333333333333333C0C3333
  264.         3333333333333333333333333888F333333333333333333333333333C0F0C333
  265.         33333333333333333333333388388F3333333333333FF3333333333C0FFF0C33
  266.         33333333330033333333333888F388F33333333333883FF3333333CCC0FFF0C3
  267.         333333333309003333333383388F388F33333333338F883FF3333CCCCC0FFF0C
  268.         3333333333099900333338333388F388F3333FFFFF8F33883FF34CCCCCC0FFF0
  269.         C33300000009999900338F3333388F388F33888888833333883FC4CCCCCC0FFF
  270.         0C33099999999999990088F333F388F388F38FFFFFFF33333F883C4CC0CCC0FF
  271.         F0C30000000999990033388F3833F88F38838888888F333F883333C4CCC0CC0F
  272.         0C3333333309990033333388F338F38888333333338F3F883333333C4C00CCC0
  273.         3333333333090033333333388F883338F3333333338F883333333333C4CCCCCC
  274.         33333333330033333333333388F333F83333333333883333333333333C4CCCC3
  275.         333333333333333333333333388F388333333333333333333333333333C4C333
  276.         3333333333333333333333333388833333333333333333333333333333333333
  277.         3333333333333333333333333333333333333333333333333333}
  278.       NumGlyphs = 2
  279.     end
  280.   end
  281.   object sMain: TDataSource
  282.     DataSet = tMain
  283.     Left = 296
  284.     Top = 52
  285.   end
  286.   object sTable: TDataSource
  287.     DataSet = tTable
  288.     Left = 52
  289.     Top = 28
  290.   end
  291.   object sGovor: TDataSource
  292.     DataSet = tGovor
  293.     Left = 52
  294.     Top = 204
  295.   end
  296.   object sImePak: TDataSource
  297.     DataSet = tImePak
  298.     Left = 108
  299.     Top = 288
  300.   end
  301.   object tImePak2: TMyTable
  302.     DatabaseName = 'Global'
  303.     IndexFieldNames = 'Pakung;Govor'
  304.     TableName = 'IME_PAK.DB'
  305.     AutoOpen = True
  306.     AutoFlush = True
  307.     FreeToModify = False
  308.     FreeToDelete = True
  309.     FreeToInsert = True
  310.     Left = 144
  311.     Top = 212
  312.     object tImePak2Pakung: TIntegerField
  313.       FieldName = 'Pakung'
  314.     end
  315.     object tImePak2Govor: TIntegerField
  316.       FieldName = 'Govor'
  317.     end
  318.     object tImePak2Naziv: TStringField
  319.       FieldName = 'Naziv'
  320.       Size = 60
  321.     end
  322.   end
  323.   object tImePak: TMyTable
  324.     BeforePost = tImePakBeforePost
  325.     DatabaseName = 'Global'
  326.     IndexFieldNames = 'Pakung;Govor'
  327.     MasterFields = 'Pakung;Code'
  328.     MasterSource = sGovor
  329.     TableName = 'IME_PAK.DB'
  330.     AutoOpen = True
  331.     AutoFlush = True
  332.     FreeToModify = True
  333.     FreeToDelete = True
  334.     FreeToInsert = True
  335.     Left = 80
  336.     Top = 288
  337.   end
  338.   object tGovor: TMyTable
  339.     OnCalcFields = tGovorCalcFields
  340.     DatabaseName = 'Global'
  341.     TableName = 'GOVOR.DB'
  342.     AutoOpen = True
  343.     AutoFlush = True
  344.     FreeToModify = False
  345.     FreeToDelete = True
  346.     FreeToInsert = True
  347.     Left = 24
  348.     Top = 204
  349.     object tGovorCode: TAutoIncField
  350.       FieldName = 'Code'
  351.       Visible = False
  352.     end
  353.     object tGovorSifra: TStringField
  354.       DisplayLabel = 'Govor'
  355.       DisplayWidth = 15
  356.       FieldName = 'Sifra'
  357.       Size = 40
  358.     end
  359.     object tGovorNaziv: TStringField
  360.       FieldName = 'Naziv'
  361.       Visible = False
  362.       Size = 60
  363.     end
  364.     object tGovorPakung: TIntegerField
  365.       FieldName = 'Pakung'
  366.       Visible = False
  367.       Calculated = True
  368.     end
  369.     object tGovorIme: TStringField
  370.       DisplayLabel = 'Oznaka za na∩┐╜in pakiranja'
  371.       DisplayWidth = 37
  372.       FieldName = 'Ime'
  373.       OnGetText = tGovorImeGetText
  374.       Size = 50
  375.       Calculated = True
  376.     end
  377.   end
  378.   object tTable: TMyTable
  379.     DatabaseName = 'Global'
  380.     IndexFieldNames = 'JEDINICA;SIFRA'
  381.     MasterFields = 'Code'
  382.     MasterSource = sMain
  383.     TableName = 'PAKUNG.DB'
  384.     AutoOpen = True
  385.     AutoFlush = True
  386.     FreeToModify = False
  387.     FreeToDelete = True
  388.     FreeToInsert = True
  389.     Left = 24
  390.     Top = 28
  391.     object tTableCode: TAutoIncField
  392.       FieldName = 'Code'
  393.       Visible = False
  394.     end
  395.     object tTableJedinica: TIntegerField
  396.       FieldName = 'Jedinica'
  397.       Visible = False
  398.     end
  399.     object tTableSifra: TStringField
  400.       DisplayLabel = 'Pakiranje'
  401.       DisplayWidth = 20
  402.       FieldName = 'Sifra'
  403.       Size = 40
  404.     end
  405.     object tTableMinKolicina: TFloatField
  406.       DisplayLabel = 'Min. koli∩┐╜ina'
  407.       DisplayWidth = 11
  408.       FieldName = 'MinKolicina'
  409.       Precision = 9
  410.     end
  411.     object tTableImaAtoma: TBooleanField
  412.       FieldName = 'ImaAtoma'
  413.       Visible = False
  414.     end
  415.     object tTableCijene: TFloatField
  416.       FieldName = 'Cijene'
  417.       Visible = False
  418.       Precision = 9
  419.     end
  420.   end
  421.   object tMain: TMyTable
  422.     DatabaseName = 'Global'
  423.     TableName = 'JEDINICE.DB'
  424.     AutoOpen = True
  425.     AutoFlush = True
  426.     FreeToModify = False
  427.     FreeToDelete = True
  428.     FreeToInsert = True
  429.     Left = 268
  430.     Top = 52
  431.     object tMainCode: TAutoIncField
  432.       FieldName = 'Code'
  433.       Visible = False
  434.     end
  435.     object tMainSifra: TStringField
  436.       DisplayLabel = 'Jedinica mjere'
  437.       DisplayWidth = 15
  438.       FieldName = 'Sifra'
  439.       Size = 40
  440.     end
  441.   end
  442. end
  443.