a dialog ws_child
Posted: Fri Dec 20, 2013 8:13 am
I wish create a WS_CHILD DIALOG into a folder at bottom
I need it to create a small dialog into the bottom of the first folder to ask to final user a value and then end the ws_child dialog
but it not run ok
here a minimal test to try
I need it to create a small dialog into the bottom of the first folder to ask to final user a value and then end the ws_child dialog
but it not run ok
here a minimal test to try
- Code: Select all Expand view
#Include "Fivewin.ch"
#include "constant.ch"
Function Main()
Local oFrmInvoice
Local oFld
Local nBottom := 35
Local nRight := 110
Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 )
Local nHeight := nBottom * DLG_CHARPIX_H
DEFINE DIALOG oFrmInvoice TITLE "test" ;
SIZE nWidth, nHeight PIXEL
@ 25, 3 FOLDER oFld OF oFrmInvoice SIZE 100, 100 PIXEL ;
PROMPT "Righe documento","Pagamento","Note","Indirizzi","Opzione"
ACTIVATE DIALOG oFrmInvoice CENTER ON INIT Test2(oFrmInvoice,oFld)
RETURN NIL
Function Test2(oFrmInvoice,oFld)
Local nBottom := 20
Local nRight := 99
Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 )
Local nHeight := nBottom * DLG_CHARPIX_H
Local oDlgBarra
DEFINE DIALOG oDlgBarra OF oFld:adialogs[1] STYLE WS_CHILD ;
FROM 20, 10 TO 10,10 PIXEL
// @
ACTIVATE DIALOG oDlgBarra
Retur Nil