home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
aplic
/
trade
/
_setup.1
/
main.exe
/
0
/
RCDATA
/
TSIFARNIKZEMALJA
/
TSIFARNIKZEMALJA.txt
Wrap
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