home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hot Shareware 35
/
hot35.iso
/
ficheros
/
9APLI
/
32PSAO31.ZIP
/
_SETUP.1
/
ADO30.exe
/
0
/
RCDATA
/
TREPLACEDLG
/
TREPLACEDLG.txt
Wrap
Text File
|
1998-05-08
|
9KB
|
287 lines
object ReplaceDlg: TReplaceDlg
Left = 266
Top = 40
ActiveControl = ComboBox1
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Replace'
ClientHeight = 396
ClientWidth = 218
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
FormStyle = fsStayOnTop
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object Bevel1: TBevel
Left = 2
Top = 8
Width = 214
Height = 321
Shape = bsFrame
IsControl = True
end
object Bevel2: TBevel
Left = 10
Top = 298
Width = 199
Height = 25
end
object Label1: TLabel
Left = 10
Top = 11
Width = 104
Height = 14
Caption = 'Field To Be Replaced:'
end
object Label3: TLabel
Left = 10
Top = 230
Width = 66
Height = 14
Caption = 'Replace With:'
end
object Label4: TLabel
Left = 15
Top = 302
Width = 77
Height = 14
Caption = 'Current Record:'
end
object Label5: TLabel
Left = 103
Top = 302
Width = 8
Height = 14
Caption = 'A'
end
object Label2: TLabel
Left = 10
Top = 129
Width = 106
Height = 14
Caption = 'Substring To Replace:'
Visible = False
end
object Memo1: TMemo
Left = 10
Top = 244
Width = 199
Height = 49
TabOrder = 3
Visible = False
OnChange = Memo1Change
end
object ComboBox1: TComboBox
Left = 10
Top = 24
Width = 199
Height = 22
Hint = 'Select Which Fields Should Be Replaced'
Style = csDropDownList
ItemHeight = 14
TabOrder = 0
OnChange = ComboBox1Change
end
object RadioGroup2: TRadioGroup
Left = 10
Top = 175
Width = 199
Height = 49
Caption = 'Start Replacing From'
ItemIndex = 0
Items.Strings = (
'Current Record'
'First Record')
TabOrder = 1
end
object Edit2: TEdit
Left = 10
Top = 244
Width = 199
Height = 22
TabOrder = 2
OnChange = Edit2Change
end
object BitBtn1: THotBtn
Left = 11
Top = 335
Width = 120
Height = 27
Hint = 'Start Replacing'
Caption = '&Replace'
Default = True
TabOrder = 4
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
Margin = 3
NumGlyphs = 2
end
object HelpBtn: THotBtn
Left = 135
Top = 335
Width = 73
Height = 27
Hint = 'Display Help Window'
TabOrder = 5
Kind = bkHelp
Margin = 2
Spacing = -1
IsControl = True
end
object BitBtn2: THotBtn
Left = 11
Top = 367
Width = 120
Height = 27
Hint = 'Stop Replacing'
Caption = '&Stop'
Default = True
ModalResult = 1
TabOrder = 6
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333FFF33FF333FFF339993370733
999333777FF37FF377733339993000399933333777F777F77733333399970799
93333333777F7377733333333999399933333333377737773333333333990993
3333333333737F73333333333331013333333333333777FF3333333333910193
333333333337773FF3333333399000993333333337377737FF33333399900099
93333333773777377FF333399930003999333337773777F777FF339993370733
9993337773337333777333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object OKBtn: THotBtn
Left = 135
Top = 367
Width = 73
Height = 27
Hint = 'Close Search Window'
Caption = '&Close'
ModalResult = 1
TabOrder = 7
OnClick = OKBtnClick
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000001000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303030303030303030303030303030303030303030303030303
03030303030303030303030303030303030303030303FF030303030303030303
03030303030303040403030303030303030303030303030303F8F8FF03030303
03030303030303030303040202040303030303030303030303030303F80303F8
FF030303030303030303030303040202020204030303030303030303030303F8
03030303F8FF0303030303030303030304020202020202040303030303030303
0303F8030303030303F8FF030303030303030304020202FA0202020204030303
0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202
040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303
03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303
FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303
0303030303030303030303FA0202020403030303030303030303030303F8FF03
03F8FF03030303030303030303030303FA020202040303030303030303030303
0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303
03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403
030303030303030303030303F8FF0303F8FF03030303030303030303030303FA
0202040303030303030303030303030303F8FF03F8FF03030303030303030303
03030303FA0202030303030303030303030303030303F8FFF803030303030303
030303030303030303FA0303030303030303030303030303030303F803030303
0303030303030303030303030303030303030303030303030303030303030303
0303}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object DateEdit1: TDateEdit
Left = 10
Top = 244
Width = 120
Height = 22
DateFormat = 'mm/dd/yyyy'
Date = '__/__/____'
MaxLength = 10
TabOrder = 8
Visible = False
OnChange = DateEdit1Change
end
object RadioGroup1: TRadioGroup
Left = 10
Top = 49
Width = 199
Height = 73
Caption = 'Replace Mode'
ItemIndex = 0
Items.Strings = (
'Replace Entire Field Contents'
'Replace Substring Only'
'Auto-Increment'
'Auto-Decrement')
TabOrder = 9
OnClick = RadioGroup1Click
end
object Edit1: TEdit
Left = 10
Top = 145
Width = 199
Height = 22
TabOrder = 10
Visible = False
OnKeyPress = Edit1KeyPress
end
end