RB2k5: Speichern des Inhaltes eines ImageWell mittels SaveAsJpeg

[Sascha Schneppmueller <schneppmueller at gmail dot com>]

Hallo REALbasic NUG German

Ich habe ein ImageWell erstellt in welches ich mittels Drag&Drop ein
845x1200 Pixel (72dpi) grosses Bild lege.
Im DropObject Event des ImageWell's ist folgender Code:

  Dim ReSized as Picture
  Dim h,w As Integer
  
  If Obj.PictureAvailable Then
    h = obj.Picture.Height
    w = obj.Picture.Width
    ReSized = NewPicture(w, h,32)
    ReSized.Graphics.DrawPicture (obj.Picture, 0, 0, 176, 220, 0, 0, w, h)
    Me.Image = ReSized
    Me.Refresh
  Elseif Obj.FolderItemAvailable Then
    h = obj.FolderItem.OpenAsPicture.Height
    w = obj.FolderItem.OpenAsPicture.Width
    ReSized = NewPicture(w, h,32)
    ReSized.Graphics.DrawPicture (obj.FolderItem.OpenAsPicture, 0, 0,
176, 220, 0, 0, w, h)
    Me.Image = ReSized
    Me.Refresh
  End If

Wenn ich nun das Bild mittels folgendem Code:

  Dim f As New FolderItem
  
  f = GetSaveFolderItem("Image/JPEG","Wallpaper.jpg")
  
  If f <> NIL Then
    f.SaveAsJPEG(Wallpaper.Image)
  End If
  
In eine Datei speichere ist es wieder 845x1200 Pixel gross.
Doch ich möchte das Bild gerne als 176x220 Pixel grosses Bild sichern.
Das ist übrigends auch die genaue Größe des ImageWell's.

Was mache ich falsch?