Skip to content
Snippets Groups Projects
Select Git revision
  • dailybuild_linux-x64
  • dailybuild_win32
  • master default protected
  • sqlite
  • rip_abstraction
  • dailybuild_macos-armv8
  • dd_file_lister_filanem_in_desc_color
  • mode7
  • dd_msg_reader_are_you_there_warning_improvement
  • c23-playing
  • syncterm-1.3
  • syncterm-1.2
  • test-build
  • hide_remote_connection_with_telgate
  • 638-can-t-control-c-during-a-file-search
  • add_body_to_pager_email
  • mingw32-build
  • cryptlib-3.4.7
  • ree/mastermind
  • new_user_dat
  • sbbs320d
  • syncterm-1.6
  • syncterm-1.5
  • syncterm-1.4
  • sbbs320b
  • syncterm-1.3
  • syncterm-1.2
  • syncterm-1.2rc6
  • syncterm-1.2rc5
  • push
  • syncterm-1.2rc4
  • syncterm-1.2rc2
  • syncterm-1.2rc1
  • sbbs319b
  • sbbs318b
  • goodbuild_linux-x64_Sep-01-2020
  • goodbuild_win32_Sep-01-2020
  • goodbuild_linux-x64_Aug-31-2020
  • goodbuild_win32_Aug-31-2020
  • goodbuild_win32_Aug-30-2020
40 results

TextFileEditUnit.dfm

