Changeset 488

Timestamp:

Oct 25, 2023, 2:23:54 PM (17 months ago)

Author:

ataylor

Message:

Small fix to positioning logic when existing window is open.

Location:

trunk/NewView

Files:

• MainForm.pas (modified) (2 diffs)
• VersionUnit.pas (modified) (1 diff)

trunk/NewView/MainForm.pas ¶

@@ -3828 +3828 @@
     if WinQueryWindowPos( hTopWindow,TopHelpWindowPos ) then
     begin
-      // [ALT 2023-10-22] ...but only if it's fully on the screen
+      // [ALT 2023-10-24] ...but only if it's fully on the screen
       if ( TopHelpWindowPos.X >= 0 ) and
-         ( TopHelpWindowPos.X + TopHelpWindowPos.CX + Offset <= Screen.Width ) and
-         ( TopHelpWindowPos.Y >= 0 ) and
-         ( TopHelpWindowPos.Y + TopHelpWindowPos.CY + Offset <= Screen.Height )
+         ( TopHelpWindowPos.X + Width + Offset <= Screen.Width ) and
+         ( TopHelpWindowPos.Y >= Offset ) and
+         ( TopHelpWindowPos.Y + Height + Offset <= Screen.Height )
       then
       Begin
@@ -3846 +3846 @@
       end;
 
-      // got the reference position, now apply the offset
-      Left := Left + Offset;
-      Bottom := Bottom - Offset;
+      // got the reference position, now apply the offset (but staying on screen)
+      if Left + Width + Offset <= Screen.Width then
+        Left := Left + Offset;
+      Bottom := Max( 0, Bottom - Offset );
 
       // I guess I am leaving width/height out for compatibility...?

trunk/NewView/VersionUnit.pas ¶

@@ -17 +17 @@
 
 const
-  Version =        'V2.19.8a'; // $SS_REQUIRE_NEW_VERSION$
-  BldLevelVersion = '2.19.8a'; // Embedded for IBM BLDLEVEL tool
+  Version =        'V2.19.8b';  // $SS_REQUIRE_NEW_VERSION$
+  BldLevelVersion = '2.19.8b';  // Embedded for IBM BLDLEVEL tool
   CopyrightMsg = 'Copyright 2005 Aaron Lawrence; 2006-2019 Ronald Brill';
   LicenseMsg   = 'Licensed under the GNU Public License';