BUG 11/BUGCD1998_02.ISO/aplic/trade/_setup.1/main.exe/0/RCDATA/TSIFARNIKIMENAROBE/TSIFARNIKIMENAROBE.txt

Text File | 1998-01-05 | 10KB | 359 lines

object SifarnikImenaRobe: TSifarnikImenaRobe
  Tag = 1
  Left = 140
  Top = 208
  Width = 640
  Height = 480
  ActiveControl = gRoba
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '�ifarnik naziva proizvoda'
  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 = 0
    Top = 0
    Width = 224
    Height = 453
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object gFirme: TMyDBGrid
      Left = 0
      Top = 0
      Width = 224
      Height = 453
      FindByName = True
      Align = alClient
      DataSource = sFirme
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      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 = 224
    Top = 0
    Width = 408
    Height = 453
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 1
    object Panel3: TPanel
      Left = 0
      Top = 304
      Width = 408
      Height = 149
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Bevel2: TBevel
        Left = 4
        Top = 96
        Width = 333
        Height = 49
        Style = bsRaised
      end
      object Label2: TLabel
        Left = 12
        Top = 100
        Width = 277
        Height = 13
        Caption = 'Naziv proizvoda na odabranom govornom podru�ju (jeziku)'
      end
      object IzlazButton: TBitBtn
        Left = 364
        Top = 96
        Width = 45
        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
      object ZapisiButton: TBitBtn
        Left = 340
        Top = 116
        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 gGovor: TMyDBGrid
        Left = 4
        Top = 0
        Width = 407
        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 = 116
        Width = 317
        Height = 21
        AutoSize = False
        DataField = 'Naziv'
        DataSource = sImeRobe
        TabOrder = 1
        OnExitChanged = eNazivExitChanged
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 408
      Height = 304
      Align = alClient
      BevelOuter = bvNone
      BevelWidth = 2
      BorderWidth = 6
      TabOrder = 0
      object eSifra: TDBEdit
        Left = 360
        Top = 32
        Width = 21
        Height = 21
        TabStop = False
        DataField = 'Code'
        DataSource = sTable
        Enabled = False
        TabOrder = 1
        OnChange = eSifraChange
      end
      object gRoba: TMyDBGrid
        Left = 6
        Top = 6
        Width = 396
        Height = 292
        FindByName = True
        Align = alClient
        DataSource = sTable
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
  object sFirme: TDataSource
    DataSet = tFirme
    Left = 48
    Top = 40
  end
  object sTable: TDataSource
    DataSet = tTable
    Left = 336
    Top = 128
  end
  object sGovor: TDataSource
    DataSet = tGovor
    Left = 272
    Top = 328
  end
  object sImeRobe: TDataSource
    DataSet = tImeRobe
    Left = 460
    Top = 416
  end
  object tImeRobe2: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'Roba;Govor'
    TableName = 'IME_ROBE.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 332
    Top = 328
    object tImeRobe2Roba: TIntegerField
      FieldName = 'Roba'
    end
    object tImeRobe2Govor: TIntegerField
      FieldName = 'Govor'
    end
    object tImeRobe2Naziv: TStringField
      FieldName = 'Naziv'
      Size = 60
    end
  end
  object tImeRobe: TMyTable
    BeforePost = tImeRobeBeforePost
    DatabaseName = 'Global'
    IndexFieldNames = 'Roba;Govor'
    MasterFields = 'Roba;Code'
    MasterSource = sGovor
    TableName = 'IME_ROBE.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = True
    FreeToDelete = True
    FreeToInsert = True
    Left = 432
    Top = 416
  end
  object tGovor: TMyTable
    OnCalcFields = tGovorCalcFields
    DatabaseName = 'Global'
    TableName = 'GOVOR.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 244
    Top = 328
    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 tGovorRoba: TIntegerField
      FieldName = 'Roba'
      Visible = False
      Calculated = True
    end
    object tGovorIme: TStringField
      DisplayLabel = 'Naziv proizvoda na govornom podru�ju (jeziku)'
      DisplayWidth = 46
      FieldName = 'Ime'
      OnGetText = tGovorRobaGetText
      Size = 80
      Calculated = True
    end
  end
  object tTable: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'Proizvodi;Naziv'
    MasterFields = 'Partner'
    MasterSource = sFirme
    TableName = 'ROBA.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 308
    Top = 128
    object tTableCode: TAutoIncField
      FieldName = 'Code'
      Visible = False
    end
    object tTableProizvodi: TIntegerField
      FieldName = 'Proizvodi'
      Visible = False
    end
    object tTableNaziv: TStringField
      DisplayWidth = 60
      FieldName = 'Naziv'
      Size = 60
    end
    object tTableItems: TIntegerField
      FieldName = 'Items'
      Visible = False
    end
  end
  object tFirme: TMyTable
    DatabaseName = 'Global'
    TableName = 'FIRME.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 20
    Top = 40
    object tFirmeSifra: TStringField
      DisplayLabel = '�ifra proizvo�a�a'
      DisplayWidth = 32
      FieldName = 'Sifra'
      Size = 40
    end
    object tFirmePartner: TIntegerField
      FieldName = 'Partner'
      Visible = False
    end
  end
end