Unit1.lfm

object Form1: TForm1
  Left = 355
  Height = 622
  Top = 124
  Width = 756
  ActiveControl = Button7
  AllowDropFiles = True
  Caption = 'Form1'
  ClientHeight = 622
  ClientWidth = 756
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDropFiles = FormDropFiles
  OnPaint = FormPaint
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object Label3: TLabel
    Left = 416
    Height = 13
    Top = 8
    Width = 65
    Caption = 'Status : ready'
    ParentColor = False
  end
  object Button1: TButton
    Left = 336
    Height = 25
    Top = 8
    Width = 75
    Caption = '&Raytrace'
    OnClick = Button1Click
    TabOrder = 0
  end
  object Button4: TButton
    Left = 670
    Height = 25
    Top = 584
    Width = 75
    Anchors = [akRight, akBottom]
    Caption = '&Close'
    OnClick = Button4Click
    TabOrder = 1
  end
  object Button2: TButton
    Left = 192
    Height = 25
    Top = 587
    Width = 97
    Anchors = [akLeft, akBottom]
    Caption = 'Save Scene &as'
    OnClick = Button2Click
    TabOrder = 2
  end
  object Button3: TButton
    Left = 312
    Height = 25
    Top = 587
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = '&Load Scene'
    OnClick = Button3Click
    TabOrder = 3
  end
  object Button6: TButton
    Left = 256
    Height = 25
    Top = 8
    Width = 75
    Caption = 'S&yntax check'
    OnClick = Button6Click
    TabOrder = 4
  end
  object Button7: TButton
    Left = 8
    Height = 25
    Top = 8
    Width = 89
    Caption = 'Sw&itch to image'
    OnClick = Button7Click
    TabOrder = 5
  end
  object Panel1: TPanel
    Left = 8
    Height = 539
    Top = 40
    Width = 737
    Anchors = [akTop, akLeft, akRight, akBottom]
    Caption = 'Panel1'
    ClientHeight = 539
    ClientWidth = 737
    TabOrder = 6
    object ListBox1: TListBox
      Left = 1
      Height = 123
      Top = 415
      Width = 735
      Align = alBottom
      ItemHeight = 0
      OnDblClick = ListBox1DblClick
      OnMouseDown = ListBox1MouseDown
      ScrollWidth = 731
      TabOrder = 0
    end
    inline SynEdit1: TSynEdit
      Left = 1
      Height = 414
      Top = 1
      Width = 735
      Align = alClient
      Font.Height = -16
      Font.Name = '-misc-dejavu sans mono-*-*-*-*-*-*-*-*-*-*-iso10646-1'
      Font.Pitch = fpFixed
      Font.Quality = fqNonAntialiased
      ParentColor = False
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 1
      OnKeyDown = SynEdit1KeyDown
      Gutter.Width = 61
      Gutter.MouseActions = <      
        item
          ClickCount = ccAny
          ClickDir = cdDown
          Command = emcOnMainGutterClick
        end      
        item
          Button = mbRight
          Command = emcContextMenu
        end>
      RightGutter.Width = 0
      RightGutter.MouseActions = <>
      Highlighter = SynAnySyn1
      Keystrokes = <      
        item
          Command = ecUp
          ShortCut = 38
        end      
        item
          Command = ecSelUp
          ShortCut = 8230
        end      
        item
          Command = ecScrollUp
          ShortCut = 16422
        end      
        item
          Command = ecDown
          ShortCut = 40
        end      
        item
          Command = ecSelDown
          ShortCut = 8232
        end      
        item
          Command = ecScrollDown
          ShortCut = 16424
        end      
        item
          Command = ecLeft
          ShortCut = 37
        end      
        item
          Command = ecSelLeft
          ShortCut = 8229
        end      
        item
          Command = ecWordLeft
          ShortCut = 16421
        end      
        item
          Command = ecSelWordLeft
          ShortCut = 24613
        end      
        item
          Command = ecRight
          ShortCut = 39
        end      
        item
          Command = ecSelRight
          ShortCut = 8231
        end      
        item
          Command = ecWordRight
          ShortCut = 16423
        end      
        item
          Command = ecSelWordRight
          ShortCut = 24615
        end      
        item
          Command = ecPageDown
          ShortCut = 34
        end      
        item
          Command = ecSelPageDown
          ShortCut = 8226
        end      
        item
          Command = ecPageBottom
          ShortCut = 16418
        end      
        item
          Command = ecSelPageBottom
          ShortCut = 24610
        end      
        item
          Command = ecPageUp
          ShortCut = 33
        end      
        item
          Command = ecSelPageUp
          ShortCut = 8225
        end      
        item
          Command = ecPageTop
          ShortCut = 16417
        end      
        item
          Command = ecSelPageTop
          ShortCut = 24609
        end      
        item
          Command = ecLineStart
          ShortCut = 36
        end      
        item
          Command = ecSelLineStart
          ShortCut = 8228
        end      
        item
          Command = ecEditorTop
          ShortCut = 16420
        end      
        item
          Command = ecSelEditorTop
          ShortCut = 24612
        end      
        item
          Command = ecLineEnd
          ShortCut = 35
        end      
        item
          Command = ecSelLineEnd
          ShortCut = 8227
        end      
        item
          Command = ecEditorBottom
          ShortCut = 16419
        end      
        item
          Command = ecSelEditorBottom
          ShortCut = 24611
        end      
        item
          Command = ecToggleMode
          ShortCut = 45
        end      
        item
          Command = ecCopy
          ShortCut = 16429
        end      
        item
          Command = ecPaste
          ShortCut = 8237
        end      
        item
          Command = ecDeleteChar
          ShortCut = 46
        end      
        item
          Command = ecCut
          ShortCut = 8238
        end      
        item
          Command = ecDeleteLastChar
          ShortCut = 8
        end      
        item
          Command = ecDeleteLastChar
          ShortCut = 8200
        end      
        item
          Command = ecDeleteLastWord
          ShortCut = 16392
        end      
        item
          Command = ecUndo
          ShortCut = 32776
        end      
        item
          Command = ecRedo
          ShortCut = 40968
        end      
        item
          Command = ecLineBreak
          ShortCut = 13
        end      
        item
          Command = ecSelectAll
          ShortCut = 16449
        end      
        item
          Command = ecCopy
          ShortCut = 16451
        end      
        item
          Command = ecBlockIndent
          ShortCut = 24649
        end      
        item
          Command = ecLineBreak
          ShortCut = 16461
        end      
        item
          Command = ecInsertLine
          ShortCut = 16462
        end      
        item
          Command = ecDeleteWord
          ShortCut = 16468
        end      
        item
          Command = ecBlockUnindent
          ShortCut = 24661
        end      
        item
          Command = ecPaste
          ShortCut = 16470
        end      
        item
          Command = ecCut
          ShortCut = 16472
        end      
        item
          Command = ecDeleteLine
          ShortCut = 16473
        end      
        item
          Command = ecDeleteEOL
          ShortCut = 24665
        end      
        item
          Command = ecUndo
          ShortCut = 16474
        end      
        item
          Command = ecRedo
          ShortCut = 24666
        end      
        item
          Command = ecGotoMarker0
          ShortCut = 16432
        end      
        item
          Command = ecGotoMarker1
          ShortCut = 16433
        end      
        item
          Command = ecGotoMarker2
          ShortCut = 16434
        end      
        item
          Command = ecGotoMarker3
          ShortCut = 16435
        end      
        item
          Command = ecGotoMarker4
          ShortCut = 16436
        end      
        item
          Command = ecGotoMarker5
          ShortCut = 16437
        end      
        item
          Command = ecGotoMarker6
          ShortCut = 16438
        end      
        item
          Command = ecGotoMarker7
          ShortCut = 16439
        end      
        item
          Command = ecGotoMarker8
          ShortCut = 16440
        end      
        item
          Command = ecGotoMarker9
          ShortCut = 16441
        end      
        item
          Command = ecSetMarker0
          ShortCut = 24624
        end      
        item
          Command = ecSetMarker1
          ShortCut = 24625
        end      
        item
          Command = ecSetMarker2
          ShortCut = 24626
        end      
        item
          Command = ecSetMarker3
          ShortCut = 24627
        end      
        item
          Command = ecSetMarker4
          ShortCut = 24628
        end      
        item
          Command = ecSetMarker5
          ShortCut = 24629
        end      
        item
          Command = ecSetMarker6
          ShortCut = 24630
        end      
        item
          Command = ecSetMarker7
          ShortCut = 24631
        end      
        item
          Command = ecSetMarker8
          ShortCut = 24632
        end      
        item
          Command = ecSetMarker9
          ShortCut = 24633
        end      
        item
          Command = EcFoldLevel1
          ShortCut = 41009
        end      
        item
          Command = EcFoldLevel2
          ShortCut = 41010
        end      
        item
          Command = EcFoldLevel1
          ShortCut = 41011
        end      
        item
          Command = EcFoldLevel1
          ShortCut = 41012
        end      
        item
          Command = EcFoldLevel1
          ShortCut = 41013
        end      
        item
          Command = EcFoldLevel6
          ShortCut = 41014
        end      
        item
          Command = EcFoldLevel7
          ShortCut = 41015
        end      
        item
          Command = EcFoldLevel8
          ShortCut = 41016
        end      
        item
          Command = EcFoldLevel9
          ShortCut = 41017
        end      
        item
          Command = EcFoldLevel0
          ShortCut = 41008
        end      
        item
          Command = EcFoldCurrent
          ShortCut = 41005
        end      
        item
          Command = EcUnFoldCurrent
          ShortCut = 41003
        end      
        item
          Command = EcToggleMarkupWord
          ShortCut = 32845
        end      
        item
          Command = ecNormalSelect
          ShortCut = 24654
        end      
        item
          Command = ecColumnSelect
          ShortCut = 24643
        end      
        item
          Command = ecLineSelect
          ShortCut = 24652
        end      
        item
          Command = ecTab
          ShortCut = 9
        end      
        item
          Command = ecShiftTab
          ShortCut = 8201
        end      
        item
          Command = ecMatchBracket
          ShortCut = 24642
        end      
        item
          Command = ecColSelUp
          ShortCut = 40998
        end      
        item
          Command = ecColSelDown
          ShortCut = 41000
        end      
        item
          Command = ecColSelLeft
          ShortCut = 40997
        end      
        item
          Command = ecColSelRight
          ShortCut = 40999
        end      
        item
          Command = ecColSelPageDown
          ShortCut = 40994
        end      
        item
          Command = ecColSelPageBottom
          ShortCut = 57378
        end      
        item
          Command = ecColSelPageUp
          ShortCut = 40993
        end      
        item
          Command = ecColSelPageTop
          ShortCut = 57377
        end      
        item
          Command = ecColSelLineStart
          ShortCut = 40996
        end      
        item
          Command = ecColSelLineEnd
          ShortCut = 40995
        end      
        item
          Command = ecColSelEditorTop
          ShortCut = 57380
        end      
        item
          Command = ecColSelEditorBottom
          ShortCut = 57379
        end>
      MouseActions = <      
        item
          ShiftMask = [ssShift, ssAlt]
          ClickDir = cdDown
          Command = emcStartSelections
          MoveCaret = True
        end      
        item
          Shift = [ssShift]
          ShiftMask = [ssShift, ssAlt]
          ClickDir = cdDown
          Command = emcStartSelections
          MoveCaret = True
          Option = 1
        end      
        item
          Shift = [ssAlt]
          ShiftMask = [ssShift, ssAlt]
          ClickDir = cdDown
          Command = emcStartColumnSelections
          MoveCaret = True
        end      
        item
          Shift = [ssShift, ssAlt]
          ShiftMask = [ssShift, ssAlt]
          ClickDir = cdDown
          Command = emcStartColumnSelections
          MoveCaret = True
          Option = 1
        end      
        item
          Button = mbRight
          Command = emcContextMenu
        end      
        item
          ClickCount = ccDouble
          ClickDir = cdDown
          Command = emcSelectWord
          MoveCaret = True
        end      
        item
          ClickCount = ccTriple
          ClickDir = cdDown
          Command = emcSelectLine
          MoveCaret = True
        end      
        item
          ClickCount = ccQuad
          ClickDir = cdDown
          Command = emcSelectPara
          MoveCaret = True
        end      
        item
          Button = mbMiddle
          ClickDir = cdDown
          Command = emcPasteSelection
          MoveCaret = True
        end      
        item
          Shift = [ssCtrl]
          ShiftMask = [ssShift, ssAlt, ssCtrl]
          Command = emcMouseLink
        end>
      MouseTextActions = <>
      MouseSelActions = <      
        item
          ClickDir = cdDown
          Command = emcStartDragMove
        end>
      Lines.Strings = (
        'SynEdit1'
      )
      VisibleSpecialChars = [vscSpace, vscTabAtLast]
      SelectedColor.BackPriority = 50
      SelectedColor.ForePriority = 50
      SelectedColor.FramePriority = 50
      SelectedColor.BoldPriority = 50
      SelectedColor.ItalicPriority = 50
      SelectedColor.UnderlinePriority = 50
      SelectedColor.StrikeOutPriority = 50
      BracketHighlightStyle = sbhsBoth
      BracketMatchColor.Background = clNone
      BracketMatchColor.Foreground = clNone
      BracketMatchColor.Style = [fsBold]
      FoldedCodeColor.Background = clNone
      FoldedCodeColor.Foreground = clGray
      FoldedCodeColor.FrameColor = clGray
      MouseLinkColor.Background = clNone
      MouseLinkColor.Foreground = clBlue
      LineHighlightColor.Background = clNone
      LineHighlightColor.Foreground = clNone
      OnChange = SynEdit1Change
      inline SynGutterPartList1: TSynGutterPartList
        object SynGutterMarks1: TSynGutterMarks
          Width = 24
          MouseActions = <>
        end
        object SynGutterLineNumber1: TSynGutterLineNumber
          Width = 21
          MouseActions = <>
          MarkupInfo.Background = clBtnFace
          MarkupInfo.Foreground = clNone
          DigitCount = 2
          ShowOnlyLineNumbersMultiplesOf = 1
          ZeroStart = False
          LeadingZeros = False
        end
        object SynGutterChanges1: TSynGutterChanges
          Width = 4
          MouseActions = <>
          ModifiedColor = 59900
          SavedColor = clGreen
        end
        object SynGutterSeparator1: TSynGutterSeparator
          Width = 2
          MouseActions = <>
          MarkupInfo.Background = clWhite
          MarkupInfo.Foreground = clGray
        end
        object SynGutterCodeFolding1: TSynGutterCodeFolding
          MouseActions = <          
            item
              Button = mbRight
              Command = emcCodeFoldContextMenu
            end          
            item
              ShiftMask = [ssShift]
              Button = mbMiddle
              ClickCount = ccAny
              ClickDir = cdDown
              Command = emcCodeFoldCollaps
            end          
            item
              Shift = [ssShift]
              ShiftMask = [ssShift]
              Button = mbMiddle
              ClickCount = ccAny
              ClickDir = cdDown
              Command = emcCodeFoldCollaps
              Option = 1
            end          
            item
              ClickCount = ccAny
              ClickDir = cdDown
              Command = emcNone
            end>
          MarkupInfo.Background = clNone
          MarkupInfo.Foreground = clGray
          MouseActionsExpanded = <          
            item
              ClickCount = ccAny
              ClickDir = cdDown
              Command = emcCodeFoldCollaps
            end>
          MouseActionsCollapsed = <          
            item
              Shift = [ssCtrl]
              ShiftMask = [ssCtrl]
              ClickCount = ccAny
              ClickDir = cdDown
              Command = emcCodeFoldExpand
            end          
            item
              ShiftMask = [ssCtrl]
              ClickCount = ccAny
              ClickDir = cdDown
              Command = emcCodeFoldExpand
              Option = 1
            end>
        end
      end
    end
  end
  object Button8: TButton
    Left = 8
    Height = 25
    Top = 587
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = '&New'
    OnClick = Button8Click
    TabOrder = 7
  end
  object Button9: TButton
    Left = 104
    Height = 25
    Top = 587
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = '&Save Scene'
    OnClick = Button9Click
    TabOrder = 8
  end
  object Button10: TButton
    Left = 176
    Height = 25
    Top = 8
    Width = 75
    Caption = 'Code &Format'
    OnClick = Button10Click
    TabOrder = 9
  end
  object Button11: TButton
    Left = 670
    Height = 25
    Top = 8
    Width = 75
    Anchors = [akTop, akRight]
    Caption = 'Help'
    OnClick = Button11Click
    TabOrder = 10
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.scene'
    Filter = 'Raytracer Scene|*.scene|All|*.*'
    Left = 320
    Top = 600
  end
  object SaveDialog2: TSaveDialog
    DefaultExt = '.scene'
    Filter = 'Raytracer Scene|*.scene|All|*.*'
    Left = 200
    Top = 600
  end
  object PopupMenu1: TPopupMenu
    Left = 24
    Top = 232
    object Replace1: TMenuItem
      Caption = 'Replace'
      ShortCut = 16466
      OnClick = Replace1Click
    end
    object Find1: TMenuItem
      Caption = 'Find'
      ShortCut = 16454
      OnClick = Find1Click
    end
    object Comment1: TMenuItem
      Caption = 'Toggle Comment'
      ShortCut = 16575
      OnClick = Comment1Click
    end
    object SaveScene1: TMenuItem
      Caption = 'Save Scene'
      ShortCut = 16467
      OnClick = SaveScene1Click
    end
    object CodeFormat1: TMenuItem
      Caption = 'Code Format'
      ShortCut = 16452
      OnClick = CodeFormat1Click
    end
    object Raytrace1: TMenuItem
      Caption = 'Raytrace'
      ShortCut = 120
      OnClick = Raytrace1Click
    end
    object Syntaxcheck1: TMenuItem
      Caption = 'Syntax check'
      ShortCut = 16504
      OnClick = Syntaxcheck1Click
    end
  end
  object FindDialog1: TFindDialog
    OnFind = FindDialog1Find
    Left = 24
    Top = 176
  end
  object SynAnySyn1: TSynAnySyn
    Enabled = False
    CommentAttri.Foreground = clGrayText
    Comments = [csAnsiStyle, csCStyle]
    DetectPreprocessor = False
    IdentifierChars = '!"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~�亗儎厗媿彁挀櫄湞灎、￥ウЖ┆辈炒刀犯购患骄柯门扑�'
    Objects.Strings = (
      'ACTIVE'
      'AMBIENTCOLOR'
      'BACKGROUNDCOLOR'
      'CULLFACEING'
      'CULLFACEMODE'
      'DIFFUSECOLOR'
      'EMISSIONCOLOR'
      'EXTERNAL'
      'EYE'
      'FILENAME'
      'FOG'
      'FOGCOLOR'
      'FOGMAX'
      'FOGMIN'
      'FOGMODE'
      'HIGHLIGHTEXPONENT'
      'IMAGEHEIGHT'
      'IMAGEWIDTH'
      'LIGHT'
      'LIGHTOVERFLOWMODE'
      'LOOKAT'
      'MATERIAL'
      'MAXDISTANCE'
      'MINDISTANCE'
      'ORTHO'
      'ORTHOPROJECTION'
      'POINTS'
      'POSITION'
      'QUAD'
      'RADIUS'
      'RAYTRACER'
      'REFLECTANCE'
      'REKURSIONDEPTH'
      'ROTATE'
      'SHADOWBORDER'
      'SHADOWBORDERMODE'
      'SMOOTHSHADOW'
      'SMOOTHSHADOWMODE'
      'SPECULARCOLOR'
      'SPHERE'
      'TEXTURE'
      'TEXTURECOORDINATES'
      'TEXTUREINTERPOLATION'
      'TEXTUREPARAMETER'
      'TRANSLATE'
      'TRANSPARENCE'
      'TRANSPARENCETEXTURE'
      'TRIANGLE'
      'VARIABLES'
    )
    NumberAttri.Foreground = clPurple
    StringAttri.Foreground = clOlive
    StringDelim = sdDoubleQuote
    Markup = False
    Entity = False
    DollarVariables = False
    ActiveDot = False
    Left = 24
    Top = 120
  end
  object SynAutoComplete1: TSynAutoComplete
    AutoCompleteList.Strings = (
      'Raytracer'
      'Material'
    )
    EndOfTokenChr = '()[]. '
    ShortCut = 16416
    ExecCommandID = ecSynAutoCompletionExecute
    Editor = SynEdit1
    Left = 24
    Top = 64
  end
end