FiveTech Support Forums

DEFINE WINDOW oWid FROM nPosx, nPosy TO nAlto,nAnch TITLE  "Titulo" ICON "#8001" ;
        PIXEL NOMAXIMIZE NOMINIMIZE
        
    .................
    oDock2  := TDockPnel():New( oWid )
    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, Rgb( 0,120,215 ) , Rgb( 88, 88, 88 ), CLR_HGRAY )
        :SetBorderSize( 4 )
        :SetFont( oFont6 )
        :lLeftImgs   := .F.
        :lBottom := .F.
        :SetCtrlsPnel( { | o, nT, nL, nH, nW, oB | oB := MuestraSesion(  o, nT, nL, nH, nW ) } )
        :Activate()
    END 
    ................
    
ACTIVATE WINDOW oWid VALID (oCnEmp:close(),.T.) 
                
                   
                   
Function MuestraSesion( oP, nT, nL, nH, nW )

......

DEFINE BRUSH oBrush FILE ".\res\lyma-front.png" STRETCH
nStyle :=nOR( DS_MODALFRAME, WS_POPUP ) // Removes the ? and x on the dialogue title
DEFINE DIALOG oDlg TITLE "Dialog" STYLE nStyle;
    SIZE oP:nWidth , oP:nHeight OF oP PIXEL BRUSH oBrush
    oDlg:nTop      := 0
    oDlg:nLeft     := 0
    oDlg:lHelpIcon := .F.

    .......
    .....
    
ACTIVATE DIALOG oDlg NOWAIT ;
    ON INIT (SetParent( oDlg:hWnd, oP:hWnd ),Inicio(oDlg,aEmpresas[oBrw:nArrayAt]["e_codi"],oLamcla:oServer) ) ;
    ON MOVE oDlg:Move( 0, 0, , , .T. ) 

Return oDlg

  oWnd:bPainted := {|hDC| FW_DrawImage( hDC, ".\res\fondo-logo.png", { 0,0, 668, 668 } ),;
            oRBar:CalcPos(), oWnd:SetMenu( BuildMenu2() )}