Chip 1997 April/Chip_1997-04_cd.bin/prezent/cb/data.z/IMAGEDIT.EXE/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1997-01-16 | 4.8 KB | 186 lines

object MainForm: TMainForm
  Left = 351
  Top = 245
  Width = 435
  Height = 331
  Caption = 'Image Editor'
  Ctl3D = False
  Color = clAppWorkSpace
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu
  Position = poDefault
  WindowMenu = WindowMenu
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object ToolArea: TPanel
    Left = 0
    Top = 0
    Width = 65
    Height = 266
    Align = alLeft
    TabOrder = 0
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 266
    Width = 427
    Height = 19
    Panels = <
      item
        Width = 300
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object MainMenu: TMainMenu
    Left = 368
    Top = 192
    object FileMenu: TMenuItem
      Caption = '&File'
      GroupIndex = 1
      ShortCut = 0
      OnClick = FileMenuClick
      object FileNewItem: TMenuItem
        Caption = '&New...'
        Hint = 'Create a new file'
        ShortCut = 0
        object FileNewResItem: TMenuItem
          Caption = '&Resource File (.res)'
          Hint = 'Create a new resource file'
          ShortCut = 0
          OnClick = FileNewResItemClick
        end
        object FileNewDCRItem: TMenuItem
          Caption = 'C&omponent Resource File (.dcr)'
          Hint = 'Create a new DCR file for use with custom VCL components'
          ShortCut = 0
          OnClick = FileNewDCRItemClick
        end
        object FileNewBitmapItem: TMenuItem
          Caption = '&Bitmap File (.bmp)'
          Hint = 'Create a new bitmap file'
          ShortCut = 0
          OnClick = FileNewBitmapItemClick
        end
        object FileNewIconItem: TMenuItem
          Caption = '&Icon File (.ico)'
          Hint = 'Create a new icon file'
          ShortCut = 0
          OnClick = FileNewIconItemClick
        end
        object FileNewCursorItem: TMenuItem
          Caption = '&Cursor File (.cur)'
          Hint = 'Create a new cursor file'
          ShortCut = 0
          OnClick = FileNewCursorItemClick
        end
      end
      object FileOpenItem: TMenuItem
        Caption = '&Open...'
        Hint = 'Open an existing file'
        ShortCut = 16463
        OnClick = FileOpen
      end
      object FileSaveItem: TMenuItem
        Caption = '&Save'
        Hint = 'Save current file'
        ShortCut = 16467
        OnClick = FileSaveItemClick
      end
      object FileSaveAsItem: TMenuItem
        Caption = 'Save &As...'
        Hint = 'Save current file with a new name'
        ShortCut = 0
        OnClick = FileSaveAsItemClick
      end
      object FileCloseItem: TMenuItem
        Caption = '&Close'
        Hint = 'Close the current window'
        ShortCut = 0
        OnClick = FileCloseItemClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object FileExitItem: TMenuItem
        Caption = 'E&xit'
        Hint = 'Exit the Image Editor'
        ShortCut = 32856
        OnClick = FileExit
      end
    end
    object WindowMenu: TMenuItem
      Caption = '&Window'
      GroupIndex = 20
      ShortCut = 0
      OnClick = WindowMenuClick
      object WindowCascadeItem: TMenuItem
        Caption = '&Cascade'
        Hint = 'Cascade all open windows'
        ShortCut = 0
        OnClick = WindowCascadeClick
      end
      object WindowTileHorzItem: TMenuItem
        Caption = 'Tile &Horizontal'
        Hint = 'Arrange open windows horizontally'
        ShortCut = 0
        OnClick = WindowTileClick
      end
      object WindowTileVertItem: TMenuItem
        Caption = 'Tile &Vertical'
        Hint = 'Arrange all open windows vertically'
        ShortCut = 0
        OnClick = WindowTileClick
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object WindowArrangeItem: TMenuItem
        Caption = '&Arrange Icons'
        Hint = 'Arrange all iconized windows'
        ShortCut = 0
        OnClick = WindowArrangeClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      GroupIndex = 20
      ShortCut = 0
      object HelpTopics: TMenuItem
        Caption = '&Help Topics'
        ShortCut = 0
        OnClick = HelpTopicsClick
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object HelpAboutItem: TMenuItem
        Caption = '&About...'
        Hint = 'Display program information'
        ShortCut = 0
        OnClick = HelpAboutClick
      end
    end
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter =
      'Resource/DCR files (*.res;*.dcr)|*.res;*.dcr|Bitmaps (*.bmp)|*.b' +
      'mp|Icons (*.ico)|*.ico|Cursors (*.cur)|*.cur|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Left = 352
    Top = 120
  end
end