home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Shareware 1997 December
/
PCShareware-12-97.iso.bin
/
programy
/
recipe
/
_setup.1
/
recipe.exe
/
0
/
RCDATA
/
TSETUPFORM
/
TSETUPFORM.txt
Wrap
Text File
|
1997-10-09
|
11KB
|
362 lines
inherited SetupForm: TSetupForm
Left = 320
Top = 302
Width = 473
Height = 318
Caption = 'Setup'
PixelsPerInch = 96
TextHeight = 13
object Panel3: TPanel [0]
Left = 0
Top = 249
Width = 465
Height = 42
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object BitBtn4: TBitBtn
Left = 3
Top = 6
Width = 89
Height = 33
Caption = '&Close'
Default = True
ModalResult = 1
TabOrder = 0
end
object BitBtn5: TBitBtn
Left = 97
Top = 6
Width = 89
Height = 33
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
Visible = False
end
end
object PageControl1: TPageControl [1]
Left = 0
Top = 0
Width = 465
Height = 249
ActivePage = TabSheet2
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = ' General Options '
object cbViewCalendar: TCheckBox
Left = 14
Top = 10
Width = 93
Height = 17
Hint = 'Select this to view the Calendar'
Caption = 'View &Calendar'
TabOrder = 0
end
object cbViewCoolButtons: TCheckBox
Left = 14
Top = 34
Width = 111
Height = 17
Hint = 'Select this to view buttons as cool Buttons'
Caption = 'View Cool &Buttons'
TabOrder = 1
end
object cbViewHints: TCheckBox
Left = 14
Top = 57
Width = 75
Height = 17
Hint = 'Select this to view hints that help you '
Caption = 'View &Hints'
TabOrder = 2
OnClick = cbViewHintsClick
end
object cbAutoSelectRecipe: TCheckBox
Left = 14
Top = 103
Width = 200
Height = 17
Hint =
'Select this to automatically select the recipe selected by the c' +
'alendar date in the recipe area'
Caption = '&Auto Select Recipe from Calendar'
TabOrder = 4
end
object cbViewBtnCaptions: TCheckBox
Left = 14
Top = 80
Width = 125
Height = 17
Hint = 'Select this to view button captions'
Caption = 'View Button Ca&ptions'
TabOrder = 3
end
end
object TabSheet2: TTabSheet
Caption = ' Editable Values '
object rgItems: TRadioGroup
Left = 0
Top = 0
Width = 121
Height = 221
Hint = 'Select the Value you want to alter its respective elements'
Align = alLeft
Caption = 'Values'
ItemIndex = 0
Items.Strings = (
'&Ingredient'
'Mea&l'
'&PrepTime'
'&CookTime'
'&Measurement'
'De&scription'
'Cate&gory')
TabOrder = 0
OnClick = rgItemsClick
end
object Panel8: TPanel
Left = 121
Top = 0
Width = 241
Height = 221
Align = alClient
BevelOuter = bvNone
BorderWidth = 5
TabOrder = 1
object DBGrid: TDBGrid
Left = 5
Top = 5
Width = 231
Height = 211
Hint =
'Here are shown the respective elements of the Value chosen at th' +
'e left'
Align = alClient
DataSource = dmMain1.dsCategory
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object Panel9: TPanel
Left = 362
Top = 0
Width = 95
Height = 221
Align = alRight
BevelOuter = bvNone
TabOrder = 2
object Add: TBitBtn
Left = 2
Top = 6
Width = 89
Height = 29
Hint = 'Add a Value to this list'
Caption = '&Add...'
TabOrder = 0
TabStop = False
OnClick = btnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object Edit: TBitBtn
Tag = 1
Left = 2
Top = 36
Width = 89
Height = 29
Hint = 'Edit a Value in this list'
Caption = '&Edit...'
TabOrder = 1
TabStop = False
OnClick = btnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Tag = 2
Left = 2
Top = 66
Width = 89
Height = 29
Hint = 'Delete a Value from this list'
Caption = '&Delete'
TabOrder = 2
TabStop = False
OnClick = DeleteSetup
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
B0557777FF577777F7F500000E055550805577777F7555575755500000555555
05555777775555557F5555000555555505555577755555557555}
NumGlyphs = 2
end
end
end
object TabSheet3: TTabSheet
Caption = ' Report Options '
object rgReportDate: TRadioGroup
Left = 16
Top = 6
Width = 185
Height = 105
Hint =
'Select the Auto Value you want to be populated in the date firld' +
's when you run a report'
Caption = 'Date Filter Auto Value Choices'
Items.Strings = (
'&No Date'
'&Today'
'This &Week'
'This &Month')
TabOrder = 0
end
object cbStartOnToday: TCheckBox
Left = 104
Top = 66
Width = 95
Height = 17
Hint =
'This sets the date fields to start on today'#39's date or simply thi' +
's week when This Week is selected'
Caption = 'Start on Today'
TabOrder = 1
end
end
object TabSheet4: TTabSheet
Caption = 'Nifty Forms'
object Label1: TLabel
Left = 14
Top = 64
Width = 87
Height = 13
Caption = 'Nifty Form Graphic'
end
object Label2: TLabel
Left = 14
Top = 26
Width = 68
Height = 13
Caption = 'Nifty Forms file'
end
object SpeedButton1: TSpeedButton
Left = 230
Top = 38
Width = 25
Height = 25
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
333337F373F773333333303330033333333337F3377333333333303333333333
333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
333337777F337F33333330330BB00333333337F373F773333333303330033333
333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
333377777F77377733330BBB0333333333337F337F33333333330BB003333333
333373F773333333333330033333333333333773333333333333}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object cbEnableNiftyForms: TCheckBox
Left = 14
Top = 6
Width = 125
Height = 17
Caption = 'Enable Nifty Forms'
TabOrder = 0
OnClick = cbEnableNiftyFormsClick
end
object edNiftyFormsFile: TEdit
Left = 14
Top = 40
Width = 213
Height = 21
TabOrder = 1
Text = 'edNiftyFormsFile'
OnChange = edNiftyFormsFileChange
end
object Panel2: TPanel
Left = 16
Top = 81
Width = 161
Height = 136
BevelOuter = bvLowered
Caption = 'Panel2'
Color = clSilver
TabOrder = 2
object Shape1: TShape
Left = 1
Top = 1
Width = 159
Height = 134
Align = alClient
end
object imgNiftyFormBmp: TImage
Left = 12
Top = 10
Width = 134
Height = 115
end
end
object btnApply: TBitBtn
Left = 196
Top = 130
Width = 75
Height = 25
Caption = '&Apply'
TabOrder = 3
OnClick = btnApplyClick
end
end
end
object OpenPictureDialog1: TOpenPictureDialog
DefaultExt = '*.bmp'
FileName = '*.bmp'
Filter = '*.bmp|Bitmap Files|*.*|All Files'
Left = 278
Top = 36
end
end