| |
| |
|
 | Siehe auch: Drehen sin GDI+: [...] 
Dank a Andreas Miethe!
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
|
|
| |
| |
| |
|
|
 | Wo kriege Yo dies dateien her para GDIPlus?
mfg
$H includes\Functions_GDIPLUS.ph
$H includes\GDIP_Imageging.ph
$I includes\GDIP_Helper.inc |
|
| |
| |
| |
|
|
| Stimmt, el fehlen hier [...] .  |
|
| |
| |
| |
|
|
| ¡Hola Yo esta Demo ahora geladen.
Der Hund se schön como Sprite dargestellt, wo el Farbe blanco durchsichtig es. Diesen Valor Yo en en :Single(1.0) gestellt.
Wenn Yo nun con Paintshop el 1.wmf como 2.wmf abspeichere, es el blanco no mehr durchsichtig beim darstellen.
Como kommt el?
$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
|
|
| |
| |
| |
|
|
| | Bitte primero [...] auffüllen. |
|
| |
| |
| |
|
|
| qué se Yo como auffüllen...........  |
|
| |
| |
| |
|
|
| El GDI+ gibts en Microsoft. [...]
Descargar erfordert allerdings Validation el Rechtmässigkeit. |
|
| |
| |
| |
|
|
| Posesiones el ahora ya geladen, se ejecuta alles soweit.
Mir es sólo a Cuestión: por qué Es el 2.wmf no durchsichtig?
mfg |
|
| |
| |
| |
|
|
| Peter Bierbachh
qué se Yo como auffüllen...........
Öhm, hast el Encabezamiento auffindig hacer puede? |
|
| |
| |
| |
|
|
| El Yo en esta Demo gefunden con el Yo ahora mi experiemente mache.
Weiss pero no si todos Befehle de el GDI enthalten son.
mfg |
|
| |
| |
| |
|
|
| | Sag me más bien, Yo el wmf-datei durchsichtig abspeichern kann con Paintshop. |
|
| |
| |
| |
|
|
E.T. | @Peter: Kann porque .wmf überhaupt transparent ??
Hab eben veces por div. Programa geschaut, keines bietet .wmf-speichern con transparenz a. |
|
| |
| Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 16.02.2009 ▲ |
|
| |
|
(1.735)
Deutsch
English
Français
Español
Italia