| |
|
|
Nico Madysa | so, if I me not heavy crazy, have I finally a Error found. The commands CopyPic (and so presumably too CopySizedPic) power the used Image to the first Aufrufe useless. CompileMarkSeparationcls $FF
Bild wird erstellt - einfach eine schräge Linie
var p& = Create(hNewPic,32,32,$FFFFFF)
StartPaint p&
UsePen 0,5,0
Line 0,0 - 32,32
EndPaint
Mit CopyPic wird die erste Zeile gemalt; dreimal dasselbe Bild nebeneinander
CopyPic p& , 0,0 - 32,32 > 0,0 ; -1
CopyPic p& , 0,0 - 32,32 > 32,0 ; -1
CopyPic p& , 0,0 - 32,32 > 64,0 ; -1
Mit DrawPic hingegen die zweite; auch dasselbe Bild dreimal nebeneinander
DrawPic p& , 0,32 ; -1
DrawPic p& , 32,32 ; -1
DrawPic p& , 64,32 ; -1
Nachdem ein Bild mit CopyPic gemalt wurde, ist es nicht mehr verwendbar!
Kommentiert man CopyPic hingegen aus, so malt DrawPic wie verlangt das Bild dreimal.
waitinput
DeleteObject p&
end
|
|
|
| |
|
|
|
RGH | Hi, the trouble becomes in the nächstem XProfan-Version resolved his.
Greeting Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 02/10/09 ▲ |
|
|
|