-
Forum: Multimedia
by Patrick6,
11. Jan 2011
Vielen Vielen DAnk für die ganzen Hilfen. Ich hab das Programm jetzt fertig. Hab noch eine Stoppuhr und einen Neustart Knopf eingebaut...
:) Danke nochmals auch für die GEduld
-
Forum: Multimedia
by Patrick6,
9. Jan 2011
Danke hierfür. Kann den Code gut nachvollziehen, hab alles eingebaut. Aber es passiert einfach garnichts wenn ich dann auf den Button klick. Brauch ich einen bestimmten hierfür?
Woher soll Delphi wissen, was Level = 1 oder Level = 2 bedeutet?
-
Forum: Multimedia
by Patrick6,
9. Jan 2011
So...ein letztes mal:
Ich hab es jetzt so:
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if Level4 = true then
Image1.Picture.Bitmap.LoadFromFile('C:\Dokumente und Einstellungen\Jäger\Desktop\Delphi7\_RealProject\Level5.bmp');
BitBtn3.Enabled := false;
if Level1 = true then
-
Forum: Multimedia
by Patrick6,
9. Jan 2011
Okay...Also. Ich hätte jetzt trotzdem noch eine Frage, die ich mir so jetzt nicht schnell erschließen kann, aus den Tutorials. Ich hab jetzt einen Button gemacht, der aktiviert wird, wenn ein Level geschafft ist und über den man die neue Map läd.
Jetzt muss ja der Code für die folgenden Maps irgendwie so lauten:
"Wenn xy Bild geöffnet, dann öffne xy2 Bild"
Dieses: "Wenn xy Bild geöffnet"...
-
Forum: Multimedia
by Patrick6,
9. Jan 2011
Im sorry...aber wer nicht wagt, der nicht gewinnt. Und wo kann ich denn die Grundlagen lernen?
if Image1.Canvas.Pixels = clgray then Image1.Canvas.Pixels := clbue;
Ich verstehs nicht...
-
Forum: Multimedia
by Patrick6,
8. Jan 2011
Okay das probier ich später mal...Wichtiger ist mir jetzt wie ich prüfen kann ob ein bestimmtes Bild geladen ist. Ich find den Code nicht.
Weil ich ja immer wieder das nächste Level laden muss, muss ich ja irgendwie sagen: Wenn dieses Bild geöffnet ist, dann öffne das nächste...usw.
EDIT: DAs mit dem Wechseln der Farbe funktioniert nicht wirklich..Hab das mal so versucht:
procedure...
-
Forum: Multimedia
by Patrick6,
8. Jan 2011
DAs hab ich jetzt so halbwegs hinbekommen. Auf eine etwas andere Art und Weise.
Jetzt noch eine Frage. Ist es möglich in einem Bereich im Image per prozedur die Farbe zu ändern?
Könnte dies für Checkpoints bei dem SPiel gebrauchen.
-
Forum: Multimedia
by Patrick6,
7. Jan 2011
Hab jetzt einfach bei MouseMove nur die Message anzeigen, wenn die gelbe Linie berührt wird und bei MouseUp dann PenActive:=false...so klappt das!
Ich schließe aber gleich meine nächste Frage an, die ich noch hab. Ich möchte, nachdem ein "Level" abgeschlossen ist, direkt das nächste laden. Ich zeige ja dann eine MEssage und wenn ich dann auf okay klicke, sollte das nächste geladen...
-
Forum: Multimedia
by Patrick6,
7. Jan 2011
Also ich hab das jetzt so weit...Mein Code für ein 'Game Over' klappt aber noch nicht ganz. Er sieht so aus:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
begin
if PenActive and (ssLeft in Shift) then
{if ssLeft in Shift then}
Image1.Canvas.LineTo(X, Y);
end;
-
Forum: Multimedia
by Patrick6,
7. Jan 2011
OKay, danke schonmal :)
-
Forum: Multimedia
by Patrick6,
7. Jan 2011
Hey, also ich habe noch nichtmal viele Ideen, wie ich das mit Codes anwenden könnte, deshalb hab ich es einfach mal so dazugeschrieben, wie ich mir es ungefähr vorstell. Vielleicht könnt ihr mir ja ein wenig helfen.
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
{wenn Farbe blau, fängt Pen an zu zeichnen} {Versuch: if...
-
Forum: Multimedia
by Patrick6,
6. Jan 2011
hmm...ich bekomm das einfach nicht hin. Hab es mal mit einem Panel versucht aber dann lief es nicht und einen Bereich festzulegen hab ich auch nicht hinbekommen...Könntest du vielleicht mal den ganzen Code posten? Vielleicht versteh ichs dann besser
-
Forum: Multimedia
by Patrick6,
6. Jan 2011
Okay klingt gut...Wie kann ich so Felder bestimmen? Wenn hier gedrückt, dann...?
-
Forum: Multimedia
by Patrick6,
6. Jan 2011
Also ich hab mir das jetzt mal so überlegt:
Ich hab einen Start- und einen Ziel-Button. WENN ich auf den StartButton geklickt habe, aktivierts den Pen und wenn ich über das Image fahre zeichent es. Wenn ich beim Ziel-Button angelangt bin, klick ich dort drauf, den Pen deaktivierts und man hat gewonnen.
Nun hab ich da schon ein wenig rumprobiert, aber komm auf keinen grünen Zweig...
-
Forum: Multimedia
by Patrick6,
6. Jan 2011
Ja, das hab ich schon gelesen:
"Image1.Picture.LoadFromFile(fileName);
TImage.OnMouseLeave"
Wie man ein Bild öffnet hab ich ja schon. Nur das Ereignis TImage.OnMouseLeave find ich nicht.
Ich hatte auch eher an etwas gedacht wie, "Wenn pen auf schwarzer hintergrund: Game OVer" Oder so ähnlich.
-
Forum: Multimedia
by Patrick6,
6. Jan 2011
Hallo zusammen
Ich bin auf die Idee gekommen, ein kleines Spiel zu programmieren. Es sollte so aussehen: Man läd eine "Karte" hoch, die ein Labyrint darstellt. Durch dieses Labyrinth muss man dann mit gedrückter Linker Maustaste mit dem Zeichenstift durch und bis ans Ziel kommen (welches ein Button darstellt, der dann anzeigt: "Gewonnen").
Nun ist die Frage ob es überhaupt möglich ist, z.B....