Drag a control

[Otto]

Drag a control

If I drag a control for example a button the outline is painted a 20 pixel lower as the control.
Does someone have an idea what could be the reason?
Thanks in advance
Otto

[Otto]

Here is a small example showing the problem

#INCLUDE "FIVEWIN.CH"


func Main()
local oBtn ,oBar,oWnd ,oMenu

MENU oMenu
MENUITEM ( "&Datei" )
MENU
MENUITEM ("E n d e") ACTION (oWnd:Minimize(),oWnd:End())
ENDMENU
ENDMENU


DEFINE WINDOW oWnd ;
FROM 0,0 TO 800,1024 PIXEL;
TITLE ("Test") ;
Menu oMenu;
VSCROLL;
HSCROLL


DEFINE BUTTONBAR oBar BUTTONSIZE 80,60 OF oWnd
oBar:l2007 = .T.

@ 200, 50 BUTTONBMP oBtn OF oWnd ;
ACTION (oBtn:End() ) ;
BITMAP ".\bitmaps\16x16\EXIT2.BMP" ;
PROMPT " Abbruch" PIXEL TEXTRIGHT SIZE 200,20 ;
MESSAGE "Abbruch"

oBtn:lDrag = .t.


ACTIVATE WINDOW oWnd MAXIMIZED

RETURN NIL