Select Git revision
NodeFormUnit.dfm
-
Rob Swindell authoredRunning 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.Rob Swindell authoredRunning 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.
NodeFormUnit.dfm 4.45 KiB
object NodeForm: TNodeForm
Left = 579
Top = 322
Width = 277
Height = 214
Caption = 'Nodes'
Color = clBtnFace
UseDockManager = True
DefaultMonitor = dmPrimary
DragKind = dkDock
DragMode = dmAutomatic
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDefault
OnHide = FormHide
PixelsPerInch = 96
TextHeight = 13
object Toolbar: TToolBar
Left = 0
Top = 0
Width = 261
Height = 25
Caption = 'Toolbar'
EdgeBorders = []
Flat = True
Images = MainForm.ImageList
ParentShowHint = False
ShowHint = True
TabOrder = 0
object LockNodeButton: TToolButton
Left = 0
Top = 0
Hint = 'Lock Node(s)'
Caption = 'LockNodeButton'
ImageIndex = 19
OnClick = LockNodeButtonClick
end
object DownButton: TToolButton
Left = 23
Top = 0
Hint = 'Down Node(s)'
Caption = 'DownButton'
ImageIndex = 21
OnClick = DownButtonClick
end
object InterruptNodeButton: TToolButton
Left = 46
Top = 0
Hint = 'Interrupt Node(s)'
Caption = 'InterruptNodeButton'
ImageIndex = 17
OnClick = InterruptNodeButtonClick
end
object RerunToolButton: TToolButton
Left = 69
Top = 0
Hint = 'Rerun Node(s)'
Caption = 'RerunToolButton'
ImageIndex = 55
OnClick = RerunNodeButtonClick
end
object ClearErrorButton: TToolButton
Left = 92
Top = 0
Hint = 'Clear Errors on Node(s)'
Caption = 'ClearErrorButton' ImageIndex = 31
OnClick = ClearErrorButtonClick
end
object SpyButton: TToolButton
Left = 115
Top = 0
Hint = 'Spy on Node(s)'
Caption = 'SpyButton'
ImageIndex = 39
OnClick = SpyButtonClick
end
object ChatButton: TToolButton
Left = 138
Top = 0
Hint = 'Chat with User'
Caption = 'ChatButton'
ImageIndex = 37
OnClick = ChatButtonClick
end
object UserMsgButton: TToolButton
Left = 161
Top = 0
Hint = 'Send Message to User'
Caption = 'UserMsgButton'
ImageIndex = 57
OnClick = UserMsgButtonClick
end
object UserEditButton: TToolButton
Left = 184
Top = 0
Hint = 'Edit User'
Caption = 'UserEditButton'
ImageIndex = 27
OnClick = UserEditButtonClick
end
end
object ListBox: TListBox
Left = 0
Top = 25
Width = 261
Height = 151
Align = alClient
ItemHeight = 13
MultiSelect = True
PopupMenu = PopupMenu
TabOrder = 1
Color = clBlack
end
object Timer: TTimer
OnTimer = TimerTick
Left = 72
Top = 120
end
object PopupMenu: TPopupMenu
Left = 128
Top = 72
object LockMenuItem: TMenuItem
Caption = 'Lock Node'
ImageIndex = 19
ShortCut = 16460
OnClick = LockNodeButtonClick
end
object DownMenuItem: TMenuItem
Caption = 'Down Node'
ImageIndex = 21
ShortCut = 16452
OnClick = DownButtonClick
end
object RerunMenuItem: TMenuItem
Caption = 'Rerun Node' ImageIndex = 55
ShortCut = 16466
OnClick = RerunNodeButtonClick
end
object InterruptMenuItem: TMenuItem
Caption = 'Interrupt Node'
ImageIndex = 17
ShortCut = 16457
OnClick = InterruptNodeButtonClick
end
object ClearErrorsMenuItem: TMenuItem
Caption = 'Clear Errors'
ImageIndex = 33
ShortCut = 46
OnClick = ClearErrorButtonClick
end
object ChatMenuItem: TMenuItem
Caption = 'Chat w/User'
ImageIndex = 39
ShortCut = 121
OnClick = ChatButtonClick
end
object SendMsgMenuItem: TMenuItem
Caption = 'Send User Msg'
ShortCut = 122
OnClick = UserMsgButtonClick
end
object SpyMenuItem: TMenuItem
Caption = 'Spy on Node'
ImageIndex = 41
ShortCut = 123
OnClick = SpyButtonClick
end
object EditUser1: TMenuItem
Caption = 'Edit User'
Hint = 'EditUserMenuItem'
ImageIndex = 27
ShortCut = 113
OnClick = UserEditButtonClick
end
object N1: TMenuItem
Caption = '-'
end
object RefreshMenuItem: TMenuItem
Caption = 'Refresh'
ShortCut = 116
OnClick = RefreshMenuItemClick
end
object SelectAllMenuItem: TMenuItem
Caption = 'Select &All'
ShortCut = 16449
OnClick = SelectAllMenuItemClick
end
end
end