FiveTech Software tech support forums

... FMimeDec(cTemp,cTemp2) //Esta es la funcion que nos permite leer la imagen en la base de datos if file(cTemp2) ShellExecute(GetActiveWindow(),"open",cTemp2) else MsgAlert("No ha sido posible leer la imagen de la base de datos" ,oApp:cEmpresa) endif else MsgInfo("No existe ...

... nFor-- ENDDO // nFor endif MsgAlert(elTexto,"No hay mas coincidencias con ") retu .t. // 27/06/2005 FUNCTION busca2Script(UNO,DOS) local hWnd := GetActiveWindow() Local nFor:=1,cLine Local nLines IF VALTYPE(UNO)="U";retu .t.;endif IF VALTYPE(oMemo)="U";retu .t.;endif nLines:=len(oMemo:aLines) ...

... nFor-- ENDDO // nFor endif MsgAlert(elTexto,"No hay mas coincidencias con ") retu .t. // 27/06/2005 FUNCTION busca2Script(UNO,DOS) local hWnd := GetActiveWindow() Local nFor:=1,cLine Local nLines IF VALTYPE(UNO)="U";retu .t.;endif IF VALTYPE(oMemo)="U";retu .t.;endif nLines:=len(oMemo:aLines) ...

... *********************************************************** METHOD New( cFile, hWnd ) CLASS TSCAN32 IF Empty( hWnd ) ::hWnd := GetActiveWindow() ENDIF IF Empty( cFile ) ::cFile := "TestTscan32.jpg" ELSE ::cFile := cFile ENDIF tw_setapptitle("Software XP Office Packages") tw_setapplicationkey(00000000) ...

... EndDo MsgRun("") DbCloseall() Use \WINCAP\TEMP\CONTROL NEW ZAP APPEND BLANK REPLACE CONTROL->FECHAJUSTI WITH DFIN Shellexecute(GetActiveWindow(), 'Open',"\WINCAP\TEMP\justenva.EXE",,,1) DBcloseall() sYSREFRESH() RETURN NIL FUNCTION LISTb(PathData, dfin) LOCAL nCont, oDbf, nsum, ...

... does suggest me that??? This function is for the LAST object used by FW. Antonio, functions of FW don't have that, it should be something similar GetActiveWindow, GetFocus (), etc, see the examples that I passed you. Remember, I can have several open windows, and any one can be the window activates

... M. Giordano // Insert here the function to create the report // oWnd:End() // George - To close current preview oDevice:hDC := GetPrintDefault( GetActiveWindow() ) SysRefresh() WriteProfString( "windows", "device", cPrinter ) RETURN nil

... considered that a main window or dialog has to be created before) If you try this without creating a window, Windows is returning zero: MsgInfo( GetActiveWindow() ) In order to have GetTasks() running fine, call it from a running window: DEFINE BUTTON OF oBar ACTION MsgInfo( Len( GetTasks() ) )

Thank you. If I use printer-class it does not work.
What I find out is that printer-class uses GetPrintDC( GetActiveWindow()...
but the function TextOut works.

TextOut( oDevice:hDC, 100, 100,"Does work , horizontal printing" )

Now I can do what I wanted - the real CC.

... * ( pFilter + wLen + 1 ) = 0; _bset( ( char * ) &ofn, 0, sizeof( OPENFILENAME ) ); ofn.lStructSize = sizeof( OPENFILENAME ); ofn.hwndOwner = GetActiveWindow(); ofn.lpstrFilter = pFilter; ofn.lpstrFile = pFile; ofn.lpstrInitialDir = pDir; ofn.lpstrTitle = pTitle; ofn.lpstrCustomFilter = 0; ...

... } } SCAN_DeallocateBuffer(lpScanBuffer); } state = FALSE; SCAN_SetSoftTrigger(hScanner, &state); } else { MessageBox( GetActiveWindow(), L"Error en SCAN_Enable", L"Ok", 0 ); } } else { MessageBox( GetActiveWindow(), L"Error en SCAN_Open", L"Ok", 0 ); } } #pragma ENDDUMP

... "windows", "device", cCbx ) SysRefresh() PrinterInit() DeleteDC( oDevice:hDC ) // Sugestion by Enrico M. Giordano oDevice:hDC := GetPrintDefault( GetActiveWindow() ) oWnd:End() // To close current preview // Insert here the function to create the report SysRefresh() WriteProfString( "windows", ...

Antonio:

Don't know if those docs refer to a MAPI logon dlg or similar, because
passing a 0 instead of GetActiveWindow() (or even passing Outlook's hWnd) makes no difference.

Or the docs are wrong, or MS is screwing us up!

Thanks!

Luis

... to behave MODLESS instead of forcing the calling app to remain MODAL till it's done? I noticed (in mapi.c) that the call to mapisendmail uses GetActiveWindow() as one of it's parameters. From our app I tried doing a SetActiveWindow() to Outlook's hWnd (which I already know and I'm positive ...

... } } SCAN_DeallocateBuffer(lpScanBuffer); } state = FALSE; SCAN_SetSoftTrigger(hScanner, &state); } else { MessageBox( GetActiveWindow(), L"Error en SCAN_Enable", L"Ok", 0 ); } } else { MessageBox( GetActiveWindow(), L"Error en SCAN_Open", L"Ok", 0 ); } } HB_FUNC (STILLRUN) ...