Page 1 of 1
Drag a control
Posted: Sat Mar 01, 2008 12:31 am
by 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
Posted: Sat Mar 01, 2008 1:19 pm
by 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