Bilder in Ebenen

[cleheinrich]

Hallo,

Ich bin gerade dabei eine Aufgabe für den Informatik Bundeswettbewerb zu lösen.

"Für viele Pizzeria-Besucher ist es ein Vergnügen,
die Zutaten für ihre Pizza selbst festzulegen.
Schön wäre es, auf einem Monitor ein Bild der
gewünschten Pizza zu sehen.
Jeder Gast soll also aus mindestens zwölf angebotenen
Zutaten auswählen können. Jeweils
nach dem Hinzufügen oder Entfernen einer
Zutat soll das (vorläufige) Bild der Pizza gezeigt
werden.
Diese Pizza-Bilder sollen Bestellfehler vermeiden
helfen, für das Auge eine (Vor-)Freude
darstellen und nebenbei den Appetit auf mehr
Pizza-Zutaten anregen."

Da ich nicht vorhab für jede Möglichkeit von Zutaten ein einzelnes Bild zu machen würde ich gern die Zutaten in verschiedene Ebenen legen,somit müsste ich dann lediglich 12 Bilder erstellen. (z.B. Pizzateig unten, darübe Käse, dann Salami...)Allerdings weiß ich nicht wie man das realisieren kann und hoffe ihr könnt mir helfen.

[semo]

sollst du die aufgaben bei diesem wettbewerb nicht allein lösen?

[cleheinrich]

Das habe ich auch vor, ich will ja nicht das mir jemand die Aufgabe löst sondern lediglich sagt wie man Bilder in verschiedene Ebenen schieben kann.

[Sir Rufo]

ok, kleiner Tip:

bei mehr als einem Objekt, muss zwangläufig auch gestapelt werden, also eins liegt systembedingt unten und eins oben.

cu

Oliver

[Torpedo]

Zeichne doch einfach ein Bild über ein anderes.

[jfheins]

Du könntest z.B. eine PaintBox verwenden, in der du dann im OnPaint sowas machst:

Delphi-Quellcode:

Paintbox.OnPaint()
begin
  if (Tomaten in Zutaten)
    Canvas.Paintto({tomatenbitmap auf paintbox.canvas})


  if (käse in Zutaten)
    // Käse auf Paintbox.Canvas malen
end;

So ungefähr

[cleheinrich]

Danke schonmal für die vielen Antworten, allerdings habe ich noch ein Problem. Das übereinander malen klappt zwar ohne probleme, allerdings brauch ich dafür einen Transparenten Hintergrund das man auch noch die Bilder darunter erkennt; welche Farbe erkennt delphi als transparent?

[mkinzler]

Die Farbe, die man als transparente Farbe angibt.

[cleheinrich]

Ich habe die transparente farbe auf schwarz gesetzt, den Hintergrund weiß ausgemalt und darauf ein jpg gesetzt, auf dem man einen roten Punkte mit schwarzem Hintergrund sieht.

Delphi-Quellcode:

Bmp := TBitmap.Create;
Bmp.Transparent := true;
Bmp.TransparentColor := clblack;
paintbox1.Canvas.Brush.Color := clwhite;
Paintbox1.Canvas.Rectangle(0,0,paintbox1.Width,paintbox1.Height);

jpg:=TjpegImage.Create;
jpg.loadfromfile('E:test.jpg');
paintbox1.canvas.Draw(0,0,jpg);
jpg.free;

Nur dummerweise sieht man nun immernoch den schwarzen Hintergrund, obwohl dieser ja transparent sein sollte, wo liegt das Problem?

[DeddyH]

Und wo zeichnest Du die Bitmap in die Paintbox?