|
PROCEDURE SupprimeBarreDetitre(fen) // Oů fen est le nom de la fenętre
StyleEnCours est un entier
NouveauStyle est un entier
X est un entier
StyleEnCours = 0
NouveauStyle = API("User32","GetWindowLongA",Handle(fen),
GWL_STYLE)
StyleEnCours = OUBinaire(StyleEnCours,ETBinaire(NouveauStyle,WS_DLGFRAME))
StyleEnCours =
OUBinaire(StyleEnCours,ETBinaire(NouveauStyle,WS_SYSMENU))
StyleEnCours =
OUBinaire(StyleEnCours,ETBinaire(NouveauStyle,WS_MINIMIZEBOX))
StyleEnCours =
OUBinaire(StyleEnCours,ETBinaire(NouveauStyle,WS_MAXIMIZEBOX))
NouveauStyle =
ETBinaire(NouveauStyle,OUExclusifBinaire(WS_DLGFRAME,0xFFFFFFFF))
NouveauStyle =
ETBinaire(NouveauStyle,OUExclusifBinaire(WS_SYSMENU,0xFFFFFFFF))
NouveauStyle =
ETBinaire(NouveauStyle,OUExclusifBinaire(WS_MINIMIZEBOX,0xFFFFFFFF))
NouveauStyle =
ETBinaire(NouveauStyle,OUExclusifBinaire(WS_MAXIMIZEBOX,0xFFFFFFFF))
X = API("User32","SetWindowLongA",Handle(fen),
GWL_STYLE, NouveauStyle)
FenTaille(fen,{fen}..X,{fen}..Y+FenExtHaut(fen)-FenIntHaut(fen),{fen}..Largeur,FenIntHaut(fen))
| |
|