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