object Form1: TForm1 Left = 200 Top = 108 Width = 484 Height = 376 Caption = 'Joe'#39's CGI Editor' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 0 Top = 0 Width = 476 Height = 57 Align = alTop Shape = bsTopLine end object SpeedButton1: TSpeedButton Left = 8 Top = 5 Width = 25 Height = 25 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF 0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0 33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 32 Top = 5 Width = 25 Height = 25 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555555555555555555555555555555 555555555555555555555555555555555555555FFFFFFFFFF555550000000000 55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8 B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000 000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0 555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555 55555575FFF75555555555700007555555555557777555555555555555555555 55555555555555555555555555555555555555555555555555550000} NumGlyphs = 2 OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 56 Top = 5 Width = 25 Height = 25 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 88 Top = 5 Width = 25 Height = 25 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 3333333777333777FF3333993333339993333377FF3333377FF3399993333339 993337777FF3333377F3393999333333993337F777FF333337FF993399933333 399377F3777FF333377F993339993333399377F33777FF33377F993333999333 399377F333777FF3377F993333399933399377F3333777FF377F993333339993 399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399 99333773FF3333777733339993333339933333773FFFFFF77333333999999999 3333333777333777333333333999993333333333377777333333} NumGlyphs = 2 end object SpeedButton5: TSpeedButton Left = 8 Top = 29 Width = 25 Height = 25 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333FF3333333333333003333333333333377F33333333333307 733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770 000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777 777077777777777777773CCCCC00000000003777777777777777333330030FFF FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF 0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF 0F03333333337FFF7F7333333333000000333333333377777733} NumGlyphs = 2 OnClick = SpeedButton5Click end object SpeedButton6: TSpeedButton Left = 32 Top = 29 Width = 25 Height = 25 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 OnClick = SpeedButton6Click end object SpeedButton7: TSpeedButton Left = 56 Top = 29 Width = 25 Height = 25 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0 FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0 0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039 9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999 9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039 99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999 93337777FF777777733370000000073333333777777773333333} NumGlyphs = 2 OnClick = SpeedButton7Click end object Bevel2: TBevel Left = 176 Top = 2 Width = 9 Height = 55 Shape = bsLeftLine end object SpeedButton9: TSpeedButton Left = 144 Top = 5 Width = 25 Height = 25 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 33333337777FF377FF3333993370739993333377FF373F377FF3399993000339 993337777F777F3377F3393999707333993337F77737333337FF993399933333 399377F3777FF333377F993339903333399377F33737FF33377F993333707333 399377F333377FF3377F993333101933399377F333777FFF377F993333000993 399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399 99333773FF777F777733339993707339933333773FF7FFF77333333999999999 3333333777333777333333333999993333333333377777333333} NumGlyphs = 2 OnClick = SpeedButton9Click end object SpeedButton8: TSpeedButton Left = 88 Top = 29 Width = 25 Height = 25 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333FF33333333333330003FF3FFFFF3333777003000003333 300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333 330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000 333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000 339977FF777777773377000BFB03333333337773FF733333333F333000333333 3300333777333333337733333333333333003333333333333377333333333333 333333333333333333FF33333333333330003333333333333777333333333333 3000333333333333377733333333333333333333333333333333} NumGlyphs = 2 OnClick = SpeedButton8Click end object SpeedButton10: TSpeedButton Left = 120 Top = 5 Width = 25 Height = 25 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB 33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB 3333333773FFFF77333333333FBFBF33333333333777773333330000} NumGlyphs = 2 OnClick = SpeedButton10Click end object SpeedButton11: TSpeedButton Left = 120 Top = 29 Width = 49 Height = 25 Caption = '&Font' OnClick = SpeedButton11Click end object Bevel3: TBevel Left = 464 Top = 2 Width = 9 Height = 57 Shape = bsLeftLine end object Memo1: TMemo Left = 0 Top = 57 Width = 476 Height = 253 Align = alClient Lines.Strings = ( '#!/usr/bin/perl') ScrollBars = ssBoth TabOrder = 0 end object StatusBar1: TStatusBar Left = 0 Top = 310 Width = 476 Height = 20 Panels = <> SimplePanel = False end object TabbedNotebook1: TTabbedNotebook Left = 184 Top = 5 Width = 273 Height = 48 TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 2 object TTabPage Left = 4 Top = 24 Caption = 'Standard' object SpeedButton12: TSpeedButton Left = 0 Top = 2 Width = 57 Height = 17 Caption = 'Print' OnClick = SpeedButton12Click end object SpeedButton13: TSpeedButton Left = 64 Top = 2 Width = 57 Height = 17 Caption = 'Open' OnClick = SpeedButton13Click end object SpeedButton18: TSpeedButton Left = 128 Top = 2 Width = 65 Height = 17 Caption = 'Insert Value' OnClick = SpeedButton18Click end end object TTabPage Left = 4 Top = 24 Caption = 'Subs' object SpeedButton16: TSpeedButton Left = 0 Top = 2 Width = 65 Height = 17 Caption = 'New Sub' OnClick = SpeedButton16Click end object SpeedButton17: TSpeedButton Left = 72 Top = 2 Width = 65 Height = 17 Caption = 'End Sub' OnClick = SpeedButton17Click end end object TTabPage Left = 4 Top = 24 Caption = 'Content' object SpeedButton14: TSpeedButton Left = 0 Top = 2 Width = 57 Height = 17 Caption = 'Text' OnClick = SpeedButton14Click end object SpeedButton15: TSpeedButton Left = 64 Top = 2 Width = 57 Height = 17 Caption = 'HTML' OnClick = SpeedButton15Click end end end object MainMenu1: TMainMenu Left = 8 Top = 232 object File1: TMenuItem Caption = '&File' ShortCut = 0 object Open1: TMenuItem Caption = '&Open' ShortCut = 0 OnClick = Open1Click end object New1: TMenuItem Caption = '&New' ShortCut = 0 OnClick = New1Click end object SaveAs1: TMenuItem Caption = '&Save As...' ShortCut = 0 OnClick = SaveAs1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object ExitProgram1: TMenuItem Caption = 'E&xit Program' ShortCut = 0 OnClick = ExitProgram1Click end end object Edit1: TMenuItem Caption = '&Edit' ShortCut = 0 object Cut1: TMenuItem Caption = '&Cut' ShortCut = 16472 OnClick = Cut1Click end object Copy1: TMenuItem Caption = '&Copy' ShortCut = 16451 OnClick = Copy1Click end object Paste1: TMenuItem Caption = '&Paste' ShortCut = 16470 OnClick = Paste1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Find1: TMenuItem Caption = '&Find' ShortCut = 0 OnClick = Find1Click end end end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Filter = 'CGI (*.cgi)|*.cgi|Perl (*.pl)|*.pl|All Files (*.*)|*.*' Left = 40 Top = 232 end object SaveDialog1: TSaveDialog FileEditStyle = fsEdit Filter = 'CGI (*.cgi)|*.cgi|Perl (*.pl)|*.pl|All Files (*.*)|*.*' Left = 72 Top = 232 end object FindDialog1: TFindDialog Left = 104 Top = 232 end object PopupMenu1: TPopupMenu Left = 136 Top = 232 object TypeHTML1: TMenuItem Caption = 'Type: HTML' ShortCut = 0 end object TypePlainText1: TMenuItem Caption = 'Type: Plain Text' ShortCut = 0 end end object FontDialog1: TFontDialog Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 168 Top = 232 end end