home *** CD-ROM | disk | FTP | other *** search
Text File | 2002-08-26 | 48.2 KB | 1,676 lines |
- object MainForm: TMainForm
- Left = 209
- Top = 180
- Width = 583
- Height = 495
- Caption = 'Main'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- Menu = MainMenu1
- OldCreateOrder = True
- Position = poDefault
- ShowHint = True
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- PixelsPerInch = 96
- TextHeight = 13
- object ScrollBox1: TScrollBox
- Left = 0
- Top = 0
- Width = 325
- Height = 449
- HorzScrollBar.Increment = 10
- VertScrollBar.Increment = 10
- Align = alClient
- AutoScroll = False
- BorderStyle = bsNone
- Ctl3D = True
- ParentCtl3D = False
- TabOrder = 1
- OnMouseMove = ScrollBox1MouseMove
- OnResize = ScrollBox1Resize
- object Image1: TImage
- Left = 54
- Top = 10
- Width = 173
- Height = 173
- AutoSize = True
- PopupMenu = PopupImage
- OnMouseDown = Image1MouseDown
- OnMouseMove = Image1MouseMove
- OnMouseUp = Image1MouseUp
- end
- object Shape1: TShape
- Left = 208
- Top = 46
- Width = 41
- Height = 69
- Brush.Style = bsClear
- Pen.Mode = pmNot
- Pen.Style = psDot
- OnMouseDown = Shape1MouseDown
- OnMouseMove = Shape1MouseMove
- OnMouseUp = Shape1MouseUp
- end
- object SquareSE: TShape
- Left = 22
- Top = 20
- Width = 6
- Height = 6
- Cursor = crSizeNWSE
- Pen.Mode = pmNot
- OnMouseDown = SquareSEMouseDown
- OnMouseMove = SquareSEMouseMove
- OnMouseUp = SquareSEMouseUp
- end
- object SquareNO: TShape
- Left = 24
- Top = 24
- Width = 6
- Height = 6
- Cursor = crSizeNWSE
- Pen.Mode = pmNot
- OnMouseDown = SquareNOMouseDown
- OnMouseMove = SquareNOMouseMove
- OnMouseUp = SquareNOMouseUp
- end
- object SquareNE: TShape
- Left = 28
- Top = 28
- Width = 6
- Height = 6
- Cursor = crSizeNESW
- Pen.Mode = pmNot
- OnMouseDown = SquareNEMouseDown
- OnMouseMove = SquareNEMouseMove
- OnMouseUp = SquareNEMouseUp
- end
- object SquareSO: TShape
- Left = 32
- Top = 32
- Width = 6
- Height = 6
- Cursor = crSizeNESW
- Pen.Mode = pmNot
- OnMouseDown = SquareSOMouseDown
- OnMouseMove = SquareSOMouseMove
- OnMouseUp = SquareSOMouseUp
- end
- end
- object pnParam: TPanel
- Left = 325
- Top = 0
- Width = 250
- Height = 449
- Align = alRight
- BevelOuter = bvLowered
- Caption = 'pnParam'
- ParentColor = True
- TabOrder = 0
- object pnCommand: TPanel
- Left = 1
- Top = 1
- Width = 248
- Height = 60
- Align = alTop
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object sbStart: TSpeedButton
- Left = 4
- Top = 4
- Width = 50
- Height = 25
- Hint = 'Start or stop drawing the fractal choosen'
- Caption = 'Start'
- Flat = True
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = sbStartClick
- end
- object sbZoomIn: TSpeedButton
- Left = 57
- Top = 4
- Width = 25
- Height = 25
- Hint = 'Zoom in (4x)'
- GroupIndex = 1
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33033333333333333F7F3333333333333000333333333333F777333333333333
- 000333333333333F777333333333333000333333333333F77733333333333300
- 033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
- 33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
- 3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
- 33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
- 333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
- 333333773FF77333333333370007333333333333777333333333}
- NumGlyphs = 2
- OnClick = sbZoomInClick
- end
- object sbPause: TSpeedButton
- Left = 4
- Top = 32
- Width = 50
- Height = 25
- Hint = 'Pause or continue drawing'
- Caption = 'Pause'
- Flat = True
- OnClick = sbPauseClick
- end
- object sbZoomOut: TSpeedButton
- Left = 85
- Top = 4
- Width = 25
- Height = 25
- Hint = 'Zoom out (4x)'
- GroupIndex = 1
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33033333333333333F7F3333333333333000333333333333F777333333333333
- 000333333333333F777333333333333000333333333333F77733333333333300
- 033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
- 333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773
- 333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703
- 33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773
- 333337F3333337F333333078F8F870333333373FF333F7333333330777770333
- 333333773FF77333333333370007333333333333777333333333}
- NumGlyphs = 2
- OnClick = sbZoomOutClick
- end
- object sbZoom: TSpeedButton
- Left = 113
- Top = 4
- Width = 25
- Height = 25
- Hint = 'Free Zoom'
- GroupIndex = 1
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33033333333333333F7F3333333333333000333333333333F777333333333333
- 000333333333333F777333333333333000333333333333F77733333333333300
- 033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
- 333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773
- 333337333333373F333307F8F8F8F70333337F333333337F3333078F8F8F8703
- 33337F333333337F333307F8F8F8F703333373F3333333733333778F8F8F8773
- 333337F3333337F333333078F8F870333333373FF333F7333333330777770333
- 333333773FF77333333333370007333333333333777333333333}
- NumGlyphs = 2
- OnClick = sbZoomClick
- end
- object sbSave: TSpeedButton
- Left = 85
- Top = 32
- Width = 25
- Height = 25
- Hint = 'Save current image as a picture'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
- 00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
- 00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
- 00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
- 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
- 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
- 00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
- 0003737FFFFFFFFF7F7330099999999900333777777777777733}
- NumGlyphs = 2
- OnClick = SaveImage1Click
- end
- object sbOpenDoc: TSpeedButton
- Left = 57
- Top = 32
- Width = 25
- Height = 25
- Hint = 'Open a new fractal file'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
- 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
- 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
- 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
- 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
- B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
- 3BB33773333773333773B333333B3333333B7333333733333337}
- NumGlyphs = 2
- OnClick = Open1Click
- end
- object sbSaveDoc: TSpeedButton
- Left = 113
- Top = 32
- Width = 25
- Height = 25
- Hint = 'Save current image as parameters file'
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
- 7700333333337777777733333333008088003333333377F73377333333330088
- 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
- 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
- FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
- 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
- 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
- 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
- 93337FFFF7737777733300000033333333337777773333333333}
- NumGlyphs = 2
- OnClick = Save1Click
- end
- object Bevel2: TBevel
- Left = 140
- Top = 4
- Width = 5
- Height = 53
- Shape = bsLeftLine
- end
- object State: TPanel
- Left = 144
- Top = 4
- Width = 101
- Height = 25
- BevelOuter = bvLowered
- Caption = 'State'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object Crono: TPanel
- Left = 144
- Top = 32
- Width = 101
- Height = 25
- BevelOuter = bvLowered
- Caption = 'Crono'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- end
- object pcParameters: TPageControl
- Left = 1
- Top = 61
- Width = 248
- Height = 316
- ActivePage = tsColors
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MultiLine = True
- ParentFont = False
- TabOrder = 1
- object tsData: TTabSheet
- Caption = 'Data'
- object edComment: TMemo
- Left = 0
- Top = 345
- Width = 240
- Height = 134
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 255
- ParentFont = False
- ScrollBars = ssVertical
- TabOrder = 0
- end
- object pnTopData: TPanel
- Left = 0
- Top = 0
- Width = 240
- Height = 345
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- object Label7: TLabel
- Left = 12
- Top = 24
- Width = 90
- Height = 14
- Caption = 'Real part of center'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Label8: TLabel
- Left = 12
- Top = 59
- Width = 115
- Height = 14
- Caption = 'Imaginary part of center'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Label9: TLabel
- Left = 12
- Top = 94
- Width = 105
- Height = 14
- Caption = 'Magnification (Y axis)'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Label10: TLabel
- Left = 12
- Top = 138
- Width = 44
- Height = 14
- Caption = 'Iterations'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Label12: TLabel
- Left = 11
- Top = 6
- Width = 19
- Height = 14
- Caption = 'Title'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Label19: TLabel
- Left = 12
- Top = 216
- Width = 38
- Height = 14
- Caption = 'Formula'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Label17: TLabel
- Left = 12
- Top = 190
- Width = 40
- Height = 14
- Caption = 'Color by'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Label15: TLabel
- Left = 11
- Top = 294
- Width = 142
- Height = 14
- Caption = 'Imaginary part of Perturbation'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Label13: TLabel
- Left = 11
- Top = 258
- Width = 117
- Height = 14
- Caption = 'Real part of perturbation'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Label11: TLabel
- Left = 12
- Top = 164
- Width = 32
- Height = 14
- Caption = 'Bailout'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Comments: TLabel
- Left = 12
- Top = 331
- Width = 50
- Height = 14
- Caption = 'Comments'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object btDelta: TSpeedButton
- Left = 107
- Top = 236
- Width = 129
- Height = 21
- Caption = 'Rect &Coordinates...'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- OnClick = btDeltaClick
- end
- object edRPoC: TEdit
- Left = 7
- Top = 38
- Width = 229
- Height = 21
- Hint = 'Coordinate X of image center'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Text = 'edRPoC'
- end
- object edIPoC: TEdit
- Left = 7
- Top = 73
- Width = 229
- Height = 21
- Hint = 'Coordinate Y of image center'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- Text = 'edIPoC'
- end
- object edMagnit: TEdit
- Left = 7
- Top = 108
- Width = 229
- Height = 21
- Hint = 'Range to show. Tips: high values need high iteractions usually'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- Text = 'edMagnit'
- end
- object edIter: TEdit
- Left = 70
- Top = 134
- Width = 166
- Height = 21
- Hint =
- 'Maximum iteractions. Tips: high values means high times to compl' +
- 'ete'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- Text = 'edIter'
- OnChange = edIterChange
- end
- object edName: TEdit
- Left = 43
- Top = 3
- Width = 193
- Height = 21
- Hint = 'Select a name to archive this drawing'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- Text = 'edName'
- OnChange = edNameChange
- end
- object cbJulia: TCheckBox
- Left = 12
- Top = 239
- Width = 89
- Height = 18
- Hint =
- 'Use values as in Julia Set (checked) or in Mandel Set (unchecked' +
- ')'
- Caption = 'Julia mode'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 8
- OnClick = cbJuliaClick
- end
- object cbFormula: TComboBox
- Left = 70
- Top = 212
- Width = 166
- Height = 21
- Hint = 'Formula to iterate.'
- Style = csDropDownList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 0
- ParentFont = False
- TabOrder = 7
- OnClick = cbFormulaClick
- end
- object cbApply: TComboBox
- Left = 70
- Top = 186
- Width = 166
- Height = 21
- Hint = 'Value on which colors are applied by'
- Style = csDropDownList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 0
- ParentFont = False
- TabOrder = 6
- OnClick = cbApplyClick
- end
- object edImagPerturbation: TEdit
- Left = 7
- Top = 308
- Width = 229
- Height = 21
- Hint = 'Coordinate Y in Julia Set'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 10
- Text = 'edImagPerturbation'
- end
- object edRealPerturbation: TEdit
- Left = 7
- Top = 272
- Width = 229
- Height = 21
- Hint = 'Coordinate X in Julia Set'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 9
- Text = 'edRealPerturbation'
- end
- object edBailout: TEdit
- Left = 70
- Top = 160
- Width = 166
- Height = 21
- Hint = 'Maximum distance for orbits. Tips: range between 4 and 128'
- Ctl3D = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 5
- Text = 'edBailout'
- end
- end
- end
- object tsColors: TTabSheet
- Caption = 'Colors'
- ImageIndex = 3
- object Label20: TLabel
- Left = 3
- Top = 7
- Width = 84
- Height = 13
- Caption = 'Drawing algorithm'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Label22: TLabel
- Left = 3
- Top = 84
- Width = 60
- Height = 13
- Caption = 'Color cycling'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object btRew: TSpeedButton
- Left = 72
- Top = 132
- Width = 23
- Height = 23
- GroupIndex = 1
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
- 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
- 70E337F33333333337F3E0F33333333370E337F3333F3FF337F3E0F333030033
- 70E337F3337F77F337F3E0F33003003370E337F3377F77F337F3E0F300030033
- 70E337F3777F77F337F3E0F33003003370E337F3377F77F337F3E0F333030033
- 70E337F33373773337F3E0F33333333370E337F33333333337F3E0F333333333
- 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
- 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
- NumGlyphs = 2
- OnClick = btRewClick
- end
- object btStop: TSpeedButton
- Left = 106
- Top = 132
- Width = 23
- Height = 23
- GroupIndex = 1
- Down = True
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
- 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
- 70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
- 70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
- 70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
- 70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
- 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
- 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
- NumGlyphs = 2
- end
- object btFFor: TSpeedButton
- Left = 142
- Top = 132
- Width = 23
- Height = 23
- GroupIndex = 1
- Flat = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
- 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
- 70E337F33333333337F3E0F33333333370E337F333FF3F3337F3E0F330030333
- 70E337F3377F7FF337F3E0F33003003370E337F3377F77FF37F3E0F330030003
- 70E337F3377F777337F3E0F33003003370E337F3377F773337F3E0F330030333
- 70E337F33773733337F3E0F33333333370E337F33333333337F3E0F333333333
- 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
- 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
- NumGlyphs = 2
- OnClick = btFForClick
- end
- object Label21: TLabel
- Left = 3
- Top = 32
- Width = 74
- Height = 13
- Caption = 'Color sequence'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object btEditColors: TSpeedButton
- Left = 100
- Top = 56
- Width = 139
- Height = 21
- Caption = 'E&dit Color Sequence...'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- OnClick = btEditColorsClick
- end
- object cbAlgo: TComboBox
- Left = 98
- Top = 3
- Width = 141
- Height = 21
- Style = csDropDownList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 0
- OnClick = cbAlgoClick
- end
- object ttOffset: TTrackBar
- Left = 0
- Top = 99
- Width = 235
- Height = 29
- Max = 99
- Orientation = trHorizontal
- Frequency = 10
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 3
- ThumbLength = 15
- TickMarks = tmTopLeft
- TickStyle = tsAuto
- OnChange = ttOffsetChange
- end
- object cbColors: TComboBox
- Left = 98
- Top = 28
- Width = 141
- Height = 21
- Style = csDropDownList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 1
- OnChange = cbColorsChange
- end
- object cbPreview: TCheckBox
- Left = 4
- Top = 56
- Width = 73
- Height = 17
- Caption = 'Preview'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 2
- OnClick = cbPreviewClick
- end
- end
- object tsSize: TTabSheet
- Caption = 'Size'
- object pnClientColor: TPanel
- Left = 0
- Top = 0
- Width = 240
- Height = 219
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object Label14: TLabel
- Left = 11
- Top = 7
- Width = 28
- Height = 13
- Caption = 'Width'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Label16: TLabel
- Left = 11
- Top = 31
- Width = 31
- Height = 13
- Caption = 'Height'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object Label18: TLabel
- Left = 11
- Top = 53
- Width = 56
- Height = 13
- Caption = 'Aspect ratio'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = False
- end
- object edWidth: TEdit
- Left = 52
- Top = 3
- Width = 57
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- Text = '20'
- OnChange = edWidthChange
- end
- object edHeight: TEdit
- Left = 52
- Top = 27
- Width = 57
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Text = '20'
- OnChange = edHeightChange
- end
- object edAspectR: TEdit
- Left = 4
- Top = 67
- Width = 105
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- Text = 'edAspectR'
- OnChange = edAspectRChange
- end
- object lbFormats: TListBox
- Left = 116
- Top = 0
- Width = 124
- Height = 219
- Align = alRight
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 15
- Items.Strings = (
- 'Custom'
- '320 x 200 Not Sq.'
- '320 x 240 Square'
- '320 x 400 Not Sq.'
- '500 x 500 Square'
- '550 x 530 Square'
- '640 x 400 Not Sq.'
- '640 x 480 Square'
- '770 x 700 Square'
- '800 x 600 Square'
- '1024 x 768 Square'
- '1152 x 864 Square'
- '1280 x 1024 Square'
- '1600 x 1200 Square')
- ParentFont = False
- TabOrder = 3
- OnClick = lbFormatsClick
- end
- end
- end
- object tsHistory: TTabSheet
- Caption = 'History List'
- object sgHistory: TStringGrid
- Left = 0
- Top = 57
- Width = 240
- Height = 231
- Align = alClient
- Color = clBtnFace
- ColCount = 2
- DefaultRowHeight = 16
- FixedCols = 0
- RowCount = 21
- FixedRows = 0
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- Options = [goHorzLine]
- ParentFont = False
- TabOrder = 0
- ColWidths = (
- 82
- 168)
- end
- object pnTopList: TPanel
- Left = 0
- Top = 0
- Width = 240
- Height = 57
- Align = alTop
- BevelOuter = bvLowered
- TabOrder = 1
- object btDefault: TSpeedButton
- Left = 6
- Top = 4
- Width = 52
- Height = 21
- Hint = 'Click here to redraw default image'
- Caption = 'Default'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- OnClick = btDefaultClick
- end
- object btPrev: TSpeedButton
- Left = 187
- Top = 4
- Width = 52
- Height = 21
- Hint = 'Redraw previous image.'
- Caption = 'Previous'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- OnClick = btPrevClick
- end
- object btDel: TSpeedButton
- Left = 126
- Top = 4
- Width = 52
- Height = 21
- Hint = 'Delete current entry of list.'
- Caption = 'Delete'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- OnClick = btDelClick
- end
- object btRestore: TSpeedButton
- Left = 66
- Top = 4
- Width = 52
- Height = 21
- Hint = 'Select a previous image and click here to redraw it'
- Caption = 'Restore'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnClick = btRestoreClick
- end
- object cbHistory: TComboBox
- Left = 5
- Top = 29
- Width = 234
- Height = 24
- Hint = 'Select here one of previous images'
- Style = csDropDownList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 0
- ParentFont = False
- TabOrder = 0
- OnChange = cbHistoryChange
- end
- end
- end
- end
- object pnInfo: TPanel
- Left = 1
- Top = 377
- Width = 248
- Height = 71
- Align = alBottom
- TabOrder = 2
- object Label1: TLabel
- Left = 4
- Top = 4
- Width = 22
- Height = 13
- Caption = 'Real'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = False
- end
- object Label2: TLabel
- Left = 4
- Top = 20
- Width = 26
- Height = 13
- Caption = 'Imag.'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = False
- end
- object Label3: TLabel
- Left = 4
- Top = 36
- Width = 27
- Height = 13
- Caption = 'Value'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = False
- end
- object Label4: TLabel
- Left = 194
- Top = 4
- Width = 8
- Height = 13
- Caption = 'R'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = False
- end
- object Label5: TLabel
- Left = 194
- Top = 20
- Width = 8
- Height = 13
- Caption = 'G'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = False
- end
- object Label6: TLabel
- Left = 194
- Top = 36
- Width = 7
- Height = 13
- Caption = 'B'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = False
- end
- object Percent: TProgressBar
- Left = 4
- Top = 52
- Width = 241
- Height = 17
- Min = 0
- Max = 100
- TabOrder = 0
- end
- object stReal: TStaticText
- Left = 34
- Top = 2
- Width = 157
- Height = 16
- AutoSize = False
- BorderStyle = sbsSunken
- Caption = 'stReal'
- TabOrder = 1
- Transparent = False
- end
- object stImag: TStaticText
- Left = 34
- Top = 18
- Width = 157
- Height = 16
- AutoSize = False
- BorderStyle = sbsSunken
- Caption = 'stImag'
- TabOrder = 2
- Transparent = False
- end
- object stIter: TStaticText
- Left = 34
- Top = 34
- Width = 157
- Height = 16
- AutoSize = False
- BorderStyle = sbsSunken
- Caption = 'stIter'
- TabOrder = 3
- Transparent = False
- end
- object stR: TStaticText
- Left = 205
- Top = 2
- Width = 40
- Height = 16
- AutoSize = False
- BorderStyle = sbsSunken
- Caption = 'StaticText1'
- TabOrder = 4
- Transparent = False
- end
- object stG: TStaticText
- Left = 205
- Top = 18
- Width = 40
- Height = 16
- AutoSize = False
- BorderStyle = sbsSunken
- Caption = 'StaticText1'
- TabOrder = 5
- Transparent = False
- end
- object stB: TStaticText
- Left = 205
- Top = 34
- Width = 40
- Height = 16
- AutoSize = False
- BorderStyle = sbsSunken
- Caption = 'StaticText1'
- TabOrder = 6
- Transparent = False
- end
- end
- end
- object SaveDialog1: TSaveDialog
- Left = 72
- Top = 284
- end
- object MainMenu1: TMainMenu
- Left = 92
- Top = 228
- object File1: TMenuItem
- Caption = '&File'
- HelpContext = 6
- object New1: TMenuItem
- Caption = '&New'
- ShortCut = 16462
- OnClick = New1Click
- end
- object Open1: TMenuItem
- Caption = '&Open File...'
- ShortCut = 16463
- OnClick = Open1Click
- end
- object Save1: TMenuItem
- Caption = '&Save File...'
- ShortCut = 16467
- OnClick = Save1Click
- end
- object SaveImage1: TMenuItem
- Caption = 'Save &Image...'
- ShortCut = 16457
- OnClick = SaveImage1Click
- end
- object SavetoDesktop1: TMenuItem
- Caption = 'Save to &Desktop'
- OnClick = SavetoDesktop1Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object AddList1: TMenuItem
- Caption = '&Add List...'
- OnClick = AddList1Click
- end
- object SaveList1: TMenuItem
- Caption = 'Save &List...'
- OnClick = SaveList1Click
- end
- object N10: TMenuItem
- Caption = '-'
- end
- object PrinterSetup1: TMenuItem
- Caption = 'Pri&nter Setup...'
- OnClick = PrinterSetup1Click
- end
- object Print1: TMenuItem
- Caption = '&Print'
- OnClick = Print1Click
- end
- object N9: TMenuItem
- Caption = '-'
- end
- object Exit1: TMenuItem
- Caption = '&Exit'
- OnClick = Exit1Click
- end
- end
- object Edit1: TMenuItem
- Caption = '&Edit'
- object UndoFractal1: TMenuItem
- Caption = '&Previous Fractal'
- ShortCut = 16474
- OnClick = UndoFractal1Click
- end
- object N8: TMenuItem
- Caption = '-'
- end
- object CopyImage1: TMenuItem
- Caption = '&Copy Image'
- ShortCut = 16461
- OnClick = CopyImage1Click
- end
- object CopyValues1: TMenuItem
- Caption = 'Copy P&arams to clipboard'
- ShortCut = 16464
- OnClick = CopyValues1Click
- end
- end
- object Fractal1: TMenuItem
- Caption = 'F&ractal'
- HelpContext = 6
- object Start1: TMenuItem
- Caption = '&Start'
- ShortCut = 113
- OnClick = Start1Click
- end
- object Pause1: TMenuItem
- Caption = '&Pause'
- ShortCut = 114
- OnClick = Pause1Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object mmimage2: TMenuItem
- Caption = 'Image'
- end
- end
- object Filter1: TMenuItem
- Caption = 'Fil&ter'
- object None1: TMenuItem
- Caption = '&None'
- GroupIndex = 1
- RadioItem = True
- OnClick = None1Click
- end
- object Bumper1: TMenuItem
- Caption = '&Bumper'
- GroupIndex = 1
- RadioItem = True
- OnClick = Bumper1Click
- end
- object Colorbumper1: TMenuItem
- Caption = 'C&olor bumper'
- GroupIndex = 1
- RadioItem = True
- OnClick = Colorbumper1Click
- end
- object Crystals1: TMenuItem
- Caption = '&Crystals'
- GroupIndex = 1
- RadioItem = True
- OnClick = Crystals1Click
- end
- object Edge1: TMenuItem
- Caption = '&Edge'
- GroupIndex = 1
- RadioItem = True
- OnClick = Edge1Click
- end
- object Equalizecolors1: TMenuItem
- Caption = 'E&qualize colors'
- GroupIndex = 1
- RadioItem = True
- OnClick = Equalizecolors1Click
- end
- object Heights1: TMenuItem
- Caption = '&Heights'
- GroupIndex = 1
- RadioItem = True
- OnClick = Heights1Click
- end
- object Lines1: TMenuItem
- Caption = '&Lines'
- GroupIndex = 1
- RadioItem = True
- OnClick = Lines1Click
- end
- object Noise1: TMenuItem
- Caption = '&Random noise'
- GroupIndex = 1
- RadioItem = True
- OnClick = Noise1Click
- end
- object Sharpenedges1: TMenuItem
- Caption = '&Sharpen edges'
- GroupIndex = 1
- RadioItem = True
- OnClick = Sharpenedges1Click
- end
- object Average1: TMenuItem
- Caption = '&Average'
- GroupIndex = 1
- RadioItem = True
- OnClick = Average1Click
- end
- end
- object Options1: TMenuItem
- Caption = '&Options'
- HelpContext = 6
- object FullScreenMode1: TMenuItem
- Caption = 'Full Screen Mode'
- ShortCut = 16454
- OnClick = FullScreen1Click
- end
- object ShowcontrolPanel1: TMenuItem
- Caption = 'Show control &Panel'
- OnClick = ControlPanel1Click
- end
- object Savefilein83format1: TMenuItem
- Caption = 'Save &File in 8.3 Format'
- OnClick = Savefilein83format1Click
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object Restoreoldvalues1: TMenuItem
- Caption = '&Restore Old Values'
- OnClick = Restoreoldvalues1Click
- end
- object DefaultValues1: TMenuItem
- Caption = '&Default Values'
- OnClick = DefaultValues1Click
- end
- object SelectStartingFractal1: TMenuItem
- Caption = '&Select Starting Values...'
- OnClick = SelectStartingFractal1Click
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object EditColors1: TMenuItem
- Caption = '&Edit Colors...'
- OnClick = EditColors1Click
- end
- object TestSpeed1: TMenuItem
- Caption = '&Test Floating Point Speed...'
- OnClick = TestSpeed1Click
- end
- object Colors1: TMenuItem
- Caption = 'Colors'
- Visible = False
- OnClick = Colors1Click
- end
- end
- object Tools1: TMenuItem
- Caption = 'Tools'
- object Animator1: TMenuItem
- Caption = 'Animator...'
- ShortCut = 16449
- OnClick = Animator1Click
- end
- object SuperPoster2: TMenuItem
- Caption = 'Poster compositor...'
- ShortCut = 16465
- OnClick = SuperPoster2Click
- end
- end
- object Help1: TMenuItem
- Caption = '&Help'
- object Summary1: TMenuItem
- Caption = '&Contents'
- OnClick = Summary1Click
- end
- object N7: TMenuItem
- Caption = '-'
- end
- object About1: TMenuItem
- Caption = '&About...'
- OnClick = About1Click
- end
- end
- end
- object OpenDialog1: TOpenDialog
- Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing]
- Left = 136
- Top = 284
- end
- object PrinterSetupDialog1: TPrinterSetupDialog
- Left = 216
- Top = 282
- end
- object PopupImage: TPopupMenu
- OnPopup = PopupImagePopup
- Left = 176
- Top = 230
- object CenterHere1: TMenuItem
- Caption = 'Center &Here Now'
- Default = True
- OnClick = Center
- end
- object JuliaHere1: TMenuItem
- AutoHotkeys = maAutomatic
- Caption = 'Ju&lia Here'
- OnClick = JuliaHere1Click
- end
- object Zoom21: TMenuItem
- Caption = 'Zoom In &Now'
- OnClick = Zoom21Click
- end
- object ZoomOutNow1: TMenuItem
- Caption = 'Zoom Ou&t Now'
- OnClick = ZoomOutNow1Click
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object ZoomIn2: TMenuItem
- Caption = '&Zoom In'
- OnClick = ZoomIn2Click
- end
- object ZoomOut2: TMenuItem
- Caption = 'Zoom &Out'
- OnClick = ZoomOut2Click
- end
- object ZoomRect1: TMenuItem
- Caption = '&Free Zoom'
- OnClick = ZoomRect1Click
- end
- object N6: TMenuItem
- Caption = '-'
- end
- object Showorbits1: TMenuItem
- Caption = '&Show Orbits'
- OnClick = Showorbits1Click
- end
- object ShowRectangles1: TMenuItem
- Caption = 'Show &Grids'
- OnClick = ShowRectangles1Click
- end
- object ShowJulia1: TMenuItem
- Caption = 'Show &Julia'
- OnClick = ShowJulia1Click
- end
- object N11: TMenuItem
- Caption = '-'
- end
- object CopyCoordinates1: TMenuItem
- Caption = 'Co&py Coordinates'
- OnClick = CopyCoordinates1Click
- end
- object Area1: TMenuItem
- Caption = 'Fractal &Info'
- OnClick = Area1Click
- end
- end
- end
-