Bild auf Bild kopieren/übermalen & Transparenz

[Bummi]

Ich habe mal schnell eine Minikomponeten gebastelt, Testprojekt liegt bei, keine Installation/Komponentenregistrierung nötig.
Wenn es für Dich passt kannst Du es ja anpassen und ein Package drumkleben.

[himitsu]

Zitat von Cyberaxx:

Das ist vom Typ TPMGImage

Dann isses schon etwas interessant, daß man ein PNG (soll ja eines dort drin sein) in ein Bitmap laden kann, welches doch eigentlich nur Bitmaps laden können sollte.

Oder meinstest du
JvImage1.Picture.LoadFromStream(MStream);
statt
JvImage1.Picture.Bitmap.LoadFromStream(MStream); .

Aber OK, wer weiß was die JEDI-Leute da intern alles "verdreht" haben.

[Cyberaxx]

Ich schau mir das nachher in Ruhe mal an. Bin mir da gerade auch nicht mehr so sicher.
Muss jetzt erstmal richtung heimat fahren. Feierabend

[Cyberaxx]

JvImage1.Picture.LoadFromStream(MStream); Gibt es nicht. Es bleibt nur Bitmap übrig...

Um den Ausgangszustand anzuzeigen reichte jetzt
JvImage1.Picture.Assign(ButtonImage); Nachteil ist, meine erste Methode zum Anzeigen es Icons funktioniert nun nimma.


@Bummi: Das Projekt schaue ich mir gleich an. Der Screen ist ja schon einmal nach meinen Vorstellungen

[Cyberaxx]

Wow die Komponente ist wirklich nicht schlecht.
Daraus kann ich sicher etwas basteln.

Dennoch und ich hoffe Du nimmst mir das nicht allzu übel, würde ich gerne wissen was ich an meinem Projekt so falsch mache...

Delphi-Quellcode:

  try
    aImage := TPngImage.Create;
    aImage.Assign(ButtonImage);
    //aImage.Width := 110;
    //aImage.Height := 94;
    X := Trunc(JvImage1.Picture.Width - IconImage.Width);
    aImage.Canvas.Draw(X,0, IconImage);
    JvImage1.Picture.Assign(aImage);
  finally
    aImage.Free;
  end;

Da wird der bereich abgeschnitten der Transparent ist vom Original Bild. Der Transparente bereich scheint keine Zeichenfläche mehr zu sein?
Versuch ich mal das PNGImage nach Bitmap und dann per Stream aufs JvImage zu setzen.

[Thom]

Zitat von Cyberaxx:

Versuch ich mal das PNGImage nach Bitmap und dann per Stream aufs JvImage zu setzen.

Achtung: Das Delphi-Objekt TPNGImage enthält einen Fehler, der bei TBitmap.Assign(TPNGImage) dazu führt, daß halbtransparente Bereiche abgedunkelt werden.

[Bummi]

Das dürfte an der Implementierung von Draw (DrawPartialTrans) in TPNGImage liegen.
Ich grabe schon eine ganze Weile in meinen Snipplets rum, finde aber bezüglich des "mischens" zweier "Bitmaps" mit Alphakanal nicht die richtigen Dateien.
TPNGImage verwendet intern Bitmaps mit Alphakanalinformationen, daher gibt es überhaupt eine Property Canvas. Eine schnelle Lösung auf Deiner Basis scheine ich nicht zu finden, sorry.

[Cyberaxx]

Ja Mit einem Bitmap alleine klappts nicht, habe ich eben bemerkt.
Das ich von einem TPNGImage die grösse nicht ändern kann nervt mich auch. Alles was transparent ist, kann nicht übermalt werden.

Da ich hier mal weiter kommen will werde ich erst einmal Q&D das Icon mittig setzen, dann klappts ja.

Wenn ich dann Ruhe habe schaue ich mir dein Testprojekt bzw. die Komponente genauer an. Danach werde ich dies darauf anpassen.
War eine dumme Idee sowas anzubieten, hatte es mir einfacher vorgestellt

[Bummi]

In der Komponente steckt bis jetzt eine halbe Stunde Arbeit, noch mal soviel und Du hast IMHO die Faust aufs Auge Lösung. (Caption, Rahmen in dsDesigning,gegf. statt der Imagelisten direkt TPictures, gegf. die "Zahlen" selbst zeichnen, gegf. Zoom und Rotation einbauen, etc.)

[Cyberaxx]

Ja das sagst Du, Du hast scheinbar da auch Ahnung von. Ich hätte so etwas in einer halben Stunde nicht hinbekommen, nicht einmal Ansatzweise.
Bin ja schon froh wenn ich eine Komponente um ein Element erweitern kann.
Eine ganz eigenständige kann ich wohl auch aber davon nun hab ich echt keine Ahnung.

Wäre sicher sonst schon auf die Idee gekommen mir etwas eigenes zu bauen, was genau meinen Vorstellungen entspricht.
Die JvImage musste ich auch erstmal abändern. Da gab es ein Problem mit dem Status und dem entsprechenden Draw. Das hab ich auch noch so eben hinbekommen.