PC World Komputer 1998 July & August/Pcwk78a98.iso/Sharewar/Editpad/EditPad.exe/0/RCDATA/TEDITPADPREFSFORM/TEDITPADPREFSFORM.txt

Text File | 1998-04-18 | 10KB | 401 lines

object EditPadPrefsForm: TEditPadPrefsForm
  Left = 237
  Top = 380
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'EditPad Preferences'
  ClientHeight = 302
  ClientWidth = 428
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 248
    Width = 428
    Height = 35
    Align = alBottom
    TabOrder = 0
    object BtnOk: TBitBtn
      Left = 245
      Top = 5
      Width = 80
      Height = 25
      TabOrder = 0
      OnClick = BtnOkClick
      Kind = bkOK
    end
    object BtnCancel: TBitBtn
      Left = 336
      Top = 5
      Width = 80
      Height = 25
      TabOrder = 1
      Kind = bkCancel
    end
  end
  object Pages: TPageControl
    Left = 0
    Top = 0
    Width = 428
    Height = 248
    ActivePage = SheetColors
    Align = alClient
    MultiLine = True
    TabOrder = 1
    object SheetColors: TTabSheet
      Caption = 'Colors'
      object LabelColorBackground: TLabel
        Left = 126
        Top = 14
        Width = 50
        Height = 25
        Hint = 'Current background color'
        AutoSize = False
        Color = clBlack
        ParentColor = False
      end
      object LabelColorText: TLabel
        Left = 126
        Top = 49
        Width = 50
        Height = 25
        Hint = 'Current text color'
        AutoSize = False
        Color = clBlack
        ParentColor = False
      end
      object BtnColorBackground: TButton
        Left = 14
        Top = 14
        Width = 99
        Height = 25
        Hint = 'Pick the color for the background of the edit window'
        Caption = 'Background'
        TabOrder = 0
        OnClick = BtnColorBackgroundClick
      end
      object RichEdit: TRichEdit
        Left = 217
        Top = 98
        Width = 199
        Height = 103
        Hint = 'Sample Text'
        Lines.Strings = (
          'Sample Text')
        TabOrder = 1
      end
      object BtnColorText: TButton
        Left = 14
        Top = 49
        Width = 99
        Height = 25
        Hint = 'Pick the color for the editor'#39's text'
        Caption = 'Text'
        TabOrder = 2
        OnClick = BtnColorTextClick
      end
    end
    object SheetFonts: TTabSheet
      Caption = 'Fonts'
      object Label3: TLabel
        Left = 7
        Top = 175
        Width = 45
        Height = 13
        Caption = '&Tab Size:'
      end
      object GroupBox1: TGroupBox
        Left = 3
        Top = 7
        Width = 204
        Height = 85
        Caption = ' Screen fonts '
        TabOrder = 0
        object BtnFontFixed: TButton
          Left = 22
          Top = 21
          Width = 160
          Height = 25
          Hint = 'Select a fixed-width font'
          Caption = '&Fixed Width Font'
          TabOrder = 0
          OnClick = BtnFontFixedClick
        end
        object BtnFontVar: TButton
          Left = 22
          Top = 49
          Width = 160
          Height = 25
          Hint = 'Select a proportionally spaced font'
          Caption = '&Variable Width Font'
          TabOrder = 1
          OnClick = BtnFontVarClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 213
        Top = 7
        Width = 204
        Height = 85
        Caption = ' Printer fonts '
        TabOrder = 1
        object BtnPrintFontFixed: TButton
          Left = 22
          Top = 22
          Width = 160
          Height = 25
          Hint = 'Select a fixed-width font'
          Caption = '&Fixed Width Font'
          TabOrder = 0
          OnClick = BtnPrintFontFixedClick
        end
        object BtnPrintFontVar: TButton
          Left = 22
          Top = 50
          Width = 160
          Height = 25
          Hint = 'Select a proportionally spaced font'
          Caption = '&Variable Width Font'
          TabOrder = 1
          OnClick = BtnPrintFontVarClick
        end
      end
      object RadioDefFont: TRadioGroup
        Left = 3
        Top = 98
        Width = 125
        Height = 64
        Hint = 'Font to use when you open a text file'
        Caption = ' Default font '
        Items.Strings = (
          'Fixed width font'
          'Variable width font')
        TabOrder = 2
        OnClick = RadioDefFontClick
      end
      object SpinTabSize: TSpinEdit
        Left = 63
        Top = 168
        Width = 64
        Height = 22
        Hint = 'Size of a tab in spaces'
        MaxValue = 80
        MinValue = 1
        TabOrder = 3
        Value = 8
      end
    end
    object SheetSaving: TTabSheet
      Caption = 'Saving Files'
      object RadioUnsaved: TRadioGroup
        Left = 7
        Top = 7
        Width = 169
        Height = 85
        Hint = 'What must EditPad do when you attempt to close an unsaved file?'
        Caption = ' &Closing Unsaved Files '
        Items.Strings = (
          'Show a warning'
          'Automaticallly save the file'
          'Do nothing')
        TabOrder = 0
      end
      object CheckBackup: TCheckBox
        Left = 7
        Top = 105
        Width = 120
        Height = 17
        Hint =
          'Save the original file with a .bak extension when overwriting an' +
          ' existing file'
        Caption = '&Save Backup Files'
        TabOrder = 1
      end
    end
    object SheetPrint: TTabSheet
      Caption = 'Printing'
      object Bevel2: TBevel
        Left = 147
        Top = 147
        Width = 267
        Height = 8
        Shape = bsTopLine
      end
      object Bevel1: TBevel
        Left = 147
        Top = 77
        Width = 267
        Height = 8
        Shape = bsTopLine
      end
      object Bevel3: TBevel
        Left = 147
        Top = 7
        Width = 267
        Height = 207
        Shape = bsFrame
      end
      object Label1: TLabel
        Left = 154
        Top = 21
        Width = 38
        Height = 13
        Caption = 'Header:'
        FocusControl = EditHeader
      end
      object Label2: TLabel
        Left = 154
        Top = 91
        Width = 33
        Height = 13
        Caption = 'Footer:'
        FocusControl = EditFooter
      end
      object RadioLineSpacing: TRadioGroup
        Left = 7
        Top = 2
        Width = 134
        Height = 76
        Caption = ' Line Spacing '
        Items.Strings = (
          '1.0 Normal'
          '1.5 One and a half'
          '2.0 Double')
        TabOrder = 0
      end
      object EditHeader: TEdit
        Left = 196
        Top = 14
        Width = 211
        Height = 21
        MaxLength = 64
        TabOrder = 1
      end
      object RadioHeaderAlign: TRadioGroup
        Left = 196
        Top = 35
        Width = 211
        Height = 36
        Caption = ' Align '
        Columns = 3
        Items.Strings = (
          'Left'
          'Center'
          'Right')
        TabOrder = 2
      end
      object EditFooter: TEdit
        Left = 196
        Top = 84
        Width = 211
        Height = 21
        MaxLength = 64
        TabOrder = 3
      end
      object RadioFooterAlign: TRadioGroup
        Left = 196
        Top = 105
        Width = 211
        Height = 36
        Caption = ' Align '
        Columns = 3
        Items.Strings = (
          'Left'
          'Center'
          'Right')
        TabOrder = 4
      end
      object MemoFooters: TMemo
        Left = 154
        Top = 150
        Width = 253
        Height = 60
        BorderStyle = bsNone
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        Lines.Strings = (
          '%D current date    %FD file date'
          '%T current time    %FT file time'
          '%P page number     %FN file name'
          '%N total pages')
        ParentFont = False
        TabOrder = 5
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 283
    Width = 428
    Height = 19
    Hint = 'Hi! How are you?'
    Panels = <>
    SimplePanel = True
    SizeGrip = False
  end
  object FontDialogFixed: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdFixedPitchOnly, fdForceFontExist, fdNoOEMFonts]
    Left = 364
  end
  object FontDialogVar: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdForceFontExist, fdNoOEMFonts]
    Left = 364
    Top = 28
  end
  object ColorDialog: TColorDialog
    Ctl3D = True
    Options = [cdSolidColor]
    Left = 336
  end
  object FontDialogPrintFixed: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Device = fdBoth
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdTrueTypeOnly, fdEffects, fdFixedPitchOnly, fdForceFontExist]
    Left = 392
  end
  object FontDialogPrintVar: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Device = fdBoth
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdTrueTypeOnly, fdEffects, fdForceFontExist]
    Left = 392
    Top = 28
  end
end