Is xBrowse.prg different than FWH*.LIB?

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Is xBrowse.prg different than FWH*.LIB?
Posted: Fri Nov 07, 2008 01:38 PM

Hi,

I have array xbrowse sample with logical columns. When It runs, Logical values (.t., .f.) is printed with checkon, chechoff bmps.

1) How can I delete .t. or .f. printout?
2) How can i center the bmps in colums?

Thanks,

Code: Select all Collapse

#include "FiveWin.ch"
#include "xbrowse.ch"


function Main()

   local oDlg,oBrw1, aData
   
   aData := {{"Aaaaaaaaaa",.T.,.T.,.T.,.T.},;
   					{"Bbbbbbbbbb",.T.,.f.,.T.,.T.},;
   					{"Cccccccccc",.T.,.T.,.T.,.T.},;
   					{"Dddddddddd",.f.,.T.,.f.,.T.},;
 						{"Eeeeeeeeee",.T.,.T.,.T.,.f.}}

   DEFINE DIALOG oDlg TITLE "I am a DialogBox" PIXEL SIZE 600,400
   
  @ 0,0 XBROWSE oBrw1 OF oDlg  ;
       COLUMNS {1, 2, 3, 4, 5} ;
     HEADERS {"Procedure", "Add","Edit","Delete","Monitor"} ;
     ARRAY aData ;
     AUTOSORT SIZE 200,100
     
       if ! Empty( oCol := oBrw1:oCol( "Add" ) )
      oCol:SetCheck( { "ON", "OFF" } )
      oCol:cSortOrder  := nil
      //oCol:lBmpStretch = .T.
      oCol:nWidth := 50
      oCol:SetAlign(2)
   endif
   if ! Empty( oCol := oBrw1:oCol( "Edit" ) )
      oCol:SetCheck( { "ON", "OFF" } )
      oCol:cSortOrder  := nil
      // oCol:lBmpStretch = .T.
   endif
   if ! Empty( oCol := oBrw1:oCol( "Delete" ) )
      oCol:SetCheck( { "ON", "OFF" } )
      oCol:cSortOrder  := nil
      // oCol:lBmpStretch = .T.
   endif
   if ! Empty( oCol := oBrw1:oCol( "Monitor" ) )
      oCol:SetCheck( { "ON", "OFF" } )
      oCol:cSortOrder  := nil
      // oCol:lBmpStretch = .T.
   endif
	oBrw1:nMarqueeStyle := 5

	oBrw1:CreateFromCode()


   ACTIVATE DIALOG oDlg CENTERED 

return nil

test.rc

Code: Select all Collapse

ON 	BITMAP "checkon.bmp"
OFF BITMAP "checkoff.bmp"

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

miragerr

Posts: 140

Joined: Tue Oct 11, 2005 02:36 AM

Is xBrowse.prg different than FWH*.LIB?
Posted: Fri Nov 07, 2008 10:30 PM

Comigo tambem acontece a mesma coisa

o que fazer ??

Jackson Douglas C. Brito

Boa Vista - RR - Brasil

FWH 12.09 Last Build

xHarbour Free

UESTUDIO

SQLRDD

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Is xBrowse.prg different than FWH*.LIB?
Posted: Fri Nov 07, 2008 11:10 PM

http://www.fivetechsoft.com/forums/view ... hp?t=13260

i dont speak english but i`ll try

2) How can i center the bmps in colums?

change method PainData()
find this lines and change only one line

Code: Select all Collapse

      if ::bStrData == nil .OR. ::nDataBmpAlign == AL_CENTER   // add .or. instruction to end ( only this )
         nBmpCol  := Max( 0, nCol + nWidth / 2 )
         lStretch := ::lBmpStretch
      elseif ::nDataBmpAlign == AL_LEFT
         nBmpCol := nCol
         nCol    += aBitmap[ BITMAP_WIDTH ] + BMP_EXTRAWIDTH
      else
         nBmpCol := nCol + nWidth
      endif

now you can use LEFT CENTER RIGHT

1) How can I delete .t. or .f. printout?
oCol:={||NIL}

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Is xBrowse.prg different than FWH*.LIB?
Posted: Sat Nov 08, 2008 11:49 AM

Thank you very much mcfox.

Antonio,

Will you add this fix to original xbrowse.prg? or should i keep it in my prg?

Thanks,

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Is xBrowse.prg different than FWH*.LIB?
Posted: Mon Nov 10, 2008 12:28 PM

Hi,

I have solved the array problem via your changes in xBrowse.prg. But my normal DBF xbrowses in my app. does not work now.

Code: Select all Collapse

tack Calls
===========
   Called from:  => LEN(0)
   Called from: D:\PRG\520\fwhclass\xbrowse.prg => CHECKARRAY(7581)
   Called from: D:\PRG\520\fwhclass\xbrowse.prg => XBROWSENEW(7474)
   Called from: wLib_1.PRG => WYK_LIST(98)
   Called from: wLib_2.PRG => USGRUP(446)
   Called from: DAVAW.PRG => (b)MAIN(271)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(0)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(0)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0)
   Called from: .\source\classes\WINDOW.PRG => _FWH(0)
   Called from:  => WINRUN(0)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(0)
   Called from: DAVAW.PRG => MAIN(331)

I have installed the fwh 8.10 again. I have not done any changes in xbrowse.prg. But I just added the xbrowse.prg in my project make. (Xbuilder). The same error occured again. If I removed the xbrowse.prg from my project make, It is OK.

I wonder that Is xBrowse.prg different from FWH*.LIB.

Thanks

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

anserkk

Posts: 1335