create a dockpanel

[Silvio.Falconi]

I wish create this dockpanel but I not Understood How create it




i made a test but I not understood How modify it

Code: Select all  Expand view

#include "fivewin.ch"



function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "Test"

   ACTIVATE WINDOW oWnd;
    ON INIT Dock(oWnd)

return nil



Function Dock(oWindow )
   local oFont
   DEFINE FONT oFont NAME "Tahoma"  SIZE 0, -11

oDock1  := TDockPnel():New( oWindow )
   WITH OBJECT oDock1
      :SetHeightCaption( 40 )

      :SetCoors( { | o | 10 }, { | o | 10 }, ;
                 { | o | Int( o:oWnd:nHeight / 2 ) + 54 }, ;
                 { | o | Int( o:oWnd:nWidth / 3 ) - XEVal( o:nLeft, o ) } )

      :SetCaption( { | o | "Partite da incassare" } )
      :SetColors(CLR_WHITE,CLR_GRAY, CLR_GREEN, CLR_WHITE )


      :SetFont( oFont )
      :SetBorderSize( 1 )
      :SetImgsFiles( { { "c:\work\fwh\bitmaps\16x16\panel.bmp", ;
    { || oDock1:aBtnBmps[ 1 ]:SetImages( if( oDock1:lSelected, "c:\work\fwh\bitmaps\16x16\panel.bmp", "c:\work\Fwh\bitmaps\16x16\check.bmp" ) ), ;
       ock1:lSelected := !oDock1:lSelected }, "ToolTip" } } )


     * :SetCtrlsPnel( { | o, nT, nL, nH, nW, oB | oB := Test1( o, nT, nL, nH, nW ) } )


     :bRClicked   := { || MsgInfo( oDock1:oWnd:aControls[ 1 ]:ClassName() ) }

      //
      // Controls predefined in :oPnelH ( interior Panel )
      //
      :lBottomH    := .F.
      :SetTypeCtrl( 2 )                    // Control TTitle
      :SetHeightCtrl( 45 )
      :SetColorsCtrl(  CLR_WHITE,CLR_GREEN )
      :aRectText   := { 1, 60 }
      :cTitH       := "Totale in scadenza da incassare"+CRLF+"€ 8.359,15"
      :Activate()
   END

return nil