topic-19451

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

New FWH 10.7
Posted: Wed Jul 28, 2010 05:01 AM

viewtopic.php?f=16t=19450start=0

&&

regards, saludos

Antonio Linares
www.fivetechsoft.com

MdaSolution

Posts: 401

Joined: Tue Jan 05, 2010 02:33 PM

Re: New FWH 10.7
Posted: Wed Jul 28, 2010 08:46 AM

Antonio,
Do you made some changes for create explorerBar on a Dialog and Create for the obj a vertical scroll to scroll the explorer object if we have many panels on it ?

try this sample code

Code (fw): Select all Collapse

#include "FiveWin.ch"

STATIC ODLG,oExBar

Function TestDialog()

      DEFINE DIALOG oDlg  ;
                  SIZE 800,600 ;
                  TITLE "Test ExplorerBar on a Dialog"


oExBar:=TExplorerBar():New(0, 0, 112,  800 , oDlg)


ACTIVATE DIALOG   oDlg  ON INIT BarExplorer(oExBar)


return nil 

FUNCTION BarExplorer(oExBar)
   local oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }

  oPanel1:= oExBar:AddPanel( "Panel 1", , 200)
  oPanel1:lSpecial:=.T.
  oPanel2 = oExBar:AddPanel( "Panel 2", , 200)
  oPanel3 = oExBar:AddPanel( "Panel 3", , 100)
  oPanel4 = oExBar:AddPanel( "Panel 4", , 200)
  oPanel5 = oExBar:AddPanel( "Panel 5", , 100)
  oPanel6 = oExBar:AddPanel( "Panel 6", , 200)


   oPanel1:AddLink( "First item", bClick, "additem" )
   oPanel1:AddLink( "Second item", bClick, "copy" )

   oPanel2:AddLink( "First item", bClick, "adddbf" )
   oPanel2:AddLink( "Second item", bClick, "delete" )
   oPanel2:AddLink( "Third item", bClick, "envelope" )
   oPanel2:AddLink( "Fourth item", bClick, "envelope")

   oPanel3:AddLink( "First item", bClick, "adddbf" )
   oPanel3:AddLink( "Second item", bClick, "delete" )
   oPanel3:AddLink( "Third item", bClick, "envelope" )
   oPanel3:AddLink( "Fourth item", bClick, "envelope")

   oPanel4:AddLink( "First item", bClick, "adddbf" )
   oPanel4:AddLink( "Second item", bClick, "delete" )
   oPanel4:AddLink( "Third item", bClick, "envelope" )
   oPanel4:AddLink( "Fourth item", bClick, "envelope")

   oPanel5:AddLink( "First item", bClick, "adddbf" )
   oPanel5:AddLink( "Second item", bClick, "delete" )
   oPanel5:AddLink( "Third item", bClick, "envelope" )
   oPanel5:AddLink( "Fourth item", bClick, "envelope")

   oPanel6:AddLink( "First item", bClick, "adddbf" )
   oPanel6:AddLink( "Second item", bClick, "delete" )
   oPanel6:AddLink( "Third item", bClick, "envelope" )
   oPanel6:AddLink( "Fourth item", bClick, "envelope")

     oDlg:oleft= oExBar

   RETU NIL

FWH .. BC582.. xharbour

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Re: New FWH 10.7
Posted: Wed Jul 28, 2010 02:18 PM

Antonio,

One nice improvement would be for the panels to automatically resize themselves based on how many items they contain. Of course, this means the following panels have to move up to fill the space.

This is how Windows Explorer's panels work.

Regards,
James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

TimStone

Posts: 3022

Joined: Fri Oct 07, 2005 01:45 PM

Re: New FWH 10.7
Posted: Wed Jul 28, 2010 05:17 PM

Antonio,

I posted a problem with the calendar class, and a complete fix was provided several weeks ago. I'm sorry that was not added to this build. You might want to review the thread on it.

Thanks.

Tim

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit

MdaSolution

Posts: 401

Joined: Tue Jan 05, 2010 02:33 PM

Re: New FWH 10.7
Posted: Wed Jul 28, 2010 08:05 PM

