3) Column spacing using the old format of ADD column TO a browse does not format the columns correctly. This may also relate to the method to expand the largest field to fill in the allocated space in the resource.
2) Set Checkmark is broken in 16.01 but worked in 15.12.
1) Positioning with ADS to bring focus to a specific row is failing to work correctly.
#include "fivewin.ch"
#include "ads.ch"
REQUEST ADS
//------------------------------------------------------------------//
function Main()
RddRegister( "ADS", 1 )
RddSetDefault( "ADSCDX" )
AdsSetServerType ( ADS_LOCAL_SERVER )
AdsLocking( .t. )
AdsRightsCheck(.F.)
SET FILETYPE TO CDX
SET DELETED ON
? AdsIsServerLoaded( "STATES.DBF" )
USE STATES NEW SHARED VIA "ADSCDX"
XBROWSER "STATES" TITLE FWVERSION + ':' + RDDNAME()
CLOSE DATA
return nil
//----------------------------------------------------------------------------//
EXTERNAL ADSKEYCOUNT, ADSGETRELKEYPOS, ADSSETRELKEYPOS, ADSKEYNO
//----------------------------------------------------------------------------//
@ 0,0 XBROWSE ::oBrw OF ::oEwndChild ALIAS ::oDbf ON CHANGE ::oDbfr:load() ;
AUTOCOLS AUTOSORT FOOTERS LINES CELL NOBORDER
// Set the header and row heights
::oBrw:nHeaderHeight := 30
::oBrw:nRowHeight := 24
// Set the styles
::oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
::oBrw:nColDividerStyle := LINESTYLE_RAISED
::oBrw:nRowDividerStyle := LINESTYLE_RAISED
FOR nCCol := 1 TO LEN( ::oBrw:acols )
::oBrw:aCols[nCCol]:nHeadStrAlign := AL_CENTER
NEXT
// Now create it
::oBrw:CreateFromCode()
::oEwndChild:oClient := ::oBrw
// OK to hide columns
::oBrw:lAllowColHiding := .t.
#include "fivewin.ch"
#include "ads.ch"
REQUEST ADS
//------------------------------------------------------------------//
function Main()
local oDlg
local oBrw
local nCCol
RddRegister( "ADS", 1 )
RddSetDefault( "ADSCDX" )
AdsSetServerType ( ADS_LOCAL_SERVER )
AdsLocking( .t. )
AdsRightsCheck( .F.)
SET FILETYPE TO CDX
SET DELETED ON
? AdsIsServerLoaded( "CUSTOMER.DBF" )
USE CUSTOMER NEW SHARED VIA "ADSCDX" ALIAS "CUSTOMER"
DEFINE DIALOG oDlg TITLE FWVERSION + ' - ' + RDDNAME() + ' - ' + ADSVERSION() ;
SIZE 800, 510
@ 0, 0 XBROWSE oBrw ALIAS "CUSTOMER" OF oDlg SIZE 300, 250 ;
AUTOCOLS AUTOSORT FOOTERS LINES CELL NOBORDER PIXEL
//XBROWSER "STATES" TITLE FWVERSION + ':' + RDDNAME() + ':' + ADSVERSION()
WITH OBJECT oBrw
:nHeaderHeight := 30
:nRowHeight := 24
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:nColDividerStyle := LINESTYLE_RAISED
:nRowDividerStyle := LINESTYLE_RAISED
for nCCol := 1 TO Len( :aCols )
:aCols[ nCCol ]:nHeadStrAlign := AL_CENTER
next nCCol
END
oBrw:CreateFromCode()
oBrw:lAllowColHiding := .t.
ACTIVATE DIALOG oDlg
CLOSE DATA
return nil
//----------------------------------------------------------------------------//
EXTERNAL ADSKEYCOUNT, ADSGETRELKEYPOS, ADSSETRELKEYPOS, ADSKEYNO
//----------------------------------------------------------------------------//
Looking at the script, it doesn't make sense
file editor which starts with the file in natural order, no index selected. It was happening toward the end of the database, but now when left clicking to select a record in the browse, it fails.
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 86 guests