XProfan

Ejemplo :
 $H windows.ph
 $H includes\Functions_GDIPLUS.ph
 $H includes\GDIP_Imageging.ph
 $I includes\GDIP_Helper.inc
Declarar gdiplusToken&,ImageObject&,GraphicObject&,ImageWidth&,ImageHeight&
Declarar SIO&,DC&,BMP&,Brush&
CLS ~GetSysColor(~COLOR_3DFACE)
gdiplusToken& = InitGDIPlus()GDIPlus starten
Bild invitar
ImageObject& = gdipLoadImage(eisbaer.jpg) Pfad adaptar

If ImageObject&

    ~GdipGetImageWidth(ImageObject&,ADDR(ImageWidth&))Breite ermitteln
    ~GdipGetImageHeight(ImageObject&,ADDR(ImageHeight&))Hoehe ermitteln
    DC& = ~CreateCompatibleDC(%hdc)SpeicherDC
    Breite y Höhe errechnet se de el Bilddiagonalen
    BMP& = ~CreateCompatibleBitmap(%hdc,INT(Sqrt((ImageWidth&^2)+(ImageHeight&^2))),INT(Sqr t((ImageWidth&^2)+(ImageHeight&^2))))Speicherbitmap
    Brush& = ~CreateSolidBrush(RGB(0,0,0))Brush
    ~Seleccionar objeto(DC&,BMP&)Speicherbitmap en SpeicherDC
    ~Seleccionar objeto(DC&,Brush&)Brush para SpeicherDC
    ~Rectángulo(DC&,0,0,491,491)Rechteck dibujar
    ~GdipCreateFromHDC(DC&,ADDR(GraphicObject&))Gráficos-de SpeicherDC
    ~GdipRotateWorldTransform(GraphicObject&,Single(45.0),1)Rotation conjunto
    ~GdipDrawImageRectI(GraphicObject&,ImageObject&,(ImageHeight&/2),-(ImageHeight&/ 2),ImageWidth&,ImageHeight&)
    ~GdipCreateBitmapFromHBITMAP(BMP&,0,Addr(SIO&))Imagen de Speicherbitmap
    SaveAsJPG(SIO&,AX.jpg,30) Imagen speichern
    aufräumen
    ~GdipDeleteGraphics(GraphicObject&)
    ~GdipDisposeImage(ImageObject&)
    ~GdipDisposeImage(SIO&)
    ~DeleteObject(BMP&)
    ~DeleteObject(Brush&)
    ~DeleteDC(DC&)

Endif

Imprimir Fertig
Waitinput
ExitGDIPlus(gdiplusToken&) GDIPlus final
End

 $H windows.ph
 $H includes\Functions_GDIPLUS.ph
 $H includes\GDIP_Imageging.ph
 $I includes\GDIP_Helper.inc
Declarar gdiplusToken&,ImageObject&,ImageObject1&,GraphicObject&,Attributes&
Declarar Color_Matrix#
CLS ~GetSysColor(~COLOR_3DFACE)
gdiplusToken& = InitGDIPlus()GDIPlus starten
Farb-Matrix aufbauen 5 X 5 SingleFloat-Werte
Dim Color_Matrix#,4*(5*5)
Largo Color_Matrix#,0  = Single(1.0),Single(0),Single(0),Single(0),Single(0)rot
Largo Color_Matrix#,20 = Single(0),Single(1.0),Single(0),Single(0),Single(0)grün
Largo Color_Matrix#,40 = Single(0),Single(0),Single(1.0),Single(0),Single(0)blau
para Testen el Valor 4 (0.6) verändern
Largo Color_Matrix#,60 = Single(0),Single(0),Single(0),Single(1.0),Single(0)alpha
Largo Color_Matrix#,80 = Single(0),Single(0),Single(0),Single(0),Single(1.0)
Bild invitar
ImageObject& = gdipLoadImage(eisbaer.jpg) Pfad adaptar
ImageObject1& = gdipLoadImage(2.wmf) Pfad adaptar

If ImageObject&

    y en %hWnd dibujar
    ~GdipCreateFromHWND(%hWnd,ADDR(GraphicObject&))todos Gráficos-Operationen en %hWnd
    Bild 1 dibujar
    ~GdipDrawImageI(GraphicObject&,ImageObject&,120,0)Mapa de bits dibujar
    Atributos invertir
    ~GdipCreateImageAttributes(Addr(Attributes&))
    Color_Matrix a el Attributen
    ~GdipSetImageAttributesColorMatrix(Attributes&,~ColorAdjustTypeDefault,1,Color_Matrix#,0,~ColorAdjustTypeDefault)
    Bild2 con Attributen dibujar
    ~GdipDrawImageRectRect(GraphicObject&,ImageObject1&,0.0,0.0,Single(400.0),Single(400.0),0.0,0.0,Single(400.0),Single(400.0),~UnitPixel,Attributes&,0,0)
    ~GdipDisposeImageAttributes(Attributes&)
    ~GdipDisposeImage(ImageObject&)
    ~GdipDisposeImage(ImageObject1&)
    ~GdipDeleteGraphics(GraphicObject&)
    Disponer Color_Matrix#

Endif

Waitinput
ExitGDIPlus(gdiplusToken&) GDIPlus final
End