PC World Plus! (NZ) 2001 June/HDC50.iso/Runimage/Delphi50/Bin/CORIDE50.BPL/0/RCDATA/TEDITWINDOW/TEDITWINDOW.txt

Text File | 1999-08-11 | 6KB | 281 lines

inherited EditWindow: TEditWindow
  Left = 195
  Top = 228
  Width = 435
  Height = 301
  HorzScrollBar.Increment = 38
  VertScrollBar.Increment = 25
  Caption = 'EditWindow'
  Icon.Data = {<image000.ico>}
  Scaled = False
  OnActivate = FormActivate
  OnClose = WindowClose
  OnCloseQuery = WindowCloseQuery
  OnResize = WindowResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DockLeftSplitter: TSplitter
    Left = 17
    Top = 0
    Width = 3
    Height = 238
    Cursor = crHSplit
    AutoSnap = False
    MinSize = 15
    ResizeStyle = rsUpdate
  end
  object DockRightSplitter: TSplitter
    Left = 407
    Top = 0
    Width = 3
    Height = 238
    Cursor = crHSplit
    Align = alRight
    AutoSnap = False
    MinSize = 15
    ResizeStyle = rsUpdate
  end
  object DockBottomSplitter: TSplitter
    Left = 0
    Top = 238
    Width = 427
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    AutoSnap = False
    MinSize = 15
    ResizeStyle = rsUpdate
  end
  object DockBottomPanel: TEditorDockPanel
    Left = 0
    Top = 241
    Width = 427
    Height = 17
    Align = alBottom
    BevelOuter = bvNone
    DockSite = True
    FullRepaint = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnDockDrop = DockLeftPanelDockDrop
    OnDockOver = DockRightPanelDockOver
    OnGetSiteInfo = DockLeftPanelGetSiteInfo
    OnUnDock = DockLeftPanelUnDock
    NextControl = StatusBar
    Splitter = DockBottomSplitter
  end
  object DockRightPanel: TEditorDockPanel
    Left = 410
    Top = 0
    Width = 17
    Height = 238
    Align = alRight
    BevelOuter = bvNone
    DockSite = True
    FullRepaint = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnDockDrop = DockLeftPanelDockDrop
    OnDockOver = DockRightPanelDockOver
    OnGetSiteInfo = DockLeftPanelGetSiteInfo
    OnUnDock = DockLeftPanelUnDock
    Splitter = DockRightSplitter
  end
  object DockLeftPanel: TEditorDockPanel
    Left = 0
    Top = 0
    Width = 17
    Height = 238
    Align = alLeft
    BevelOuter = bvNone
    DockSite = True
    FullRepaint = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnDockDrop = DockLeftPanelDockDrop
    OnDockOver = DockRightPanelDockOver
    OnGetSiteInfo = DockLeftPanelGetSiteInfo
    OnUnDock = DockLeftPanelUnDock
    Splitter = DockLeftSplitter
  end
  object Panel1: TPanel
    Left = 20
    Top = 0
    Width = 387
    Height = 238
    Align = alClient
    BevelOuter = bvNone
    FullRepaint = False
    PopupMenu = EditorLocalMenu
    TabOrder = 3
    object TabControlPanel: TPanel
      Left = 0
      Top = 0
      Width = 387
      Height = 25
      Align = alTop
      BevelOuter = bvNone
      FullRepaint = False
      TabOrder = 0
      object PaintBox1: TPaintBox
        Left = 307
        Top = 0
        Width = 4
        Height = 25
        Align = alRight
        OnPaint = PaintBox1Paint
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 307
        Height = 25
        Align = alClient
        BevelOuter = bvNone
        FullRepaint = False
        TabOrder = 0
        object TabControl: TXTabControl
          Left = 0
          Top = 1
          Width = 307
          Height = 24
          Align = alBottom
          HotTrack = True
          PopupMenu = EditorLocalMenu
          TabOrder = 0
          TabStop = False
          OnChange = TabsChanged
          OnDragOver = TabControlDragOver
          OnMouseDown = TabControlMouseDown
          OnStartDrag = TabControlStartDrag
          BorderStyle = bsNone
        end
      end
      object ToolBar1: TToolBar
        Left = 311
        Top = 0
        Width = 76
        Height = 25
        Align = alRight
        BorderWidth = 1
        ButtonHeight = 20
        EdgeOuter = esNone
        Flat = True
        Images = EnvironmentOptions.BrowseImages
        TabOrder = 1
        object BackToolButton: TToolButton
          Left = 0
          Top = 0
          Action = Back
          DropdownMenu = BackMenu
          Style = tbsDropDown
        end
        object ForwardToolButton: TToolButton
          Left = 36
          Top = 0
          Action = Forward
          DropdownMenu = ForwardMenu
          Style = tbsDropDown
        end
      end
    end
    object EditorPanel: TPanel
      Left = 0
      Top = 25
      Width = 387
      Height = 213
      Align = alClient
      BevelOuter = bvLowered
      BorderWidth = 1
      FullRepaint = False
      PopupMenu = EditorLocalMenu
      TabOrder = 1
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 258
    Width = 427
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Width = 65
      end
      item
        Width = 75
      end
      item
        Width = 50
      end>
    PopupMenu = EditorLocalMenu
    SimplePanel = False
  end
  object EditorLocalMenu: TPopupMenu
    HelpContext = 4715
    OnPopup = EditorLocalMenuPopup
    Left = 136
    Top = 152
  end
  object OpenFileDlg: TOpenDialog
    HelpContext = 1436
    DefaultExt = 'PAS'
    Filter =
      'C++ files (*.CPP;*.C;*.HPP;*.H)|*.cpp;*.c;*.hpp;*.h|Pascal files' +
      ' (*.PAS)|*.pas|Project file (*.MAK)|*.mak|Any file (*.*)|*.*'
    Options = [ofHideReadOnly, ofShowHelp, ofEnableSizing]
    Title = 'Read File as Block'
    Left = 40
    Top = 200
  end
  object SaveFileDlg: TSaveDialog
    DefaultExt = 'PAS'
    Filter =
      'C++ files (*.CPP;*.C;*.HPP;*.H)|*.cpp;*.c;*.hpp;*.h|Pascal files' +
      ' (*.PAS)|*.pas|Project files (*.MAK)|*.mak|Any file (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofShowHelp, ofEnableSizing]
    Title = 'Write Block to File'
    Left = 136
    Top = 200
  end
  object ForwardMenu: TPopupMenu
    OnPopup = ForwardMenuPopup
    Left = 376
    Top = 37
    object File11: TMenuItem
      Caption = '&File1'
    end
    object File21: TMenuItem
      Caption = '&File2'
    end
    object File31: TMenuItem
      Caption = '&File3'
    end
  end
  object BackMenu: TPopupMenu
    OnPopup = BackMenuPopup
    Left = 328
    Top = 34
  end
  object ActionList1: TActionList
    Left = 285
    Top = 34
    object Back: TAction
      Caption = 'Back'
      ImageIndex = 0
      OnExecute = BackExecute
      OnUpdate = BackUpdate
    end
    object Forward: TAction
      Caption = 'Forward'
      ImageIndex = 1
      OnExecute = ForwardExecute
      OnUpdate = ForwardUpdate
    end
  end
end