Xbrowse Problem Bitmap autosort

Xbrowse Problem Bitmap autosort

Postby Silvio.Falconi » Wed Nov 07, 2018 8:53 am

I use my bitmaps for sort the columns

How I can erase the bmp default sort of xbrowse ?

Image
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7076
Joined: Thu Oct 18, 2012 7:17 pm

Re: Xbrowse Problem Bitmap autosort

Postby Silvio.Falconi » Thu Nov 08, 2018 10:14 pm

I tried also with Lautosort:=.f.

any solution please ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7076
Joined: Thu Oct 18, 2012 7:17 pm

Re: Xbrowse Problem Bitmap autosort

Postby nageswaragunupudi » Fri Nov 09, 2018 2:55 am

Code: Select all  Expand view  RUN
#include "fivewin.ch"

function Main()

   local oDlg, oBrw

   USE STATES
   SET ORDER TO TAG CODE
   GO TOP

   DEFINE DIALOG oDlg SIZE 360,300 PIXEL TRUEPIXEL
   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "STATES" AUTOCOLS AUTOSORT CELL LINES NOBORDER

   WITH OBJECT oBrw
      :AddBitmap( { "c:\fwh\bitmaps\16x16\up2.bmp", "c:\fwh\bitmaps\16x16\down2.bmp" } )
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT (   DeleteObject( oBrw:aSortBmp[ 1, 1 ] ), ;
                  DeleteObject( oBrw:aSortBmp[ 2, 1 ] ), ;
                  oBrw:aSortBmp := oBrw:aBitmaps, ;
                  oBrw:aBitmaps := {} )

return nil
 


Image

In FWH 1808, we can call
Code: Select all  Expand view  RUN

oBrw:SetSortBmp( image1, image2, [image3] )
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10662
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Xbrowse Problem Bitmap autosort

Postby Silvio.Falconi » Fri Nov 09, 2018 8:59 am

Sorry MrRao ,
here also not run ok

I have
WITH OBJECT oApp():oGrid
WITH OBJECT oApp():oGrid:aCols[1]
:AddResource("SORT_1_16")
:AddResource("SORT_2_16")
:nHeadBmpNo := 1
:nHeadBmpAlign := AL_RIGHT
:bLClickHeader :={ ||(CuSel_Index(1,"CU"), CU->(DbSetOrder(1),nOrder:=1) ) }
END
END



IF I insert :AddBitmap( { "c:\work\fwh\bitmaps\16x16\up2.bmp", "c:\work\fwh\bitmaps\16x16\down2.bmp" } )

and then
ACTIVATE DIALOG....
ON INIT ( DeleteObject( oApp():oGrid:aSortBmp[ 1, 1 ] ), ;
DeleteObject( oApp():oGrid:aSortBmp[ 2, 1 ] ), ;
oApp():oGrid:aSortBmp := oApp():oGrid:aBitmaps, ;
oApp():oGrid:aBitmaps := {},;
....

I have this error

Image




Now I resolve change
:AddBitmap( { "c:\work\fwh\bitmaps\16x16\up2.bmp", "c:\work\fwh\bitmaps\16x16\down2.bmp" } )

with

:AddBitmap( {, } )
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7076
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], MGA, Rick Lipkin and 60 guests