1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm3.raupesetzen;
for i := 0 to 5000 do
 if spielfeld.Canvas.Pixels[image1.left,i] <> clfuchsia then
 begin
  image1.Top := i - image1.Height;
  break;
 end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TAXBitmap.RefreshAX;
var abmp : TBITMAP;
   x,y : integer;
begin
  x := width;
  y := height;
  image1.Width := x;
  image1.Height:= y;
  fgui.USR_WINDOW(0,x,0,y);
  fgui.USR_SCALE(-1,flength,fwidth,-1);
  //------ Größe ändern
  abmp := tbitmap.Create;
  abmp.Height := image1.Height;
  abmp.Width  := image1.Width;
  image1.Picture.Bitmap := abmp;
  abmp.Free;
  fgui.Move_2D(0,0,image1.Canvas);
end;

//fGui. xxxx   // eigene GUI-Verwaltung
// ab abmp   wirds interessant                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm3.spielfeldwandeln;
var tmpbmp: TBitmap;
    rechteck: TRect;
begin
rechteck.Left := 0;
rechteck.Top := 0;
rechteck.Right := form3.ClientWidth;
rechteck.Bottom := form3.ClientHeight;
tmpbmp := TBitmap.Create;
tmpbmp.Width := form3.ClientWidth;
tmpbmp.Height := form3.ClientHeight;
tmpbmp.Canvas.StretchDraw(rechteck,spielfeld.Picture.Graphic);
BitBlt(spielfeld.Canvas.Handle,0,0,screen.Width,screen.Height,tmpbmp.Canvas.Handle, 0, 0, SRCCOPY);
spielfeld.Picture := nil;
spielfeld.Picture.Bitmap := tmpbmp;
tmpbmp.Free;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm3.raupesetzen;
begin
image1.Left := 5;
for i := 1 to 5000 do
 if spielfeld.Canvas.Pixels[image1.left,i] <> clfuchsia then
 begin
  image1.Top := i - image1.Height;
  break;
 end;
end;                    

1:
2:
3:

k:=1;
while((k<5001)AND(spielfeld.Canvas.Pixels[image1.left,i] <> clfuchsia))then
  image1.Top:=k-image1.Height;