James,

if you try Reyes explorerbar class you can see how explorer object work on a dialog

We need a scroll bar near to panel to scroll all panels into object oExplorerbar if the numbers of panel are > of the height of object Explorerbar

Perhaps there is something I not undestand of Explorerbar class

My suggestion and propose is that we must create a TasPanel object often explorerbar obj

I explain you :

a Task panel object can be into a dialog or a window

If we must use many taskpanels as my sample test we can create a panel simply with a vertical scroll as the panel of fwppc

but this is only a suggestion...

FWH .. BC582.. xharbour

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Re: New FWH 10.7
Posted: Wed Jul 28, 2010 10:52 PM

I expect Antiono has plans to add scrolling. However, he does have to prioritize his work.

James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: New FWH 10.7
Posted: Thu Jul 29, 2010 04:27 AM

TimStone wrote:Antonio,

I posted a problem with the calendar class, and a complete fix was provided several weeks ago. I'm sorry that was not added to this build. You might want to review the thread on it.

Thanks.

Tim

Is that fix working well for you?

Regards

G. N. Rao.

Hyderabad, India

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 10.7
Posted: Thu Jul 29, 2010 01:09 PM

James,

James Bott wrote:Antonio,

One nice improvement would be for the panels to automatically resize themselves based on how many items they contain. Of course, this means the following panels have to move up to fill the space.

This is how Windows Explorer's panels work.

Regards,
James

It is the way FWH Class TExplorerBar actually works

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 10.7
Posted: Thu Jul 29, 2010 01:11 PM

Tim,

Surely we will publish a revised FWH 10.7 version, tomorrow or along this next weekend. There were some missing items to include.

We have already updated the published whatsnew.txt here in the forums, and some more info will be added :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 10.7
Posted: Sat Jul 31, 2010 05:27 AM

Published a revised FWH 10.7 build

Please download it again, thanks :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

MdaSolution

Posts: 401

Joined: Tue Jan 05, 2010 02:33 PM

Re: New FWH 10.7
Posted: Tue Aug 03, 2010 03:28 PM

Sorry Mr Antonio,
We saw your modifies but...
Perhaps we not explain you the problem!

We need to insert a xbrowse on this dialog and the vertical scroll of xbrowse come near to vertical scroll of dialog

On Window system this is no correct.

Please try this sample

Code (fw): Select all Collapse

#include "FiveWin.ch"
#include "Splitter.ch"

STATIC oDlg,oExBar

Function TestDialog()
   Local aBrowse, oGrid ,nSplit,oSplit

   nSplit :=112


      DEFINE DIALOG oDlg  ;
                  SIZE 800,600 ;
                  TITLE "Test ExplorerBar on a Dialog"


oExBar:=TExplorerBar():New(0, 0, nSplit,  800 , oDlg)

USE CUSTOMER

   oGrid := TXBrowse():New( oDlg )
   oGrid:nTop    := 00
   oGrid:nLeft   := nSplit+2
   oGrid:nBottom :=  oDlg:nBottom




     aBrowse   := { { { || CU->FIRST }, i18n("First"), 150, 0 },;
                  { { || CU->LAST  }, i18n("Last"), 150, 0 },;
                  { { || CU->STREET}, i18n("Street"), 150, 0 },;
                  { { || CU->CITY } , i18n("City"), 150, 0 }  }


    FOR i := 1 TO Len(aBrowse)
      oCol := oGrid:AddCol()
      oCol:bStrData := aBrowse[ i, 1 ]
      oCol:cHeader  := aBrowse[ i, 2 ]
      oCol:nWidth   := aBrowse[ i, 3 ]
      oCol:nDataStrAlign := aBrowse[ i, 4 ]
      oCol:nHeadStrAlign := aBrowse[ i, 4 ]
   NEXT


   oGrid:SetRDD()
   oGrid:CreateFromCode()
  oDlg:oClient := oGrid

  
    @ 00, nSplit SPLITTER oSplit ;
      VERTICAL ;
       COLOR RGB(143,172,230) ;
      PREVIOUS CONTROLS oExBar;
      HINDS CONTROLS oGrid;
      SIZE 1, oDlg:nBottom  PIXEL ;
      OF oDlg ;
      UPDATE
          









