Forum: Multimedia
by DeddyH,
10. Jan 2011
Das Level musst Du selbst festlegen/erhöhen. Dabei kann es sich um eine globale Variable handeln oder besser um eine private Variable des Formulars.
Forum: Multimedia
by DeddyH,
9. Jan 2011
Statt zig Boolean-Variablen bietet sich eine einzige Integer an.
const Pfad := 'C:\Dokumente und Einstellungen\Jäger\Desktop\Delphi7\_RealProject\';
var Level: Cardinal;
Bildname: string;
...
Bildname := '';
case Level of
1: Bildname := 'Level1.bmp';
2: Bildname := 'Level2.bmp';
3: Bildname := 'Level3.bmp';
Forum: Multimedia
by DeddyH,
9. Jan 2011
Das wirst Du Dir schon selber merken müssen (Pfad zum Bild oder sowas).
Forum: Multimedia
by DeddyH,
9. Jan 2011
http://www.christian-stelzmann.de/index_tutorials_crashkurs.html
http://www.delphipraxis.net/156897-delphi-kurzreferenz.html
Forum: Multimedia
by DeddyH,
8. Jan 2011
Bevor man sich an ein Spiel wagt, sollte man zumindest die elementaren Grundlagen beherrschen :?
Wie wird denn ein Wert zugewiesen? Jedenfalls nicht mit "set wert to irgendwas", dafür gibt es den einfachen Zuweisungs-Operator.
Forum: Multimedia
by DeddyH,
8. Jan 2011
Genauso wie Du ein einzelnes Pixel auslesen kannst, kannst Du es auch setzen.
Forum: Multimedia
by DeddyH,
7. Jan 2011
Da würde ich einmal durchsteppen. Deine Setzung von "begin"s und "end"s ist sehr kreativ, daran wird es vermutlich liegen.
Forum: Multimedia
by DeddyH,
7. Jan 2011
Ich halte es eigentlich für keine gute Idee, die Farbe der Zeichenfläche auszuwerten, aber wenn es denn sein muss:procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Image1.Canvas.Pixels = clBlue then
begin
//PenActive soll eine private Variable sein
PenActive := true;
Image1.Canvas.MoveTo (X, Y);
...
Forum: Multimedia
by DeddyH,
6. Jan 2011
Gegenvorschlag: poste doch einfach Deinen Code, dann können wir sehen, wieso es nicht läuft.