Hi,
Why when I click on the button below, the button does not skip ? If I remove skinbuttons(), its ok.
#include "fivewin.ch"
function main()
Local oDlg
Local oNum
Local cNum
skinbuttons()
if (!file("TestNum.dbf"))
tmpdbf:= {}
AAdd(tmpdbf, {"Num", "C", 40, 0})
dbcreate("TestNum.dbf", tmpdbf)
dbusearea(.T., Nil, "TestNum", Nil, Nil, .F.)
Append Blank
Replace Num With "One"
Append Blank
Replace Num With "Two"
Append Blank
Replace Num With "Three"
Append Blank
Replace Num With "Four"
Append Blank
Replace Num With "Five"
EndIf
use TestNum new
goto top
cNum:= TestNum->Num
DEFINE DIALOG oDlg FROM 0, 0 TO 26, 79 ;
TITLE "Test"
@ 9.95, 15.5 BUTTON "&NEXT" OF oDlg SIZE 40, 12 ;
ACTION ( Nextlast(), ;
cNum:= TestNum->Num, oNum:Refresh())
@ 9.95, 8.5 BUTTON "&TOP" OF oDlg SIZE 40, 12 ;
ACTION ( Toplast(), ;
cNum:= TestNum->Num, oNum:Refresh())
@ 9.95, 22.5 BUTTON "&PREV" OF oDlg SIZE 40, 12 ;
ACTION ( Prevlast(), ;
cNum:= TestNum->Num, oNum:Refresh())
@ 9.95, 29.5 BUTTON "&BOTTOM" OF oDlg SIZE 40, 12 ;
ACTION ( Botlast(), ;
cNum:= TestNum->Num, oNum:Refresh())
@ 9.95, 36.5 BUTTON "&END" OF oDlg SIZE 40, 12 ACTION oDlg:End()
@ 0, 1 say "Number:"
@ 0, 10 say oNum VAR cNum OF oDlg SIZE 45, 11 COLOR CLR_GREEN
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
***************************
STATIC Function Toplast()
GOTO TOP
return nil
***************************
STATIC Function Nextlast()
TestNum->(dbskip())
if eof()
msginfo("No More Record Found")
GO BOTTOM
endif
return nil
***************************
STATIC Function Prevlast()
TestNum->(dbskip(-1))
IF bof()
msginfo("No Previous Record Found")
GOTO TOP
endif
return nil
***************************
STATIC Function Botlast()
GO BOTTOM
return nil
***************************
Thanks
Regards
AC Woo
using fwh910+harbour+bcc55