From 907c2c05c3de833bae389d4d89cbab5581620fec Mon Sep 17 00:00:00 2001 From: Vladimir Date: Wed, 5 Aug 2026 13:20:03 +0300 Subject: [PATCH] ui: use system font in flat controls --- EqualizerControl.pas | 1 - FlatButton.pas | 1 - FlatCheckBox.pas | 1 - FlatComboBox.pas | 1 - FlatEdit.pas | 1 - FlatFloatSpinEdit.pas | 1 - FlatListBox.pas | 1 - FlatRadioButton.pas | 1 - FlatSpinEdit.pas | 1 - 9 files changed, 9 deletions(-) diff --git a/EqualizerControl.pas b/EqualizerControl.pas index 428e64d..9f09cc0 100644 --- a/EqualizerControl.pas +++ b/EqualizerControl.pas @@ -529,7 +529,6 @@ begin B.ClrBorder := FButtonTheme.BtnBorderNorm; B.ClrText := FButtonTheme.BtnText; B.ClrTextAct := FButtonTheme.BtnTextActive; - B.Font.Name := 'Courier New'; B.Font.Size := 8; B.Invalidate; end; diff --git a/FlatButton.pas b/FlatButton.pas index d8f94e1..1e6e1fd 100644 --- a/FlatButton.pas +++ b/FlatButton.pas @@ -204,7 +204,6 @@ begin Result.ClrBorder := ClrBorder; Result.ClrText := ClrText; Result.ClrTextAct := ClrTextAct; - Result.Font.Name := 'Courier New'; Result.Font.Size := 8; Result.Font.Color := ClrText; end; diff --git a/FlatCheckBox.pas b/FlatCheckBox.pas index ccf6e53..a6707ac 100644 --- a/FlatCheckBox.pas +++ b/FlatCheckBox.pas @@ -77,7 +77,6 @@ begin TabStop := True; Cursor := crHandPoint; - Font.Name := 'Courier New'; Font.Size := 9; FClrBG := TColor($00181818); diff --git a/FlatComboBox.pas b/FlatComboBox.pas index 688434b..df55b72 100644 --- a/FlatComboBox.pas +++ b/FlatComboBox.pas @@ -272,7 +272,6 @@ begin TabStop := True; Cursor := crDefault; - Font.Name := 'Courier New'; Font.Size := 9; FClrBG := TColor($001A1A1A); diff --git a/FlatEdit.pas b/FlatEdit.pas index 1996c83..12a2856 100644 --- a/FlatEdit.pas +++ b/FlatEdit.pas @@ -112,7 +112,6 @@ begin FEditing := False; FDragging := False; - Font.Name := 'Courier New'; Font.Size := 9; FClrOuterBG := TColor($00181818); diff --git a/FlatFloatSpinEdit.pas b/FlatFloatSpinEdit.pas index 6d8f3d4..e48b6d2 100644 --- a/FlatFloatSpinEdit.pas +++ b/FlatFloatSpinEdit.pas @@ -127,7 +127,6 @@ begin TabStop := True; Cursor := crIBeam; - Font.Name := 'Courier New'; Font.Size := 9; FMinValue := 0.0; diff --git a/FlatListBox.pas b/FlatListBox.pas index 4c0af3a..3a90086 100644 --- a/FlatListBox.pas +++ b/FlatListBox.pas @@ -93,7 +93,6 @@ begin TabStop := True; Cursor := crDefault; - Font.Name := 'Courier New'; Font.Size := 8; FClrOuterBG := TColor($00181818); diff --git a/FlatRadioButton.pas b/FlatRadioButton.pas index 50e6edc..5ed774c 100644 --- a/FlatRadioButton.pas +++ b/FlatRadioButton.pas @@ -78,7 +78,6 @@ begin TabStop := True; Cursor := crHandPoint; - Font.Name := 'Courier New'; Font.Size := 9; FClrBG := TColor($00181818); diff --git a/FlatSpinEdit.pas b/FlatSpinEdit.pas index 13ccb3a..14f71c7 100644 --- a/FlatSpinEdit.pas +++ b/FlatSpinEdit.pas @@ -121,7 +121,6 @@ begin TabStop := True; Cursor := crIBeam; - Font.Name := 'Courier New'; Font.Size := 9; FMinValue := 0;