David --
Vous trouverez ci-dessous la fonction pour ajouter le CS_DROPSHADOW à une fenêtre WinDev.
çà marche bien quand la fenêtre est au dessus du bureau de windows.
C'est pas terrible au dessus d'une autre fenêtre WinDev...
FUNCTION DropShadow(hWnd is int)
Success is int = False
IF API("USER32", "IsWindow", hWnd) THEN
sVersion is string = Left(SysWindowsVersion(), 1)
Ret is int
IF StringCount("XV2", sVersion) THEN // XP, 2003, VISTA
Ret = API("USER32","GetClassLongA", hWnd, GCL_STYLE)
IF BinaryAND(Ret, CS_DROPSHADOW) = 0 THEN
Ret += CS_DROPSHADOW
IF API("USER32","SetClassLongA", hWnd, GCL_STYLE, Ret) THEN Success = True
END
END
END
RESULT Success
Note: Je préfère écrire mon code en anglais, si ce n'est pas votre cas, cliquez sur l'option langue du code pour convertir le code ci-dessus en BASICOIS. |