Changeset 408 for trunk/Inp.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/Inp.pas (modified) (5 diffs)

trunk/Inp.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, Messg,
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, DrawDlg,
-  ButtonA, StdCtrls;
+  ScreenTools, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
+  DrawDlg, ButtonA, StdCtrls;
 
 type
@@ -38 +37 @@
   TitleHeight := Height;
   InitButtons;
-  Center := true;
+  Center := True;
 end;
 
@@ -64 +63 @@
     ModalResult := mrCancel
   else
-    ModalResult := mrOK
+    ModalResult := mrOK;
 end;
 
@@ -72 +71 @@
   begin
     Key := #0;
-    ModalResult := mrOK
+    ModalResult := mrOK;
   end
   else if Key = #27 then
   begin
     Key := #0;
-    ModalResult := mrCancel
-  end
+    ModalResult := mrCancel;
+  end;
 end;
 
@@ -93 +92 @@
 procedure TInputDlg.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  Center := true
+  Center := True;
 end;
 
 procedure TInputDlg.CenterToRect(Rect: TRect);
 begin
-  Center := false;
+  Center := False;
   Left := Rect.Left + (Rect.Right - Rect.Left - Width) div 2;
   Top := Rect.Top + (Rect.Bottom - Rect.Top - Height) div 2;