Forum: Multimedia
by Uwe Raabe,
24. Aug 2014
Bei PNG ist das klar, aber gilt das auch für beliebige BMP Dateien? Wenn dem so wäre, warum dann der ganze Aufwand in CreateBitmap?
Nun gut, solange es funktioniert ist ja alles in Ordnung.
Forum: Multimedia
by Uwe Raabe,
24. Aug 2014
Wird mit dem LoadFromFile denn die TransparentColor richtig umgesetzt?
Forum: Multimedia
by Uwe Raabe,
24. Aug 2014
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:
procedure TForm27.AddBitmap(const AFileName: string; AScale: Single);
var
itm: TFixedBitmapItem;
begin
itm := Image1.MultiResBitmap.Add;
itm.Scale := AScale;
LoadBitmap(itm, AFileName);
end;
Forum: Multimedia
by Uwe Raabe,
24. Aug 2014
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 zu der Zugriffsverletzung.
Du solltest anstatt mr schon dein Image1.MultiResBitmap verwenden. Natürlich müssen die Bitmaps bereits existieren. Mit Image1.MultiResBitmap sprichst du das erste, mit Image1.MultiResBitmap das zweite an usw.
Forum: Multimedia
by Uwe Raabe,
24. Aug 2014
Die Deklaration als TFixedMultiResBitmap steht eigentlich nur als Hinweis da. Natürlich sollst du für mr die bestehende Instanz deiner MultiResBitmap einsetzen.
Forum: Multimedia
by Uwe Raabe,
23. Aug 2014
Wie ebenfalls in der Hilfe nachzulesen ist, wird die TransparentColor von CreateBitmap ausgewertet.
(Code ungetestet!)
var
bmp: TBitmap;
mr: TFixedMultiResBitmap;
begin
{ lade Bitmap aus Datei Hurz.bmp in Items der MultiResBitmap mit Berücksichtigung der TransparentColor }