xbrowse in FW 1002

[Maurizio]

Hello

I have this when I click on the last header


Regards Maurizio

[Antonio Linares]

Maurizio,

We are unable to reproduce it here.

Could you please provide us a small self contained example to reproduce it ? thanks

[Maurizio]

Antonio ,

the problem is the vertical scrollbar

this is the code

Code: Select all  Expand view

#include "FiveWin.ch"
#include "XBrowse.ch"

function Main()

   local oDlg, oBrw

   USE CUSTOMER

 
   DEFINE DIALOG oDlg RESOURCE "Test"
   REDEFINE XBROWSE oBrw ID 10 OF oDlg
   ACTIVATE DIALOG oDlg

return nil

And this is the RC

Code: Select all  Expand view

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

TEST DIALOG DISCARDABLE 68, 43, 336, 213
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
  CONTROL "", 10, "Edit", WS_VSCROLL|WS_BORDER|WS_TABSTOP, 0, 0, 335, 182
}
 

[nageswaragunupudi]

In the RC file, please replace "Edit" with "TXBrowse". It works correctly with this change. Behavior is the same in previous versions also.

[Maurizio]

Rao

Thank

[Antonio Linares]

Dear Rao,

Very good observation