- Code: Select all Expand view
- 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