Tengo el siguiente codigo:
- Code: Select all Expand view
MENU oMenu
ENDMENU
DEFINE WINDOW oWnd FROM 1, 1 TO 400, 600 PIXEL ;
TITLE cTitle ;
MENU oMenu MDI
SET MESSAGE OF oWnd TO cTitle KEYBOARD CLOCK DATE NOINSET
DEFINE OUTLOOK2003 oLbx OF oWnd ;
PROMPTS "Uno", "Dos", "Tres", "" ;
BITMAPS "bitmaps\1.bmp", "bitmaps\2.bmp", "bitmaps\3.bmp"
oWnd:oLeft = oLbx
oLbx:nWidth := 200
@ 0, 0 EXPLORERBAR oExBar OF oLbx:aDialogs[ 1 ] ;
SIZE oLbx:aDialogs[ 1 ]:nWidth, oLbx:aDialogs[ 1 ]:nHeight
@ 0,200 SPLITTER oSplit1 ;
VERTICAL ;
PREVIOUS CONTROLS oLbx ;
HINDS CONTROLS oWnd:oWndClient ;
SIZE 4, 300 PIXEL ;
OF oWnd ;
_3DLOOK
ACTIVATE WINDOW oWnd ;
ON RESIZE ( oSplit1:nHeight := oWnd:nHeight )
return nil
Pinta bien la outlook y la explorerbar, el problema viene cuando redimensiono la ventana el pintado de la explorerbar no lo hace completo, adjunto imagen.
[img]
[/img]
Alguna solucion?
Gracias