XProfan

Español

funkheld

So ahora möchte Yo el GDiPlus-Gafik nutzen , später auch con ASM zuammen.

¡Hola IF , dein GdiPlus funktioniert no con XPSE.
Lo startet y steigt otra vez de. El PH y INC son direkt en el Profanordner.
Das Programa se ejecuta aber sin XPSE.

Was muss ahora geändert voluntad.

Gracias.

Gruss

Kompilieren Marca Separación

 {$CLEQ}
 $H windows.ph
 $H Functions_GDIPLUS.ph
 $H GDIP_Imageging.ph
 $I GDIP_Helper.inc
Declarar gdiplusToken&,ImageObject&,GraphicObject&,ImageWidth&,ImageHeight&
CLS ~GetSysColor(~COLOR_3DFACE)
gdiplusToken& = InitGDIPlus()'GDIPlus starten
'Bild invitar
ImageObject& = gdipLoadImage("data\\eisbaer.jpg")'Pfad adaptar

If ImageObject&

    'y en %hWnd dibujar
    ~GdipCreateFromHWND(%hWnd,ADDR(GraphicObject&))'todos Gráficos-Operationen en %hWnd
    'Bild 1 dibujar
    ~GdipDrawImageI(GraphicObject&,ImageObject&,0,0)'Mapa de bits dibujar
    ~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 final
End

19.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Bitte schaue una vez si dies hier con usted se ejecuta: png.inc ( [...]

)

y si posible entonces lo me muy helfen si una ZIP-Expediente con
allen para el Projekt wichtigen Archivos hochladen könntest. So kann Yo entonces
einfacher herausbekommen wo una Fehler es.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

20.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

funkheld

Sí se ejecuta wunderbar.
png.inc.archive.zip entpackt y el Pngtest.xprf compiliert con XPSE y XProfan 11.2

Gruss

XProfan 11

20.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

funkheld

Hmm..., por qué voluntad en dir no GDI-Plus-Encabezamiento gebraucht como en deinem ersten Programa?
Yo kriege el erste Programa bastante oben siempre todavía no para laufen.

Gracias.

Gruss

XProfan 11

21.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Diese ganzen Encabezamiento para Windows-APIs sowie Windows-APIs ha xpse todos a Board
y setzt el Konstanten y Características igual direkt en.

So kannst con xpse simplemente escribir:

Kompilieren Marca Separación

cls getSysColor(color_btnface)
...

Auch kannst Usted el Tile-Signo ("~") sparen solange el Name no con un
XProfan-Schlüsselwort kollidiert. In solch una Fall simplemente con el Tilde-Signo
en el API zeigen:

Kompilieren Marca Separación

cls
imprimir getPixel(0,0)'XProfans GetPixel
imprimir ~getPixel(hDC,0,0)'GetPixel-API el una DC como 1. Param esperado

Das gilt para el normalen XProfan-Teil como para el nProcs. Umgewandelt voluntad
solche Aufrufe incluso en Funktionsaufrufe el viel más rápido ablaufen como si
ellos en Encabezamiento-Schreibweise aufrufst porque xpse wandelt esta Aufrufe igual
en direkte Calls en el Funktionsadressen en.

Encabezamiento necesidad en xpse sólo para Características y Konstanten el no vom
Betriebssystem previsto voluntad (Fremdanbieter).

Was el Paket betrifft schrieb Yo sí ya:

IF (20.04.12)

y si posible entonces lo me muy helfen si una ZIP-Expediente con
allen para el Projekt wichtigen Archivos hochladen könntest. So kann Yo entonces
einfacher herausbekommen wo una Fehler es.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

21.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

funkheld

¡Hola IF , en el Anhang el GDI-Plus, el con XPSE no se ejecuta.

Gracias.

Gruss