PureBasic Forums - English

Code: Select all

If InitSprite()
  If OpenWindow(0,0,0,100,100,"Icon Test",#PB_Window_TitleBar|#PB_Window_MinimizeGadget|#PB_Window_SystemMenu)
    If OpenWindowedScreen(WindowID(0),0,0,WindowWidth(0),WindowHeight(0),0,0,0)
      If LoadImage(0,"MouseUp_16x16.ico")
        If CopyImage(0,1)
          If ResizeImage(1,32,32,#PB_Image_Smooth)
            ;ResizeImage(1,32,32,#PB_Image_Smooth)
            If StartDrawing(ScreenOutput())
              DrawImage(ImageID(0),0,0)
              DrawImage(ImageID(1),0,20)
              StopDrawing()
              While WaitWindowEvent()<>#PB_Event_CloseWindow : Wend
            Else
              Debug "Failed to init Drawing"
            EndIf
          Else
            Debug "Failed to resize Image"
          EndIf
          FreeImage(1)
        Else
          Debug "Failed to copy Image"
        EndIf
        FreeImage(0)
      Else
        Debug "Failed to load Image"
      EndIf
      CloseScreen()
    Else
      Debug "Failed to open windowed Screen"
    EndIf
    CloseWindow(0)
  Else
    Debug "Failed to open Window"
  EndIf
Else
  Debug "InitSprite() failed"
EndIf
End

Code: Select all

;replace CopyImage(0,1) with:
CreateImage(1,ImageWidth(0),ImageHeight(0))
StartDrawing(ImageOutput(1))
  DrawImage(ImageID(0),0,0)
StopDrawing()

Code: Select all

; offen:	Dekstop-Tiefe ohne ExamineDesktops
; gelöst:	Überblenden geht nicht (Schatten des letzten Bilds)
; offen:	Resize-Fehler

;{
  Global ScreenX=1024;GetSystemMetrics_(#SM_CXSCREEN)
  Global ScreenY=768;GetSystemMetrics_(#SM_CYSCREEN)
  Global FrameSizeX=ScreenX*0.72;640
  Global FrameSizeY=ScreenY*0.74;0.9;540

  Structure PictStruct
    id.l
    x.l
    y.l
    w.l
    h.l
  EndStructure

  Global Dim Picture.PictStruct(1)

;}

Procedure ScalePicture(n)
  Protected factor.f


  Picture(n)\w=ImageWidth(n)
  Picture(n)\h=ImageHeight(n)

  If Picture(n)\w>FrameSizeX
    factor=FrameSizeX/Picture(n)\w
    Picture(n)\w*factor
    Picture(n)\h*factor
  EndIf
  If Picture(n)\h>FrameSizeY
    factor.f=FrameSizeY/Picture(n)\h
    Picture(n)\w*factor
    Picture(n)\h*factor
  EndIf

  Picture(n)\id=ImageID(n)
  Picture(n)\x=(ScreenX-Picture(n)\w)>>1
  Picture(n)\y=(ScreenY-Picture(n)\h)>>1

  ; DOES NOT WORK!!!!!
  ;ResizeImage(n,Picture(n)\w,Picture(n)\h,#PB_Image_Smooth)

  If IsSprite(n) : FreeSprite(n) : EndIf
  CreateSprite(n,Picture(n)\w,Picture(n)\h,#PB_Sprite_Texture)

  ; "Workaround"...
  StartDrawing(SpriteOutput(n))
  ; DOES NOT WORK WITH CERTAIN PICTURES
  ; - even when used with 32 bit colors - small black rectangles at the top etc.
  ; - but more problems with 16/24 bit modes - strange stripes etc.

  DrawImage(Picture(n)\id,0,0,Picture(n)\w,Picture(n)\h); because Resize doesn't work
  StopDrawing()

  If IsSprite3D(n) : FreeSprite3D(n) : EndIf
  CreateSprite3D(n,n)

EndProcedure

UseJPEGImageDecoder()
If (InitSprite() And InitSprite3D())
  If OpenScreen(ScreenX,ScreenY,32,"Diashow")

    ; ////////
    LoadImage(0,"E:\Programs\Prog\Source\!Fade\CIMG0172.jpg",#PB_Image_DisplayFormat)
    ; ///////

    ; /////////////////
    x=2
    ; /////////////////
    FlipBuffers()

    Select x
    Case 1
      ; here's everything ok...
      StartDrawing(ScreenOutput())
      DrawImage(ImageID(0),0,0,Picture(n)\w,Picture(n)\h)
      StopDrawing()
    Case 2
      ; this picture already does not look perfect
      ScalePicture(0)
      StartDrawing(ScreenOutput())
      DrawImage(Picture(n)\id,0,0);,Picture(n)\w,Picture(n)\h)
      StopDrawing()
    Case 3
      ; target - for fade effect in dia show
      ScalePicture(0)
      Start3D()
      DisplaySprite3D(0,Picture(0)\x,Picture(0)\y,255)
      Stop3D()
    EndSelect

    FlipBuffers()

    Delay(5000)
  EndIf
EndIf