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

Text File | 1998-01-05 | 7KB | 245 lines

object SifarnikZemalja: TSifarnikZemalja
  Tag = 1
  Left = 263
  Top = 185
  Width = 313
  Height = 243
  ActiveControl = gTable
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '�ifarnik zemalja'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 305
    Height = 117
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 3
    TabOrder = 0
    object gTable: TMyDBGrid
      Left = 3
      Top = 3
      Width = 299
      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
  object Panel2: TPanel
    Left = 0
    Top = 117
    Width = 305
    Height = 99
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Bevel2: TBevel
      Left = 4
      Top = 64
      Width = 297
      Height = 33
      Shape = bsFrame
    end
    object Bevel1: TBevel
      Left = 4
      Top = 0
      Width = 297
      Height = 61
      Style = bsRaised
    end
    object Label1: TLabel
      Left = 12
      Top = 12
      Width = 38
      Height = 13
      Caption = 'Zemlja'
      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 = 20
      Top = 36
      Width = 29
      Height = 13
      Caption = 'Govor'
    end
    object ZapisiButton: TBitBtn
      Left = 8
      Top = 68
      Width = 117
      Height = 25
      Caption = 'Zemlja'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = ZapisiButtonClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object IzlazButton: TBitBtn
      Left = 220
      Top = 68
      Width = 77
      Height = 25
      Cancel = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      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 eSifra: TDBKeyField
      Left = 60
      Top = 8
      Width = 233
      Height = 21
      AutoSize = False
      DataField = 'SIFRA'
      DataSource = sTable
      TabOrder = 0
      DisplayName = 'Zemlja'
    end
    object eGovor: TDBLookupField
      Left = 60
      Top = 32
      Width = 65
      Height = 21
      DataField = 'GOVOR'
      DataSource = sTable
      LookupSource = sGovor
      LookupDisplay = 'SIFRA'
      LookupField = 'CODE'
      TabOrder = 1
      DisplayName = '�ifra govornog podru�ja'
      OnF2Press = eGovorF2Press
    end
    object eGovorIme: TDBName
      Tag = 55
      Left = 124
      Top = 32
      Width = 169
      Height = 21
      TabStop = False
      AutoSize = False
      Color = clBtnFace
      DataField = 'Naziv'
      DataSource = sGovor
      TabOrder = 2
    end
  end
  object sTable: TDataSource
    DataSet = tTable
    Left = 52
    Top = 28
  end
  object sGovor: TDataSource
    DataSet = tGovor
    Left = 260
    Top = 148
  end
  object tGovor: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'CODE'
    MasterFields = 'GOVOR'
    MasterSource = sTable
    TableName = 'GOVOR.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 232
    Top = 148
  end
  object tTable: TMyTable
    DatabaseName = 'Global'
    IndexFieldNames = 'SIFRA'
    TableName = 'ZEMLJA.DB'
    AutoOpen = True
    AutoFlush = True
    FreeToModify = False
    FreeToDelete = True
    FreeToInsert = True
    Left = 24
    Top = 28
    object tTableCode: TAutoIncField
      FieldName = 'Code'
      Visible = False
    end
    object tTableSifra: TStringField
      DisplayLabel = 'Zemlja'
      FieldName = 'Sifra'
      Size = 50
    end
    object tTableGovor: TIntegerField
      FieldName = 'Govor'
      Visible = False
    end
  end
end