FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour BUTTON oBut DESIGN, lDrag := .t. BUTTON late Move.
Posts: 109
Joined: Sun Nov 13, 2005 12:40 AM
BUTTON oBut DESIGN, lDrag := .t. BUTTON late Move.
Posted: Tue Mar 25, 2008 04:04 AM
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?

      @ ( 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
FWH User

FWPPC User

FWLinux User
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
BUTTON oBut DESIGN, lDrag := .t. BUTTON late Move.
Posted: Tue Mar 25, 2008 10:53 AM

Are you testing it in XP or in Vista ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 109
Joined: Sun Nov 13, 2005 12:40 AM
BUTTON oBut DESIGN, lDrag := .t. BUTTON late Move.
Posted: Thu Mar 27, 2008 05:20 AM

winxp pro

FWH User

FWPPC User

FWLinux User
Posts: 109
Joined: Sun Nov 13, 2005 12:40 AM
BUTTON oBut DESIGN, lDrag := .t. BUTTON late Move.
Posted: Thu Mar 27, 2008 05:56 AM
Hi Antonio.

Thank you.

With afterwords the error is born together.

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

//--------------------------------
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)

      @ 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)
FWH User

FWPPC User

FWLinux User

Continue the discussion