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