PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → Wx - WxMinimizar
Wx - WxMinimizar
Débuté par BOLLER, 19 juil. 2017 18:10 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 19 juillet 2017 - 18:10
Procedure WxMinimizar()

nWinStyle is int

nNewStyle is int

nPropiedadd is int = 0x2

// -0x1 Disable Maxime
// -0x2 Disable Minimize
// -0x8 Disable the system menu (icon, max & min buttons, etc)
// -040 Disable tittle bar
// -0x4 Disable resize

nWinStyle = CallDLL32("User32", "GetWindowLongA", Handle(""), -16)

//nNewStyle = BinaryXOR(HiWord(nWinStyle),0x2) * 65536 + LoWord(nWinStyle)

nNewStyle = MakeInteger( BinaryXOR(HiWord(nWinStyle),0x2) , LoWord(nWinStyle) )

CallDLL32("User32", "SetWindowLongA", Handle(""), -16, nNewStyle)

CallDLL32("User32", "SetWindowPos", Handle(""), 0, 0, 0, 0, 0, 0x27)

//---------------------------------------------------------------------------------------------------
//Codigo extra para auxiliar en toma de desiciones (si quieres crecer la funcion para que con un parametro active o //desactive, se puede eliminar sin problema
//---------------------------------------------------------------------------------------------------

IF HiWord(nNewStyle)-HiWord(nWinStyle) > 0 THEN

//El nuevo estilo contempla el cambio (por eso es mayor en valor)

Info("Se activo")

ELSE

Info("Desactivado")

END

//BTN_SYST_MAXIMIZE..Visible=False
//BTN_SYST_MINIMIZE..Visible=False
//BTN_SYST_CLOSE..Visible=False

//-----------------------------RETURN


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/