AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Andorra verwackelt Bilder
Thema durchsuchen
Ansicht
Themen-Optionen

Andorra verwackelt Bilder

Ein Thema von Neutral General · begonnen am 26. Jan 2008 · letzter Beitrag vom 10. Apr 2008
 
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#8

Re: Andorra verwackelt Bilder

  Alt 10. Apr 2008, 19:56
Kann es daran liegen, dass ich die Textur sozusagen manuell [edit]reinlade[/edit]? Ich habe nämlich ein eigenes Dateiformat für die Spritelisten, weil ich Zusatzinformationen speichern muss. Daher kann ich die AdImagelist nicht benutzen.

Ich geb dir mal etwas Code, vielleicht kannst du es damit ja reproduzieren oder mir sagen, welche Funktion ich vergessen habe aufzurufen.
Delphi-Quellcode:
procedure TSgMap.LoadSkinsFromFile(const FileName: string);
var
  i: integer;
  tmpabmp: tadbitmap;
begin
  // Skinliste laden
  fskinlist.LoadFromFile(filename);
  if assigned(fparent) then
  begin
    // Temporäres Andorrabitmap erstellen, um die textur zu laden:
    tmpabmp := tadbitmap.Create;
    for i := 0 to fSkinlist.Count - 1 do
    begin
      if not assigned(fskinlist[i].sprite) then
        fskinlist[i].Sprite := TAdImage.Create(fParent.adDraw);

      // fskinlist[i].Image ist ein TBitmap32, das das Sprite enthält (inkl. Alphachannel)
      Bitmap32IntoAndorraBitmap(fskinlist[i].Image,tmpabmp);
      fSkinList[i].Sprite.Texture.Texture.LoadFromBitmap(tmpabmp,
        fParent.adDraw.GetTextureParams(fskinlist[i].Sprite.Texture.BitDepth));
      fskinlist[i].Sprite.Restore;
    end;
    freeandnil(tmpabmp);
  end;
end;

// Code teilweise von Andorra-Units abgeschaut:
procedure Bitmap32IntoAndorraBitmap(aBmp32:TBitmap32;aAndorraBmp:TAdBitmap);
var
  x,y:integer;
  sl1:PColor32;
  sl2:pRGBARec;
begin
  aAndorraBmp.ReserveMemory(aBmp32.width,aBmp32.height);
  sl2 := aAndorraBmp.ScanLine;
  sl1 := @(aBmp32.Bits^[0]);
  for y := 0 to aBmp32.Height-1 do
  begin
    for x := 0 to aBmp32.Width - 1 do
    begin
      tcolor32(sl2^) := sl1^;
      inc(sl2);
      inc(sl1);
    end;
  end;
end;
Achja, übrigens Danke für den bug in deiner Engine, denn das genauere Betrachten des Codes hatte den Nebeneffekt, dass ich Codeteile gefunden habe, die völlig sinnlos waren (ältere Versuche) und konnte so den Code auf c.a. 1/3 reduzieren, würde ich sagen. xD
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:17 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz