home *** CD-ROM | disk | FTP | other *** search
- object frmLocation: TfrmLocation
- Left = 257
- Top = 70
- ActiveControl = btnAddRecord
- BorderIcons = []
- AutoScroll = False
- Caption = 'Everything I Own! -- Locations of Items'
- ClientHeight = 330
- ClientWidth = 476
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Menu = MainMenu1
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object pnlAdd: TPanel
- Left = 32
- Top = 32
- Width = 113
- Height = 113
- BevelOuter = bvLowered
- BevelWidth = 2
- BorderStyle = bsSingle
- TabOrder = 0
- object btnAddRecord: TBitBtn
- Left = 13
- Top = 10
- Width = 84
- Height = 39
- Caption = '&Add Record'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = btnAddRecordClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
- 055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
- 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
- B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
- 305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
- 305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
- 30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
- 3055577777555557F7F5550005555559995555777555555777550000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnDelete: TBitBtn
- Left = 14
- Top = 58
- Width = 84
- Height = 39
- Caption = '&Delete Record'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnDeleteClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
- 305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
- 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
- B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
- B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
- B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
- B0557777FF577777F7F500000E055550805577777F7555575755500000555555
- 05555777775555557F55550005555555055555777555555575550000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- end
- object Panel1: TPanel
- Left = 160
- Top = 32
- Width = 201
- Height = 201
- BevelInner = bvLowered
- BevelWidth = 2
- BorderStyle = bsSingle
- TabOrder = 4
- object grdLocation: TDBGrid
- Left = 4
- Top = 4
- Width = 189
- Height = 189
- TabStop = False
- Align = alClient
- Columns = <
- item
- FieldName = 'Location'
- Title.Alignment = taCenter
- Title.Font.Color = clBlue
- Title.Font.Height = -13
- Title.Font.Name = 'MS Sans Serif'
- Title.Font.Style = []
- end>
- DataSource = DataModule1.LocationSource
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
- TabOrder = 0
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- end
- end
- object pnlNavigate: TPanel
- Left = 376
- Top = 32
- Width = 81
- Height = 209
- BevelOuter = bvLowered
- BevelWidth = 2
- BorderStyle = bsSingle
- TabOrder = 2
- object btnTop: TBitBtn
- Left = 13
- Top = 10
- Width = 52
- Height = 39
- Caption = '&First'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = btnTopClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
- 3333333333777F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
- 3333333777737777F333333099999990333333373F3333373333333309999903
- 333333337F33337F33333333099999033333333373F333733333333330999033
- 3333333337F337F3333333333099903333333333373F37333333333333090333
- 33333333337F7F33333333333309033333333333337373333333333333303333
- 333333333337F3333333333333303333333333333337333333330000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnLast: TBitBtn
- Left = 13
- Top = 154
- Width = 52
- Height = 39
- Caption = '&Last'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = btnLastClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
- 333333333337F33333333333333033333333333333373F333333333333090333
- 33333333337F7F33333333333309033333333333337373F33333333330999033
- 3333333337F337F33333333330999033333333333733373F3333333309999903
- 333333337F33337F33333333099999033333333373333373F333333099999990
- 33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
- 33333333337F7F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F333333333333000333333333333377733333330000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnPrior: TBitBtn
- Left = 13
- Top = 58
- Width = 52
- Height = 39
- Caption = '&Prior'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnPriorClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333FF3333333333333003333333333333F77F33333333333009033
- 333333333F7737F333333333009990333333333F773337FFFFFF330099999000
- 00003F773333377777770099999999999990773FF33333FFFFF7330099999000
- 000033773FF33777777733330099903333333333773FF7F33333333333009033
- 33333333337737F3333333333333003333333333333377333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333333333333333333333333333333333330000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnNext: TBitBtn
- Left = 13
- Top = 106
- Width = 52
- Height = 39
- Caption = '&Next'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = btnNextClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333FF3333333333333003333
- 3333333333773FF3333333333309003333333333337F773FF333333333099900
- 33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
- 99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
- 33333333337F3F77333333333309003333333333337F77333333333333003333
- 3333333333773333333333333333333333333333333333333333333333333333
- 33333333333333333333333333333333333333333333333333330000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- end
- object btnClose: TBitBtn
- Left = 400
- Top = 250
- Width = 41
- Height = 39
- Caption = '&Close'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = btnCloseClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
- 03333377777777777F333301111111110333337F333333337F33330111111111
- 0333337F333333337F333301111111110333337F333333337F33330111111111
- 0333337F333333337F333301111111110333337F333333337F33330111111111
- 0333337F3333333F7F333301111111B10333337F333333737F33330111111111
- 0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
- 0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
- 0333337F377777337F333301111111110333337F333333337F33330111111111
- 0333337FFFFFFFFF7F33330000000000033333777777777773330000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object pnlOK: TPanel
- Left = 35
- Top = 152
- Width = 110
- Height = 113
- BevelOuter = bvLowered
- BorderStyle = bsSingle
- TabOrder = 1
- Visible = False
- object btnOK: TBitBtn
- Left = 26
- Top = 6
- Width = 51
- Height = 41
- Caption = '&OK'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = btnOKClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 555555555555555555555555555555555555555555FF55555555555559055555
- 55555555577FF5555555555599905555555555557777F5555555555599905555
- 555555557777FF5555555559999905555555555777777F555555559999990555
- 5555557777777FF5555557990599905555555777757777F55555790555599055
- 55557775555777FF5555555555599905555555555557777F5555555555559905
- 555555555555777FF5555555555559905555555555555777FF55555555555579
- 05555555555555777FF5555555555557905555555555555777FF555555555555
- 59905555555555555777555555555555555555555555555555550000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnCancel: TBitBtn
- Left = 25
- Top = 62
- Width = 51
- Height = 41
- Caption = '&Cancel'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnCancelClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333333333333333333333333FFF33FF333FFF339993370733
- 999333777FF37FF377733339993000399933333777F777F77733333399970799
- 93333333777F7377733333333999399933333333377737773333333333990993
- 3333333333737F73333333333331013333333333333777FF3333333333910193
- 333333333337773FF3333333399000993333333337377737FF33333399900099
- 93333333773777377FF333399930003999333337773777F777FF339993370733
- 9993337773337333777333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- end
- object pnlInput: TPanel
- Left = 160
- Top = 240
- Width = 201
- Height = 65
- BevelOuter = bvLowered
- BorderStyle = bsSingle
- TabOrder = 5
- Visible = False
- object Label1: TLabel
- Left = 24
- Top = 8
- Width = 152
- Height = 16
- Caption = 'Please Enter the Location'
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object ELocation: TDBEdit
- Left = 8
- Top = 32
- Width = 177
- Height = 21
- DataField = 'Location'
- DataSource = DataModule1.LocationSource
- MaxLength = 0
- TabOrder = 0
- end
- end
- object MainMenu1: TMainMenu
- Left = 416
- object Files1: TMenuItem
- Caption = '&Files'
- ShortCut = 0
- object Exit1: TMenuItem
- Caption = 'E&xit'
- ShortCut = 0
- end
- end
- object Records1: TMenuItem
- Caption = '&Records'
- ShortCut = 0
- object GoTop1: TMenuItem
- Caption = 'Go &First'
- ShortCut = 0
- OnClick = GoTop1Click
- end
- object GoPrior1: TMenuItem
- Caption = 'Go &Prior'
- ShortCut = 0
- OnClick = GoPrior1Click
- end
- object GoNext1: TMenuItem
- Caption = 'Go &Next'
- ShortCut = 0
- OnClick = GoNext1Click
- end
- object GoLast1: TMenuItem
- Caption = 'Go &Last'
- ShortCut = 0
- OnClick = GoLast1Click
- end
- end
- end
- end
-