Jalousiene Simulation!

[pacman1986]

Delphi-Quellcode:

  if I >= 10 then I := 9;
  Image1.Canvas.Brush.Style := bsSolid;
  Image1.Canvas.Brush.Color := clBlack;
//  Image1.Canvas.Rectangle(32, 64, 150, 164);
  for j := 1 to 10 do
    begin
      h := h + 10;

      Image1.Canvas.Brush.Style := bsSolid;
      Image1.Canvas.Brush.Color := clBlack;
      Image1.Canvas.Rectangle(32, h, 150, h + I);
    end;

In diesem Code hast du ein Schwarzes viereck erstllt und mit schwarz drübergemalt naja ich versteh nicht warum also hab ich es geändert kommentier einfach aus dann hast du schonmal lammelen.

das selbe ist in der Funktion Joulosinenfahrt

Delphi-Quellcode:

  h := 54;
  I := 9;
  Image1.Canvas.Brush.Style := bsSolid;
  Image1.Canvas.Brush.Color := clBlack;
 // Image1.Canvas.Rectangle(32, 64, 150, 164);
  for j := 1 to 10 do
    begin
      h := h + 10;
      Image1.Canvas.Brush.Style := bsSolid;
      Image1.Canvas.Brush.Color := clBlack;

      Image1.Canvas.Rectangle(32, h, 150, h + I);
    //  if Befehl = 'Stop' then break;
    end;

nur das du die höhe hier vrogibst.

PS: breake versteh ich auch nicht.

also bewirken button1 und button2 das selbe

des sinn hinter dem ticker hab ich noch nicht rausgefunden da du ihn durch button3 nur stopst er aber nie an war. ich glaub du wolltest ein timer ?