Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[Neutral General]

Hi I.A.

Eigentlich sollte bei dem vorliegenden Quelltext überhaupt nichts zu sehen sein (außer ein schwarzer Bildschirm).

Bist du sicher, dass dieser Code auch so in deinem Quelltext steht?

PS: Ich habe gerade kein Andorra installiert aber das Bild kannst du wenn ichs Recht in Erinnerung habe ungefähr(!) so darstellen:

So musst dus machen:

Delphi-Quellcode:

procedure TAdForm.Idle(Sender: TObject; var Done: Boolean);
begin
  if AdDraw.CanDraw then //Wenn überhaupt auf das AdDraw gezeichnet werden kann dann...
  begin
    //auch hier geht's bald weiter.
    AdDraw.BeginScene;
      AdImageList.Find('bild').Draw(AdDraw,0,0,0); // AdDraw|x|y|PatternIndex
      // ODER direkt über den Index:
      AdImageList.Items[0].Draw(AdDraw,0,0,0); 
    AdDraw.EndScene;
    AdDraw.Flip;
  end;
  Done := false;
end;

Gruß
Neutral General

[I.A]

Hallo Neutral General,

Danke erst mal für Dein Listing!

Ja,ich bin mir sicher, das ich den Quelltext so eingegeben habe. Hab ihn so in den Thread kopiert. In Delphi Bearbeiten->Alles Markieren, dann Beaarbeiten->Kopieren und in der DP Bearbeiten->Einfügen.

Allerdings muss es heißen: AdImageList.Items[0].Draw(); Hast Du ja grad eben noch korrigiert.

Die Bitmap ist jetzt ok, aber der Hintergrund ist nicht komplett schwarz.

So sieht es jetzt bei mir aus:

Jetzt hör ich aber erst mal auf. Morgen ist auch noch ein Tag. Ich schlafe erst mal. Bis denne!!! :kiss:

[Neutral General]

Hi,

Also das ist doch etwas seltsam. Woher kommt denn diese Schrift? Stammen diese Sätze in irgendeiner Weise von dir? Wobei ich schätze, das es Sätze aus Igels Tutorial sind...

Aber irgendwo müssen die ja stehn. Die werden ja nicht "einfach so" da angezeigt.

Warte am besten mal auf den Schöpfer himself :stupid:

Bin jetzt auch müde und gehe ins Bett. Mach das am besten auch. So spät passiert es schonmal das man ein Brett vor dem Kopf hat ;)

Edit: Den letzten Satz hätte ich mir ja sogar sparen können seh ich gerade :) Dann machs auch gut, bis morgen oder so, gute Nacht ;) :mrgreen:

[Codewalker]

Die Fläche wird natürlich nur schwarz, wenn du sie auch mit Schwarz füllst. Ansonsten wird wirres Zeug aus dem Grafikspeicher ausgegben (letzteres ist Spekulation :mrgreen: ).

Also noch AdDraw.ClearSurface(clBlack) eingefügt und gut ist.

Delphi-Quellcode:

procedure TAdForm.Idle(Sender: TObject; var Done: Boolean); 
begin 
  if AdDraw.CanDraw then //Wenn überhaupt auf das AdDraw gezeichnet werden kann dann... 
  begin 
    //auch hier geht's bald weiter. 
    AdDraw.BeginScene; 
    AdDraw.ClearSurface(clBlack); // Das hast du vergessen, steht aber im Tutorial drin ;-)
     AdImageList.Find('bild').Draw(AdDraw,0,0,0); // AdDraw|x|y|PatternIndex 
      // ODER direkt über den Index: 
      AdImageList.Items[0].Draw(AdDraw,0,0,0); 
    AdDraw.EndScene; 
    AdDraw.Flip; 
  end; 
  Done := false; 
end;

Grüße

[I.A]

Hallo,
Danke, @Codewalker, das war die entscheidende Anweisung. Jetzt kann ich weiter machen. Jetzt habe ich den gewünschten schwarzen Hintergrund. Und die Bitmap wird auch korrekt angezeigt.

Danke auch @Natural General, für die gegebene Hilfe! :hello:

[Diamondback2007]

Hallo,

es wäre auch schön, wenn in der nächsten Version die Namen der Texturen in einer Liste oder Datei nicht Casesensitiv wären.
Also mit LoerCase() vergeleichen. Das erleichtert einem die Arbeit nämlich ungemein.

gruß

[inherited]

Davon würde ich abraten, da es durchaus (nach meinen Erfahrungen) üblich ist, die Namen der Textur einheitlich mit dem Dateinamen zu halten und das ganze auch unter Linux funktionieren soll, wo die Dateinamen auch case sensitiv sind.

[Diamondback2007]

Man könnte es ja einstellbar machen, mich hat es nämlich so seh gestört, dass ich es in meiner Version umgebaut habe.
Ist ja auch keine große Sache.

gruß

[mimi]

Ich frage mich was ist daran so schlimm ?
Unter Linux ist das Standard, nur unter Windows nicht. Wie es mit anderen Systemen aussieht weiß ich nicht.

Gut einstellbar währe eine Lösung. Aber die ImageList Datei muss natürlich angepasst sein.

[inherited]

mimi: läuft inzwischen FreeLibrary bei dir? Wenn nicht, meld dich mal.