Firemonkey: Image, per code Bitmaps ins MultiResBitmap und neue Transparenzfarbe

[onepiecefreak2]

Also, sehr langer Titel, aber besser bekam ich es nicht auf den Punkt. Ich benutze Delphi XE5 und arbeite mit Windows 7.

Also ich suche Folgendes:
1.Im MultiResBitmap-Editor kann man ja die transparente Farbe der geladenen Bitmaps auswählen. Wie man diese im Code umstellt, weiß ich auch schon:
Image1.MultiResBitmap.TransparentColor:=$FFFFFF; Nun ist es aber so, dass diese transparente Farbe nicht übernommen wird. Also ich drücke auf einen Button, die Zeile Code wird ausgeführt und nix geschieht. Muss ich das MultiResBitmap vllt. neuladen oder was müsste ich da noch tun?

2. Ich habe ein Image und in dieses müssen immer wieder verschiedene Bitmaps geladen werden. Mein Frage nun, wie lade ich in Firemonkey neue Bitmaps in ein Image. Oder besser wie lade ich diese in den MultiResBitmap, damit sie auch die transparente Farbe übernehmen?

Ich hoffe ihr versteht mein Problem und könnt mir helfen.

P.S: Ich habe die beiden Bilder zwischen denen, erstmal zum Test, geswitcht werden soll, habe ich mal in den anhang gepackt. Doch ich habe keine Ahnung warum sie im jpg-Format sind. Ursprünglich waren sie im bmp-Format und haben eine voreingestellte 50% Transparenz.

[Uwe Raabe]

Zitat von onepiecefreak2:

Muss ich das MultiResBitmap vllt. neuladen

Die Hilfe ist da ziemlich eindeutig:

Zitat:

Die Farbe, die durch die transparente Farbe beim Laden des Bildes ersetzt wird.

[onepiecefreak2]

Ach ok, Da habe ich das wohl komplett überlesen. Ich bin ja eigentlich keiner, der eine Frage stellt ohne vorher die Hilfe oder Google in Anspruch zu nehmen.
Also einfach das Bild neu laden?

Da kommt Nummer 2 ins Spiel. Wie lade ich denn neue Bitmaps oder das aktuelle neu?

Zudem habe ich gesagt, dass ich den Befehl ja schon kenne. Nur falls du es nicht gelesen hast, da die Hilfe mir ja nur den Befehl und eine kurze Beschreibung gibt.

(wäre ja toll gewesen, wenn du darauf auch eingegangen wärst ^^)

[Uwe Raabe]

Wie ebenfalls in der Hilfe nachzulesen ist, wird die TransparentColor von CreateBitmap ausgewertet.

(Code ungetestet!)

Delphi-Quellcode:

var
  bmp: TBitmap;
  mr: TFixedMultiResBitmap;
begin
  { lade Bitmap aus Datei Hurz.bmp in Items[0] der MultiResBitmap mit Berücksichtigung der TransparentColor }
  bmp := mr[0].CreateBitmap('Hurz.bmp');
  try
    mr[0].Bitmap.Assign(bmp);
  finally
    bmp.Free;
  end;
end;

[onepiecefreak2]

Zu meinem Bedauern muss ich dir sagen, dass mr bei mir nicht auf TFixedMultiResBitmap gesetzt werden kann. Undeklarierter Bezeichner!

[2 Minuten später]: Es muss TImageMultiResBitmap sein.

Danke für die Hilfe.

[Uwe Raabe]

Die Deklaration als TFixedMultiResBitmap steht eigentlich nur als Hinweis da. Natürlich sollst du für mr die bestehende Instanz deiner MultiResBitmap einsetzen.

[onepiecefreak2]

Ich und meine Leitungssteherei ^^. Ja wie gesagt hat funktioniert. Allerdings findet er meine Bilddatei nicht. Wenn dieser Befehl:
bmp := mr[0].CreateBitmap('Test.bmp'); ausgeführt wird, gibt er mir eine Zugriffsverletzung aus. Entweder liegts an den Ordner-Rechten (teste ich sofort) oder es liegt daran wo die Datei liegt. Wenn ich die Datei Test.bmp laden will, wo muss sie liegen?

[2 Minuten später]: Also an den Orner-Rechten liegt es nicht!

P.S: Das ist die Fehlermeldung: "Zugrffsverletzung bei Adresse 8BFFFA0D. Lesen von Adresse 8BFFFA0D."

[Uwe Raabe]

Du solltest nicht mr verwenden - die Variable habe ich nur zur Veranschaulichung eingeführt. Da sie nicht initialisiert wird, führt der Zugriff auf mr[0] zu der Zugriffsverletzung.

Du solltest anstatt mr schon dein Image1.MultiResBitmap verwenden. Natürlich müssen die Bitmaps bereits existieren. Mit Image1.MultiResBitmap[0] sprichst du das erste, mit Image1.MultiResBitmap[1] das zweite an usw.

[onepiecefreak2]

Also muss es statt
bmp := mr[0].CreateBitmap('Test.bmp'); so heißen:
bmp := Image1.MultiResBitmap[0].CreateBitmap('Test.bmp'); ?

Wenn dem so ist (was ich nicht glaube, bei meiner gerade sehr dürftigen Aufnahmefähigkeit ), habe ich wieder eine Zugriffsverletzung. Diesmal bei Adresse 00000000. Ich glaube die Nullen sollen mich darauf hinweisen, dass das Bild fehlt? Das Bild ist in jedem einzelnen Ordner meines Projektes vertreten, um alle möglichen Pfade abzudecken. Wenn er das Bild also nicht findet... wo muss das Bild denn dann hin außer in den Projektordner?

Boah bin ich heute schwer von kp. Tut mir echt sry Uwe.

P.S: Nur nochmal zur Info. Die Bitmaps sollen aus einer Datei heraus in die MultiResBitmap geladen werden. Also nicht über den Editor hinzugefügt werden, sondern über den Code.

[Uwe Raabe]

Zitat von onepiecefreak2:

P.S: Nur nochmal zur Info. Die Bitmaps sollen aus einer Datei heraus in die MultiResBitmap geladen werden. Also nicht über den Editor hinzugefügt werden, sondern über den Code.

Dann ist die MultiResBitmap zu diesem Zeitpunkt noch leer? In dem Fall musst du erstmal die einzelnen Bitmaps erzeugen. Vielleicht helfen dir diese drei Methoden weiter:

Delphi-Quellcode:

procedure TForm27.AddBitmap(const AFileName: string; AScale: Single);
var
  itm: TFixedBitmapItem;
begin
  itm := Image1.MultiResBitmap.Add;
  itm.Scale := AScale;
  LoadBitmap(itm, AFileName);
end;

procedure TForm27.ChangeBitmap(AIndex: Integer; const AFileName: string);
begin
  LoadBitmap(Image1.MultiResBitmap[AIndex], AFileName);
end;

procedure TForm27.LoadBitmap(AItem: TFixedBitmapItem; const AFileName: string);
var
  bmp: TBitmap;
begin
  bmp := AItem.CreateBitmap(AFileName);
  try
    AItem.Bitmap.Assign(bmp);
  finally
    bmp.Free;
  end;
end;