Changeset 622 for trunk/NoTerm.pas

Timestamp:

Sep 15, 2024, 10:04:45 PM (4 days ago)

Author:

chronos

Message:

• Modified: Show windows by default on primary screen if multiple monitors present.

File:

• trunk/NoTerm.pas (modified) (1 diff)

trunk/NoTerm.pas

@@ -87 +87 @@
 procedure TNoTermDlg.FormCreate(Sender: TObject);
 begin
-  Left := Screen.Width - Width - 8;
-  Top := 8;
+  BoundsRect := Bounds(Screen.PrimaryMonitor.Left + Screen.PrimaryMonitor.Width - Width - 8,
+    8, Width, Height);
   Caption := Phrases.Lookup('AIT');
   Canvas.Brush.Style := TBrushStyle.bsClear;