Blame
    • Rob Swindell's avatar
      5aa3e5c5
      Fun (not) with fonts · 5aa3e5c5
      Rob Swindell authored
      Running SBBSCTRL on Windows 11 with a 4K monitor looked horrible.
      The default font sizes varied widely - I'm not sure why this wasn't
      apparent before now. And the default font ("MS Sans Serif") is no longer
      included in modern Windows versions, so when choosing a Log font, the
      pre-selected font was just blank. So change use of "MS Sans Serif"
      everywhere to "Microsoft Sans Serif" which appears to have been around since
      Win95 and be the preferred alternative. I would consider Segoe, but that
      wasn't introduced into Windows until Vista and I'm not sure (yet) what
      troubles that might introduce. I'll experiment with a WinXP VM maybe
      and find out.
      5aa3e5c5
      History
      Fun (not) with fonts
      Rob Swindell authored
      Running SBBSCTRL on Windows 11 with a 4K monitor looked horrible.
      The default font sizes varied widely - I'm not sure why this wasn't
      apparent before now. And the default font ("MS Sans Serif") is no longer
      included in modern Windows versions, so when choosing a Log font, the
      pre-selected font was just blank. So change use of "MS Sans Serif"
      everywhere to "Microsoft Sans Serif" which appears to have been around since
      Win95 and be the preferred alternative. I would consider Segoe, but that
      wasn't introduced into Windows until Vista and I'm not sure (yet) what
      troubles that might introduce. I'll experiment with a WinXP VM maybe
      and find out.
    TextFileEditUnit.dfm 8.31 KiB
    object TextFileEditForm: TTextFileEditForm
      Left = 317
      Top = 253
      Width = 783
      Height = 540
      Caption = 'TextFileEditForm'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      Icon.Data = {
        0000010001002020100000000000E80200001600000028000000200000004000
        0000010004000000000080020000000000000000000000000000000000000000
        000000008000008000000080800080000000800080008080000080808000C0C0
        C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
        0000000000000000000000000000000000000000007777770000000000000000
        0000000000000007000000000000000000000000000000070000000000000000
        0000000000777007000000000000000000077070007770070000700000000000
        0077000700787000000007000000000007708000077877000070007000000000
        07088807777777770777000700000000008F88877FFFFF077887700700000000
        00088888F88888FF08870070000000000000880888877778F070007000000007
        77088888880007778F770077777000700008F088007777077F07000000700700
        008F08880800077778F7700000700708888F0880F08F807078F7777700700708
        F88F0780F070F07078F7887700700708888F0780F077807088F7777700700700
        008F0788FF00080888F77000007000000008F0780FFFF0088F77007000000000
        0008F07788000888887700700000000000008F07788888880870007000000000
        00088FF0077788088887000700000000008F888FF00000F87887700700000000
        0708F8088FFFFF88078700700000000007708000088888000070070000000000
        0077007000888007000070000000000000077700008F80070007000000000000
        0000000000888007000000000000000000000000000000070000000000000000
        000000000777777700000000000000000000000000000000000000000000FFFF
        FFFFFFFC0FFFFFFC0FFFFFF80FFFFFF80FFFFE180E7FFC00043FF800001FF800
        000FF800000FFC00001FFE00001FE0000001C000000180000001800000018000
        00018000000180000001FC00001FFC00001FFE00001FFC00000FF800000FF800
        001FF800003FFC180C7FFE380EFFFFF80FFFFFF80FFFFFF80FFFFFFFFFFF}
      Menu = Menu
      OldCreateOrder = False
      Position = poDefaultPosOnly
      OnShow = FormShow
      PixelsPerInch = 96
      TextHeight = 16
      object Panel: TPanel
        Left = 0
        Top = 0
        Width = 775
        Height = 33
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object OkButton: TBitBtn
          Left = 10
          Top = 4
          Width = 90
          Height = 26
          Action = Save
          Caption = 'OK'
          ModalResult = 1
          TabOrder = 0
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
            555555555555555555555555555555555555555555FF55555555555559055555
            55555555577FF5555555555599905555555555557777F5555555555599905555
            555555557777FF5555555559999905555555555777777F555555559999990555
            5555557777777FF5555557990599905555555777757777F55555790555599055
            55557775555777FF5555555555599905555555555557777F5555555555559905
            555555555555777FF5555555555559905555555555555777FF55555555555579
            05555555555555777FF5555555555557905555555555555777FF555555555555
            5990555555555555577755555555555555555555555555555555}
          NumGlyphs = 2
        end
        object CancelButton: TBitBtn
          Left = 105
          Top = 4
          Width = 89
          Height = 26
          Caption = 'Discard'
          ModalResult = 2
          TabOrder = 1
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
            3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
            33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
            33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
            333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
            03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
            33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
            0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
            3333333337FFF7F3333333333000003333333333377777333333}
          NumGlyphs = 2
        end
      end
      object Memo: TRichEdit
        Left = 0
        Top = 33
        Width = 775
        Height = 451
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Microsoft Sans Serif'
        Font.Style = []
        HideSelection = False
        ParentFont = False
        PlainText = True
        PopupMenu = PopupMenu
        ScrollBars = ssBoth
        TabOrder = 1
        WantTabs = True
        WordWrap = False
      end
      object FindDialog: TFindDialog
        Options = [frDown, frHideUpDown]
        OnFind = FindDialogFind
        Left = 264
        Top = 80
      end
      object ReplaceDialog: TReplaceDialog
        OnFind = FindDialogFind
        OnReplace = ReplaceDialogReplace
        Left = 264
        Top = 112
      end
      object Menu: TMainMenu
        Left = 184
        Top = 80
        object FileMenuItem: TMenuItem
          Caption = '&File'
          object FileSaveMenuItem: TMenuItem
            Action = Save
          end
          object FileExitMenuItem: TMenuItem
            Caption = 'E&xit'
            OnClick = FileExitMenuItemClick
          end
        end
        object EditMenuItem: TMenuItem
          Caption = '&Edit'
          object EditUndoMenuItem: TMenuItem
            Action = Undo
          end
          object N5: TMenuItem
            Caption = '-'
          end
          object EditCutMenuItem: TMenuItem
            Action = Cut
          end
          object EditCopyMenuItem: TMenuItem
            Action = Copy
          end
          object EditPasteMenuItem: TMenuItem
            Action = Paste
          end
          object EditSelectAllMenuItem: TMenuItem
            Action = SelectAll
          end
          object N4: TMenuItem
            Caption = '-'
          end
          object EditFindMenuItem: TMenuItem
            Action = Find
          end
          object EditReplaceMenuItem: TMenuItem
            Action = Replace
          end
          object N3: TMenuItem
            Caption = '-'
          end
          object EditInsertCtrlA: TMenuItem
            Action = InsertCtrlA
          end
        end
        object FontMenuItem: TMenuItem
          Action = ChangeFont
        end
      end
      object PopupMenu: TPopupMenu
        Left = 184
        Top = 112
        object CutPopupMenuItem: TMenuItem
          Action = Cut
        end
        object CopyPopupMenuItem: TMenuItem
          Action = Copy
        end
        object PastePopupMenuItem: TMenuItem
          Action = Paste
        end
        object SelectAllPopupMenuItem: TMenuItem
          Action = SelectAll
        end
        object N1: TMenuItem
          Caption = '-'
        end
        object FindPopupMenuItem: TMenuItem
          Action = Find
        end
        object ReplacePopupMenuItem: TMenuItem
          Action = Replace
        end
        object N2: TMenuItem
          Caption = '-'
        end
        object CtrlAPopupMenuItem: TMenuItem
          Action = InsertCtrlA
        end
      end
      object ActionList: TActionList
        Left = 224
        Top = 80
        object InsertCtrlA: TAction
          Caption = '&Insert Ctrl-A'
          ShortCut = 16449
          OnExecute = InsertCtrlAExecute
        end
        object Find: TAction
          Caption = '&Find...'
          ShortCut = 16454
          OnExecute = FindExecute
        end
        object Replace: TAction
          Caption = '&Replace...'
          ShortCut = 16456
          OnExecute = ReplaceExecute
        end
        object SelectAll: TAction
          Caption = 'Select &All'
          OnExecute = SelectAllExecute
        end
        object Save: TAction
          Caption = '&Save'
          ShortCut = 16467
          OnExecute = SaveExecute
        end
        object Cut: TAction
          Caption = 'Cu&t'
          ShortCut = 16472
          OnExecute = CutExecute
        end
        object Copy: TAction
          Caption = '&Copy'
          ShortCut = 16451
          OnExecute = CopyExecute
        end
        object Paste: TAction
          Caption = '&Paste'
          ShortCut = 16470
          OnExecute = PasteExecute
        end
        object Undo: TAction
          Caption = '&Undo'
          ShortCut = 16474
          OnExecute = UndoExecute
        end
        object ChangeFont: TAction
          Caption = 'Font'
          OnExecute = ChangeFontExecute
        end
      end
      object FontDialog: TFontDialog
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Microsoft Sans Serif'
        Font.Style = []
        MinFontSize = 0
        MaxFontSize = 0
        Options = [fdApplyButton]
        OnApply = FontDialogApply
        Left = 144
        Top = 80
      end
    end