Chip 2000 January/Chip_2000-01_cd.bin/sharewar/Font/fl.exe/0/RCDATA/TFMASCII/TFMASCII.txt

Text File | 1999-05-10 | 9KB | 386 lines

object fmASCII: TfmASCII
  Left = 518
  Top = 215
  Width = 373
  Height = 350
  BorderIcons = [biSystemMenu, biHelp]
  Caption = 'ANSI-table for'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = mmANSI
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object stbANSI: TStatusBar
    Left = 0
    Top = 285
    Width = 365
    Height = 19
    HelpContext = 1094
    Panels = <
      item
        Width = 200
      end
      item
        Alignment = taCenter
        Text = 'Alt + 0000'
        Width = 80
      end
      item
        Alignment = taCenter
        Text = 'Char: '
        Width = 80
      end>
    ParentFont = True
    SimplePanel = False
    UseSystemFont = False
    OnResize = stbANSIResize
  end
  object pnlANSITable: TPanel
    Left = 0
    Top = 0
    Width = 365
    Height = 259
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    BorderWidth = 4
    Caption = ' '
    TabOrder = 1
    object sgASCII: TStringGrid
      Left = 5
      Top = 5
      Width = 355
      Height = 249
      HelpContext = 5130
      Align = alClient
      BorderStyle = bsNone
      ColCount = 8
      Ctl3D = False
      DefaultColWidth = 40
      DefaultRowHeight = 40
      DefaultDrawing = False
      FixedCols = 0
      RowCount = 32
      FixedRows = 0
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = 0
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [goVertLine, goHorzLine, goDrawFocusSelected, goThumbTracking]
      ParentCtl3D = False
      ParentFont = False
      PopupMenu = popANSI
      ScrollBars = ssVertical
      TabOrder = 0
      OnDblClick = sgASCIIDblClick
      OnDrawCell = sgASCIIDrawCell
      OnKeyDown = sgASCIIKeyDown
      OnMouseDown = sgASCIIMouseDown
      OnSelectCell = sgASCIISelectCell
    end
  end
  object dckANSITable: TDock97
    Left = 0
    Top = 259
    Width = 365
    Height = 26
    AllowDrag = False
    Position = dpBottom
    object tlbANSITable: TToolbar97
      Left = 0
      Top = 0
      BorderStyle = bsNone
      Caption = ' '
      CloseButton = False
      DockPos = 0
      DragHandleStyle = dhSingle
      FullSize = True
      TabOrder = 0
      object tbbHoriz: TToolbarButton97
        Left = 4
        Top = 0
        Width = 23
        Height = 22
        Action = ModesHorizontal
        GroupIndex = 1
        DisplayMode = dmGlyphOnly
        HelpContext = 5150
        Images = imglANSITable
      end
      object tbbVert: TToolbarButton97
        Left = 27
        Top = 0
        Width = 23
        Height = 22
        Action = ModesVertical
        GroupIndex = 1
        DisplayMode = dmGlyphOnly
        HelpContext = 5150
        Images = imglANSITable
      end
      object tbbStandard: TToolbarButton97
        Left = 50
        Top = 0
        Width = 23
        Height = 22
        Action = ModesVariable
        GroupIndex = 1
        DisplayMode = dmGlyphOnly
        HelpContext = 5150
        Images = imglANSITable
      end
      object ToolbarSep971: TToolbarSep97
        Left = 73
        Top = 0
      end
      object tbbOpenZoom: TToolbarButton97
        Left = 79
        Top = 0
        Width = 23
        Height = 22
        Action = acZoomWindow
        AllowAllUp = True
        GroupIndex = 2
        DisplayMode = dmGlyphOnly
        Images = imglANSITable
        Layout = blGlyphTop
      end
      object ToolbarSep972: TToolbarSep97
        Left = 0
        Top = 0
        Blank = True
        SizeHorz = 4
      end
    end
  end
  object tlwZoom: TToolWindow97
    Left = 136
    Top = 40
    HelpContext = 5160
    Caption = 'Character Zoom'
    Color = clWindow
    ClientAreaHeight = 140
    ClientAreaWidth = 177
    TabOrder = 3
    Visible = False
    OnClose = tlwZoomClose
    object ptbZoom: TPaintBox
      Left = 0
      Top = 0
      Width = 177
      Height = 140
      Align = alClient
      OnPaint = ptbZoomPaint
    end
  end
  object popANSI: TPopupMenu
    Images = imglANSITable
    Left = 16
    Top = 32
    object pitCopyChar: TMenuItem
      Tag = 3
      Action = acCopyChar
      GroupIndex = 1
    end
    object N1: TMenuItem
      Caption = '-'
      GroupIndex = 1
    end
    object pitHoriz: TMenuItem
      Action = ModesHorizontal
      GroupIndex = 1
      RadioItem = True
    end
    object pitVert: TMenuItem
      Tag = 1
      Action = ModesVertical
      GroupIndex = 1
      RadioItem = True
    end
    object pitStandard: TMenuItem
      Tag = 2
      Action = ModesVariable
      GroupIndex = 1
      RadioItem = True
    end
  end
  object imglANSITable: TImageList
    Height = 17
    Width = 18
    Left = 48
    Top = 32
  end
  object aclAnsiTable: TActionList
    Images = imglANSITable
    Left = 32
    Top = 64
    object ModesHorizontal: TAction
      Category = 'Mode'
      Caption = '&Horizontal table (32x8)'
      Hint = 'Horizontal|View horizontal table (32x8 grid).'
      ImageIndex = 0
      OnExecute = ModesHorizontalExecute
    end
    object ModesVertical: TAction
      Category = 'Mode'
      Caption = '&Vertical table (16x16)'
      Hint = 'Vertical|View vertical table (16x16 grid)'
      ImageIndex = 1
      OnExecute = ModesVerticalExecute
    end
    object ModesVariable: TAction
      Category = 'Mode'
      Caption = 'Variable &table'
      Checked = True
      Hint =
        'Variable|View variable sized table (resize to adjust height and ' +
        'width).'
      ImageIndex = 2
      OnExecute = ModesVariableExecute
    end
    object acExportWMF: TAction
      Category = 'File'
      Caption = 'Export to &WMF...'
      Hint = 'Exports character to WMF format.'
      OnExecute = acExportWMFExecute
    end
    object acExportEMF: TAction
      Category = 'File'
      Caption = '&Export to EMF...'
      Hint = 'Exports character to EMF format.'
      OnExecute = acExportEMFExecute
    end
    object acClose: TAction
      Category = 'File'
      Caption = '&Close'
      Hint = 'Closes ANSI table.'
      OnExecute = acCloseExecute
    end
    object acCopyWMF: TAction
      Category = 'Edit'
      Caption = 'Copy as &WMF'
      Hint = 'Copies character to clipboard in WMF format.'
      OnExecute = acCopyWMFExecute
    end
    object acCopyEMF: TAction
      Category = 'Edit'
      Caption = '&Copy as EMF'
      Hint = 'Copies character to clipboard in EMF format.'
      OnExecute = acCopyEMFExecute
    end
    object acAutoUpdate: TAction
      Category = 'Options'
      Caption = 'Auto &Update'
      Checked = True
      HelpContext = 5110
      Hint = 'Auto-update window with selected font'
      OnExecute = acAutoUpdateExecute
    end
    object acStayOnTop: TAction
      Category = 'Options'
      Caption = 'Stay On &Top'
      Checked = True
      HelpContext = 5120
      Hint = 'Puts window above all others.'
      OnExecute = acStayOnTopExecute
    end
    object acZoomWindow: TAction
      Category = 'Options'
      Caption = 'Character &Zoom'
      Hint = 'Character Zoom|Opens larger window with selected character.'
      ImageIndex = 4
      OnExecute = acZoomWindowExecute
    end
    object acCopyChar: TAction
      Category = 'Edit'
      Caption = 'Copy C&haracter'
      Hint = 'Copies selected character to clipboard.'
      ImageIndex = 3
      OnExecute = acCopyCharExecute
    end
  end
  object mmANSI: TMainMenu
    Images = imglANSITable
    Left = 16
    Top = 149
    object mitFile: TMenuItem
      Caption = '&File'
      object mitExportWMF: TMenuItem
        Action = acExportWMF
      end
      object mitExportEMF: TMenuItem
        Action = acExportEMF
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mitClose: TMenuItem
        Action = acClose
      end
    end
    object mitEdit: TMenuItem
      Caption = '&Edit'
      object mitCopyCharacter: TMenuItem
        Action = acCopyChar
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object mitCopyWMF: TMenuItem
        Action = acCopyWMF
      end
      object mitCopyEMF: TMenuItem
        Action = acCopyEMF
      end
    end
    object mitMode: TMenuItem
      Caption = '&Mode'
      object mitHorizontaltable32x8: TMenuItem
        Action = ModesHorizontal
      end
      object mitVerticaltable16x16: TMenuItem
        Action = ModesVertical
      end
      object mitVariabletable: TMenuItem
        Action = ModesVariable
      end
    end
    object mitOptions: TMenuItem
      Caption = '&Options'
      object mitAutoUpdate: TMenuItem
        Action = acAutoUpdate
      end
      object mitStayOnTop: TMenuItem
        Action = acStayOnTop
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mitCharacterZoom: TMenuItem
        Action = acZoomWindow
      end
    end
  end
  object savdlgExport: TSaveDialog
    DefaultExt = 'wmf'
    Filter = 'Windows Meta File|*.WMF|All Files (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Title = 'Export character to WMF'
    Left = 64
    Top = 64
  end
end