| To: | REALbasic NUG German <realbasic-nug dot de at lists dot realsoftware dot com> |
|---|---|
| Subject: | Re: RB2k5: Speichern des Inhaltes eines ImageWell mittels SaveAsJpeg |
| From: | Sascha Schneppmueller <schneppmueller at gmail dot com> |
| Date: | Fri, 24 Jun 2005 13:40:24 +0200 |
| Delivered-to: | realbasic-nug dot de at lists dot realsoftware dot com |
| Domainkey-signature: | a=rsa-sha1; q=dns; c=nofws; s=beta; d=gmail.com; h=received:message-id:date:from:reply-to:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references; b=Cw3R2bWYoj2Y3Bzq64ag5VLbmcVOJiMZ9Te/qoAdcwhxs23dEVMAAl7TbANVPzZSEru/4+2SecJwHYZutm/mo5aQ90hXwb8Yjg8sFiaSYBM76tUzI75qKCNB95nzAvz5rwjgKhuHip9fNrc5BOGtfvJ2LUf+1tlqmQctAEIeaf4= |
| References: | <2fb132ac050624042933d4d3a8 at mail dot gmail dot com> |
Ich habs:
Mit folgendem Code:
Dim f As New FolderItem
Dim ReSized As Picture
f = GetSaveFolderItem("Image/JPEG","Wallpaper.jpg")
If f <> NIL Then
ReSized = NewPicture(176, 220,32)
ReSized.Graphics.DrawPicture (Wallpaper.Image, 0, 0, 176, 220, 0,
0, 176, 220)
f.SaveAsJPEG(ReSized)
End If
Wird es als 176x220 grosses Jpeg gesichert :)
|
| <Prev in Thread] | Current Thread | [Next in Thread> |
|---|---|---|
| ||
| Previous by Date: | RB2k5: Speichern des Inhaltes eines ImageWell mittels SaveAsJpeg, Sascha Schneppmueller |
|---|---|
| Next by Date: | Re: RB2k5: Speichern des Inhaltes eines ImageWell mittels SaveAsJpeg, Stephan Stoske |
| Previous by Thread: | RB2k5: Speichern des Inhaltes eines ImageWell mittels SaveAsJpeg, Sascha Schneppmueller |
| Next by Thread: | Re: RB2k5: Speichern des Inhaltes eines ImageWell mittels SaveAsJpeg, Stephan Stoske |
| Indexes: | [Date] [Thread] [Top] [All Lists] |