xbrowse header size

[Silvio]

How I can see the size of each header with a click ?

[JC]

How I can see the size of each header with a click ?

Hello Silvio!

Try this implementation at method HeaderLButtonUp at the end of implementation of original code...

Code: Select all  Expand view  RUN

METHOD HeaderLButtonUp( nMRow, nMCol, nFlags ) CLASS TXBrwColumn

   ...

   nCol := ::oBrw:MouseColPos( nMCol ) // if the column header was clicked... more than 0, was clicked!

   IF nCol > 0 .AND. !lDragged  && if not for swapping the column

      oCol := ::oBrw:colAtPos( nCol ) // returns the object columns that was clicked
      alert( oCol:nWidth )

   ENDIF
     
RETURN


[Silvio]

thanks
But I remember there was a xbrowse method made it
I remember of a utility of Otto made it and created the source od each column...
where i can found it ?

[Otto]

http://www.fwcodesnips.com/

.Snipkeeper

Download snipkeeper + xBTool

Here are videos how to use it:

http://www.atzwanger.com/fwvideo/xbtool ... lFont.html

http://www.atzwanger.com/fwvideo/xBTool2.html

Regards,
Otto

[Silvio]

thanks

but I remember there was an command to use on xbrowse :
I used it and the when I finished to set all columns size I rem this command
this commando shoed the column size when I drag each column : it shoed a message on video with the size variable and I not Know where I take it !!!

[Otto]

have a look into:

func f_SaveState(oBrw)

in the testxbr.prg.

[JC]

thanks
But I remember there was a xbrowse method made it
I remember of a utility of Otto made it and created the source od each column...
where i can found it ?

Exists the method GetDisplayColsWidth( aSizes )... but, internally, it is the same structure... Think fine!