Changeset 412 for branches/highdpi/Settings.pas

Timestamp:

Nov 4, 2021, 2:59:11 PM (3 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r411.

File:

• branches/highdpi/Settings.pas (modified) (3 diffs)

branches/highdpi/Settings.pas

@@ -37 +37 @@
     procedure FormPaint(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure ListKeyBindingsSelectionChange(Sender: TObject; User: boolean);
+    procedure ListKeyBindingsSelectionChange(Sender: TObject; User: Boolean);
     procedure ButtonOkClick(Sender: TObject);
     procedure Up2BtnClick(Sender: TObject);
@@ -166 +166 @@
   Frame(Canvas, 2, 2, ClientWidth - 3, ClientHeight - 3,
     MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
+  EditFrame(Canvas, EditShortCutPrimary.BoundsRect, MainTexture);
+  EditFrame(Canvas, EditShortCutSecondary.BoundsRect, MainTexture);
   EditFrame(Canvas, ListLanguages.BoundsRect, MainTexture);
   BtnFrame(Canvas, ButtonOk.BoundsRect, MainTexture);
@@ -196 +198 @@
   LoadData;
   LocalKeyBindings.LoadToStrings(ListKeyBindings.Items);
+  EditShortCutPrimary.Font.Color := MainTexture.ColorMark;
+  EditShortCutSecondary.Font.Color := MainTexture.ColorMark;
 end;
 
 procedure TSettingsDlg.ListKeyBindingsSelectionChange(Sender: TObject;
-  User: boolean);
+  User: Boolean);
 begin
   if Assigned(CurrentKeyBinding) then begin