| |
| |
|
 | Tauscht (blitzschnell) una cierto Farbe REPLCOL& en el ganzen Bild en el Farbe NEWCOL&, Concepto de: [...] 
Originalcode: [...]
KompilierenMarcaSeparación
proc HPIC.REPLACECOL
PARAMETERS HPIC&,REPLCOL&,NEWCOL&,XX&,YY&
var HPICTMP&=CREATE("hNewPic",XX&,YY&,NEWCOL&)
STARTPAINT HPICTMP&
DRAWPIC HPIC&,0,0;-1,REPLCOL&
ENDPAINT HPICTMP&
STARTPAINT HPIC&
DRAWPIC HPICTMP&,0,0;0
ENDPAINT
DELETEOBJECT HPICTMP&
RETURN HPIC&
| 17.07.2008 ▲ | |
|
| |
|
|
Jac
de
Lad | La idea gefällt me muy bien.  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 17.07.2008 ▲ |
|
| |
|
|
| Gern geschehen, wäre sólo schöner si uno en lugar de "nur" el Größe (xx,yy) una Art "Clippingregion" definieren podría - zumindest por Rechteck.  Tiempo schauen como el al reibungslosesten ir podría... (en z.B. sólo region 10,10 - 20,20 derart a "bearbeiten") |
|
| |
| |
| |
|
|
| Diese Versión hier [...] es mejor:
Optional sólo 3 Parámetro oder 7 Parámetro con Zielbereichangabe.
KompilierenMarcaSeparación
proc HPIC.REPLACECOL
PARAMETERS HPIC&,REPLCOL&,NEWCOL&,X&,Y&,XX&,YY&
var H&=0
IF %PCOUNT<4
H&=CREATE("hPicCopy",HPIC&)
X&=0
Y&=0
XX&=%BMPX
YY&=%BMPY
DELETEOBJECT H&
ENDIF
H&=CREATE("hNewPic",XX&,YY&,NEWCOL&)
STARTPAINT H&
DRAWPIC HPIC&,0-X&,0-Y&;-1,REPLCOL&
ENDPAINT H&
STARTPAINT HPIC&
DRAWPIC H&,X&,Y&;0
ENDPAINT
DELETEOBJECT H&
RETURN HPIC&
ENDPROC
|
|
| |
| |
| |
|
|
Jac
de
Lad | |
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 17.07.2008 ▲ |
|
| |
|
|
| | Sieht entonces komplett como de? |
|
| |
| |
| |
|
|
Jac
de
Lad |
KompilierenMarcaSeparación
proc HPIC.REPLACECOL
PARAMETERS HPIC&,REPLCOL&,NEWCOL&,X&,Y&,XX&,YY&
var H&=0
IF %PCOUNT<4
H&=CREATE("hPicCopy",HPIC&)
X&=0
Y&=0
XX&=%BMPX
YY&=%BMPY
DELETEOBJECT H&
ENDIF
H&=CREATE("hNewPic",XX&,YY&,NEWCOL&)
STARTPAINT H&
DRAWPIC HPIC&,0-X&,0-Y&;-1,REPLCOL&
ENDPAINT
DELETEOBJECT HPIC&
RETURN H&
ENDPROC
|
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 17.07.2008 ▲ |
|
| |
|
|
| Ne, esta Solución funktioniert no... gib veces Koordinaten una...
Mein Testcode: [...]
Ergibt después de Deinem Code:
en lugar de
 |
|
| |
| |
| |
|
|
Jac
de
Lad | Kann grad nich testen. Das Einzige, Yo anders mache es doch, dass Yo el Handle des temporären Bildes zurückgebe, anstatt el Kram otra vez 1:1 zurückzukopieren. Versteh Yo ahora no.  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 17.07.2008 ▲ |
|
| |
|
|
| | Gug una vez más a hast sólo qué übersehen porque bastante así simplemente es el Vorgang por desgracia, no. |
|
| |
| |
| |
|
|
Jac
de
Lad | Määääääp, du hast sí así bastante.
Und lo fehlt eindeutig todavía una profansches "GetWidth" y "GetHeight"... |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 17.07.2008 ▲ |
|
| |
|
(1.111)
Deutsch
English
Français
Español
Italia
