Changeset 408 for trunk/Settings.pas

Timestamp:

Nov 3, 2021, 5:31:17 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Use correct text color and background in settings form key bindings edit boxes.
• Fixed: Always use initial back background for windows so they less flicker during first draw. This was more visible on Linux systems with white system theme.
• Modified: Code cleanup.

File:

• trunk/Settings.pas (modified) (3 diffs)

trunk/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