BUTTON oBut DESIGN, lDrag := .t. BUTTON late Move.

[yunbg1]

Hi antonio.

The new territory nRow which moves with the BUTTON DESIGN and the nCol the law which it knows

lDrag: =.t. It does,

The button moves and the nRow and nCol price of the button which moves newly?

Code: Select all  Expand view  RUN


      @ ( 1*65)+1-8,1004 BTNBMP oField[01] RESOURCE "button"  CENTER PROMPT "" SIZE 272, 66  OF oWnd_Main NOBORDER ACTION test(1)


   hh := 1
   for kl:= 0 to 3
       for kj := 0 to 5
           @ 110+(kl*52), 15+(kj*162) BUTTONBMP oField[19+hh] PROMPT alltrim(str(hh,2))+" 번" OF oWnd_Main SIZE 160, 50 PIXEL FONT oFont3 //ACTION test(hh)
           //oField[19+hh]:lUpdate := .t.
           oField[19+hh]:lDrag := .t.
           hh += 1
       next
   next

func test(sno)

msginfo(oField[20]:nBottom)
msginfo(oField[20]:nRight)

retu nil



[Antonio Linares]

Are you testing it in XP or in Vista ?

[yunbg1]

winxp pro

[yunbg1]

Hi Antonio.

Thank you.

With afterwords the error is born together.

Me from the (DEFINE DIALOG) it wents using with the DESIGN.

Code: Select all  Expand view  RUN


//--------------------------------
FUNC main()

DEFINE WINDOW oWnd_Main FROM 0, 0 TO 0, 0 COLOR CLR_BLACK, CLR_WHITE  STYLE nOr( WS_POPUP, WS_VISIBLE ) TITLE "test"

ACTIVATE WINDOW oWnd_Main MAXIMIZED ON INIT ( dlg() )

RETU NIL

//--------------------------------
FUNC dlg()

DEFINE DIALOG oWndC OF oWnd_Main PIXEL FROM 90, 1 TO 980, 1100 STYLE nOr(WS_CHILD) COLOR CLR_BLACK, CLR_WHITE

      @ 10,10 BUTTONBMP oBut PROMPT "test" OF oWndC SIZE 52, 30 PIXEL FONT oFont1 DESIGN

ACTIVATE DIALOG oWndC

RETU NIL


====> Error Message

Called from: .\source\classes\WINDOW.PRG => WNDCREATEERROR(0)
Called from: => TWINDOW:CREATE(0)
Called from: => TWINDOW:NEW(0)
Called from: => TBUTTONBMP:CHECKDOTS(0)
Called from: => TBUTTON:NEW(0)
Called from: => TBUTTONBMP:NEW(0)
Called from: main.prg => TEST_SETTING(228)
Called from: main.prg => (b)MAIN(119)
Called from: => TBTNBMP:CLICK(0)
Called from: => TBTNBMP:LBUTTONUP(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TBTNBMP:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: main.prg => MAIN(129)

Code: Select all  Expand view  RUN

      @ 10,10 BUTTON oBut PROMPT "test" OF oWndC SIZE 52, 30 PIXEL FONT oFont1 DESIGN


====> Error Message

Called from: .\source\classes\WINDOW.PRG => WNDCREATEERROR(0)
Called from: => TWINDOW:CREATE(0)
Called from: => TWINDOW:NEW(0)
Called from: => TBUTTON:CHECKDOTS(0)
Called from: => TBUTTON:NEW(0)
Called from: main.prg => TEST_SETTING(228)
Called from: main.prg => (b)MAIN(119)
Called from: => TBTNBMP:CLICK(0)
Called from: => TBTNBMP:LBUTTONUP(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TBTNBMP:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: main.prg => MAIN(129)