FiveTech Software tech support forums

... DIALOG oDlg1 NOWAIT ON INIT (oDlg1:Move( 0, 0 )); VALID( IF(oWndChild#NIL,oWndChild:END(),),.T.) ********************** * dlg 2 DEFINE DIALOG oDlg2 RESOURCE "TOUCHTELA" OF oWndChild redefine listBox pfaobRW Fields OF oDlg2 id 511 SIZES 45,100,400,80,80,80,70,20,80 COLORS CLR_BLACK,CLR_LGREEN ...

Me contesto a mí mismo.

El error estaba en que luego de llamar a la función que dibuja el oDlg2, hacía un oDlg1:setfocus().

Rolando

Buen día, Tengo un dialog oDlg2 activado como NOWAIT que vendría a ser "hijo" de un oDlg1. Este oDlg2 se dibuja a partir "clickear" un botón que está en oDlg1. El problema que tengo, es que como oDlg2 es NOWAIT, no toma el foco al ser ...

Antonio,

The odlg2 seems does not work properly ,for example, xbrowse unmoveable .
Regards!

Shuming Wang

Antonio, How could I switch from one dialog to another freely if they are non dialogs? Normaly we call and create another dialog odlg2 after ckick /press the first dialog . function main() define dialog odlg1 redefine button id 101 of odlg1 action createdialog2() activate dialog odlg1 ...

Shuming,

dialogs are non modal between them, unless you specify OF ... or the previous dialog has focus:

DEFINE DIALOG oDlg2 OF oDlg1

... 1, nCol,i,i2,nchoice:=1,lok:=.f. LOCAL cBuffer local cDBF LOCAL cValue LOCAL cTable LOCAL nHandle LOCAL nFields LOCAL nField LOCAL nPos ,ofont14,odlg2,cvaltype LOCAL aarray1 local Arry1:={},arry2:={},cfile1:="d:\aaa.dbf"+SPACE(15),arry3,cAlias1,utmpvar,utmpvar1 local noldrowsel:=::nrowsel if ...

... SI ES TAN AMABLE GRACIAS : JOSE Function avi601() LOCAL oFont5 local oBtm5 local oBtm6 local oBmp6, oBmp, oBtnbmp LOCAL oIcon3 local oBarra local oDlg2 CNOMBRE:=space(30) CCVECAN:=CIMPORTE:=0 FUERA:=.T. FUERA2:=.T. FUERA3:=.T. OKEY:=.T. RET:=.T. set _3dlook on //patres:="z:\aviores" // USE C:\AVIO\AVIORES\maepro ...

... xCuoFij:= oRsTACRMENS:fields("AM_CUO_FIJ"):value xFactor:= oRsTACRMENS:fields("AM_PORCENT"):value DEFINE DIALOG oDlg2 RESOURCE "IMPBAJAS" REDEFINE SAY oSay1 VAR xLimInf ID 101 OF oDlg2 PICTURE "###########.##" REDEFINE SAY oSay1 VAR xLimSup ID 102 OF oDlg2 PICTURE ...

... oDlg:END() ACTIVATE DIALOG oDlg oDLG:END() RETURN( NIL ) //----------------------- Static FUNC _FINDENTR( cITEM,oDLG,oRS ) LOCAL cFIND, cTITLE, oDLG2 cFIND := "BOGUS" DO CASE CASE cITEM = "File Number" cFIND := SPACE(10) cTITLE := "Enter a File Number" ENDCASE DEFINE DIALOG oDlg1 ; FROM 14,10 ...

... encontrado a través de OLEVIEW.EXE: RMChart.RMChartX {E9BE51139-9DF4-40A6-B4F7-B7CB54FE6CD1} Yo usar de este modo oActivex:TActivex():New(ODLG2, "RMChart.RMChartX") RMC_CreateChart function. Create a new chart -------------------------------------------------------------------------------- ...

... oWin ON INIT Show_List() return nil //----------------------------------------------------------------------------// procedure Show_List() local oDlg2, oLbx local aItems aItems := { {"AA100", 20, 30},{"AA110", 20, 30},{"BA150", 20.5, 30.5},{"CD200", 25.1, 30.5}} DEFINE DIALOG oDlg2 RESOURCE "BrwseCostInvt" ...

... METHOD Init() CLASS ACBrwCust // Now initialise all Class variables ::DBFAlias := "Some Alias" return nil METHOD BrwseCust() CLASS ACBrwCust local oDlg2 DEFINE DIALOG oDlg2 RESOURCE "Brwse1Cst" REDEFINE BTNBMP ID 1000 OF oDlg2; ACTION (MsgInfo("If Displayed ... Button press works OK" )) // REDEFINE ...

... SIZE 385, 110 OF oDlg6 ACTIVATE Dialog odLG6 oLbx1:UpStable() oLbx1:Refresh() Return NIL Function Busca(cclave,oget2,oGet3,oLbx,osay2,odlg6) local oDlg2, oBmp1,oSay66 SELECT 1 nRegistro:=Recno() DEFINE FONT oFont65 NAME "monospac821 bt" SIZE 0, -12 BOLD If Empty(cClave)=.F. SELECT 1 USE C:\GrupoTex\General ...

... SIZE 385, 110 OF oDlg6 ACTIVATE Dialog odLG6 oLbx1:UpStable() oLbx1:Refresh() Return NIL Function Busca(cclave,oget2,oGet3,oLbx,osay2,odlg6) local oDlg2, oBmp1,oSay66 SELECT 1 nRegistro:=Recno() DEFINE FONT oFont65 NAME "monospac821 bt" SIZE 0, -12 BOLD If Empty(cClave)=.F. SELECT 1 USE C:\GrupoTex\General ...