topic-30762

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

xbrowse check and unckeck
Posted: Tue May 26, 2015 02:42 PM

Hi

I have a xbrowse with an empty array at any given time will fill this array with data and the first column to 0 for unchecked record. How to set this column with bitmap check and unckeck when clicked?

Thanks.

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: xbrowse check and unckeck
Posted: Tue May 26, 2015 05:42 PM

Here you have an example:

Code (fw): Select all Collapse

   WITH OBJECT oBrw:InsCol( 1 )
      :cHeader    := "Selected"
      :SetCheck( { "blackdot", nil }, .t. )
      :bKeyChar   := { |k| If( k == 32, ( oBrw:oCol( 1 ):CheckToggle(), 0 ), nil ) }
   END

But I think that it should use a logical value instead of a zero

regards, saludos

Antonio Linares
www.fivetechsoft.com

Wanderson

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

Re: xbrowse check and unckeck
Posted: Tue May 26, 2015 05:52 PM

Antonio Linares wrote:Here you have an example:
Code (fw): Select all Collapse
   WITH OBJECT oBrw:InsCol( 1 )
      :cHeader    := "Selected"
      :SetCheck( { "blackdot", nil }, .t. )
      :bKeyChar   := { |k| If( k == 32, ( oBrw:oCol( 1 ):CheckToggle(), 0 ), nil ) }
   END
But I think that it should use a logical value instead of a zero

Hi thank you Antonio,

I use xbrowse with resource please tell me how i do in this case:

oCol := oBrwc:AddCol()
oCol:AddResource( "UNCHECK" )
oCol:AddResource( "CHECK" )
oCol:SetCheck( { "CHECK", nil }, .t. )
oCol:lBmpStretch := .f.
oCol:lBmpTransparent := .t.
oCol:nHeadStrAlign := oCol:nDataBmpAlign := AL_CENTER
oCol:cHeader := ""
oCol:nWidth := 18
oCol:nArrayCol := 1

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: xbrowse check and unckeck
Posted: Tue May 26, 2015 06:42 PM

Code (fw): Select all Collapse

   // Testxbrw.prg y testxbrw.rc
   oCol:SetCheck( { "GREEN", "RED" }, {|o, v| (DBRLOCK(), _FIELD->Married := v, DBUNLOCK() ) } )

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: xbrowse check and unckeck
Posted: Tue May 26, 2015 09:22 PM

Wanderson,

myarray := { { 1, .t., "Hello" }, {2, .f., "World" } }

oBrw:aCols[2]:AddBmpHandle( "Chk_T" )
oBrw:aCols[2]:AddBmpHandle( "Chk_F" )
oCol:bBmpData := {|| IF( myArray[ oBrw:nArrayAt, 2], 1, 2) }
oCol:bStrData := { || Nil }

Regards
Paco

____________________

Paco

FiveTech Support Forums

Continue the discussion