1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38:
| Procedure TProgramm.Figuren_auf_dem_Brett_darstellen; begin FigurBreite:=55; FigurHoehe :=55; BauerW1.SetBounds(22,358,FigurBreite,FigurHoehe); BauerW2.SetBounds(77,358,FigurBreite,FigurHoehe); BauerW3.SetBounds(134,358,FigurBreite,FigurHoehe); BauerW4.SetBounds(190,358,FigurBreite,FigurHoehe); BauerW5.SetBounds(246,358,FigurBreite,FigurHoehe); BauerW6.SetBounds(302,358,FigurBreite,FigurHoehe); BauerW7.SetBounds(358,358, FigurBreite,FigurHoehe); BauerW8.SetBounds(416,358,FigurBreite,FigurHoehe); KoenigW.SetBounds(246,414,FigurBreite,FigurHoehe); TurmW1.SetBounds(22,414,FigurBreite,FigurHoehe); TurmW2.SetBounds(416,414,FigurBreite,FigurHoehe); SpringerW1.SetBounds(77,414,FigurBreite,FigurHoehe); SpringerW2.SetBounds(358,414,FigurBreite,FigurHoehe); LaeuferW1.SetBounds(134,414,FigurBreite,FigurHoehe); LaeuferW2.SetBounds(302,414,FigurBreite,FigurHoehe); DameW.SetBounds(190,414,FigurBreite,FigurHoehe); BauerS1.SetBounds(22,80,FigurBreite,FigurHoehe); BauerS2.SetBounds(77,80,FigurBreite,FigurHoehe); BauerS3.SetBounds(134,80,FigurBreite,FigurHoehe); BauerS4.SetBounds(190,80,FigurBreite,FigurHoehe); BauerS5.SetBounds(246,80,FigurBreite,FigurHoehe); BauerS6.SetBounds(302,80,FigurBreite,FigurHoehe); BauerS7.SetBounds(358,80,FigurBreite,FigurHoehe); BauerS8.SetBounds(416,80,FigurBreite,FigurHoehe); SpringerS1.SetBounds(77,24,FigurBreite,FigurHoehe); SpringerS2.SetBounds(358,24,FigurBreite,FigurHoehe); TurmS1.SetBounds(22,24,FigurBreite,FigurHoehe); TurmS2.SetBounds(416,24,FigurBreite,FigurHoehe); KoenigS.SetBounds(246,24,FigurBreite,FigurHoehe); LaeuferS1.SetBounds(134,24,FigurBreite,FigurHoehe); LaeuferS2.SetBounds(302,24,FigurBreite,FigurHoehe); DameS.SetBounds(190,24,FigurBreite,FigurHoehe);
end; |