insolor avatar insolor committed 2d54fe9

Added shift form upper-left corner. Need testing.

Comments (0)

Files changed (1)

 end function
 
 integer border
-border = 2
+border = 10
 
 integer repaint
 repaint = FALSE
     columns = loc_vc[VC_COLUMNS]
     lines = loc_vc[VC_LINES]
     
-    update_window_size(loc_vc[VC_XPIXELS..VC_YPIXELS])
+    update_window_size(loc_vc[VC_XPIXELS..VC_YPIXELS]+2*border)
     screen_size_x = loc_vc[VC_XPIXELS]
     screen_size_y = loc_vc[VC_YPIXELS]
     bytes_per_line = and_bits(screen_size_x+3,-4)
         scale = x
         -- resize window if needed
         if not full_screen and not and_bits(c_func(GetWindowLong, {hwnd, GWL_STYLE}), WS_MAXIMIZE) then
-            update_window_size(vc[VC_XPIXELS..VC_YPIXELS])
+            update_window_size(vc[VC_XPIXELS..VC_YPIXELS]+2*border)
         end if
         -- repaint the window:
         repaint = 1
             seqrect = peek4u({paintstruct+rcPaint, 4})
             if scale < 2 then
                 if active_page = display_page then
-                    c_proc(BitBlt, hdcWindow & seqrect & hdcActive & seqrect[1..2] & SRCCOPY)
+                    c_proc(BitBlt, hdcWindow & seqrect & hdcActive & seqrect[1..2]-border & SRCCOPY)
                 else
-                    c_proc(BitBlt, hdcWindow & seqrect & hdcDisplay & seqrect[1..2] & SRCCOPY)
+                    c_proc(BitBlt, hdcWindow & seqrect & hdcDisplay & seqrect[1..2]-border & SRCCOPY)
                 end if
             else
                 if active_page = display_page then
         video_mode = m
         vc = video_modes[m+1]
         if not hwnd then
-            hwnd = create_window(vc[VC_XPIXELS..VC_YPIXELS])
+            hwnd = create_window(vc[VC_XPIXELS..VC_YPIXELS]+border*2)
         else
             init_window(hwnd)
         end if
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.