home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip: Shareware for Win 95
/
Chip-Shareware-Win95.bin
/
ostatni
/
delphi
/
ruzne
/
auto32d3.exe
/
rar
/
AUTO32D3
/
DEMOS
/
DELPHI3.0
/
FIND
/
ABOUT.DFM
/
ABOUT.txt
next >
Wrap
Text File
|
1997-07-07
|
4KB
|
151 lines
object fmAboutBox: TfmAboutBox
Left = 238
Top = 104
BorderStyle = bsDialog
Caption = 'About'
ClientHeight = 372
ClientWidth = 289
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 8
Top = 8
Width = 273
Height = 321
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Bevel1: TBevel
Left = 9
Top = 113
Width = 255
Height = 41
end
object ProductName: TLabel
Left = 184
Top = 24
Width = 75
Height = 55
Alignment = taCenter
Caption = 'Example of using AutoDBGrid and AutoFind'
WordWrap = True
IsControl = True
end
object Label5: TLabel
Left = 14
Top = 124
Width = 107
Height = 13
Caption = 'e-mail: rsd@tibc.tula.ru'
end
object Label4: TLabel
Left = 14
Top = 114
Width = 40
Height = 13
Caption = 'send us:'
end
object Label6: TLabel
Left = 13
Top = 136
Width = 101
Height = 13
Caption = 'fax: +7 0872 770 183'
end
object Bevel2: TBevel
Left = 9
Top = 160
Width = 256
Height = 41
end
object Memo1: TMemo
Left = 10
Top = 209
Width = 257
Height = 107
Lines.Strings = (
'This example was taken from Delphi Demos '
'and illustrates'
''
'- Finding Records with AutoFind and '
' AutoDBGrid'
'- Switching Indexes with AutoDBGrid '
' (By using sorted columns)'
''
''
'The Customer form is connected to the '
'Customer table in the application'#39's data '
'module. The Find button calls a second form '
'modally (FindCust). This Lookup form is tied '
'to a second instance of the Customer table, '
'and has a simple ComboBox, AutoFind and'
'DBGrid.'
''
'The list of the ComboBox has a list of all'
'the Customer fields. The OnChange'
'event of the ComboBox both rotates'
' the desired field to the first position '
'in the grid by setting the field'#39's Index '
'property and assignes the DataField '
'property of AutoFind.'
''
'If the user presses OK, the modal result of the '
'form is set to mrOK and the two tables in the '
'Data Module are synchronized with the '
'GoToCurrent method.')
ScrollBars = ssVertical
TabOrder = 1
end
object Panel2: TPanel
Left = 8
Top = 8
Width = 174
Height = 104
BevelInner = bvLowered
Caption = 'Panel2'
TabOrder = 2
object Image1: TImage
Left = 2
Top = 2
Width = 170
Height = 100
Align = alClient
AutoSize = True
Picture.Data = {<image000.bmp>}
end
end
object Edit1: TEdit
Left = 15
Top = 171
Width = 245
Height = 21
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
Text = 'http://www.rsd.pp.ru'
end
end
object OKButton: TButton
Left = 111
Top = 336
Width = 77
Height = 27
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 1
end
end