bug xBrowse Win7 style FW 11.7

[ukservice]

Hello.

Recent change in Win7 style does not work.

I move scroll to Johnny but it remains at top Homer:



Uploaded with ImageShack.us

Code: Select all  Expand view

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



static oFont, ovFont

function main()

   local oWnd, oBrw

   use customer

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-12
   DEFINE FONT oVfont NAME 'TAHOMA' SIZE 0,-12 NESCAPEMENT 900

   DEFINE WINDOW oWnd
   oWnd:SetFont( oFont )

   @ 0,0 XBROWSE oBrw ;
      COLUMNS 'First', 'Last', 'Age' ;
      OF oWnd ;
      ALIAS 'CUSTOMER' ;
      LINES CELL

   WITH OBJECT oBrw:oCol( "Age" )
      :oHeaderFont := oVFont
      :cHeader := "Age Of Employee"
      :AddBmpFile( '..\bitmaps\attach.bmp' )
      :nHeadBmpNo := 1
   END


  oBrw:nMarqueeStyle       := 7
  oBrw:nColDividerStyle    := LINESTYLE_BLACK
  oBrw:lColDividerComplete := .T.
  oBrw:nHeaderLines        := 1.5
  oBrw:lRecordSelector     := .F.  
  oBrw:nStretchCol = STRETCHCOL_LAST


   oBrw:CreateFromCode()
   oWnd:oClient := oBrw

   SET MESSAGE OF oWnd TO "XBrowse Vertical Fonts" 2007
   ACTIVATE WINDOW oWnd MAXIMIZED

return nil
//===========================
 

[nageswaragunupudi]

Cursor movement of MARQSTYLE_HIGHLWIN7 works the same way as MARQSTYLE_HIGHLROWMS.

When we scroll with scroll wheel, the new position is shown with dotted rectangle and the high-lite remains at the original row. When we click on the new row or move with cursor keys highlite also is moved. This behavior is same in both cases including multi-select functionality.

This behavior is also similar to windows 7 browsing style.
Please see the screen shot below where it can be seen that the highlite remains at the original position and the current position is shown in dotted rectangle till clicked or moved to with cursor keys.

Screen shiot from xbrwin7
Similar to window 7 ( not exactlyidentical)

[ukservice]

Mr. Nao,

Thank you for your reply.

I need previous highlite with Windows 7 style. How can I get it please?.

Why don´t rename this 11.7 new feature as other new style and keep previous as number 7?.

I can´t change design to my customers. Also, maybe others want to keep tradicicional highlite with Windows 7 look.

Thank you.

[nageswaragunupudi]

Previous implementation of WIN7 style was not like windows 7 style. That was the complaint earlier, which is now fixed. Now WIN7 is like windows 7 style this is exactly the beahavior of xbrowse full horizontal bar multiselect mode also.

[ukservice]

Well, i need previous windows7 look.

It could be named as 2007 or other.

But I can´t change suddenly xbrowse behaviour.

Thank you.

[ukservice]

Hello.

Any solution to keep old Win7 style behaviour with a different name?.

Thanks

[Antonio Linares]

viewtopic.php?p=118644#p118644

[ukservice]

Antonio,

Fixes work fine but I would appreciate a permanent solution so as not changing xbrowse.prg with every update.

Maybe defining a new style?.

Por example, WIN7OLD?

[Antonio Linares]

Listened and planning it...

[ukservice]

Thank you Antonio.

[Antonio Linares]

Implemented in FWH 11.09

oBrw:lMultiselect := .F.

Mr. Rao has implemented it in a very nice way, thanks!