Xailer forum

No me gustaba que se pusiera en forma MODAL y me obligara a cerrarla para volver a la aplicación.

//--------------------------------------------------------
PROCEDURE Calculator( nDecimals ) // --> n/a
DEFAULT nDecimals TO 4
IF oCalculator == Nil
oCalculator := TCalculator():New( Application )
oCalculator:nDecimals := nDecimals
oCalculator:SetDisplay()
oCalculator:SetBounds( Screen:nClientWidth - oCalculator:nWidth - 10, 10 )
ENDIF
IF !oCalculator:lVisible
oCalculator:Show()
ENDIF
oCalculator:SetFocus()
RETURN

// agregar en la zona de C++
HB_FUNC( GETWNDHND )
{
HWND hWnd;
hWnd = FindWindow(NULL, hb_parc( 1 ));
hb_retnl ((long) hWnd );
}

//--------------------------------------------------------------------------
// para forzar el apagado al salir del sistema
FUNCTION DescargarCalculadora()
local nHandle := GETWNDHND("Calculadora")
IF nHandle > 0
DestroyWindow( nHandle )
ENDIF
RETURN NIL