FiveTech Support Forums

Function TestDockPnel()

local nCol
local nRow
Local nTotLargo := 0
Local cUrl := "http://forums.fivetechsupport.com/viewforum.php?f=6"
Local nAncFinal := 0
Local nAltFinal := 0

nWAncho   := Int( GetSysMetrics( 0 ) * 0.95 )

nWAlto    := Int( GetSysMetrics( 1 ) * 0.95 )
nCol      := Int( ( GetSysMetrics( 0 ) - nWAncho ) / 2 )
nRow      := Int( ( GetSysMetrics( 1 ) - nWAlto  ) / 2 )

nAltFinal := (nWAlto-20) + nRow
nAncFinal := (nWAncho) + nCol

DEFINE DIALOG oWindow FROM nRow, nCol TO nAltFinal, nAncFinal ; 
PIXEL TITLE "TDockPnel sobre dialogo" ;
COLOR CLR_WHITE, Rgb( 182, 182, 182 ) 

    oDock1  := TDockPnel():New( oWindow )
    WITH OBJECT oDock1
        :SetHeightCaption( 30 )
        :SetCoors( { | o | 10 }, ;
        { | o | 10 }, ;
        { | o | Int( o:oWnd:nHeight  ) - 50 }, ;
        { | o | (Int( o:oWnd:nWidth / 12 )*8) - XEVal( o:nLeft, o ) } )
        :SetCaption( { | o | "Título" } )
        :SetColors( CLR_WHITE, CLR_RED , Rgb( 88, 88, 88 ), CLR_HGRAY )
        :SetFont( oFont4 )
        :lLeftImgs   := .F.
        :SetBorderSize( 4 )
        :SetCtrlsPnel( { | o, nT, nL, nH, nW, oB | oB := ShowPageWeb( o, cUrl, nT, nL, nH, nW ) }  )      
        :bRClicked   := { || MsgInfo( oDock1:oWnd:aControls[ 1 ]:ClassName() ) }
        :Activate()
    END
    
    oDock2  := TDockPnel():New( oWindow )
    WITH OBJECT oDock2
        :SetHeightCaption( 30 )
        :SetCoors( { | o | XEval( o:oWnd:aControls[ 1 ]:nTop, o ) }, ;
        { | o | XEval( o:oWnd:aControls[ 1 ]:nRight, o ) + 10 }, ;
        { | o | XEval( o:oWnd:aControls[ 1 ]:nBottom, o ) - 1 }, ;
        { | o | (Int( o:oWnd:nWidth / 12 )*4) + XEval( o:nLeft, o ) - 25 } )
        :SetCaption( { | o | "Información" } )
        :SetColors( CLR_WHITE, Rgb( 0,120,215 ) , Rgb( 88, 88, 88 ), CLR_HGRAY )
        :SetBorderSize( 4 )
        :SetFont( oFont4 )
        :lLeftImgs   := .F.
        :Activate()
    END 

ACTIVATE DIALOG oWindow

FUNCTION inicioprueba()
Local oDlgIc

Define Font oFont Name "Calibri" Size 0,-12 Bold
Define Font oFont1 Name "Calibri" Size 0,-13
Define Font oFont2 Name "Calibri" Size 0,-16 Bold

nWAncho   := Int( GetSysMetrics( 0 ) * 0.95 )
nWAlto    := Int( GetSysMetrics( 1 ) * 0.95 )
nCol      := Int( ( GetSysMetrics( 0 ) - nWAncho ) / 2 )
nRow      := Int( ( GetSysMetrics( 1 ) - nWAlto  ) / 2 )

nAltFinal := (nWAlto-20) + nRow
nAncFinal := (nWAncho) + nCol

DEFINE DIALOG oDlgIc FROM nRow, nCol TO nAltFinal, nAncFinal ; 
PIXEL TITLE "| HYMPLUS / LYMA - Sistemas de Información |" ;
COLOR CLR_WHITE, Rgb( 182, 182, 182 )   


ACTIVATE DIALOG oDlgIc ON INIT CrearPaneles(oDlgIc)
Return nil

Function CrearPaneles(oDlg)

oDock1  := TDockPnel():New( oDlg )
WITH OBJECT oDock1
    :SetHeightCaption( 30 )
    :SetCoors( { | o | 10 }, ;
    { | o | 10 }, ;
    { | o | Int( o:oWnd:nHeight  ) - 50 }, ;
    { | o | (Int( o:oWnd:nWidth / 12 )*8) - XEVal( o:nLeft, o ) } )
    :SetCaption( { | o | "Información de Interes" } )
    :SetColors( CLR_WHITE, CLR_RED , Rgb( 88, 88, 88 ), CLR_HGRAY )
    :SetFont( oFont4 )
    :lLeftImgs   := .F.
    :lBottom := .F. 
    :SetBorderSize( 4 )
    :SetCtrlsPnel( { | o, nT, nL, nH, nW, oB | oB := ShowPageWeb( o, cUrl, nT, nL, nH, nW ) }  )      
    :bRClicked   := { || MsgInfo( oDock1:oWnd:aControls[ 1 ]:ClassName() ) }
    :Activate()
END

oDock2  := TDockPnel():New( oDlg )
WITH OBJECT oDock2
    :SetHeightCaption( 30 )
    :SetCoors( { | o | XEval( o:oWnd:aControls[ 1 ]:nTop, o ) }, ;
    { | o | XEval( o:oWnd:aControls[ 1 ]:nRight, o ) + 10 }, ;
    { | o | XEval( o:oWnd:aControls[ 1 ]:nBottom, o ) - 1 }, ;
    { | o | (Int( o:oWnd:nWidth / 12 )*4) + XEval( o:nLeft, o ) - 25 } )
    :SetCaption( { | o | "Inicio de Sesión" } )
    :SetColors( CLR_WHITE, CLR_RED , Rgb( 88, 88, 88 ), CLR_HGRAY )
    :SetBorderSize( 4 )
    :SetFont( oFont4 )
    :lLeftImgs   := .F.
    :lBottom := .F.
    :SetCtrlsPnel( { | o, nT, nL, nH, nW | MyTest1(  o, nT, nL, nH, nW, oRsEmp, lRetorna ) } )
    :Activate()
END  

Return nil

C:\XHBBCC74\lib\gtwin.Lib

ó:

C:\XHBBCC74\lib\gtgui.Lib

 
:SetColors( CLR_WHITE, CLR_RED , Rgb( 88, 88, 88 ), CLR_HGRAY )