diff --git a/DXClusterForm.pas b/DXClusterForm.pas index 55ec7b7..9aa680c 100644 --- a/DXClusterForm.pas +++ b/DXClusterForm.pas @@ -88,6 +88,16 @@ const BTN_H = 26; LOG_H = 130; + // Моноширинный — ТОЛЬКО там, где колонки выровнены пробелами (список спотов и + // лог соединения); всё остальное в окне идёт системным шрифтом, как везде по + // проекту. Имя платформенное, как в CWTerminalForm: 'Courier New' есть не + // всюду (на Linux fontconfig всё равно подставляет свой моноширинный). +{$IFDEF WINDOWS} + MONO_FONT = 'Consolas'; +{$ELSE} + MONO_FONT = 'Monospace'; +{$ENDIF} + constructor TDXClusterForm.CreateWith(AOwner: TComponent; AStore: TDXSpotStore; AClient: TDXClusterClient); var @@ -197,7 +207,7 @@ begin FLog.Anchors := [akLeft, akRight, akBottom]; FLog.ReadOnly := True; FLog.WordWrap := False; - FLog.Font.Name := 'Courier New'; + FLog.Font.Name := MONO_FONT; FLog.Font.Size := 8; FList := TFlatListBox.Create(Self); @@ -206,7 +216,7 @@ begin ClientWidth - DpiScale(MARGIN * 2), FLog.Top - DpiScale(56 + 6)); FList.Anchors := [akLeft, akTop, akRight, akBottom]; - FList.Font.Name := 'Courier New'; + FList.Font.Name := MONO_FONT; FList.Font.Size := 9; FList.TabStop := True; FList.OnDblClick := @OnListDblClick; diff --git a/DXSpotOverlay.pas b/DXSpotOverlay.pas index c64b3cf..1e6f489 100644 --- a/DXSpotOverlay.pas +++ b/DXSpotOverlay.pas @@ -419,9 +419,10 @@ begin C.Pen.Style := psClear; C.FillRect(Rect(0, 0, W, FBandH)); - // Шрифт привязан к высоте ряда (а не к point-size) — подпись влезает при - // любом DPI-масштабе, как в бэндплане. - C.Font.Name := 'Courier New'; + // Гарнитуру НЕ задаём — системная, как договорено по проекту: позывные тут + // не в колонках, ширина чипа и так меряется по TextWidth. Задан только + // размер, привязанный к высоте ряда (а не к point-size), — подпись влезает + // при любом DPI-масштабе, как в бэндплане. C.Font.Style := [fsBold]; C.Font.Height := -Max(8, Round(FRowH * 0.62));