PureBasic

Gillou a écrit :Par contre il me semble que l'image n'est pas redimensionnée proportionnellement

De plus j'ai le coin supérieur gauche de l'image ou j'ai un trait rouge oblique d'une dizaine de pixel?

Est-ce du à ma résolution? 1680x1050?

Procedure SetWallpaper(FileName.s, TempFileBMP.s, BackgroundColor.l = $FFFFFF, Mode.l = 1) ; Mode: 1=Etirer, 2: Proportionnel, 3:Mosaïque
  Protected ImageIn.l, ImageOut.l, W, H
  
  ImageIn = LoadImage ( #PB_Any , FileName)
   If IsImage (ImageIn)
    W = ImageWidth (ImageIn)
    H = ImageHeight (ImageIn)
    WS = GetSystemMetrics_ ( #SM_CXSCREEN )
    HS = GetSystemMetrics_ ( #SM_CYSCREEN )
     If Mode = 1 ; ETIRER
         ResizeImage (ImageIn, WS, HS, #PB_Image_Smooth )
         If SaveImage (ImageIn, TempFileBMP, #PB_ImagePlugin_BMP )
            FileName = TempFileBMP
         Else
            Warning( "Can't convert image to BMP file !" )
         EndIf
     ElseIf Mode = 2 ; PROPORTIONNEL
        ImageOut = CreateImage ( #PB_Any , WS, HS)
         If StartDrawing ( ImageOutput (ImageOut))
             Box (0, 0, WS, HS, BackgroundColor)
            WC.f = WS / W
            HC.f = HS / H
             If WC > HC
                 DrawImage (ImageOut, Round ((WS - Round (HC * W, 0)) / 2, 0), 0, Round (HC * W, 0), HS)
             Else
                 DrawImage (ImageOut, 0, Round ((HS - Round (WC * H, 0)) / 2, 0), WS, Round (WC * H, 0))
             EndIf
             StopDrawing ()
             If SaveImage (ImageOut, TempFileBMP, #PB_ImagePlugin_BMP )
                FileName = TempFileBMP
             Else
                Warning( "Can't convert image to BMP file !" )
             EndIf
             FreeImage (ImageOut)
         EndIf
     Else ; MOSAIQUE
        ImageOut = CreateImage ( #PB_Any , WS, HS)
         If StartDrawing ( ImageOutput (ImageOut))
             Box (0, 0, WS, HS, BackgroundColor)
            Col = Round (WS/W, 1)
            Row = Round (HS/H, 1)
             For X = 0 To Col-1
                 For Y = 0 To Row-1
                     DrawImage ( ImageID (ImageIn), X*W, Y*H)
                 Next
             Next
             StopDrawing ()
             If SaveImage (ImageOut, TempFileBMP, #PB_ImagePlugin_BMP )
                FileName = TempFileBMP
             Else
                Warning( "Can't convert image to BMP file !" )
             EndIf
             FreeImage (ImageOut)
         EndIf
     EndIf
     FreeImage (ImageIn)
    SetWallpaperBMP(FileName, "2" )
     ProcedureReturn #True
   Else
    Warning( "This file is not a picture or does not exist :" + #CRLF$ + FileName)
     ProcedureReturn #False
   EndIf
EndProcedure

Gillou a écrit :Effectivement, je viens de regarder et c'est le redimensionnement de Windows qui est pas extra, y'aurait pas moyen d'intégrer une option de choix du format d'affichage? Etirer, Agrandissement proportionnel, Mosaïque sans passer par les paramètres de l'affichage comme dans le code qui suit?

• ADD: style d'image: centré (sans redimensionnement)
• FIX: Le générateur aléatoire de PB doit être initialisé selon le temps depuis lequel le PC tourne. Hors si le programme est lancé au démarrage, il sera exécuté à peu près au même moment à chaque démarrage. Là je me base sur la date !