ACTIVATE DIALOG   oDlg  ON INIT BarExplorer(oExBar)


return nil

FUNCTION BarExplorer(oExBar)
   local oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }

  oPanel1:= oExBar:AddPanel( "Panel 1", , 200)
  oPanel1:lSpecial:=.T.
  oPanel2 = oExBar:AddPanel( "Panel 2", , 200)
  oPanel3 = oExBar:AddPanel( "Panel 3", , 100)
  oPanel4 = oExBar:AddPanel( "Panel 4", , 200)
  oPanel5 = oExBar:AddPanel( "Panel 5", , 100)
  oPanel6 = oExBar:AddPanel( "Panel 6", , 200)


   oPanel1:AddLink( "First item", bClick, "additem" )
   oPanel1:AddLink( "Second item", bClick, "copy" )

   oPanel2:AddLink( "First item", bClick, "adddbf" )
   oPanel2:AddLink( "Second item", bClick, "delete" )
   oPanel2:AddLink( "Third item", bClick, "envelope" )
   oPanel2:AddLink( "Fourth item", bClick, "envelope")

   oPanel3:AddLink( "First item", bClick, "adddbf" )
   oPanel3:AddLink( "Second item", bClick, "delete" )
   oPanel3:AddLink( "Third item", bClick, "envelope" )
   oPanel3:AddLink( "Fourth item", bClick, "envelope")

   oPanel4:AddLink( "First item", bClick, "adddbf" )
   oPanel4:AddLink( "Second item", bClick, "delete" )
   oPanel4:AddLink( "Third item", bClick, "envelope" )
   oPanel4:AddLink( "Fourth item", bClick, "envelope")

   oPanel5:AddLink( "First item", bClick, "adddbf" )
   oPanel5:AddLink( "Second item", bClick, "delete" )
   oPanel5:AddLink( "Third item", bClick, "envelope" )
   oPanel5:AddLink( "Fourth item", bClick, "envelope")

   oPanel6:AddLink( "First item", bClick, "adddbf" )
   oPanel6:AddLink( "Second item", bClick, "delete" )
   oPanel6:AddLink( "Third item", bClick, "envelope" )
   oPanel6:AddLink( "Fourth item", bClick, "envelope")

     oDlg:oleft= oExBar

   RETU NIL

FWH .. BC582.. xharbour

MdaSolution

Posts: 401

Joined: Tue Jan 05, 2010 02:33 PM

Re: New FWH 10.7
Posted: Thu Aug 05, 2010 09:20 PM

Dear Antonio,
We resolved the problem !!

Now Run Ok

Look this

We have played on..... Tpanel solution it is easy!!!!

Only when we make the resize of the main window it not refresh the value of the scroll ( or the height of explorerbar) Any Idea ?

FWH .. BC582.. xharbour

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: New FWH 10.7
Posted: Thu Aug 05, 2010 09:49 PM

You have to bind your TPanel solution to TWindow. It is easy.
Best regards,
Otto

MdaSolution

Posts: 401

Joined: Tue Jan 05, 2010 02:33 PM

Re: New FWH 10.7
Posted: Thu Aug 05, 2010 11:20 PM

Otto,

I use a main window no mdi

on this I made a dialog with (nor style 4) Tfsdi tecnique

and on this dialog I insert 3 panel and at last the explorerbar class

I not use mdichild windows ...

FWH .. BC582.. xharbour

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

Re: New FWH 10.7
Posted: Fri Aug 13, 2010 11:29 PM

MdaSolution,

It looks like you are using a splitter, and if so, I suggest not using it. Windows Explorer doesn't use one. There is no real reason to use one since there is no reason to need to resize the Explorer bar. Not using the splitter will make it simpler to code.

Are you setting each control to the window objects for top, left and client?

oWnd:oTop:= oRibbonbar
oWnd:oLeft:= oExplorerbar
oWnd:oClient:= oBrw

Then resizing should work.

You don't need any panels for this.

Regards,
James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

FiveTech Support Forums