object FormBasicJPSet: TFormBasicJPSet Left = 239 Top = 213 Width = 747 Height = 433 Caption = 'Form to be used as inherited.' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MMenu Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox Left = 101 Top = 0 Width = 538 Height = 387 Align = alClient Caption = 'View' TabOrder = 0 object PB: TImage Left = 2 Top = 15 Width = 534 Height = 370 Align = alClient Stretch = True OnMouseDown = PBMouseDown OnMouseMove = PBMouseMove end object Bevel0: TBevel Left = 184 Top = 160 Width = 3 Height = 50 Shape = bsLeftLine Visible = False end object Bevel1: TBevel Left = 208 Top = 160 Width = 50 Height = 2 Shape = bsTopLine Visible = False end object Bevel2: TBevel Left = 264 Top = 160 Width = 3 Height = 50 Shape = bsRightLine Visible = False end object Bevel3: TBevel Left = 208 Top = 216 Width = 49 Height = 2 Shape = bsBottomLine Visible = False end object SBZoom: TSpeedButton Left = 384 Top = 264 Width = 25 Height = 25 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33033333333333333F7F3333333333333000333333333333F777333333333333 000333333333333F777333333333333000333333333333F77733333333333300 033333333FFF3F777333333700073B703333333F7773F77733333307777700B3 33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773 3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703 33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773 333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333 333333773FF77333333333370007333333333333777333333333} NumGlyphs = 2 OnClick = SBZoomClick end object SBCancel: TSpeedButton Left = 408 Top = 264 Width = 25 Height = 25 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333333333333333333FFF33FF333FFF339993370733 999333777FF37FF377733339993000399933333777F777F77733333399970799 93333333777F7377733333333999399933333333377737773333333333990993 3333333333737F73333333333331013333333333333777FF3333333333910193 333333333337773FF3333333399000993333333337377737FF33333399900099 93333333773777377FF333399930003999333337773777F777FF339993370733 9993337773337333777333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 OnClick = SBCancelClick end end object GroupBox2: TGroupBox Left = 639 Top = 0 Width = 100 Height = 387 Align = alRight Caption = 'Control' TabOrder = 1 object Label1: TLabel Left = 32 Top = 352 Width = 2 Height = 10 end object LabPal: TLabel Left = 8 Top = 318 Width = 41 Height = 11 Caption = 'Palette:' end object LabR: TLabel Left = 8 Top = 168 Width = 15 Height = 24 Caption = 'R' Font.Color = clRed Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LabG: TLabel Left = 40 Top = 168 Width = 16 Height = 24 Caption = 'G' Font.Color = clGreen Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LabB: TLabel Left = 72 Top = 168 Width = 14 Height = 24 Caption = 'B' Font.Color = clNavy Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object BitBtnUp: TBitBtn Left = 16 Top = 14 Width = 73 Height = 25 TabOrder = 0 OnClick = BitBtnUpClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333 337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337 4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444 44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444 473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444 7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447 33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473 33333333333737F333333333333C943333333333333737333333333333339733 3333333333337F333333333333339333333333333333733333330000} NumGlyphs = 2 end object BitBtnLeft: TBitBtn Left = 16 Top = 38 Width = 33 Height = 25 TabOrder = 1 OnClick = BitBtnLeftClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333FF3333333333333744333333333333F773333333333337 44473333333333F777F3333333333744444333333333F7733733333333374444 4433333333F77333733333333744444447333333F7733337F333333744444444 433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999 9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333 CCC333333333333777FF33333333333333CC33333333333337730000} NumGlyphs = 2 end object BitBtnRight: TBitBtn Left = 56 Top = 38 Width = 33 Height = 25 TabOrder = 2 OnClick = BitBtnRightClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333FF3333333333333447333333333333377FFF33333333333744473333333 333337773FF3333333333444447333333333373F773FF3333333334444447333 33333373F3773FF3333333744444447333333337F333773FF333333444444444 733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999 999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC 33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333 333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333 33333777333333333333CC3333333333333377333333333333330000} NumGlyphs = 2 end object BitBtnDown: TBitBtn Left = 16 Top = 62 Width = 73 Height = 25 TabOrder = 3 OnClick = BitBtnDownClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333 333333333337F3333333333333397333333333333337FF333333333333C94333 3333333333737F333333333333C9473333333333337373F3333333333CC94433 3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443 333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444 33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444 4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444 443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333 444377733337F333777FC33333393333374373333337333333730000} NumGlyphs = 2 end object BitBtnZIN: TBitBtn Left = 16 Top = 101 Width = 33 Height = 25 TabOrder = 4 OnClick = BitBtnZINClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33033333333333333F7F3333333333333000333333333333F777333333333333 000333333333333F777333333333333000333333333333F77733333333333300 033333333FFF3F777333333700073B703333333F7773F77733333307777700B3 33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773 3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703 33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773 333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333 333333773FF77333333333370007333333333333777333333333} NumGlyphs = 2 end object BitBtnZOUT: TBitBtn Left = 56 Top = 101 Width = 33 Height = 25 TabOrder = 5 OnClick = BitBtnZOUTClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33033333333333333F7F3333333333333000333333333333F777333333333333 000333333333333F777333333333333000333333333333F77733333333333300 033333333FFF3F777333333700073B703333333F7773F77733333307777700B3 333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773 333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703 33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773 333337F3333337F333333078F8F870333333373FF333F7333333330777770333 333333773FF77333333333370007333333333333777333333333} NumGlyphs = 2 end object ProgBar: TProgressBar Left = 8 Top = 368 Width = 89 Height = 11 Min = 0 Max = 399 TabOrder = 6 end object BitBtnSave: TBitBtn Left = 16 Top = 133 Width = 73 Height = 25 Caption = 'Save' TabOrder = 7 OnClick = BitBtnSaveClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 end object TB1: TTrackBar Left = 8 Top = 335 Width = 89 Height = 33 Max = 200 Orientation = trHorizontal Frequency = 1 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 8 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TBRChange end object TBR: TTrackBar Left = 8 Top = 192 Width = 33 Height = 121 Max = 255 Min = -255 Orientation = trVertical Frequency = 1 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 9 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TBRChange end object TBG: TTrackBar Left = 40 Top = 192 Width = 33 Height = 121 Max = 255 Min = -255 Orientation = trVertical Frequency = 1 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 10 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TBRChange end object TBB: TTrackBar Left = 72 Top = 192 Width = 45 Height = 121 Max = 255 Min = -255 Orientation = trVertical Frequency = 1 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 11 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TBRChange end end object GroupBox4: TGroupBox Left = 0 Top = 0 Width = 101 Height = 387 Align = alLeft Caption = 'Position' TabOrder = 2 object Label4: TLabel Left = 8 Top = 16 Width = 22 Height = 24 Caption = 'X:' Font.Color = clBlack Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LabX1: TLabel Left = 16 Top = 40 Width = 31 Height = 13 Caption = 'LabX1' end object LabX2: TLabel Left = 16 Top = 56 Width = 31 Height = 13 Caption = 'LabX2' end object LabY: TLabel Left = 8 Top = 72 Width = 20 Height = 24 Caption = 'Y:' Font.Color = clBlack Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LabY1: TLabel Left = 16 Top = 96 Width = 31 Height = 13 Caption = 'LabY1' end object LabY2: TLabel Left = 16 Top = 112 Width = 31 Height = 13 Caption = 'LabY2' end object BevDiv: TBevel Left = 8 Top = 144 Width = 89 Height = 1 Shape = bsTopLine end object LabEX: TLabel Left = 8 Top = 152 Width = 22 Height = 24 Caption = 'X:' Font.Color = clBlack Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object LabEY: TLabel Left = 8 Top = 232 Width = 20 Height = 24 Caption = 'Y:' Font.Color = clBlack Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object BevX: TBevel Left = 8 Top = 16 Width = 89 Height = 57 end object BevY: TBevel Left = 8 Top = 72 Width = 89 Height = 57 end object EdX1: TEdit Left = 16 Top = 176 Width = 81 Height = 21 TabOrder = 0 end object EdX2: TEdit Left = 16 Top = 200 Width = 81 Height = 21 TabOrder = 1 end object EdY1: TEdit Left = 16 Top = 256 Width = 81 Height = 21 TabOrder = 2 end object EdY2: TEdit Left = 16 Top = 280 Width = 81 Height = 21 TabOrder = 3 end object BBEdit: TBitBtn Left = 16 Top = 320 Width = 75 Height = 17 Caption = 'Edit' TabOrder = 4 OnClick = BBEditClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF7733333033000000033333373377777773330000} NumGlyphs = 2 end object BBCancel: TBitBtn Left = 16 Top = 336 Width = 75 Height = 17 Caption = 'Cancel' TabOrder = 5 OnClick = BBCancelClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333333333333333333FFF33FF333FFF339993370733 999333777FF37FF377733339993000399933333777F777F77733333399970799 93333333777F7377733333333999399933333333377737773333333333990993 3333333333737F73333333333331013333333333333777FF3333333333910193 333333333337773FF3333333399000993333333337377737FF33333399900099 93333333773777377FF333399930003999333337773777F777FF339993370733 9993337773337333777333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object BBSubmit: TBitBtn Left = 16 Top = 352 Width = 75 Height = 25 Caption = 'Submit' TabOrder = 6 OnClick = BBSubmitClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303 333333333333337FF3333333333333903333333333333377FF33333333333399 03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999 99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999 99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099 03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003 33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333 33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333 3333777777333333333333333333333333333333333333333333} NumGlyphs = 2 end end object Timer1: TTimer Enabled = False Interval = 2000 OnTimer = Timer1Timer Left = 200 Top = 65520 end object SaveDialog1: TSaveDialog FileEditStyle = fsEdit FileName = '*.bmp' Filter = 'Windows Bitmap|*.bmp|All Files|*.*' Title = 'Save the Fractal Image' Left = 241 Top = 65520 end object MMenu: TMainMenu Left = 285 Top = 65520 object MMFile: TMenuItem Caption = '&File' ShortCut = 0 object MMSave: TMenuItem Caption = '&Save' ShortCut = 0 OnClick = BitBtnSaveClick end object MMPov: TMenuItem Caption = 'Export to &POV-Ray file...' ShortCut = 0 OnClick = MMPovClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object MMClose: TMenuItem Caption = '&Close' ShortCut = 0 OnClick = MMCloseClick end end object MMEdit: TMenuItem Caption = '&Edit' ShortCut = 0 object MMCopytoclipboard: TMenuItem Caption = '&Copy to clipboard' ShortCut = 0 OnClick = MMCopytoclipboardClick end end object MMMove: TMenuItem Caption = '&Move' ShortCut = 0 object MMUp: TMenuItem Caption = '&Up' ShortCut = 0 OnClick = BitBtnUpClick end object MMDown: TMenuItem Caption = '&Down' ShortCut = 0 OnClick = BitBtnDownClick end object MMLeft: TMenuItem Caption = '&Left' ShortCut = 0 OnClick = BitBtnLeftClick end object MMRight: TMenuItem Caption = '&Right' ShortCut = 0 OnClick = BitBtnRightClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object MMZoomIn: TMenuItem Caption = 'Zoom In' ShortCut = 0 OnClick = BitBtnZINClick end object MMZoomOut: TMenuItem Caption = 'Zoom Out' ShortCut = 0 OnClick = BitBtnZOUTClick end end object MMView: TMenuItem Caption = '&View' ShortCut = 0 object MMMinimal: TMenuItem Caption = '&Minimal' ShortCut = 0 OnClick = MMMinimalClick end object MMControl: TMenuItem Caption = '&Control' ShortCut = 0 OnClick = MMControlClick end object MMPosition: TMenuItem Caption = '&Position' ShortCut = 0 OnClick = MMPositionClick end object MMFull: TMenuItem Caption = '&Full' ShortCut = 0 OnClick = MMFullClick end end object MMOptions: TMenuItem Caption = '&Options' ShortCut = 0 object MMRightControl: TMenuItem Caption = 'Right Control' Checked = True ShortCut = 0 OnClick = MMRightControlClick end object MMLeftPosition: TMenuItem Caption = 'Left Position' Checked = True ShortCut = 0 OnClick = MMLeftPositionClick end end object MMWeb: TMenuItem Caption = '&Web' ShortCut = 0 object MMHP: TMenuItem Caption = '&Double Fractal Home Page' ShortCut = 0 OnClick = MMHPClick end object MMPovLink: TMenuItem Caption = 'POV-Ray Home Page' ShortCut = 0 OnClick = MMPovLinkClick end object N4: TMenuItem Caption = '-' ShortCut = 0 end object MMMandel: TMenuItem Caption = 'Mandelbrot &Source' ShortCut = 0 OnClick = MMMandelClick end object MM3D: TMenuItem Caption = '&3D Images' ShortCut = 0 OnClick = MM3DClick end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object MMOver: TMenuItem Caption = '&Overview' ShortCut = 0 OnClick = MMOverClick end object MMGettingStarted: TMenuItem Caption = '&Getting Started' ShortCut = 0 OnClick = MMGettingStartedClick end object MMTheViewBox: TMenuItem Caption = 'The &View Box' ShortCut = 0 OnClick = MMTheViewBoxClick end object MMTheControlBox: TMenuItem Caption = 'The &Control Box' ShortCut = 0 OnClick = MMTheControlBoxClick end object MMThePositionBox: TMenuItem Caption = 'The &Position Box' ShortCut = 0 OnClick = MMThePositionBoxClick end object N3: TMenuItem Caption = '-' ShortCut = 0 end object About1: TMenuItem Caption = '&About...' ShortCut = 0 OnClick = About1Click end end end object Web: TpvlUrl Left = 325 Top = 65520 end object SaveBMRT: TSaveDialog FileEditStyle = fsEdit Left = 373 Top = 65520 end object SavePOV: TSaveDialog FileEditStyle = fsEdit Filter = 'POV-Ray file|*.pov' Left = 421 Top = 65520 end end