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 = {} 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