GTK2 alphatransparentes Zeichnen

[theo]

Ich hab mal wieder ein bisschen an OpBitmap geschraubt.
Ich denke ich habe endlich herausgefunden, wie ich auf GTK2 Canvases alphatransparent zeichen kann.
Die LCL kann das im Moment leider noch nicht.

Für Linux kompilierte Demo hier: http://www.theo.ch/lazarus/compileddemo.zip" onclick="window.open(this.href);return false;
Das Bild (Dragon.png) stammt von hier: http://bugs.freepascal.org/view.php?id=13266" onclick="window.open(this.href);return false;

Was ihr seht ist ein OpBitmap, welches auf einen TForm.Canvas alphatransparent gezeichnet wird
Zum Beweis wechselt die Farbe der TForm, also: Form1.Color:=clyellow / Form1.Color:=clgreen.
Rotation und Resampling finden in OpBitmap statt.

OpBitmap gibt's wie immer hier: http://www.theo.ch/lazarus/opbitmap64.zip" onclick="window.open(this.href);return false;
Den experimentellen Code für GTK2 hier: http://www.theo.ch/lazarus/alphagtk2.zip" onclick="window.open(this.href);return false;

[pluto]

Ich dachte das eine nennt sich "Alpha-Kanal" also ein Wert mit den ich einstellen kann wie viel "Transparent ich haben möchte und das andere "Transparent" zeichnet alles in der angebende Farbe "über".

Was genau kann ich mir unter "alphatransparent" vorstellen ? Auf dem Bild sehe ich nichts "ungewöhnliches".... wäre das nicht auch mit "Blending(also mit Alpha-Kanal") möglich ?

PS: Ich weiß zwar nicht genau was "alphatransparent" ist, aber hast du dir mal "AggCanvas" angeschaut ?

[theo]

Ich dachte das eine nennt sich "Alpha-Kanal" also ein Wert mit den ich einstellen kann wie viel "Transparent ich haben möchte und das andere "Transparent" zeichnet alles in der angebende Farbe "über".

Was genau kann ich mir unter "alphatransparent" vorstellen ? Auf dem Bild sehe ich nichts "ungewöhnliches".... wäre das nicht auch mit "Blending(also mit Alpha-Kanal") möglich ?

Das ist schon so gemeint. Also zeichnen mit Alpha-Kanal.
Nur geht das zur Zeit mit der LCL GTK2 noch nicht. D.h. die LCL macht das Bild einfach mit Maske transparent.
Probier's mal mit diesem Bild: http://bugs.freepascal.org/file_downloa ... 7&type=bug" onclick="window.open(this.href);return false;

Code: Alles auswählen

procedure TForm1.FormPaint(Sender:TObject);
var bmp:TPortableNetworkGraphic;
begin
bmp:=TPortableNetworkGraphic.Create;
bmp.LoadFromFile('Dragon.png');
Canvas.Draw(2,2,bmp);
bmp.free;
end;

Mit OpBitmap geht's aber, wie du in der Demo siehst.

[pluto]

Ging das nicht schon mit Vierecken vorher ? Aber Toll das du immer noch "opBitmap" weiter entwickelst... Ich habe einige Zeitlang nur TPicture genutzt, weil es einfacher ist, und weil ich da keine "Externen" Pfade setzten muss, aber es hat ja einige Probleme z.b. mit GIF Formate....

[theo]

und weil ich da keine "Externen" Pfade setzten muss, aber es hat ja einige Probleme z.b. mit GIF Formate....

Du musst ja keine Pfade setzten, nur das opbitmapforlazcompat package im Projektinspektor hinzufügen.
Es gibt übrigens kleine Verbesserungen. Siehe CHANGELOG.TXT
http://www.theo.ch/lazarus/opbitmap64.zip" onclick="window.open(this.href);return false;

[pluto]

Du musst ja keine Pfade setzten, nur das opbitmapforlazcompat package im Projektinspektor hinzufügen.

Ist das gleiche, ob ich Pfade setzte oder ein package hinzufüge sofern es sich überhaupt Installieren lässt...