gmain.dfm

smallbasic for linux

object FMain: TFMain
  Left = 218
  Top = 124
  Width = 751
  Height = 509
  Caption = 'SmallBASIC for Win32'
  Color = clBtnFace
  Font.Charset = GREEK_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Verdana'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = OnClose
  OnShow = OnShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlMain: TPanel
    Left = 0
    Top = 0
    Width = 743
    Height = 442
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 2
    TabOrder = 0
    object pnlMainWA: TPanel
      Left = 2
      Top = 32
      Width = 739
      Height = 408
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object Splitter1: TSplitter
        Left = 381
        Top = 0
        Width = 4
        Height = 408
        Cursor = crHSplit
        Align = alRight
      end
      object pnlWLeft: TPanel
        Left = 0
        Top = 0
        Width = 381
        Height = 408
        Align = alClient
        BevelOuter = bvNone
        BorderStyle = bsSingle
        TabOrder = 0
        object pgMain: TPageControl
          Left = 0
          Top = 0
          Width = 377
          Height = 404
          ActivePage = pgEdit
          Align = alClient
          TabOrder = 0
          object pgEdit: TTabSheet
            Caption = 'file.bas'
            object txtCode: TRichEdit
              Left = 0
              Top = 0
              Width = 369
              Height = 376
              Align = alClient
              Color = clNone
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = 'Courier New'
              Font.Style = []
              Lines.Strings = (
                'txtCode')
              ParentFont = False
              PlainText = True
              ScrollBars = ssBoth
              TabOrder = 0
              WantTabs = True
              WordWrap = False
              OnChange = txtCodeOnChange
              OnKeyUp = txtCodeOnKeyUp
            end
          end
        end
      end
      object pnlWRight: TPanel
        Left = 385
        Top = 0
        Width = 354
        Height = 408
        Align = alRight
        BevelOuter = bvNone
        BorderStyle = bsSingle
        Font.Charset = GREEK_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Bevel1: TBevel
          Left = 0
          Top = 353
          Width = 350
          Height = 4
          Align = alTop
          Style = bsRaised
        end
        object txtERR: TMemo
          Left = 0
          Top = 357
          Width = 350
          Height = 47
          Align = alClient
          BorderStyle = bsNone
          Color = clInfoBk
          Font.Charset = GREEK_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Verdana'
          Font.Style = [fsBold]
          Lines.Strings = (
            'stderr:')
          ParentFont = False
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 0
        end
        object pnlOut: TPanel
          Left = 0
          Top = 0
          Width = 350
          Height = 353
          Align = alTop
          BevelOuter = bvNone
          BevelWidth = 4
          Color = 6332576
          TabOrder = 1
          object imgOutput: TImage
            Left = 0
            Top = 0
            Width = 256
            Height = 345
          end
        end
      end
    end
    object ControlBar1: TControlBar
      Left = 2
      Top = 2
      Width = 739
      Height = 30
      Align = alTop
      AutoSize = True
      BevelEdges = [beTop]
      BevelKind = bkSoft
      BorderWidth = 1
      TabOrder = 1
      object ToolBar1: TToolBar
        Left = 11
        Top = 2
        Width = 478
        Height = 22
        Align = alClient
        Caption = 'ToolBar1'
        EdgeBorders = []
        EdgeInner = esNone
        EdgeOuter = esNone
        Flat = True
        Images = ImageList1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Wrapable = False
        object tbOpen: TToolButton
          Left = 0
          Top = 0
          Hint = 'Open file'
          Caption = '&Open'
          ImageIndex = 6
          MenuItem = mnuOpen
        end
        object tbSave: TToolButton
          Left = 23
          Top = 0
          Hint = 'Save file'
          Caption = '&Save'
          ImageIndex = 5
          MenuItem = mnuSave
        end
        object ToolButton1: TToolButton
          Left = 46
          Top = 0
          Width = 8
          Caption = 'ToolButton1'
          ImageIndex = 6
          Style = tbsSeparator
        end
        object ToolButton2: TToolButton
          Left = 54
          Top = 0
          Hint = 'Run'
          Caption = '&Run'
          ImageIndex = 4
          MenuItem = mnuRun
        end
        object ToolButton3: TToolButton
          Left = 77
          Top = 0
          Hint = 'Break'
          Caption = '&Break'
          ImageIndex = 3
          MenuItem = mnuBreak
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 442
    Width = 743
    Height = 21
    Panels = <>
    SimplePanel = True
    SimpleText = 'Hello'
  end
  object MainMenu1: TMainMenu
    Left = 224
    object mnuFile: TMenuItem
      Caption = '&File'
      SubMenuImages = ImageList1
      object mnuOpen: TMenuItem
        Caption = '&Open'
        Hint = 'Open file'
        ImageIndex = 6
        OnClick = mnuOpenClick
      end
      object mnuSave: TMenuItem
        Caption = '&Save'
        Hint = 'Save file'
        ImageIndex = 5
        OnClick = mnuSaveClick
      end
      object mnuSaveAS: TMenuItem
        Caption = 'Save &as...'
        Hint = 'Save as...'
        OnClick = mnuSaveASClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mnuRun: TMenuItem
        Caption = '&Run'
        Hint = 'Run'
        ImageIndex = 4
        ShortCut = 120
        OnClick = mnuRunClick
      end
      object mnuBreak: TMenuItem
        Caption = '&Break'
        Hint = 'Break'