| |
| |
|
 | Siehe aussi: Drehen sans GDI+: [...] 
Dank à Andreas Miethe!
Beispiel :
$H windows.ph
$H includes\Functions_GDIPLUS.ph
$H includes\GDIP_Imageging.ph
$I includes\GDIP_Helper.inc
Déclarer gdiplusToken&,ImageObject&,GraphicObject&,ImageWidth&,ImageHeight&
Déclarer SIO&,DC&,BMP&,Brush&
CLS ~GetSysColor(~COLOR_3DFACE)
gdiplusToken& = InitGDIPlus()GDIPlus starten
Bild magasin
ImageObject& = gdipLoadImage(eisbaer.jpg) Pfad anpassen
Si ImageObject&
~GdipGetImageWidth(ImageObject&,ADDR(ImageWidth&))Breite ermitteln
~GdipGetImageHeight(ImageObject&,ADDR(ImageHeight&))Hoehe ermitteln
DC& = ~CreateCompatibleDC(%hdc)SpeicherDC
Breite et Hauteur errechnet sich aus qui 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
~SelectObject(DC&,BMP&)Speicherbitmap dans SpeicherDC
~SelectObject(DC&,Brush&)Brush pour SpeicherDC
~Rectangle(DC&,0,0,491,491)Rechteck zeichnen
~GdipCreateFromHDC(DC&,ADDR(GraphicObject&))Graphics-de SpeicherDC
~GdipRotateWorldTransform(GraphicObject&,Single(45.0),1)Rotation mettons
~GdipDrawImageRectI(GraphicObject&,ImageObject&,(ImageHeight&/2),-(ImageHeight&/ 2),ImageWidth&,ImageHeight&)
~GdipCreateBitmapFromHBITMAP(BMP&,0,Addr(SIO&))Image de Speicherbitmap
SaveAsJPG(SIO&,AX.jpg,30) Image Sauver
aufräumen
~GdipDeleteGraphics(GraphicObject&)
~GdipDisposeImage(ImageObject&)
~GdipDisposeImage(SIO&)
~DeleteObject(BMP&)
~DeleteObject(Brush&)
~DeleteDC(DC&)
Endif
Imprimer Fertig
Waitinput
ExitGDIPlus(gdiplusToken&) GDIPlus finissons
Fin
|
|
| |
| |
| |
|
|
 | wohin kriege je ca dateien her pour GDIPlus?
mfg
$H includes\Functions_GDIPLUS.ph
$H includes\GDIP_Imageging.ph
$I includes\GDIP_Helper.inc |
|
| |
| |
| |
|
|
| Stimmt, qui manquer ici [...] .  |
|
| |
| |
| |
|
|
| allô j'ai cet Demo maintenant geladen.
qui le chien wird joli comme Sprite dargestellt, wohin qui la couleur weiss durchsichtig ist. Diesen Wert habe je sur sur :Single(1.0) gestellt.
si je eh bien avec Paintshop qui 1.wmf comme 2.wmf abspeichere, ist cela weiss pas plus durchsichtig beim représenter.
comment venez cela?
$H windows.ph
$H includes\Functions_GDIPLUS.ph
$H includes\GDIP_Imageging.ph
$I includes\GDIP_Helper.inc
Déclarer gdiplusToken&,ImageObject&,ImageObject1&,GraphicObject&,Attributes&
Déclarer Color_Matrix#
CLS ~GetSysColor(~COLOR_3DFACE)
gdiplusToken& = InitGDIPlus()GDIPlus starten
Farb-Matrix aufbauen 5 X 5 SingleFloat-Werte
Faible Color_Matrix#,4*(5*5)
Long Color_Matrix#,0 = Single(1.0),Single(0),Single(0),Single(0),Single(0)rouge
Long Color_Matrix#,20 = Single(0),Single(1.0),Single(0),Single(0),Single(0)vert
Long Color_Matrix#,40 = Single(0),Single(0),Single(1.0),Single(0),Single(0)bleu
zum Testen den Wert 4 (0.6) verändern
Long Color_Matrix#,60 = Single(0),Single(0),Single(0),Single(1.0),Single(0)alpha
Long Color_Matrix#,80 = Single(0),Single(0),Single(0),Single(0),Single(1.0)
Bild magasin
ImageObject& = gdipLoadImage(eisbaer.jpg) Pfad anpassen
ImageObject1& = gdipLoadImage(2.wmf) Pfad anpassen
Si ImageObject&
et sur %hWnd zeichnen
~GdipCreateFromHWND(%hWnd,ADDR(GraphicObject&))alle Graphics-Operationen sur %hWnd
Bild 1 zeichnen
~GdipDrawImageI(GraphicObject&,ImageObject&,120,0)Bitmap zeichnen
Attribute anlegen
~GdipCreateImageAttributes(Addr(Attributes&))
Color_Matrix trop den Attributen
~GdipSetImageAttributesColorMatrix(Attributes&,~ColorAdjustTypeDefault,1,Color_Matrix#,0,~ColorAdjustTypeDefault)
Bild2 avec Attributen zeichnen
~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&)
Dispose Color_Matrix#
Endif
Waitinput
ExitGDIPlus(gdiplusToken&) GDIPlus finissons
Fin
|
|
| |
| |
| |
|
|
| | s'il te plaît zunächst [...] auffüllen. |
|
| |
| |
| |
|
|
| quoi soll je là auffüllen...........  |
|
| |
| |
| |
|
|
| qui GDI+ gibts chez Microsoft. [...]
Télécharger erfordert allerdings Validation qui Rechtmässigkeit. |
|
| |
| |
| |
|
|
| Habe qui maintenant déjà geladen, fonctionne alles soweit.
Mir ca va seulement à Frage: pourquoi ist qui 2.wmf pas durchsichtig?
mfg |
|
| |
| |
| |
|
|
| Peter Bierbachh
quoi soll je là auffüllen...........
Öhm, la hâte qui Headerdateien auffindig faire peut? |
|
| |
| |
| |
|
|
| qui habe je dans cet Demo trouvé avec qui je maintenant mon experiemente fais.
Weiss mais pas si alle Befehle de qui GDI enthalten sommes.
mfg |
|
| |
| |
| |
|
|
| | Sag mir lieber, comment je qui wmf-fichier durchsichtig abspeichern peux avec Paintshop. |
|
| |
| |
| |
|
|
E.T. | @Peter: peux car .wmf überhaupt transparent ??
Hab plan la fois par div. Programme geschaut, aucun bietet .wmf-Sauver avec transparenz à. |
|
| |
| 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 ▲ |
|
| |
|
(778)
Deutsch
English
Français
Español
Italia