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; |