Chip 1999 September/Chip_1999-09_cd.bin/sharewar/FontFind/fontfind.exe/%MAINDIR%/FontFinder.exe/0/RCDATA/TFCONFIGURATION/TFCONFIGURATION.txt

Text File | 1999-07-21 | 10.4 KB | 458 lines

object fConfiguration: TfConfiguration
  Left = 271
  Top = 210
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Font Finder Configuration'
  ClientHeight = 300
  ClientWidth = 442
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {<image000.ico>}
  OldCreateOrder = True
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object btnOK: TBitBtn
    Left = 136
    Top = 264
    Width = 81
    Height = 29
    TabOrder = 1
    OnClick = btnOKClick
    Kind = bkOK
  end
  object BtnCancel: TBitBtn
    Left = 240
    Top = 264
    Width = 81
    Height = 29
    TabOrder = 2
    Kind = bkCancel
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 425
    Height = 241
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Screen Settings'
      object Label1: TLabel
        Left = 24
        Top = 32
        Width = 81
        Height = 13
        Alignment = taRightJustify
        Caption = 'Screen Font Size'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 10
        Top = 69
        Width = 64
        Height = 13
        Caption = 'Display String'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object eSize: TEdit
        Left = 116
        Top = 29
        Width = 37
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = '14'
      end
      object eString: TEdit
        Left = 8
        Top = 85
        Width = 401
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Text = 'ABC abc'
      end
      object FontSet: TRadioGroup
        Left = 8
        Top = 132
        Width = 33
        Height = 53
        Caption = 'Use'
        Columns = 2
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          'Screen Fonts'
          'Printer Fonts')
        ParentFont = False
        TabOrder = 2
        Visible = False
      end
      object DCOpens: TRadioGroup
        Left = 56
        Top = 128
        Width = 305
        Height = 57
        Caption = 'Double Click Opens'
        Columns = 2
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          'Compact View'
          'Whole View')
        ParentFont = False
        TabOrder = 3
      end
      object UpDown1: TUpDown
        Left = 153
        Top = 29
        Width = 15
        Height = 24
        Associate = eSize
        Min = 6
        Max = 24
        Position = 14
        TabOrder = 4
        Wrap = False
      end
      object rgDisplay: TRadioGroup
        Left = 192
        Top = 16
        Width = 209
        Height = 49
        Caption = 'Display'
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          'Font Names'
          'Display String')
        TabOrder = 5
        OnClick = rgDisplayClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Color Management'
      ImageIndex = 1
      object Bevel1: TBevel
        Left = 8
        Top = 16
        Width = 305
        Height = 57
        Shape = bsFrame
      end
      object Label5: TLabel
        Left = 16
        Top = 12
        Width = 35
        Height = 13
        Caption = ' Colors '
      end
      object Label6: TLabel
        Left = 8
        Top = 160
        Width = 71
        Height = 13
        Caption = 'Color Schemes'
      end
      object Button1: TButton
        Left = 24
        Top = 32
        Width = 81
        Height = 25
        Caption = 'Font Name'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Tag = 1
        Left = 120
        Top = 32
        Width = 81
        Height = 25
        Caption = 'Display String'
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button3: TButton
        Tag = 2
        Left = 216
        Top = 32
        Width = 81
        Height = 25
        Caption = 'Paper'
        TabOrder = 2
        OnClick = Button3Click
      end
      object ComboBox1: TComboBox
        Left = 8
        Top = 176
        Width = 233
        Height = 21
        Style = csDropDownList
        ItemHeight = 0
        Sorted = True
        TabOrder = 3
        OnChange = ComboBox1Change
      end
      object Button4: TButton
        Left = 256
        Top = 174
        Width = 65
        Height = 25
        Hint = 'Save current colors as...'
        Caption = 'Save As...'
        TabOrder = 4
        OnClick = Button4Click
      end
      object btnDelete: TButton
        Left = 336
        Top = 174
        Width = 65
        Height = 25
        Hint = 'Delete Current Scheme'
        Caption = 'Delete...'
        TabOrder = 5
        OnClick = btnDeleteClick
      end
      object FontPanel: TPanel
        Left = 8
        Top = 88
        Width = 401
        Height = 57
        BevelOuter = bvLowered
        TabOrder = 6
        object FontName: TLabel
          Left = 6
          Top = 6
          Width = 46
          Height = 14
          Caption = 'Arial Bold'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object FontString: TLabel
          Left = 14
          Top = 20
          Width = 379
          Height = 33
          AutoSize = False
          Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefg'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -24
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
      end
      object btnApply: TButton
        Left = 328
        Top = 32
        Width = 75
        Height = 25
        Caption = 'Apply'
        TabOrder = 7
        OnClick = btnApplyClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Report Settings'
      ImageIndex = 2
      object Label3: TLabel
        Left = 10
        Top = 69
        Width = 60
        Height = 13
        Caption = 'Printer String'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 33
        Top = 27
        Width = 79
        Height = 13
        Alignment = taRightJustify
        Caption = 'Report Font Size'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object ePrinterString: TEdit
        Left = 8
        Top = 85
        Width = 401
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = 'ePrinterString'
      end
      object PrinterSet: TRadioGroup
        Left = 208
        Top = 156
        Width = 193
        Height = 49
        Caption = 'Report '
        Columns = 2
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          'Screen Fonts'
          'Printer Fonts')
        ParentFont = False
        TabOrder = 1
        Visible = False
      end
      object pSize: TEdit
        Left = 124
        Top = 21
        Width = 37
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Text = '12'
      end
      object UpDown2: TUpDown
        Left = 161
        Top = 21
        Width = 15
        Height = 24
        Associate = pSize
        Min = 6
        Max = 48
        Position = 12
        TabOrder = 3
        Wrap = False
      end
      object cbBorders: TCheckBox
        Left = 256
        Top = 24
        Width = 137
        Height = 17
        Caption = 'Condensed Grid'
        TabOrder = 4
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Font Explorer'
      ImageIndex = 3
      object Label7: TLabel
        Left = 8
        Top = 104
        Width = 113
        Height = 13
        Caption = 'Uninstall Fonts to Folder'
      end
      object Label8: TLabel
        Left = 8
        Top = 32
        Width = 62
        Height = 13
        Caption = 'Preview Text'
      end
      object eFontFolder: TEdit
        Left = 8
        Top = 128
        Width = 369
        Height = 21
        TabOrder = 0
        Text = 'eFontFolder'
      end
      object btnBrowseFontFolders: TButton
        Left = 382
        Top = 128
        Width = 20
        Height = 20
        Caption = '...'
        TabOrder = 1
        OnClick = btnBrowseFontFoldersClick
      end
      object eMemoLine: TEdit
        Left = 8
        Top = 48
        Width = 185
        Height = 21
        TabOrder = 2
        Text = 'ABCD abcd 1234'
      end
    end
  end
  object BrowseDirectoryDlg1: TBrowseDirectoryDlg
    Options = [bfDirectoriesOnly, bfEditBox]
    Caption = 'Select a Font Folder'
    ShowSelectionInStatus = False
    Left = 84
    Top = 176
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 364
    Top = 192
  end
end