![Image](http://img394.imageshack.us/img394/3556/outlookst4.png)
DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;
PROMPTS "Mail", "Calendar", "Contacts", "" ;
BITMAPS "mail.bmp", "calendar.bmp", "notes.bmp"
METHOD _BeginPaint() CLASS TWindow
local cPS
if ::nPaintCount == nil
::nPaintCount = 1
else
::nPaintCount++
endif
::hDC = BeginPaint( ::hWnd, @cPS )
::cPS = cPS
if ::hDC == 0
MsgBeep() // tenemos un hDC no válido !
endif
return nil
Antonio Linares wrote:Carlos,
Fijate que en tu imagen el pushbutton y la statusbar estan bien. Luego es algo propio de los controles creados por FWH. A ver si cazamos el bug...
REDEFINE OUTLOOK2003 oOutL2003 ID 110 OF oDlg ;
PROMPTS "One", "Two", "Three" ;
BITMAPS "mail.bmp", "calendar.bmp", "notes.bmp" ;
DIALOGS "Page1", "Page2", "Page3"
REDEFINE BUTTON ID 110 OF oOutL2003:aDialogs[ 1 ] ACTION MsgInfo( "Click" )
...
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 20 guests