Retoques en la calculadora
Publicado: Vie Jun 25, 2021 2:36 am
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
//--------------------------------------------------------
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