Chip Hitware 7/Chip_Hitware_Vol_07.iso/chiphit7/tools/95fontli/fl.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1996-12-07 | 20KB | 563 lines

object MainForm: TMainForm
  Left = 310
  Top = 238
  Width = 632
  Height = 279
  ActiveControl = FontList
  Caption = 'FontLister'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Icon.Data = {<image000.ico>}
  Menu = MainMenu
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 35
    Width = 624
    Height = 177
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object FontList: TListBox
      Left = 0
      Top = 0
      Width = 165
      Height = 177
      Hint = 'Choose the font you wanna see!'
      Align = alLeft
      ItemHeight = 13
      MultiSelect = True
      Sorted = True
      TabOrder = 0
      OnClick = FontListClick
      OnDrawItem = FontListDrawItem
      OnMeasureItem = FontListMeasureItem
    end
    object memFont: TMemo
      Left = 165
      Top = 0
      Width = 459
      Height = 177
      Align = alClient
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
        'abcdefghijklmnopqrstuvwxyz'
        '1234567890 +-*/')
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object StatusLine: TStatusBar
    Left = 0
    Top = 212
    Width = 624
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <>
    ParentFont = False
    SimplePanel = True
    SizeGrip = False
  end
  object SpeedBar: TPanel
    Left = 0
    Top = 0
    Width = 624
    Height = 35
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    OnResize = SpeedBarResize
    object sbPrintAll: TSpeedButton
      Left = 5
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Print all installed fonts'
      Glyph.Data = {
        C6010000424DC6010000000000007600000028000000300000000E0000000100
        0400000000005001000000000000000000001000000010000000000000007B7B
        7B00DEC6B500BDBDBD00FFFFFF0000FFFF00FFFFFF0000FF0000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF000000FF00FFFFFF00FFFFFF00550000000000
        0555551111111111154555000000000005555033333333303055514444444441
        4154503333333330305500000000000003051111111111111414000000000000
        0305033333344433000514555555444511140333333777330005033333311133
        0305144444411144141503333334443303050000000000000330111111111111
        1541000000000000033003333333333030301544444444415151033333333330
        3030500000000003030051111111111515115000000000030300550FFFFFFFF0
        30305515454444414141550FFFFFFFF030305550F00000F00005555141111151
        11155504000000F000055550FFFFFFFF055555515454444414555504FFFFFFF0
        555555550F00000F05555555141111151545550400000040555555550FFFFFFF
        F055555515444444414555044FFFFFF055555555500000000055555551111111
        11555500000000005555}
      NumGlyphs = 3
      OnClick = FilePrint
    end
    object sbExit: TSpeedButton
      Left = 594
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Exit FontLister'
      Glyph.Data = {
        F6010000424DF601000000000000760000002800000030000000100000000100
        0400000000008001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        00333377777777777F3333000000000000333301111111111033337F33333333
        7F333301BBBBBBBBB0333301111111111033337F333333337F3333011BBBBBBB
        B0333301111111111033337F333333337F33330111BBBBBBB033330111111111
        1033337F333333337F333301110BBBBBB0333301111111111033337F33333333
        7F333301110BBBBBB0333301111111111033337F3333333F7F333301110BBBBB
        B0333301111111BB1033337F333333737F333301110BBBBBB033330111111111
        1033337F333333337F333301110BBBBBB0333301111111111033337F33FFFFF3
        7F333301110BBBBBB03333011EEEEEE11033337F377777F37F33330111B0BBBB
        B03333011EEEEEE11033337F37FFF7F37F333301110BBBBBB03333011EEEEEE1
        1033337F377777337F333301110BBBBBB0333301111111111033337F33333333
        7F333301E10BBBBBB0333301111111111033337FFFFFFFFF7F333301EE0BBBBB
        B033330000000000003333777777777773333300000000000033}
      Layout = blGlyphTop
      NumGlyphs = 3
      Spacing = 0
      OnClick = FileExit
    end
    object sbReset: TSpeedButton
      Left = 200
      Top = 5
      Width = 25
      Height = 25
      Hint =
        'Clear text-window. Click+Ctrl: Show all ASCII-characters. Click+' +
        'Alt: Reset to sample-text.'
      AllowAllUp = True
      Glyph.Data = {
        F6010000424DF601000000000000760000002800000030000000100000000100
        0400000000008001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
        555557777F777555F555500005005555555500000000555055557777777755F7
        55550500555555555555005500055055555577F5777F57555555001105555555
        5555005550055555555577FF577F5FF555550999105555555555500550050055
        5555577FF77577FF5555099991055555555555005050110555555577F757777F
        F5555099903055555555555505099910555555FF75777777FF5555090B030555
        55555005550999910555577F5F77777775F50550B0B030555555500505509990
        3055577F75F77777575F55550B0B3305555555005055090B0305557757557775
        7575055550BBB33055555555555550B0B03055555F55575757575055550BBB33
        055555550555550B0B33555575555575755555555550BBB33055555555555550
        BBB35555F55555575F55555555550BBB33055550555555550BBB555755555555
        75F55555555550BBB33055555555555550BB555555555555575F55555555550B
        BB33555555555555550B5555555555555575555555555550BBB3}
      Layout = blGlyphTop
      NumGlyphs = 3
      Spacing = 0
      OnMouseDown = sbResetMouseDown
    end
    object sbPrintFont: TSpeedButton
      Left = 170
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Print textwindow with selected font'
      Glyph.Data = {
        F6010000424DF601000000000000760000002800000030000000100000000100
        0400000000008001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        000337777777777777733000F00F800F000308888888888888807F3333333333
        33370880FFFFFFFF088008888888888888807FFFFFFFFFFFFFF70880F0000F0F
        08800000000000000000777777777777777700000000000000000F8F8F8F8F8F
        8F807F333333333333F70F8F8F8F8F8F8F8008F8F8F8F8F899F07F3333333333
        373708F8F8F8F8F8AAF00F8F8F8F8F8F8F807FFFFFFFFFFFFFF70F8F8F8F8F8F
        8F800000000000000000777777777777777700000000000000003330FFFFFFFF
        03333337F3FFFF3F7F333330FFFFFFFF03333330F0000F0F03333337F7777373
        7F333330F08F000F03333330FFFFFFFF03333337F3FF3FFF7F333330FFFFFFFF
        03333330F00F000003333337F7737777733333300000000003333330FFFF0FF0
        33333337F3F37F37333333333333333333333330F08F0F0333333337F7337F73
        333333333333333333333330FFFF003333333337FFFF77333333333333333333
        3333333000000333333333377777733333333333333333333333}
      NumGlyphs = 3
      OnClick = sbPrintFontClick
    end
    object sbBold: TSpeedButton
      Left = 260
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Bold font'
      AllowAllUp = True
      GroupIndex = 1
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000009C9C
        9C007F7F7F00007F7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333344444444333333300000000333333332222222244333333300033000
        3333333322243222433333330003300033333333222432224333333300033000
        3333333322244222333333330000000333333333222222244333333300033000
        3333333322243222433333330003300033333333222432224333333300033000
        3333333322244222333333300000000333333332222222233333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = sbBoldClick
    end
    object sbItalic: TSpeedButton
      Left = 285
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Italic font'
      AllowAllUp = True
      GroupIndex = 2
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsItalic]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000009C9C
        9C007F7F7F00007F7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333344444433333333300000033333333332222223333333333330023333
        3333333332224333333333333200333333333333322244333333333333002333
        3333333333222433333333333320033333333333332224433333333333300233
        3333333333322243333333333332003333333333333222443333333333330023
        3333333333332224433333333330000033333333333222223333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = sbItalicClick
    end
    object sbUnderline: TSpeedButton
      Left = 310
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Underline font'
      AllowAllUp = True
      GroupIndex = 3
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000009C9C
        9C007F7F7F00007F7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00333333333333
        3333333333333333333333333333333333333333444444444333333000000000
        3333333222222222333333333333333333333333334444433333333330000033
        3333333332222244333333330023200333333333224312243333333300333003
        3333333322433224333333330033300333333333224332243333333300333003
        3333333322433224333333330033300333333333224332243333333300333003
        3333333322433224333333330033300333333333224432244333333000030000
        3333333222232222333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = sbUnderlineClick
    end
    object sbPrintSelected: TSpeedButton
      Left = 35
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Only print the selected font(s)'
      Glyph.Data = {
        F6010000424DF601000000000000760000002800000030000000100000000100
        0400000000008001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF30000000000000030888888888888880777777777777
        777F0880FFFFFFFF08800888888888888880777777777777777F0880F0FFFF0F
        08800000000000000000FFFFFFFFFFFFFFFF00000000000000000F8F8F8F8F8F
        8F80777777777777777F0F8F8F8F8F8F8F8008F8F8F8F8F899F0777777777777
        777F08F8F8F8F8F8AAF00F8F8F8F8F8F8F807777777777777F7F0F8F8F8F8F8F
        8F800000000000000000777777777777777F00000000000000003330FFFFFFFF
        03333337F3F3333F7F333330FF0000FF03333330F0FFFF0F03333337F7FF33FF
        7F333330FFFFFFFF03333330F00FF00F03333337F7FFFFFF7F33333000000000
        03333330F000000F03333337F7FF77FF7F3333333333333333333330F00FF00F
        03333337F77FFFF37F3333333333333333333330FF0000FF03333337F3777733
        7F3333333333333333333330FFFFFFFF03333337FFFFFFFFFF33333333333333
        3333333000000000033333377777777773333333333333333333}
      NumGlyphs = 3
      OnClick = sbPrintSelectedClick
    end
    object sbCompare: TSpeedButton
      Left = 136
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Switch between edit- or browse-mode'
      AllowAllUp = True
      GroupIndex = 4
      Glyph.Data = {
        F6010000424DF601000000000000760000002800000030000000100000000100
        04000000000080010000120B0000120B00001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333333333333333333333333333333333333FFFFFFFFFFF
        FFFF333333333333333300000000000000007777777777777777000000000000
        0000FFFFFFFFFFFFFFFF333FFFFF33FFFFF3FFFFFFFFFFFFFFFFFF00000FF000
        00FF3377777337777733FF0000000000000FFFFFFFFFFFFFFFFF333FFFFFF3FF
        FFFFFFFFFFFFFFFFFFFFFF000000F000000F3377777737777773FF0000000000
        FFFFFFFFFFFFFFFFFFFF333FFFF333FFFF33FFFFFFFFFFFFFFFFFF0000FFF000
        0FFF3377773337777333FF00000000000FFFFFFFFFFFFFFFFFFF333FFFFFF3FF
        FFFFFFFFFFFFFFFFFFFFFF000000F000000F3377777737777773FF0000000000
        000FFFFFFFFFFFFFFFFF333FFFFF33FFFFF3FFFFFFFFFFFFFFFFFF00000FF000
        00FF3377777337777733FF000000000000FFFFFFFFFFFFFFFFFF3FFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFF00000000000000007777777777777777000000000000
        0000333333333333333333333333333333333333333333333333}
      NumGlyphs = 3
      ParentShowHint = False
      ShowHint = False
      OnClick = sbCompareClick
    end
    object sbASCII: TSpeedButton
      Left = 230
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Shows all ASCII-codes'
      AllowAllUp = True
      GroupIndex = 5
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
        FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
        FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
        FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
        FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
        FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
        C8807FF7777777777FF700000000000000007777777777777777333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
      OnClick = sbASCIIClick
    end
    object edSize: TEdit
      Left = 340
      Top = 7
      Width = 26
      Height = 21
      Hint = 'Change the fontsize'
      Ctl3D = True
      MaxLength = 3
      ParentCtl3D = False
      TabOrder = 1
      Text = '12'
      OnChange = edSizeChange
    end
    object UpDown: TUpDown
      Left = 366
      Top = 7
      Width = 15
      Height = 21
      Hint =
        'Click uparrow to increase fontsize or downarrow to decrease font' +
        'size'
      Associate = edSize
      ArrowKeys = False
      Min = 1
      Max = 200
      Position = 12
      TabOrder = 0
      Thousands = False
      Wrap = False
    end
  end
  object MainMenu: TMainMenu
    Left = 480
    Top = 175
    object FileMenu: TMenuItem
      Caption = '&File'
      ShortCut = 16457
      object FilePrintItem: TMenuItem
        Caption = 'Print &All Fonts'
        Hint = 'Print all fonts installed on the system'
        ShortCut = 0
        OnClick = FilePrint
      end
      object FilePrintSelectedItem: TMenuItem
        Caption = 'Print &Selected Font(s)'
        ShortCut = 0
        OnClick = sbPrintSelectedClick
      end
      object OptionsPrintTextItem: TMenuItem
        Caption = '&Print Textwindow'
        Hint = 'Print text in textwindow'
        ShortCut = 16464
        OnClick = sbPrintFontClick
      end
      object FilePrintSetupItem: TMenuItem
        Caption = 'P&rint Setup...'
        Hint = 'Change printer setup'
        ShortCut = 0
        OnClick = FilePrintSetup
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object FileImportTextItem: TMenuItem
        Caption = 'I&mport Text...'
        Hint = 'Use a (text)file as sample-text'
        ShortCut = 16461
        OnClick = FileImport
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object FileExitItem: TMenuItem
        Caption = 'E&xit'
        Hint = 'Exit FontLister!'
        ShortCut = 16465
        OnClick = FileExit
      end
    end
    object EditMenu: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      object EditCutItem: TMenuItem
        Caption = 'Cu&t'
        ShortCut = 16472
        OnClick = CutClick
      end
      object EditCopyItem: TMenuItem
        Caption = '&Copy'
        ShortCut = 16451
        OnClick = CopyClick
      end
      object EditPasteItem: TMenuItem
        Caption = '&Paste'
        ShortCut = 16470
        OnClick = PasteClick
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object EditWordwrapItem: TMenuItem
        Caption = '&WordWrap'
        Checked = True
        ShortCut = 0
        OnClick = WrapItemClick
      end
    end
    object StyleMenu: TMenuItem
      Caption = '&Styles'
      ShortCut = 0
      object StylesBoldItem: TMenuItem
        Caption = '&Bold'
        Hint = 'Bold font'
        ShortCut = 16450
        OnClick = StylesBold
      end
      object StylesItalicItem: TMenuItem
        Caption = '&Italic'
        Hint = 'Italic font'
        ShortCut = 16457
        OnClick = StylesItalic
      end
      object StylesUnderlineItem: TMenuItem
        Caption = '&Underline'
        Hint = 'Underline font'
        ShortCut = 16469
        OnClick = StylesUnderline
      end
    end
    object OptionsMenu: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object OptionsForeItem: TMenuItem
        Caption = '&Foreground Color'
        Hint = 'Change foreground color for the selected font'
        ShortCut = 0
        OnClick = OptionsForeItemClick
      end
      object OptionsBackItem: TMenuItem
        Caption = '&Background Color'
        Hint = 'Change background color in the textwindow'
        ShortCut = 0
        OnClick = OptionsBackItemClick
      end
      object OptionsInfoItem: TMenuItem
        Caption = 'Font &Info'
        Hint = 'Shows height and width of selected font'
        ShortCut = 0
        OnClick = OptionsInfo
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object HelpAboutItem: TMenuItem
        Caption = '&About...'
        Hint = 'Show program information'
        ShortCut = 0
        OnClick = HelpAbout
      end
    end
  end
  object PrintDialog: TPrintDialog
    Options = [poPrintToFile, poWarning]
    Left = 540
    Top = 175
  end
  object PrintSetupDialog: TPrinterSetupDialog
    Left = 570
    Top = 175
  end
  object ColorDialog: TColorDialog
    Ctl3D = True
    Color = clNone
    CustomColors.Strings = (
      'ColorA=000000'
      'ColorB=F00000'
      'ColorC=FF0000'
      'ColorD=0FF000'
      'ColorE=00FF00'
      'ColorF=000FF0'
      'ColorG=0000FF'
      'ColorH=00000F'
      'ColorI=FFFFFF')
    Left = 510
    Top = 175
  end
  object OpenDialog: TOpenDialog
    DefaultExt = '*.txt'
    FileEditStyle = fsEdit
    Filter = 'Text-files(*.txt)|*.txt|All files(*.*)|*.*'
    Options = [ofReadOnly]
    Title = 'Import Text-file'
    Left = 450
    Top = 175
  end
end