home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 248
- Top = 140
- Width = 553
- Height = 375
- ActiveControl = Panel1
- Caption = 'Form1'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- Position = poScreenCenter
- ShowHint = True
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnResize = FormResize
- PixelsPerInch = 120
- TextHeight = 16
- object Splitter1: TSplitter
- Left = 233
- Top = 33
- Width = 5
- Height = 273
- Cursor = crHSplit
- end
- object Panel1: TPanel
- Left = 0
- Top = 306
- Width = 545
- Height = 23
- Align = alBottom
- TabOrder = 0
- end
- object RichEdit1: TRichEdit
- Left = 0
- Top = 33
- Width = 233
- Height = 273
- Align = alLeft
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- ParentFont = False
- PlainText = True
- ScrollBars = ssBoth
- TabOrder = 1
- WordWrap = False
- end
- object RichEdit2: TRichEdit
- Left = 238
- Top = 33
- Width = 307
- Height = 273
- Align = alClient
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- ParentFont = False
- PlainText = True
- ScrollBars = ssBoth
- TabOrder = 2
- WordWrap = False
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 545
- Height = 33
- Align = alTop
- TabOrder = 3
- object SpeedButton1: TSpeedButton
- Left = 12
- Top = 4
- Width = 25
- Height = 25
- Hint = 'Open a source file'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
- 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
- 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
- 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
- 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
- B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
- 3BB33773333773333773B333333B3333333B7333333733333337}
- NumGlyphs = 2
- OnClick = SpeedButton1Click
- end
- object SpeedButton2: TSpeedButton
- Left = 55
- Top = 4
- Width = 25
- Height = 25
- Hint = 'Save files'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
- 333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
- 3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
- B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
- 33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
- 000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
- 033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
- BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
- 33B33733333773333373B333333B3333333B7333333733333337}
- NumGlyphs = 2
- OnClick = SpeedButton2Click
- end
- object SpeedButton3: TSpeedButton
- Left = 97
- Top = 4
- Width = 25
- Height = 25
- Hint = 'Exit aplication'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
- 03333377777777777F333301111111110333337F333333337F33330111111111
- 0333337F333333337F333301111111110333337F333333337F33330111111111
- 0333337F333333337F333301111111110333337F333333337F33330111111111
- 0333337F3333333F7F333301111111B10333337F333333737F33330111111111
- 0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
- 0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
- 0333337F377777337F333301111111110333337F333333337F33330111111111
- 0333337FFFFFFFFF7F3333000000000003333377777777777333}
- NumGlyphs = 2
- OnClick = SpeedButton3Click
- end
- object SpeedButton4: TSpeedButton
- Left = 140
- Top = 4
- Width = 25
- Height = 25
- Hint = 'Find next QDB'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
- 300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
- 330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
- 333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
- 339977FF777777773377000BFB03333333337773FF733333333F333000333333
- 3300333777333333337733333333333333003333333333333377333333333333
- 333333333333333333FF33333333333330003333333333333777333333333333
- 3000333333333333377733333333333333333333333333333333}
- NumGlyphs = 2
- OnClick = SpeedButton4Click
- end
- end
- object MainMenu1: TMainMenu
- Left = 400
- Top = 304
- object File1: TMenuItem
- Caption = '&File'
- object Open1: TMenuItem
- Caption = '&Open'
- OnClick = Open1Click
- end
- object Save1: TMenuItem
- Caption = '&Save'
- OnClick = Save1Click
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- OnClick = Exit1Click
- end
- end
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = #39'*.pas'#39
- Filter = 'source files|*.pas'
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
- Title = 'Open a Source File'
- Left = 304
- Top = 304
- end
- end
-