FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
Wx - WxMinimizar
Wx - WxMinimizar
Débuté par BOLLER, 19 juil. 2017 18:10 - Aucune réponse
Connectez-vous…
BOLLER
#1
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 19 juillet 2017 - 18:10
Procedure
WxMinimizar
(
)
n
WinStyle
is int
n
NewStyle
is int
n
Propiedadd
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
n
WinStyle
=
CallDLL32
(
"User32"
,
"GetWindowLongA"
,
Handle
(
""
)
, -
16
)
//nNewStyle = BinaryXOR(HiWord(nWinStyle),0x2) * 65536 + LoWord(nWinStyle)
n
NewStyle
=
MakeInteger
(
BinaryXOR
(
HiWord
(
n
WinStyle
)
,
0x2
) ,
LoWord
(
n
WinStyle
) )
CallDLL32
(
"User32"
,
"SetWindowLongA"
,
Handle
(
""
)
, -
16
,
n
NewStyle
)
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
(
n
NewStyle
)
-
HiWord
(
n
WinStyle
) >
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/
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte