| |
|
|
| Version 0.1.4
hPic.inc - Grafikhelfer
yet take in: iF (06.07.12)
hPic in rectangle fitting hPic Thumb CreateThumb ThumbNail fitting CompileMarkSeparation
hPic.createThumb(long hPic,hpic.xx,hpic.yy,thumb.xx,thumb.yy,col.bg) {
long hPic.thumb=create("hNewPic",thumb.xx,thumb.yy,col.bg)
float hPic.f=hPic.xx/hPic.yy,f=thumb.xx/hpic.xx
case hPic.yy*f>thumb.yy : f=thumb.yy/hpic.yy
startPaint hpic.thumb
drawSizedPic hpic,(thumb.xx-hPic.xx*f)*0.5,(thumb.yy-hPic.yy*f)*0.5 - hPic.xx*f,hPic.yy*f;0
endPaint
return hPic.thumb
|
|
|
| |
|
|
|
Stefan M. Caillet | |
|
| Ich habe grosses Glück, weil ich Mitmenschen helfen darf. Entwicklungsumgebung: XProfan11 , Win XP Pro 32Bit , Win XP Home ,Win7 HomePremium 64Bit PC: P4/3GHz , 2GB RAM , 1700GB HD Laptop: Intel Core 2 Duo /2,2GHz , 4GB RAM , 500GB HD | 11/18/08 ▲ |
|
|
|
|
| Grafikoperationen for XProfan 11, posted but the Vollständigkeit halber - becomes needed of others Includes.
and because I often on different Rechnern be...
The must itself means nobody standing, becomes hold of me often used. |
|
|
| |
|
|
|
Stefan M. Caillet | OK. thanks. have incidentally your Please too entsprochen, and in the XprofanForum the Minimalbeispiel to that Calendar posted. greeting Stefan |
|
|
| Ich habe grosses Glück, weil ich Mitmenschen helfen darf. Entwicklungsumgebung: XProfan11 , Win XP Pro 32Bit , Win XP Home ,Win7 HomePremium 64Bit PC: P4/3GHz , 2GB RAM , 1700GB HD Laptop: Intel Core 2 Duo /2,2GHz , 4GB RAM , 500GB HD | 11/18/08 ▲ |
|
|
|
|
| Jupp, "ohne" ists mostly difficult... |
|
|
| |
|
|
|
| small Update because of BugFix on hPic.inc Version 0.1.4. |
|
|
| |
|
|