Actualizé un sistema de sueldos con FWH 12.03, El problema que se me presenta es que la msgbar no queda abajo de la ventana. Si no la maximizo queda ok, pero si no me queda en el mismo lugar donde la defini antes de maximizarlo ( No en la parte inferior ). . Alguien tuvo este problema ???, Gracias por la ayuda.
If( File( CurDrive() + ":\" + CurDir() + "\gris.bmp" ) )
Define Bitmap oBitmap File CurDrive() + ":\" + CurDir() + "\gris.bmp"
Define Window oVarGlobales : oWndMain MDI Icon oIcon //STYLE nOr( WS_OVERLAPPED + WS_CAPTION + WS_POPUP )
Else
Define Brush oBrush Resource "bluestone"
Define Window oVarGlobales : oWndMain MDI Icon oIcon Brush oBrush //Style nOr( WS_POPUPWINDOW )
End
oVarGlobales : oWndMain : SetText( "- SIPEP / SIA - Servicios informáticos" + " - " + oVarGlobales : cColegio )
oVarGlobales : oWndMain : SetMenu( MainMenu() )
oImg := TImageList() : New( 32, 32 )
oImg : AddMasked( TBitmap() : Define( "salir",, oVarGlobales : oWndMain ), nRGB( 255, 255, 255 ) )
oImg : AddMasked( TBitmap() : Define( "b_alu1",, oVarGlobales : oWndMain ), nRGB( 255, 255, 255 ) )
oImg : AddMasked( TBitmap() : Define( "conceptos",, oVarGlobales : oWndMain ), nRGB( 255, 255, 255 ) )
oImg : AddMasked( TBitmap() : Define( "b_cfg",, oVarGlobales : oWndMain ), nRGB( 255, 255, 255 ) )
oImg : AddMasked( TBitmap() : Define( "b_car1",, oVarGlobales : oWndMain ), nRGB( 255, 255, 255 ) )
oRebar := TRebar():New( oVarGlobales : oWndMain )
oVarGlobales : oBar := TToolBar():New( oRebar, 32, 32, oImg )
oVarGlobales : oBar : AddButton( { || oVarGlobales : oWndMain : End() }, "Salir", "Salir del Sistema" )
oVarGlobales : oBar : AddButton( { || MsgRun( "Cargando datos. Espere por favor ... ",, { || Padron() } ) }, "Tabla de personal", " Tabla Padrón " )
oVarGlobales : oBar : AddButton( { || MsgRun( "Cargando datos. Espere por favor ... ",, { || _TablaConceptos() } ) }, "Tabla de conceptos", " Tabla conceptos " )
oVarGlobales : oBar : AddButton( { || Seleccionar() }, "Seleccionar empresa", " Empresas " )
oVarGlobales : oBar : AddButton( { || MsgRun( "Cargando datos. Espere por favor ... ",, { || CargaConceptos() } ) }, "Carga de conceptos", "Tabla Sueldos" )
//oVarGlobales : oBar : AddButton( { || MuestraCajaConceptos() }, "Carga de conceptos", "Tabla Sueldos" )
oVarGlobales : oBar : lTTBalloon := .f.
oVarGlobales : oBar : nHeight += 18
oVarGlobales : oBar : nWidth := oVarGlobales : oWndMain : nWidth
AEval( oVarGlobales : oBar : aButtons, { | aBtn, nBtn| TOBARCHANGEBUTTONSTYLE( oVarGlobales : oBar : hWnd,;
nBtn, nOr( BTNS_AUTOSIZE ) ) } )
oRebar : InsertBand( oVarGlobales : oBar )
Define MsgBar oMsg Of oVarGlobales : oWndMain Prompt "- Desarrollos Digitales - " 2007 //NoInset
//Define MsgItem oItem[ 1 ] Bitmap "m_imp" Of oVarGlobales : oWndMain : oMsgBar size 25 Action PrinterSetup()
//Define MsgItem oVarGlobales : oItems Of oVarGlobales : oWndMain : oMsgBar Prompt oVarGlobales : cPeriodo Size 200 Action MuestrameLosPeriodos() Font oFont2 Tooltip [Cambiar Periodo de trabajo] Color CLR_BLUE
//oVarGlobales : oItems : lCaja := .f.
//Define MsgItem oItems Of oVarGlobales : oWndMain : oMsgBar Prompt oVarGlobales : cUsuario Size 130 Font oFont Tooltip [usuario]
//oItems : lCaja := .t.
//oVarGlobales : oWndMain : bGotFocus := { || IniciaMenu() }
Activate Window oVarGlobales : oWndMain Maximized On Init( Accesa(), Seleccionar( 1 ) );
Valid( SalgoConTodo( oFont, oFont2, oFont3, oImg ) );
On Paint( FillWnd( oVarGlobales : oWndMain, nColor,,, oFondoPant, oBitmap ) )
