TreeView Problem (SOLVED)

[Horizon]

Hi

I have a problem with TreeView. First of all, this is not new. it was the same in fwh 1204.

This problem occurs treeview in folderx. The sample is below. this sample expands all items. if you change vertical scrollbar, treeview items mixed.

Any comments?

Thanks.

Code: Select all  Expand view

// Using a TreeView with checkboxes and checking their status

#include "FiveWin.ch"

function Main()

   local oDlg, oTree

   DEFINE DIALOG oDlg SIZE 400, 300

  @ 2, 3 FOLDERex oFld OF oDlg PIXEL ;
      PROMPTS "&Folder1", "F&older2","Fo&lder3";
      ROUND 10

    @ 0,0 TREEVIEW oTree OF oFld:aDialogs[1] SIZE 195, 130 PIXEL

   ACTIVATE DIALOG oDlg CENTERED ON INIT BuildTree( oTree )

return nil

function BuildTree( oTree )

   local oItem

   oItem := oTree:Add( "Main.Item1" )
      oItem:Add( "Detail.Item1..." )
      oItem:Add( "Detail.Item2..." )
      oItem:Add( "Detail.Item3..." )
      oItem:Add( "Detail.Item4..." )
      oItem:Add( "Detail.Item5..." )
      oItem:Add( "Detail.Item6..." )

   oItem:= oTree:Add( "Main.Item2" )
      oItem:Add( "Detail.Item1..." )
      oItem:Add( "Detail.Item2..." )
      oItem:Add( "Detail.Item3..." )
      oItem:Add( "Detail.Item4..." )
      oItem:Add( "Detail.Item5..." )
      oItem:Add( "Detail.Item6..." )

   oItem := oTree:Add( "Main.Item3" )
      oItem1 := oItem:Add( "Detail.Item1..." )
        oItem1:Add( "Detailmmm.Item1..." )
        oItem1:Add( "Detailmmm.Item2..." )
      oItem1 := oItem:Add( "Detail.Item2..." )
        oItem1:Add( "Detailmmm.Item3..." )
        oItem1:Add( "Detailmmm.Item4..." )
      oItem1 := oItem:Add( "Detail.Item3..." )
        oItem1:Add( "Detailmmm.Item5..." )
        oItem1:Add( "Detailmmm.Item6..." )
      oItem1 := oItem:Add( "Detail.Item4..." )
        oItem1:Add( "Detailmmm.Item7..." )
        oItem1:Add( "Detailmmm.Item8..." )
      oItem1 := oItem:Add( "Detail.Item5..." )
        oItem1:Add( "Detailmmm.Item9..." )
        oItem1:Add( "Detailmmm.Item10..." )
      oItem1 := oItem:Add( "Detail.Item6..." )
        oItem1:Add( "Detailmmm.Item11..." )
        oItem1:Add( "Detailmmm.Item12..." )
      oItem1 := oItem:Add( "Detail.Item7..." )
        oItem1:Add( "Detailmmm.Item13..." )
        oItem1:Add( "Detailmmm.Item14..." )
      oItem1 := oItem:Add( "Detail.Item8..." )
        oItem1:Add( "Detailmmm.Item15..." )
        oItem1:Add( "Detailmmm.Item16..." )
      oItem1 := oItem:Add( "Detail.Item9..." )
        oItem1:Add( "Detailmmm.Item17..." )
        oItem1:Add( "Detailmmm.Item18..." )
      oItem1 := oItem:Add( "Detail.Item10..." )
        oItem1:Add( "Detailmmm.Item19..." )
        oItem1:Add( "Detailmmm.Item20..." )
      oItem1 := oItem:Add( "Detail.Item11..." )
        oItem1:Add( "Detailmmm.Item21..." )
        oItem1:Add( "Detailmmm.Item1..." )
      oItem1 := oItem:Add( "Detail.Item12..." )
        oItem1:Add( "Detailmmm.Item22..." )
        oItem1:Add( "Detailmmm.Item23..." )
      oItem1 := oItem:Add( "Detail.Item13..." )
        oItem1:Add( "Detailmmm.Item24..." )
        oItem1:Add( "Detailmmm.Item25..." )

   oTree:ExpandAll()


return nil
 

[Horizon]

Antonio?

[Antonio Linares]

Hakan,

Have yoy tried to refresh the treeview ? If that solves the problem. Then we should try to fire it automatically

[Horizon]

Hi Antonio,

Where should i put refresh. Which method should use?

Thanks

[Antonio Linares]

Hakan,

These changes are required in Class TTreeView Method New(): (fwh\source\classes\ttreevie.prg)

line 168: (added the styles CS_VREDRAW and CS_HREDRAW)

Code: Select all  Expand view

  ::nStyle    = nOR( WS_CHILD, WS_VISIBLE, CS_VREDRAW, CS_HREDRAW,;
                      If( lDesign, WS_CLIPSIBLINGS, 0 ), WS_TABSTOP,;
                      TVS_HASBUTTONS, TVS_HASLINES, TVS_LINESATROOT, TVS_SHOWSELALWAYS, TVS_DISABLEDRAGDROP,;
                      If( lCheckBoxes, TVS_CHECKBOXES, 0 ) )
 

[Horizon]

Hi Antonio,

I have changed the ttreevie.prg and put this prg to my make file and compile, but there is no change.

[Antonio Linares]

Hakan,

Here it seems to be working fine. Please test my EXE on your computer, thanks:

https://code.google.com/p/fivewin-contributions/downloads/detail?name=hakan.zip

[Horizon]

Hakan,

Here it seems to be working fine. Please test my EXE on your computer, thanks:

https://code.google.com/p/fivewin-contributions/downloads/detail?name=hakan.zip

Antonio,

There is also problem in your exe. I have tested my win 7 64x and XP.

Please slide the vertical bar bottom side and top side.

Thanks

[Antonio Linares]

Hakan,

This is not a perfect solution but it helps:

METHOD VScroll( nWParam, nLParam ) INLINE ::oWnd:Refresh(), nil

in Class TTreeView

[Horizon]

Hakan,

This is not a perfect solution but it helps:

METHOD VScroll( nWParam, nLParam ) INLINE ::oWnd:Refresh(), nil

in Class TTreeView

Antonio,

Unfortuanely, it does not work.

Thanks.

[Antonio Linares]

Hakan,

When you release the mouse on the vertical scrollbar, it should repaint it properly. Here it works

[Horizon]

Antonio,

You are right. When i released the button, it refresh. but it is not suitable for customers.

Why does not refresh the ttreeview in folder/x class? I could not understand it.

Thanks again.

[Antonio Linares]

Hakan,

In tfoldex.prg line 347 comment this line:

// oDlg:lTransparent := .T.

[Horizon]

Hi Antonio,

It is ok now without changing anything in ttreevie.prg.
Will you change it next month fwh in tfolderx.prg?

Thanks.

[Antonio Linares]

Hakan,

Yes, it will be included in next FWH build, thanks