Error xbrowse + lbtntransparent + MARQSTYLE_HIGHLWIN7

[Ariel]

Hola a todos,

pues eso dejo un ejemplo que reproduce el error basado en xbrwin7b.prg.

Code: Select all  Expand view

// Using Windows 7 row selection colors in xbrowse

#include 'fivewin.ch'
#include 'xbrowse.ch'

function Main()

   local oDlg, oBrw, oFont

   SET DATE ITALIAN
   SET CENTURY ON

   FwNumFormat( 'E', .t. )

   USE CUSTOMER ALIAS CUST

   DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14

   DEFINE DIALOG oDlg SIZE 640,440 PIXEL ;
      FONT oFont TITLE 'XBrowse Windows 7 Bars' ;
      COLOR CLR_BLACK,RGB(250,250,250)

   @ 10,20 XBROWSE oBrw OF oDlg SIZE -10,-20 PIXEL ;
      COLUMNS "First", "State", "Age", "HireDate", "Salary" ;
      ALIAS 'CUST' NOBORDER

   oBrw:lRecordSelector := .f.
   oBrw:nMarqueeStyle   := MARQSTYLE_HIGHLWIN7

   WITH OBJECT oBrw:InsCol( 1 )
      :cHeader       := " "
      :lBtnTransparent := .t.
      :AddBmpFile( "hlp2.bmp" )                            // con AddResource() tambien da error.
      :nBtnBmp := 1
      :nEditType := EDIT_BUTTON
        :bEditBlock   := { | r, c, o | ( msginfo("hola"), oBrw:SetFocus() ) }
                    :cToolTip := "Detalles"
        :nHeadBmpNo:= 1

   END

   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont

return nil


 

Salu2, gracias.

[Ariel]

Alguna idea ???

Los bmps de los botones con edit_button, tampoco se ajustan al boton.

salu2, Ariel.

[Ariel]

Revisando,

pasa con cualquier style, los bmps en los botones de la columna, no se ajustan adecuadamente.

salu2, Ariel.

[Ariel]

Hola

cuando definimos una columna de un xbrowse de este modo :

Code: Select all  Expand view

               
    WITH OBJECT ( oCol:= :AddCol() )
        :cHeader:= " "
        :addresource( "help" )
        :lBtnTransparent := .t.
        :nBtnBmp := 1
        :nEditType := EDIT_BUTTON
        :bEditBlock   := { | r, c, o | EditNotes( r, c, o, aDbf, .t. ) }
        :cToolTip := "Historial"
        :nHeadBmpNo:= 1
        :nWidth :=  35
        :lBmpStretch := .t.
        :nDataStrAlign := 3
        END WITH  

    with object oBrw
                :l2007      := .t.
            :nMarqueeStyle      := MARQSTYLE_HIGHLWIN7
            :lMultiSelect            := .f.
                :nColDividerStyle    := LINESTYLE_RAISED
            :bClrSelFocus        := {|| { CLR_WHITE, RGB(24, 116, 205) } }
              :lColDividerComplete := .t.
                 
                 ENDDO

 

esto presenta 2 errores :

1) la imagen del bmp NO sale centrada en el boton
2) genera este error de ejecucion :

Code: Select all  Expand view

   Time from start: 0 hours 0 mins 8 secs
   Error occurred at: 07/03/2012, 08:25:04
   Error description: Error BASE/1070  Error de argumento: ==
   Args:
     [   1] = A   { ... }
     [   2] = N   16777215

Stack Calls
===========
   Called from: .\source\classes\BRUSH.PRG => TBRUSH:NEW( 132 )
   Called from: .\source\classes\WINDOW.PRG => TCONTROL:SETCOLOR( 2519 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:SETCOLOR( 1452 )
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTCELL( 10009 )
   Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA( 9556 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DRAWLINE( 1686 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 1463 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 1250 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1666 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11627 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3159 )
   Called from:  => SYSREFRESH( 0 )

 

he probado que si saco :
:nMarqueeStyle := MARQSTYLE_HIGHLWIN7
y pongo otro estilo el error desaparece
y si saco el resource me pone bien el boton con ...

gracias.
salu2, Ariel.