Subversion Repositories jumper

Rev

Rev 26 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 26 Rev 29
Line 443... Line 443...
443 
    for y := Low(PlaygroundMatrix.Fields[x]) to High(PlaygroundMatrix.Fields[x]) do
 443 
    for y := Low(PlaygroundMatrix.Fields[x]) to High(PlaygroundMatrix.Fields[x]) do
444 
    begin
 444 
    begin
445 
      if PlaygroundMatrix.Fields[x,y].FieldState = fsOccupied then
 445 
      if PlaygroundMatrix.Fields[x,y].FieldState = fsOccupied then
446 
        Inc(LevelTotalStones);
 446 
        Inc(LevelTotalStones);
447 
      DrawField(x, y, PlaygroundMatrix.Fields[x,y]);
 447 
      DrawField(x, y, PlaygroundMatrix.Fields[x,y]);
- 
 
 448 
      if Assigned(PlaygroundMatrix.Fields[x,y].Data) then
- 
 
 449 
      begin
448 
      p := TFieldVclData(PlaygroundMatrix.Fields[x,y].Data).Panel;
 450 
        p := TFieldVclData(PlaygroundMatrix.Fields[x,y].Data).Panel;
449 
      if Assigned(p) then
 451 
        if Assigned(p) then
450 
      begin
 452 
        begin
451 
        max_x := Max(max_x, p.Left + p.Width);
 453 
          max_x := Max(max_x, p.Left + p.Width);
452 
        max_y := Max(max_y, p.Top  + p.Height);
 454 
          max_y := Max(max_y, p.Top  + p.Height);
453 
      end;
 455 
        end;
454 
    end;
 456 
      end;
455 
  end;
 457 
    end;
- 
 
 458 
  end;
456 
 
 459 
 
457 
  PlayGround.Visible := true;
 460 
  PlayGround.Visible := true;
458 
 
 461 
 
459 
  // Das Form an das Level anpassen
 462 
  // Das Form an das Level anpassen
460 
  PlayGround.Top    := MET_OUTER_MARGIN;
 463 
  PlayGround.Top    := MET_OUTER_MARGIN;