home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hot Shareware 35
/
hot35.iso
/
ficheros
/
9MISC
/
WISQU102.ZIP
/
_SETUP.1
/
quotes.exe
/
0
/
RCDATA
/
TFWISDOMQUOTES
/
TFWISDOMQUOTES.txt
< prev
Wrap
Text File
|
1998-05-14
|
32KB
|
841 lines
object fWisdomQuotes: TfWisdomQuotes
Left = 192
Top = 110
HelpContext = 10
BorderIcons = [biMinimize, biMaximize]
AutoScroll = False
ClientHeight = 392
ClientWidth = 525
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
KeyPreview = True
PopupMenu = PopupMenu1
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnKeyUp = FormKeyUp
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 2
Top = 0
Width = 468
Height = 369
Style = bsRaised
end
object BackDropImage: TImage
Left = 2
Top = 2
Width = 468
Height = 359
Stretch = True
end
object lTip: TLabel
Left = 6
Top = 70
Width = 458
Height = 285
Cursor = 14000
Hint = 'Double click to goto setup or'#13#10'Right click for a menu'
AutoSize = False
Caption =
'Quotes are not available till you add in. Press Ctrl+E to edit t' +
'he current quotes file.'
Color = 8454143
Font.Color = clBlack
Font.Height = -16
Font.Name = 'Comic Sans MS'
Font.Style = [fsItalic]
ParentColor = False
ParentFont = False
ShowAccelChar = False
Transparent = True
WordWrap = True
OnDblClick = Setup1Click
OnMouseMove = lTipMouseMove
end
object ImgBulb: TImage
Left = 4
Top = 8
Width = 53
Height = 49
Hint =
'Toggle Quote color (white/black)'#13#10'Press Ctrl+1/2/3/4/5/6 for'#13#10'ot' +
'her colors'#13#10'Press Ctrl+0 to restore color'
Picture.Data = {<image001.TMetafile>}
Stretch = True
OnClick = ImgBulbClick
end
object lTitle: TLabelEffect
Left = 56
Top = 4
Width = 408
Height = 57
GraduateFrom = clWindowText
Caption = 'Quotes file is empty!'
Font.Color = clRed
Font.Height = -37
Font.Name = 'Impact'
Font.Style = [fsBold]
ParentFont = False
end
object bPanel: TPanel
Left = 470
Top = 0
Width = 55
Height = 366
Align = alRight
BevelInner = bvLowered
TabOrder = 2
object lblVolume: TLabel
Left = 9
Top = 176
Width = 35
Height = 13
Caption = '&Volume'
FocusControl = TrackBar1
end
object bClose: TOfficeButton
Left = 11
Top = 4
Width = 30
Height = 30
Hint = 'Shut it'
NoFocusBitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333C0C33333333333CC0F0C333333333C30F0F0C3333333C00FFF0F0
C3333CC0FFFFFF0F0C33C30F0FFFFFF0F0C300FFF0FFFFFF0F0C0FFFFF0FFFFF
F0F030FFFFF0FFFFFF03330FFFFF0FFF00333330FFFFF000333333330FFF0333
3333333330003333333333333333333333333333333333333333}
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333C33333333333333C0C333333333333C0F0C3333333333C0FFF0C33
333333CCC0FFF0C333333CCCCC0FFF0C33334CCCCCC0FFF0C333C4CCCCCC0FFF
0C333C4CC0CCC0FFF0C333C4CCC0CC0F0C33333C4C00CCC033333333C4CCCCCC
333333333C4CCCC33333333333C4C33333333333333333333333}
Caption = '&Shut it'
Layout = blBitmapBottom
Options = [boMonoDisplay, boIconOnly, boShowBevel]
UnselectedFontColor = clWhite
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
OnClick = bCloseClick
ParentFont = False
IBitmap = {
424D360300000000000036000000280000001000000010000000010018000000
00000003000000000000000000000000000000000000007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7FEFD0D0007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7FEFD0D0000000EFD0D0007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7FEFD0D0000000FFFFFF000000EFD0
D0007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7FEF
D0D0000000FFFFFFFFFFFFFFFFFF000000EFD0D0007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7FEFD0D0EFD0D0EFD0D0000000FFFFFFFFFFFFFFFF
FF000000EFD0D0007F7F007F7F007F7F007F7F007F7F007F7FEFD0D0EFD0D0EF
D0D0EFD0D0EFD0D0000000FFFFFFFFFFFFFFFFFF000000EFD0D0007F7F007F7F
007F7F007F7FAF4F50EFD0D0EFD0D0EFD0D0EFD0D0EFD0D0EFD0D0000000FFFF
FFFFFFFFFFFFFF000000EFD0D0007F7F007F7F007F7FEFD0D0AF4F50EFD0D0EF
D0D0EFD0D0EFD0D0EFD0D0EFD0D0000000FFFFFFFFFFFFFFFFFF000000EFD0D0
007F7F007F7F007F7FEFD0D0AF4F50EFD0D0EFD0D0000000EFD0D0EFD0D0EFD0
D0000000FFFFFFFFFFFFFFFFFF000000EFD0D0007F7F007F7F007F7FEFD0D0AF
4F50EFD0D0EFD0D0EFD0D0000000EFD0D0EFD0D0000000FFFFFF000000EFD0D0
007F7F007F7F007F7F007F7F007F7FEFD0D0AF4F50EFD0D0000000000000EFD0
D0EFD0D0EFD0D0000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7FEFD0D0AF4F50EFD0D0EFD0D0EFD0D0EFD0D0EFD0D0EFD0D0007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7FEFD0D0AF4F50EFD0D0EFD0
D0EFD0D0EFD0D0007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7FEFD0D0AF4F50EFD0D0007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F}
end
object bOptions: TOfficeButton
Left = 11
Top = 46
Width = 30
Height = 30
Hint = 'Click me or Press O'#13#10'to Customize Settings'
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
195058000FF05559190380FFFF05555919330F00FF055559193300550F055559
193508550F05559999955580F085501111155500085503330555555555503335
0555550055033355055550505033355505550500033355550555000000355558
0855550000055558085555300008555808555533500000555555}
Caption = '&Options'
DropDownMenu = PopupMenu1
Layout = blBitmapBottom
Options = [boIconOnly, boShowBevel]
UnselectedFontColor = clWhite
Font.Color = clLime
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
IBitmap = {
424D360300000000000036000000280000001000000010000000010018000000
000000030000000000000000000000000000000000007F007F7F007F7F007F7F
007F7F007F000000FFFFFFFFFFFF0000007F007F7F007FEFD0D0AF4F50EFD0D0
7F007F0000007F007FEFD0D0000000000000000000FFFFFFFFFFFF0000007F00
7F7F007F7F007FEFD0D0AF4F50EFD0D0000000EFD0D0EFD0D0000000FFFFFFFF
FFFFFFFFFFFFFFFF0000007F007F7F007F7F007F7F007FEFD0D0AF4F50EFD0D0
EFD0D0EFD0D0000000FFFFFF000000000000FFFFFFFFFFFF0000007F007F7F00
7F7F007F7F007FEFD0D0AF4F50EFD0D0EFD0D0EFD0D00000000000007F007F7F
007F000000FFFFFF0000007F007F7F007F7F007F7F007FEFD0D0AF4F50EFD0D0
EFD0D07F007F000000EFD0D07F007F7F007F000000FFFFFF0000007F007F7F00
7F7F007FEFD0D0EFD0D0EFD0D0EFD0D0EFD0D07F007F7F007F7F007FEFD0D000
0000FFFFFF000000EFD0D07F007F7F007F000000AF4F50AF4F50AF4F50AF4F50
AF4F507F007F7F007F7F007F000000000000000000EFD0D07F007F7F007F0000
00EFD0D0EFD0D0EFD0D00000007F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F000000EFD0D0EFD0D0EFD0D07F007F0000007F007F
7F007F7F007F7F007F7F007F0000000000007F007F7F007F000000EFD0D0EFD0
D0EFD0D07F007F7F007F0000007F007F7F007F7F007F7F007F0000007F007F00
00007F007F000000EFD0D0EFD0D0EFD0D07F007F7F007F7F007F0000007F007F
7F007F7F007F0000007F007F000000000000000000EFD0D0EFD0D0EFD0D07F00
7F7F007F7F007F7F007F0000007F007F7F007F7F007F00000000000000000000
0000000000000000EFD0D07F007F7F007F7F007F7F007FEFD0D0000000EFD0D0
7F007F7F007F7F007F7F007F0000000000000000000000000000007F007F7F00
7F7F007F7F007FEFD0D0000000EFD0D07F007F7F007F7F007F7F007FEFD0D000
0000000000000000000000EFD0D07F007F7F007F7F007FEFD0D0000000EFD0D0
7F007F7F007F7F007F7F007FEFD0D0EFD0D07F007F0000000000000000000000
000000007F007F7F007F7F007F7F007F7F007F7F007F}
end
object bFind: TOfficeButton
Left = 11
Top = 76
Width = 30
Height = 30
Hint = 'Click or Press F'#13#10'to Search Quotes'
Bitmap.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333BFBF
BFBFBFBF000033333333FFFFFFFFFFFF000033333333BFBFBFBFBFBF00003333
3333FFFFFFFFFFFF000033333333BFBFBFBFBFBF000033333333FFFFFFFFFFFF
000033333330BFBFBFBFBFBF0000333333010FFFFFFFFFFF00003333330180BF
BFBFBFBF000033333301180FFFFFFFFF0000333330811190BFBFBFBF00003333
307719990FFFFFFF00003333077FF999903333330000333077FFFF0003333333
000033077FFF00333333333300003077FFF03333333333330000077FFF093333
33333333000007FFF093333333333333000030FF033333333333333300003300
33333333333333330000}
Caption = '&Find'
Layout = blBitmapBottom
Options = [boIconOnly, boShowBevel]
UnselectedFontColor = clWhite
Font.Color = clLime
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
OnClick = bFindClick
ParentFont = False
IBitmap = {
424DE60400000000000036000000280000001400000014000000010018000000
0000B004000000000000000000000000000000000000007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7FEFD0D0FFFFFFEFD0D0FFFFFFEFD0D0FFFFFF
EFD0D0FFFFFFEFD0D0FFFFFFEFD0D0FFFFFF007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7FEFD0D0FFFFFFEFD0D0FFFFFFEFD0D0FFFFFFEFD0D0FFFFFFEFD0
D0FFFFFFEFD0D0FFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7FEFD0
D0FFFFFFEFD0D0FFFFFFEFD0D0FFFFFFEFD0D0FFFFFFEFD0D0FFFFFFEFD0D0FF
FFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7FFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F
7F007F7F007F7F007F7F007F7F007F7F007F7F000000EFD0D0FFFFFFEFD0D0FF
FFFFEFD0D0FFFFFFEFD0D0FFFFFFEFD0D0FFFFFFEFD0D0FFFFFF007F7F007F7F
007F7F007F7F007F7F007F7F000000AF4F50000000FFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F00
7F7F007F7F007F7F000000AF4F50EFD0D0000000EFD0D0FFFFFFEFD0D0FFFFFF
EFD0D0FFFFFFEFD0D0FFFFFFEFD0D0FFFFFF007F7F007F7F007F7F007F7F007F
7F007F7F000000AF4F50AF4F50EFD0D0000000FFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F007F7F007F7F000000
EFD0D0AF4F50AF4F50AF4F50EFD0D0000000EFD0D0FFFFFFEFD0D0FFFFFFEFD0
D0FFFFFFEFD0D0FFFFFF007F7F007F7F007F7F007F7F007F7F000000FFFFFFFF
FFFFAF4F50EFD0D0EFD0D0EFD0D0000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF007F7F007F7F007F7F007F7F000000FFFFFFFFFFFFFFFFFFFFFF
FFEFD0D0EFD0D0EFD0D0EFD0D0000000007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
000000000000000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F000000
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F000000FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF000000EFD0D0007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7F007F7F000000FFFFFFFFFFFFFFFFFFFFFF
FF000000EFD0D0007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F000000FFFFFFFFFFFF000000007F7F
007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F007F7F000000000000007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
007F7F007F7F}
end
object bCapture: TOfficeButton
Left = 11
Top = 106
Width = 30
Height = 30
Hint = 'Click or Press C to'#13#10'Capture Quote to'#13#10'Clipboard'
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777780087777777800000000000087708800888800
880770880888888088077088087888808807708808E78880880770FF00888800
FF0770FFF000000FFF0770000000000000077700780FF0870077777777800877
7777777777777777777777777777777777777777777777777777}
Caption = '&Capture'
Layout = blBitmapBottom
Options = [boIconOnly, boShowBevel]
UnselectedFontColor = clWhite
Font.Color = clLime
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
OnClick = bCaptureClick
ParentFont = False
IBitmap = {
424D360300000000000036000000280000001000000010000000010018000000
00000003000000000000000000000000000000000000BFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFEFD0D0000000000000EFD0D0BFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFEFD0D00000000000000000000000000000000000000000
00000000000000000000000000000000EFD0D0BFBFBFBFBFBF000000EFD0D0EF
D0D0000000000000EFD0D0EFD0D0EFD0D0EFD0D0000000000000EFD0D0EFD0D0
000000BFBFBFBFBFBF000000EFD0D0EFD0D0000000EFD0D0EFD0D0EFD0D0EFD0
D0EFD0D0EFD0D0000000EFD0D0EFD0D0000000BFBFBFBFBFBF000000EFD0D0EF
D0D0000000EFD0D0BFBFBFEFD0D0EFD0D0EFD0D0EFD0D0000000EFD0D0EFD0D0
000000BFBFBFBFBFBF000000EFD0D0EFD0D0000000EFD0D0EFD0D0BFBFBFEFD0
D0EFD0D0EFD0D0000000EFD0D0EFD0D0000000BFBFBFBFBFBF000000FFFFFFFF
FFFF000000000000EFD0D0EFD0D0EFD0D0EFD0D0000000000000FFFFFFFFFFFF
000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFF0000000000000000000000
00000000000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF00000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000BFBFBFBFBFBFBFBFBF000000000000BFBFBFEFD0D0000000FFFFFFFFFF
FF000000EFD0D0BFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFEFD0D0000000000000EFD0D0BFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
end
object bPrevious: TOfficeButton
Left = 11
Top = 300
Width = 30
Height = 30
Hint = 'Previous Quote (PgUp)'
Bitmap.Data = {
D6000000424DD60000000000000076000000280000000C0000000C0000000100
0400000000006000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
0000777700000777000077770666077700007777066607770000777706660777
0000700006660000000077066666660700007770666660770000777706660777
0000777770607777000077777707777700007777777777770000}
Caption = '&Previous'
Layout = blBitmapBottom
Options = [boIconOnly, boShowBevel]
UnselectedFontColor = clWhite
Font.Color = clLime
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
OnClick = bClick
ParentFont = False
IBitmap = {
424DE60100000000000036000000280000000C0000000C000000010018000000
0000B001000000000000000000000000000000000000BFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF000000000000000000000000000000BFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBF000000EFD0D0EFD0D0EFD0D0000000BFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000EFD0D0EFD0D0EFD0D0000000BFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000EFD0D0EFD0D0EFD0D00000
00BFBFBFBFBFBFBFBFBFBFBFBF000000000000000000000000EFD0D0EFD0D0EF
D0D0000000000000000000000000BFBFBFBFBFBF000000EFD0D0EFD0D0EFD0D0
EFD0D0EFD0D0EFD0D0EFD0D0000000BFBFBFBFBFBFBFBFBFBFBFBF000000EFD0
D0EFD0D0EFD0D0EFD0D0EFD0D0000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBF000000EFD0D0EFD0D0EFD0D0000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBF000000EFD0D0000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF}
end
object bNext: TOfficeButton
Left = 11
Top = 330
Width = 30
Height = 30
Hint = 'Next Quote (PgDn)'
Caption = '&Next'
Layout = blBitmapBottom
Options = [boIconOnly, boShowBevel]
UnselectedFontColor = clWhite
Font.Color = clLime
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
OnClick = bClick
ParentFont = False
IBitmap = {
424DE60100000000000036000000280000000C0000000C000000010018000000
0000B001000000000000000000000000000000000000BFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBF000000EFD0D0000000BFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000EFD0D0EFD0D0EFD0D0000000BFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000EFD0D0EFD0D0EFD0D0EFD0D0EFD0
D0000000BFBFBFBFBFBFBFBFBFBFBFBF000000EFD0D0EFD0D0EFD0D0EFD0D0EF
D0D0EFD0D0EFD0D0000000BFBFBFBFBFBF000000000000000000000000EFD0D0
EFD0D0EFD0D0000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF0000
00EFD0D0EFD0D0EFD0D0000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBF000000EFD0D0EFD0D0EFD0D0000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF000000EFD0D0EFD0D0EFD0D0000000BFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBF000000000000000000000000000000BFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF}
end
object bZoom: TOfficeButton
Left = 11
Top = 136
Width = 30
Height = 30
Hint =
'Click me or '#13#10'Press Z to Zoom In, '#13#10'Shift+Click or Press Shift+Z' +
#13#10' to Zoom Out'#13#10'Press Backspace to restore font size'
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3303333333333333300033333333333300033333333333300033333333333300
0333333800083B8033333308888800B33333308F7F7F8033333388F7F9F7F883
3333087F797F7803333308F99999F8033333087F797F7803333388F7F9F7F883
3333308F7F7F8033333333088888033333333338000833333333}
Caption = '&Zoom'
Layout = blBitmapBottom
Options = [boIconOnly, boShowBevel]
UnselectedFontColor = clWhite
Font.Color = clLime
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
OnClick = bZoomClick
ParentFont = False
IBitmap = {
424D360300000000000036000000280000001000000010000000010018000000
00000003000000000000000000000000000000000000007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F007F7F007F7F000000000000000000007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F000000000000
000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
7F007F7F007F7F000000000000000000007F7F007F7F007F7F007F7F007F7F00
7F7F007F7F007F7F007F7F007F7F007F7F007F7F000000000000000000007F7F
007F7F007F7F007F7F007F7F007F7FEFD0D0000000000000000000EFD0D0007F
7FEFD0D0EFD0D0000000007F7F007F7F007F7F007F7F007F7F007F7F000000EF
D0D0EFD0D0EFD0D0EFD0D0EFD0D0000000000000EFD0D0007F7F007F7F007F7F
007F7F007F7F007F7F000000EFD0D0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFD0
D0000000007F7F007F7F007F7F007F7F007F7F007F7FEFD0D0EFD0D0FFFFFFFF
FFFFFFFFFFEFD0D0FFFFFFFFFFFFFFFFFFEFD0D0EFD0D0007F7F007F7F007F7F
007F7F007F7F000000EFD0D0FFFFFFFFFFFFFFFFFFEFD0D0FFFFFFFFFFFFFFFF
FFEFD0D0000000007F7F007F7F007F7F007F7F007F7F000000EFD0D0FFFFFFEF
D0D0EFD0D0EFD0D0EFD0D0EFD0D0FFFFFFEFD0D0000000007F7F007F7F007F7F
007F7F007F7F000000EFD0D0FFFFFFFFFFFFFFFFFFEFD0D0FFFFFFFFFFFFFFFF
FFEFD0D0000000007F7F007F7F007F7F007F7F007F7FEFD0D0EFD0D0FFFFFFFF
FFFFFFFFFFEFD0D0FFFFFFFFFFFFFFFFFFEFD0D0EFD0D0007F7F007F7F007F7F
007F7F007F7F007F7F000000EFD0D0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFD0
D0000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F000000EF
D0D0EFD0D0EFD0D0EFD0D0EFD0D0000000007F7F007F7F007F7F007F7F007F7F
007F7F007F7F007F7F007F7F007F7FEFD0D0000000000000000000EFD0D0007F
7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F}
end
object TrackBar1: TTrackBar
Left = 8
Top = 189
Width = 39
Height = 103
Hint = 'Slide up for higher volume'
LineSize = 5
Max = 255
Orientation = trVertical
PageSize = 0
Frequency = 5
Position = 185
SelEnd = 0
SelStart = 0
TabOrder = 7
TabStop = False
TickMarks = tmTopLeft
TickStyle = tsAuto
end
end
object MediaPlayer1: TMediaPlayer
Left = 140
Top = 188
Width = 253
Height = 30
Visible = False
TabOrder = 0
OnNotify = MediaPlayer1Notify
end
object StatusBar: TFriendlyStatusBar
Left = 0
Top = 366
Width = 525
Height = 26
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Panels = <
item
Alignment = taCenter
Bevel = pbRaised
Width = 60
end
item
Alignment = taCenter
Bevel = pbRaised
Width = 70
end
item
Alignment = taCenter
Bevel = pbRaised
Width = 50
end
item
Alignment = taCenter
Bevel = pbRaised
Width = 50
end
item
Alignment = taCenter
Bevel = pbRaised
Width = 50
end
item
Alignment = taCenter
Bevel = pbRaised
Width = 50
end
item
Alignment = taCenter
Bevel = pbRaised
Width = 110
end
item
Bevel = pbRaised
Width = 110
end>
ParentFont = False
SimplePanel = False
object shGoto: TShape
Left = 9
Top = 2
Width = 41
Height = 25
Hint = 'Click me or press Ctrl+G to'#13#10'position to a specific quote no.'
Brush.Style = bsClear
Pen.Style = psClear
OnMouseDown = shGotoMouseDown
end
object shQuotes: TShape
Left = 70
Top = 2
Width = 52
Height = 25
Hint = 'Click me or Press Ctrl+O to'#13#10'open a different quotes file.'
Brush.Style = bsClear
Pen.Style = psClear
OnMouseDown = shQuotesMouseDown
end
object shMusic: TShape
Left = 140
Top = 2
Width = 32
Height = 25
Hint = 'Click me or Press Ctrl+M to'#13#10'toggle music on or off.'
Brush.Style = bsClear
Pen.Style = psClear
OnMouseDown = shMusicMouseDown
end
object shSound: TShape
Left = 186
Top = 2
Width = 39
Height = 25
Hint = 'Click me or Press Ctrl+S to'#13#10'turn sound effect on or off.'
Brush.Style = bsClear
Pen.Style = psClear
OnMouseDown = shSoundMouseDown
end
object shBDrop: TShape
Left = 339
Top = 2
Width = 92
Height = 25
Hint =
'Right+Click me or press Alt+4 to'#13#10'hide/show the Back drop image.' +
#13#10'Click or press Ctrl+B to change '#13#10'the backdrop.'
Brush.Style = bsClear
Pen.Style = psClear
OnMouseDown = shBDropMouseDown
end
object shAutoNext: TShape
Left = 239
Top = 2
Width = 34
Height = 25
Hint =
'Click me or press Ctrl+A to'#13#10'toggle Auto/Manual Show Next Quotes' +
'.'
Brush.Style = bsClear
Pen.Style = psClear
OnMouseDown = shAutoNextMouseDown
end
object shPopup: TShape
Left = 290
Top = 2
Width = 33
Height = 25
Hint =
'Right click me or press Ctrl+U to'#13#10'toggle Popup or Idle mode.'#13#10'I' +
'dle mode is temporary if left clicked.'
Brush.Style = bsClear
Pen.Style = psClear
OnMouseDown = shPopupMouseDown
end
object shMusicTitle: TShape
Left = 448
Top = 2
Width = 92
Height = 25
Hint = 'Click me or Press Ctrl+T to'#13#10'play the next Music Title'
Brush.Style = bsClear
Pen.Style = psClear
OnMouseDown = shMusicTitleMouseDown
end
end
object PopupMenu1: TPopupMenu
HelpContext = 10
OnPopup = PopupMenu1Popup
Left = 70
Top = 146
object About1: TMenuItem
Caption = '&About...'
ShortCut = 0
OnClick = About1Click
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object ActivateScreenSaver1: TMenuItem
Caption = 'Activate Screen Sa&ver'
ShortCut = 0
OnClick = ActivateScreenSaver1Click
end
object ShowNextQuotes1: TMenuItem
Caption = 'Show Next &Quotes'
ShortCut = 0
OnClick = AutoNextTimerTimer
end
object N6: TMenuItem
Caption = '-'
ShortCut = 0
end
object Show2: TMenuItem
Caption = 'Sho&w'
ShortCut = 0
object ShowHint1: TMenuItem
Caption = '&Hint'
ShortCut = 32816
OnClick = ShowHint1Click
end
object N4: TMenuItem
Caption = '-'
ShortCut = 0
end
object ShowToolBar: TMenuItem
Caption = '&Tool Bar'
ShortCut = 32817
OnClick = ShowToolbarClick
end
object ShowStatusBar: TMenuItem
Caption = '&Status Bar'
ShortCut = 32818
OnClick = ShowStatusbarClick
end
object ShowBulb: TMenuItem
Caption = '&Bulb'
ShortCut = 32819
OnClick = ShowBulbClick
end
object ShowBDrop: TMenuItem
Caption = 'Back &Drop'
ShortCut = 32820
OnClick = ShowBDropClick
end
object ShowCaption: TMenuItem
Caption = '&Caption'
ShortCut = 32821
OnClick = ShowCaptionClick
end
object ShowQuoteTitle: TMenuItem
Caption = 'Quotes Tit&le'
ShortCut = 32822
OnClick = ShowQuoteTitleClick
end
end
object Setup1: TMenuItem
Caption = 'Se&tup...'
ShortCut = 0
OnClick = Setup1Click
end
object N10: TMenuItem
Caption = '-'
ShortCut = 0
end
object EditQuotes1: TMenuItem
Caption = '&Edit Quotes...'
ShortCut = 16453
OnClick = EditQuotes1Click
end
object Open1: TMenuItem
Caption = '&Open...'
ShortCut = 16463
OnClick = Open1Click
end
object Print1: TMenuItem
Caption = '&Print...'
ShortCut = 16464
OnClick = Print1Click
end
object N8: TMenuItem
Caption = '-'
ShortCut = 0
end
object Change2: TMenuItem
Caption = '&Change'
ShortCut = 0
object ChangeBackDrop: TMenuItem
Caption = 'Back &Drop'
ShortCut = 16450
OnClick = ChangeBackdropClick
end
object ChangeMusicTitle: TMenuItem
Caption = 'Music &Title'
ShortCut = 16468
OnClick = ChangeMusicTitleClick
end
object GotoQuotes: TMenuItem
Caption = 'Quotes &No.'
ShortCut = 16455
OnClick = GotoQuotesClick
end
end
object PlayMusic: TMenuItem
Caption = 'Play &Music'
Hint = 'Check this off if you do not want quotes to accompany with Music'
ShortCut = 16461
OnClick = PlayMusicClick
end
object WithSound: TMenuItem
Caption = '&Sound'
Hint =
'Check this off if you do not want next/previous button to accomp' +
'any with Sound'
ShortCut = 16467
OnClick = WithSoundClick
end
object AutoShowNext: TMenuItem
Caption = 'Auto Show &Next'
ShortCut = 16449
OnClick = AutoShowNextClick
end
object IdlePopup: TMenuItem
Caption = 'Pop &up'
ShortCut = 16469
OnClick = IdlePopupClick
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object Help2: TMenuItem
Caption = '&Help'
ShortCut = 112
OnClick = Help1Click
end
object Exit1: TMenuItem
Caption = 'E&xit Wisdom Quotes'
ShortCut = 0
OnClick = Exit1Click
end
end
object FindDialog: TFindDialog
Options = [frDown, frHideUpDown, frWholeWord]
OnFind = FindDialogFind
Left = 98
Top = 146
end
object OpenDialog1: TOpenDialog
DefaultExt = '*.QUO'
FileEditStyle = fsEdit
Filter = 'Quotes (*.QUO)|*.QUO'
Options = [ofNoChangeDir, ofFileMustExist]
Title = 'Open a different Quote file'
Left = 128
Top = 144
end
object PrintDialog1: TPrintDialog
Options = [poPrintToFile]
Left = 36
Top = 172
end
object VolumeControl1: TVolumeControl
MidiTrackBar = TrackBar1
Left = 64
Top = 176
end
object RxTimerList1: TRxTimerList
Active = True
Left = 40
Top = 144
object AutoNextTimer: TRxTimerEvent
Interval = 30000
OnTimer = AutoNextTimerTimer
end
object HourlyTimer: TRxTimerEvent
Interval = 900
OnTimer = HourlyTimerTimer
end
object IdleTimer: TRxTimerEvent
Interval = 60000
OnTimer = IdleTimerTimer
end
end
end