XProfan

Italia

Marcus
Mayer

Basierend auf dem tollen Programmcode von Andreas Miethe ( [...]

) und der Aiuto von iF stelle ich hier die png.inc zur Verfügung.
Mit der Include lassen sich auf einfache Weise png-File con canale alfa im Clientbereich des Hauptfensters zeichnen.

Herunterladen
externer Download

Verwendung:

Kompilieren Markieren Separieren

DrawPng(S,X1,Y1,X2,Y2,N1,N2)
S  : String  - Dateiname der png (ggf. mit Pfad)
X1 : LongInt - X-Position
Y1 : LongInt - Y-Position
X2 : LongInt - Breite der png
Y2 : LongInt - Höhe der png
N1 : Integer - png weicher Zeichnen (je höher der Wert, desto stärker der Effekt)
N2 : Integer - Ist dieser Parameter größer Null, wird der Clientbereich automatisch aktualisiert,
andernfalls muss dies Später im Quellcode manuel erfolgen

In der zip-File befinden sich neben der Include auch 2 Beispielbilder und ein kleines Skript zu Demonstrationszwecken.

Png-inc.zip

43 kB

Hochgeladen:

27.05.2010

Downloadcounter:

Herunterladen

test1.png

21 kB

Hochgeladen:

28.05.2010

Downloadcounter:

Herunterladen

27.05.2010 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Vlt. die eine oder andere Anmerkung zur Inc:

Im Prinzip verballerst Du Globale:

Kompilieren Markieren Separieren

Var GdiPlus& = ImportDll("GDIPlus.dll","")
Declare WW&,WH&,GdiplusToken&,IObject&,bm&,DC&,Graphics&
 $H windows.ph
 $H Messages.ph
Struct GdiplusStartupInput = GdiplusVersion&,DebugEventCallback&,SuppressBackgroundThread&,SuppressExternalCodecs&
Struct Size = cx&,cy&
Struct Point = x&,y&
Struct Blendfunction = a#(4)

- eine Inc possibile jedoch ohne Globale auskommen sollte, die mit dem Hauptprogramm kollidieren.

Eine Möglichkeit wäre, wenn ohne Globale kein Auskommen ist, dann diese manuell unter einen Namensraum zu stellen, z.B.

Kompilieren Markieren Separieren

Declare png.inc.WW&,png.inc.WH&,png.inc.GdiplusToken&,png.inc.IObject&,png.inc.bm&,png.inc.DC&,png.inc.Graphics&
eher nicht in inc mit $H einbinden $H windows.ph
eher nicht in inc mit $H einbinden $H Messages.ph
mit #include windows.ph ginge jedoch auch in inc einbinden, necessario präkompiler - mit diesem jedoch windows.ph garnicht erst inkludiert werden müsste
Struct png.inc.GdiplusStartupInput = GdiplusVersion&,DebugEventCallback&,SuppressBackgroundThread&,SuppressExternalCodecs&
...

womit eine Kollision mit dem Hauptprogramm leicht vermeidbar ist, wenn man einmal die Inc angesehen hat die man da nutzen möchte - so auch bei ImportDLL den 2. Parameter beachten.

Vlt. auch kurzer Überflug in Hilfedatei unter Unità "Namensraum" ?_ Symbol.

28.05.2010 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Marcus
Mayer

Jau, da hast du wohl recht. Normalerweise hab ich in Include immer eine Schreibweise in Richtung includename.beispiel% bevorzugt. Hab ich diesmal nicht dran gedacht, da meine letze Include auch schon ein paar Jährchen her ist.
Ich mach mir demnächst mal den Divertimento und passe das Ganze noch an.

28.05.2010 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Hab mir das mal angeschaut und etwas gekürzt, anhängig im Paket eine Variante per XProfan 11 (mit und ohne XPSE) und XProfan 12.

png.inc.archive.zip	353 kB

Hochgeladen:	28.05.2010

Downloadcounter:
		Herunterladen

28.05.2010 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Marcus
Mayer

Ja holla die Waldfee, das ist ja mal ein Service.

Da hast du mir ja die ganze Arbeit abgenommen. Und das alles so schnell... in der Zeit hab ich noch nicht mal den XProfEd aufgekriegt.

Ganz fein, danke. Da kann ich mein Gestümper ja getrost entfernen.

29.05.2010 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Gern geschehen. ^^

Hast Du Lust nächste Woche zum Treffen zu kommen? Wir haben definitiv noch zu viele Grillwürstchen und einige wollen statt alleine zu fahren gerne noch jemanden mitnehmen. Gib Dir einen Ruck, sag einfach ja.

29.05.2010 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Marcus
Mayer

Nein, tut mir wirklich leid. Die nächsten Wochen haut bei mir leider garnichts dergleichen hin. Aber danke der Nachfrage.

01.06.2010 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Nein, Du kommst mit.

PS: Vlt. beim nächsten mal. ^^

01.06.2010 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Julian
Schmidt

Ciao,
in den Include scheint ganz offensichtlich ein Fehler zu sein.
Wenn ich die Demo kompiliere stürzt das Programm immer ab! Im Interpreter corre es!

Ich nutze XProfanX2.

LG

Julian57

XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

21.01.2012 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione