FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Help for dockpanel
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Help for dockpanel
Posted: Thu May 25, 2023 08:38 PM
I made this
Code (fw): Select all Collapse
 oDock2  := TDockPnel():New( oWnd )
   WITH OBJECT oDock2
      :SetHeightCaption( 40 )
      :SetCoors( { | o | 10 }, { | o | 10 }, ;
                 { | o | Int( o:oWnd:nHeight / 7 ) + 54 }, ;
                 { | o | Int( o:oWnd:nWidth -20 ) - XEVal( o:nLeft, o ) } )
      :SetCaption( { | o | "Title of dockpanel" } )
      :SetColors( CLR_BLACK, RGB(245,245,245), RGB(245,245,245), CLR_WHITE )
      :SetBorderSize( 1 )
      :SetFont( oFont )
      :lLeftImgs   := .T.

     :SetImgsFiles( { { "home.png", , "button1" },;   //big
                      { "image.png", { | o | MyPopupMnu( o ) }, "button2" }  } )  //small   why it not is at right of oDock1 ? 

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

      :Activate()
   END

I wish Have on Header a Big Image with a Title and then at right two text with small images one to open a menupopup
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 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

Continue the discussion