XProfan

English

funkheld

so now would like I The GDiPlus-Gafik benefit , later too with ASM zuammen.

Hello IF , your GdiPlus not working with XPSE.
it launch and soar same again from. The PH and INC are directly in the Profanordner.
the Program runs but without XPSE.

what must now changed go.

Thank you.

greeting

Compile Mark Separation

 {$CLEQ}
 $H windows.ph
 $H Functions_GDIPLUS.ph
 $H GDIP_Imageging.ph
 $I GDIP_Helper.inc
Declare gdiplusToken&,ImageObject&,GraphicObject&,ImageWidth&,ImageHeight&
CLS ~GetSysColor(~COLOR_3DFACE)
gdiplusToken& = InitGDIPlus()'GDIPlus started
'Load image
ImageObject& = gdipLoadImage("data\\eisbaer.jpg")'way adjust

If ImageObject&

    'and on %hWnd draw
    ~GdipCreateFromHWND(%hWnd,ADDR(GraphicObject&))'any Graphics-Operationen on %hWnd
    'Image 1 draw
    ~GdipDrawImageI(GraphicObject&,ImageObject&,0,0)'Bitmap draw
    ~GdipGetImageWidth(ImageObject&,ADDR(ImageWidth&))'wide detect
    ~GdipGetImageHeight(ImageObject&,ADDR(ImageHeight&))'Hoehe detect
    ~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 terminate
End

04/19/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Please look once whether this here with you runs: png.inc ( [...]

)

and if possible then would it me very help if you a ZIP-File with
all for the proposition important Files Upload could. so can I then
plainer herausbekommen where one Error is.

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

04/20/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

funkheld

Yes runs wonderful.
png.inc.archive.zipper entpackt and the Pngtest.xprf compiliert with XPSE and XProfan 11.2

greeting

XProfan 11

04/20/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

funkheld

Hmm..., Why go with you no GDI-plus-Header used How with your first Program?
I wars the first Program integrally supra still not to that walk.

Thank you.

greeting

XProfan 11

04/21/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

These whole Header for windows-APIs as well as windows-APIs has xpse any on board
and setting The Konstanten and functions same directly circa.

so can with xpse simply write:

Compile Mark Separation

cls getSysColor(color_btnface)
...

too can you the Tile-characters ("~") save as long as the name not one
XProfan-Schlüsselwort kollidiert. In such one drop simply with the Tilde-characters
on The API show:

Compile Mark Separation

cls
print getPixel(0,0)'XProfans GetPixel
print ~getPixel(hDC,0,0)'GetPixel-API The one DC as 1. Param expects

This is for normalen XProfan-part How for nProcs. transformed go
such Aufrufe even in Funktionsaufrufe The plenty faster run out as if You
tappt im dunkeln over The Header-spelling aufrufst because xpse GetControlParas (B these Aufrufe same
in direct Calls on The Funktionsadressen circa.

Header need with xpse only for functions and Konstanten The not of
Betriebssystem provided go (Fremdanbieter).

what the pkg concerns wrote I Yes already:

iF (20.04.12)

and if possible then would it me very help if you a ZIP-File with
all for the proposition important Files Upload could. so can I then
plainer herausbekommen where one Error is.

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

04/21/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

funkheld

Hello IF , in the attachment The GDI-plus, The with XPSE not runs.

Thank you.

greeting