PC World 1999 June/PCWorld_1999-06_cd.bin/software/Vyzkuste/Painter/Painter17.exe/0/RCDATA/TFRACTALSF/TFRACTALSF.txt

Text File | 1999-04-23 | 4KB | 231 lines

object FractalsF: TFractalsF
  Left = 480
  Top = 141
  BorderStyle = bsToolWindow
  Caption = 'Fractals'
  ClientHeight = 288
  ClientWidth = 206
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 18
    Height = 16
    Caption = 'X0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 40
    Width = 19
    Height = 16
    Caption = 'Y0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 16
    Top = 72
    Width = 18
    Height = 16
    Caption = 'X1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 16
    Top = 104
    Width = 19
    Height = 16
    Caption = 'Y1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object itercap: TLabel
    Left = 16
    Top = 160
    Width = 85
    Height = 16
    Caption = '16 Iterations'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object colorcap: TLabel
    Left = 16
    Top = 208
    Width = 66
    Height = 16
    Caption = '16 Colors'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object edX0: TEdit
    Left = 40
    Top = 8
    Width = 65
    Height = 24
    TabOrder = 0
    Text = '-2.25'
  end
  object edY0: TEdit
    Left = 40
    Top = 40
    Width = 65
    Height = 24
    TabOrder = 1
    Text = '-1.5'
  end
  object edX1: TEdit
    Left = 40
    Top = 72
    Width = 65
    Height = 24
    TabOrder = 2
    Text = '0.75'
  end
  object edY1: TEdit
    Left = 40
    Top = 104
    Width = 65
    Height = 24
    TabOrder = 3
    Text = '1.5'
  end
  object goFractal: TButton
    Left = 120
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Show'
    TabOrder = 4
    OnClick = goFractalClick
  end
  object ckMandel: TCheckBox
    Left = 40
    Top = 136
    Width = 73
    Height = 17
    Caption = 'Mandel'
    Checked = True
    State = cbChecked
    TabOrder = 5
  end
  object cboFractals: TComboBox
    Left = 16
    Top = 256
    Width = 177
    Height = 22
    Style = csOwnerDrawFixed
    Color = 12639424
    ItemHeight = 16
    PopupMenu = fracpop
    TabOrder = 6
    OnClick = cboFractalsClick
    OnDrawItem = cboFractalsDrawItem
  end
  object fraciter: TTrackBar
    Left = 16
    Top = 176
    Width = 169
    Height = 25
    Max = 64
    Min = 16
    Orientation = trHorizontal
    Frequency = 1
    Position = 16
    SelEnd = 0
    SelStart = 0
    TabOrder = 7
    ThumbLength = 20
    TickMarks = tmBottomRight
    TickStyle = tsNone
    OnChange = fraciterChange
  end
  object fracnc: TTrackBar
    Left = 16
    Top = 224
    Width = 169
    Height = 25
    Max = 64
    Min = 16
    Orientation = trHorizontal
    Frequency = 1
    Position = 16
    SelEnd = 0
    SelStart = 0
    TabOrder = 8
    ThumbLength = 20
    TickMarks = tmBottomRight
    TickStyle = tsNone
    OnChange = fracncChange
  end
  object goDefault: TButton
    Left = 120
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Default'
    TabOrder = 9
    OnClick = goDefaultClick
  end
  object fracPreview: TCheckBox
    Left = 120
    Top = 72
    Width = 89
    Height = 17
    Caption = 'Preview'
    TabOrder = 10
  end
  object fracpop: TPopupMenu
    Left = 80
    Top = 160
    object Add1: TMenuItem
      Caption = '&Add'
      OnClick = Add1Click
    end
    object Delete1: TMenuItem
      Caption = '&Delete'
      OnClick = Delete1Click
    end
    object Update1: TMenuItem
      Caption = '&Update'
      OnClick = Update1Click
    end
  end
end