What this program gives you ?

Guessing if this is my hardware/software rig problem or compiler bug. Please check what color do you get when step with the mouse on vertical line?

module com222

   use mswin    
   implicit none  
   integer ::hwnd
   integer , dimension(4) ::rect 
   integer ir, ig, ib, iRGBvalue         
   integer ix, iy, iflags
contains                        
   
   integer function draw_func()
      logical :: dummy      
      dummy = GetWindowRect(hwnd,rect)  
      if (.not.dummy) stop
      call draw_line@(  0, 100, 200, 100, rgb@(253,0,0))   
      call draw_line@(100,   0, 100, 200, rgb@(252,0,0))      
      draw_func = 2
   end function draw_func  
 
 !.................................................

   integer function PixelsPosAndRGB ()
       call get_mouse_info@(ix, iy, iflags)
       call GET_RGB_VALUE@( ix, iy, iRGBvalue )
       ir = and (iRGBvalue,255)
       ig = and (rs(iRGBvalue,8),255)
       ib = rs  (iRGBvalue,16)
       call window_update@(ir)
       call window_update@(ig)
       call window_update@(ib)
       call window_update@(ix)
       call window_update@(iy)
   PixelsPosAndRGB = 2
   end function
end module com222
!      *******************************************
!      *            Main Program                 *
!      *******************************************
winapp 
program badRGB
   use mswin

   use com222
   implicit none
   integer :: ctrl,i
   ctrl = 0
   i = winio@('%ca[ Find RGB color]&')               
   i = winio@('%ww Find RGB of vertical red line  %2nl%es&')
   i = winio@('%sc&',draw_func)        
!   i = winio@('%mi[icon_1]&')   
   i = winio@('ir         ig        ib           posX, posY &
       &%ff%4rd%4rd%4rd  %4rd%4rd%ff&', ir,ig,ib, ix,iy)
   i = winio@('%pv%^gr[black, full_mouse_input, rgb_colours]&',200,200, PixelsPosAndRGB)
   i = winio@('%mn[&File[E&xit]]&','EXIT')      

   i = winio@('%lw%hw',ctrl,hwnd)
end program 

(253,0,0) on the horizontal line, and (252,0,0) on the vertical line including where the lines cross.

Eddie

Thanks, Eddie. What is your compiler version?

I changed two things - the 7.10 to 7.20 for compiler and 2K to 4K for monitor. As a result these color I get by pointing before vertical lines almost 10 pixels to the left where mouse steps on the blacks. Horizontal lines are determined fine. Actually I made three changes, I changed mouse pointer shape from default.

One other small thing is that cursor position in text editor is 1 pixel to the left when you highlight the text.

The program above is quick modification of Silverfrost example Resize.f95

UPDATE: No, this is not a FTN95 bug. When i turn monitor into 30 Hz mode from 60, all positions are OK

Hi Dan,

Apologies for slow reply - it's a time zone thing. I tried it on 7.20PE on a small laptop with 1366x768 resolution and an Intel graphics chip.

My guess? It's a dpi thing, and yet another bear trap created by Microsoft.

Eddie

Thanks, Eddie, for the tries, they are my last hairs saviors. I suspect here is a chroma compression issue. Which means that no other solution exists besides changing of graphics card which must be updated to the latest ones supporting full 4:4:4 chroma transfer over HDMI 2.0 at 60Hz.

As to the Microsoft trap, one such really exists here. Every time i switch monitor off, i must follow the procedure to hibernate the computer first and follow opposite procedure when go back. Otherwise all my open applications go to the left upper corner and decrease in size. No one in years found reliable solution how to trick Windows. This is because i moved few days ago to just the regular 4K TV instead of bunch dedicated PC monitors. Tired to search one bug for the whole week and making new ones on small screens. There are no dedicated 4K 50-55' PC monitors yet, but the 4K TVs are here and becoming cheap for such sizes. They are way better then any smaller size dedicated PC 4K monitors due to its right size. The key moment here is that only 50+ inch sizes allow to run applications without dumb DPI scaling. Who would think that we will end up with such gargantuan screens? Kids by the way already actively switching on 4K TVs as game monitors.

After i solve these dumb problems i'll recommend to move to 4K for everyone, the boring sometimes programming gets a charm boost.