| |
| |
|
funkheld | So maintenant voudrais je qui GDiPlus-Gafik nutzen , später aussi avec ASM zuammen.
allô IF , dein GdiPlus funktioniert pas avec XPSE.
Es startet et steigt juste wieder aus. qui PH et INC sommes direct im Profanordner.
cela Programme fonctionne mais sans XPSE.
quoi muss maintenant geändert volonté.
merci.
Gruss
{$CLEQ}
$H windows.ph
$H Functions_GDIPLUS.ph
$H GDIP_Imageging.ph
$I GDIP_Helper.inc
Déclarer gdiplusToken&,ImageObject&,GraphicObject&,ImageWidth&,ImageHeight&
CLS ~GetSysColor(~COLOR_3DFACE)
gdiplusToken& = InitGDIPlus()'GDIPlus starten
'Bild magasin
ImageObject& = gdipLoadImage("data\\eisbaer.jpg")'Pfad anpassen
Si ImageObject&
'et sur %hWnd zeichnen
~GdipCreateFromHWND(%hWnd,ADDR(GraphicObject&))'alle Graphics-Operationen sur %hWnd
'Bild 1 zeichnen
~GdipDrawImageI(GraphicObject&,ImageObject&,0,0)'Bitmap zeichnen
~GdipGetImageWidth(ImageObject&,ADDR(ImageWidth&))'Breite ermitteln
~GdipGetImageHeight(ImageObject&,ADDR(ImageHeight&))'Hoehe ermitteln
~GdipRotateWorldTransform(GraphicObject&,Single(225.0),1)
~GdipTranslateWorldTransform(GraphicObject&,Single(ImageWidth&/2),Single(ImageHeight&/2),1)
~GdipDrawImageRectI(GraphicObject&,ImageObject&,(ImageWidth&/2),(ImageHeight&/2), -ImageWidth& , -ImageHeight&)
~GdipResetWorldTransform(GraphicObject&)
~GdipDisposeImage(ImageObject&)
~GdipDeleteGraphics(GraphicObject&)
Endif
Waitinput
ExitGDIPlus(gdiplusToken&)'GDIPlus finissons
Fin
|
|
| |
| |
| |
|
|
 | s'il te plaît schaue einmal si ca ici chez Dir fonctionne: png.inc ( [...]  )
et si possible ensuite serait es mir très aider si Vous ZIP-Dossier avec
allen pour cela projet wichtigen Fichiers hochladen könntest. So peux je ensuite
einfacher herausbekommen wohin un faute ist. |
|
| |
| |
| |
|
|
funkheld | oui fonctionne wunderbar.
png.inc.archive.zip entpackt et qui Pngtest.xprf compilé avec XPSE et XProfan 11.2
Gruss |
|
| |
| |
| |
|
|
funkheld | Hmm..., pourquoi volonté chez dir aucun GDI-Plus-En-tête gebraucht comment chez deinem ersten Programme?
je kriege cela erste Programme entier dessus toujours pas zum courir.
merci.
Gruss |
|
| |
| |
| |
|
|
| cet ganzen En-tête pour Windows-APIs sowie Windows-APIs hat xpse alle à Board
et mets qui Konstanten et Funktionen juste direct um.
So peux avec xpse simple écrivons:
aussi peux Dir cela Tile-marque ("~") sparen solange qui nom pas avec einem
XProfan-Schlüsselwort kollidiert. dans solch einem le cas simple avec dem Tilde-marque
sur qui API montrer:
cela gilt pour den normalen XProfan-partie comment pour qui nProcs. Umgewandelt volonté
solche Aufrufe sogar dans Funktionsaufrufe qui viel plus rapide ablaufen comme si Du
vous sur qui En-tête-Schreibweise aufrufst car xpse wandelt cet Aufrufe juste
dans directe Calls sur qui Funktionsadressen um.
En-tête brauchst chez xpse seulement pour Funktionen et Konstanten qui pas vom
Betriebssystem bereitgestellt volonté (Fremdanbieter).
quoi cela paquet betrifft schrieb je oui bereits:
iF (20.04.12)
et si possible ensuite serait es mir très aider si Vous ZIP-Dossier avec
allen pour cela projet wichtigen Fichiers hochladen könntest. So peux je ensuite
einfacher herausbekommen wohin un faute ist.
|
|
| |
| |
| |
|
|
funkheld | allô IF , im Anhang qui GDI-Plus, qui avec XPSE pas fonctionne.
merci.
Gruss |
|
| |
| |
| |
|
|
| Hi!
qui GDIP_Helper.inc hat réellement un paire inhaltliche et syntaktische Fehlerchen,
une korrigiertes paquet im Anhang. |
|
| |
| |
| |
|
|
funkheld | oui, merci. maintenant funktioniert es aussi wieder avec XPSE.
je hätte den faute pas trouvé.
merci.
Gruss
peter |
|
| |
| |
| |
|
(949)
Deutsch
English
Français
Español
Italia