create a dockpanel

create a dockpanel

Postby Silvio.Falconi » Mon Feb 21, 2022 10:04 pm

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


Image

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


 
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 36 guests