#176 oBrw:DoHScroll( SB_LINERIGHT ) it will to last column of browse

[Itamar M. Lins Jr.]

Hi!
Linux GTK OS
DoHScroll skip all columns and will to last column.
This sample show the problem.

#include "hwgui.ch"

Procedure Main
Local oDlg, oBrw
Local aSample := { {"Alex",17,1200,"A"}, {"Victor",42,1600,"B"}, {"John",31,1000,"C"} }

   INIT DIALOG oDlg TITLE "Press <enter> key";
         AT 100, 100 SIZE 300, 230 ;
         FONT HFont():Add( "MS Sans Serif",0,-13 ) 

   @ 10,20 BROWSE oBrw ARRAY SIZE 280,140 

   oBrw:bOther  := {|oBrw, msg, wParam, lParam| fKeyDown(oBrw, msg, wParam, lParam)}    

   hwg_CreateArList( oBrw, aSample )

   oBrw:aColumns[1]:heading := "Name"
   oBrw:aColumns[2]:heading := "Age"
   oBrw:aColumns[3]:heading := "Num"
   oBrw:aColumns[4]:heading := "Alf"
   oBrw:aColumns[2]:lEditable := .T.

   @ 100,180 BUTTON 'Close' SIZE 100,28 ON CLICK {|| oDlg:Close() } 

   ACTIVATE DIALOG oDlg
Return Nil

Static FUNCTION fKeyDown(oBrw, msg, wParam, lParam)
LOCAL nKEY := hwg_PtrToUlong( wParam ) 
IF msg == WM_KEYDOWN
   If nKey == VK_RETURN
      oBrw:DoHScroll( SB_LINERIGHT )
      hwg_msginfo("See than it skip to last column")
      RETURN .F.
   ENDIF 
ENDIF

RETURN .T.  

Best regards,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Hi!
This problem prevents the system from migrating from Windows to Linux, have you seen this? Or do you have free time to watch this?
It is not possible to navigate using commands through the browse columns.

Best Regards,
Itamar M. Lins Jr.

[Alexander S.Kresin]

Seems, the same as with Bug 181 - solved.

Regards, Alexander