Changeset 622 for trunk/LocalPlayer/Diagram.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/LocalPlayer/Diagram.pas (modified) (1 diff)

trunk/LocalPlayer/Diagram.pas

@@ -291 +291 @@
 procedure TDiaDlg.FormShow(Sender: TObject);
 begin
-  if WindowMode = wmModal then
-  begin { center on screen }
-    Left := (Screen.Width - Width) div 2;
-    Top := (Screen.Height - Height) div 2;
-  end;
+  if WindowMode = wmModal then CenterToScreen;
   OffscreenPaint;
 end;