home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.sanbilgisayar.com
/
ftp.sanbilgisayar.com.tar
/
ftp.sanbilgisayar.com
/
SHOP
/
ShopImportP.exe
/
0
/
RCDATA
/
TPHONEFORM
/
TPHONEFORM.txt
Wrap
Text File
|
2015-03-03
|
9KB
|
276 lines
object PhoneForm: TPhoneForm
Left = 489
Top = 126
HorzScrollBar.Tracking = True
ActiveControl = PhoneGrid
Align = alClient
AutoScroll = False
BorderIcons = [biSystemMenu]
Caption = 'Telefon Defteri'
ClientHeight = 542
ClientWidth = 791
Color = clBtnFace
Font.Charset = TURKISH_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = True
Position = poScreenCenter
Scaled = False
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 506
Width = 791
Height = 36
Align = alBottom
BevelInner = bvLowered
Font.Charset = TURKISH_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
object YeniBut: TBitBtn
Left = 226
Top = 6
Width = 100
Height = 25
Caption = '&Yeni'
TabOrder = 1
OnClick = YeniButClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object SilBut: TBitBtn
Left = 466
Top = 6
Width = 100
Height = 25
Caption = '&Sil'
TabOrder = 3
OnClick = SilButClick
Kind = bkAbort
end
object CikisBut: TBitBtn
Left = 586
Top = 6
Width = 100
Height = 25
Cancel = True
Caption = '&'#199#305'k'#305#351
TabOrder = 4
OnClick = CikisButClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object SecBut: TBitBtn
Left = 105
Top = 6
Width = 100
Height = 25
Caption = '&Se'#231
ModalResult = 1
TabOrder = 0
Visible = False
OnClick = SecButClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object DegistirBut: TBitBtn
Left = 346
Top = 6
Width = 100
Height = 25
Caption = '&De'#287'i'#351'tir'
TabOrder = 2
OnClick = DegistirButClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
object PhoneGrid: TDBGridEh
Left = 0
Top = 0
Width = 791
Height = 465
Align = alClient
AllowedOperations = []
DataSource = DMphone.Phone_DS
Flat = True
Font.Charset = TURKISH_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = TURKISH_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = TURKISH_CHARSET
TitleFont.Color = clMaroon
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
UseMultiTitle = True
OnDblClick = PhoneGridDblClick
OnTitleClick = PhoneGridTitleClick
Columns = <
item
EditButtons = <>
FieldName = 'Adi'
Footers = <>
Title.Caption = 'Ad'#305
Title.SortIndex = 1
Title.SortMarker = smDownEh
Title.TitleButton = True
end
item
EditButtons = <>
FieldName = 'Yetkili'
Footers = <>
Title.TitleButton = True
end
item
EditButtons = <>
FieldName = 'Tel'
Footers = <>
Title.Caption = 'Tel '
Title.TitleButton = True
end
item
EditButtons = <>
FieldName = 'Fax'
Footers = <>
Title.TitleButton = True
end
item
EditButtons = <>
FieldName = 'Sehir'
Footers = <>
Title.Caption = #350'ehir'
Title.TitleButton = True
end
item
EditButtons = <>
FieldName = 'Ulke'
Footers = <>
Title.Caption = #220'lke'
end>
end
object AramaPanel: TPanel
Left = 0
Top = 465
Width = 791
Height = 41
Align = alBottom
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 1
object AraText: TLabel
Left = 4
Top = 3
Width = 30
Height = 13
Caption = 'Arama'
Font.Charset = TURKISH_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Arama: TEdit
Left = 3
Top = 16
Width = 158
Height = 21
Hint = 'Aramak istedi'#287'iniz bilgiyi buraya yaz'#305'n.'
Font.Charset = TURKISH_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = AramaChange
end
end
end