FiveTech Software tech support forums

... // Esta funcion selecionada una ventana MDI si ya esta abierta. LOCAL i:=0, lSuccess:=.f. cTitle:=upper(cTitle) FOR i=1 TO LEN(oWndP:oWndClient:aWnd) IF UPPER( oWndP:oWndClient:aWnd[i]:cCaption )=cTitle oWndP:oWndClient:aWnd[i]:SetFocus() lSuccess:=.t. ENDIF NEXT RETURN lSuccess Return NIL

The easiest way is to add the dialog to an array when activating (use on init clause) and delete from the array when closing (use valid clause).

Other way is
aWnd := GetAllWin()
Check if each oWnd in aWnd is a valid object and if it is a dialog and add it to aDialog array

... vscroll title cTitulo s_oWndExcel:bKeyDown := {| nKey | IIf(nKey==VK_ESCAPE,s_oWndExcel:end(),; IIf(nKey==VK_F6 .and. len(M->oWnd:oWndClient:aWnd) > 1, M->oWnd:NextWindow(),))} activate window s_oWndExcel maximized ON Init(OnInitExcel(@oExcel)); Valid(ValidExcel( oExcel )) return /*********************************************/ ...

... vscroll title cTitulo s_oWndExcel:bKeyDown := {| nKey | IIf(nKey==VK_ESCAPE,s_oWndExcel:end(),; IIf(nKey==VK_F6 .and. len(M->oWnd:oWndClient:aWnd) > 1, M->oWnd:NextWindow(),))} activate window s_oWndExcel maximized ON Init(OnInitExcel(@oExcel)); Valid(ValidExcel( oExcel )) return /*********************************************/ ...

Cuando carga el programa , ningún control tiene foco , una vez selecionado uno , ya queda con foco . No va ninguna de los dos . aWnd[ nArea ]:bLClicked = {|nRow,nCol,nFlags| DeactivateItem(), ; StartSelection( nRow, nCol, aWnd[ nArea ] ), ; nAktArea := aWnd[ nArea ]:nArea,; DeactivateItem(), ...

... lUp := .F. DEFAULT lDown := .F. DEFAULT lPageUp := .F. DEFAULT lPageDown := .F. DEFAULT lPos := .F. pausa(1) UnSelectAll() FOR i := 1 TO 100 IF aWnd[i] <> NIL aFirstWndCoors := GetCoors( aWnd[i]:hWnd ) EXIT ENDIF NEXT .... cuando realizo el primer scroll pasa la pausa sin cambiar nada ...

He modificado el código que acababa de subir, me había liado con los aRulers

En realidad pintamos directamente sobre las ventanas MDIChild que estan en aWnd

Poco a poco enteréndonos de en donde está cada cosa

... IIF( oGenVar:aAreaHide[nArea], nRulerTop, GetPixel( nHeight ) + nAreaZugabe ), .T. ) C:\Git\easyreport_n1\source\ereport.prg(3084): aWnd[i]:Move( aWnd[i]:nTop + GetPixel( nHeight - nOldHeight ), ; C:\Git\easyreport_n1\source\ereport.prg(3089): nTotalHeight += GetPixel( nHeight - ...

...                WINDOW.PRG      169   189!  195! 1175  2550  2556  2558  2559  2700  2708                   2709  3798  3800  3834  4111  4114 AWND                    WINDOW.PRG     2854  2855  2856  4051  4086  4097 BCLRGRAD                WINDOW.PRG      442 BCOMMNOTIFY            WINDOW.PRG ...

...  , "TECLA2" => nil       , "ACCION" => { || ::oWnd:tile() }         , "WHEN" => { || len( ::oWnd:oWndClient:aWnd ) > 0 } }, ;             { "DESCRIP" => hIdioma:mnuVentHoriz  , "TIPO" => "1", "FLAGS1" => ...

... 15 veces una ventana MdiChild. Para evitar eso, en FW2.0 utilicé el siguiente código que ahora no funciona en Fwh: if ASCAN( oWndMain:oWndClient:aWnd, {|x| x:cargo == "ZONAS"} ) == 0 DEFINE WINDOW oWndZona MDICHILD FROM 0,0 TO MAXROW(), MAXCOL() OF oWndMain ; TITLE "MAESTRO DE ...

... static function RefreshBar() local oBar := oWndMain:oBar:aControls if Len( oWndMain:oWndClient:aWnd ) == 1 AEval( oBar, { |x,y| If( y == 1, x:Enable(), x:Disable() ) }, 1, 7 ) AEval( oBar, { |x| x:Refresh() }, 1, 7 ) endif return .t. //----------------------------------------------------------------------------// ...

... C:\Users\David\DOCUME~2\MISPRO~1\Gesco\Gesco.prg => MAIN(37) Si lo hacemos con ventanas MDI: (comentando la línea WHEN Len( oWndMain:oWndClient:aWnd ) == 0 ; en testrtf.prg) Application =========== Path and name: C:\FWH\samples\testrtf.exe (32 bits) Size: 1,482,240 bytes Time from start: 0 hours ...

Jairo,

En oWnd:oWndClient:aWnd tienes un array con las ventanas MDICHILD solamente

... local i:=0, lSuccess:=.f., cTitle:= upper( cTit ) for i=1 to len(oWnd:oWndClient:aWnd) if upper( oWnd:oWndClient:aWnd[i]:cCaption )=cTitle lSuccess:=.t. endif next return lSuccess