Procedure DrawTeilungen(cX, cY : Double; dir : TDirection);
var
CurColor : TColor;
begin
If dir = dirNone then Exit;
//Aktuelle Farbe merken und dannach wiederherstellen
CurColor:= StartUp.Drw.Canvas.Brush.Color;
Case dir of
dirRight : begin
Teilungen[0].x:= XDrw(cX + CubeSize);
Teilungen[0].Y:= YDrw(cY + CubeSize);
Teilungen[3].x:= XDrw(cX + CubeSize - CubeSize / 2);
Teilungen[3].Y:= YDrw(cY - CubeSize / 2);
Teilungen[2].x:= XDrw(cX + CubeSize - CubeSize / 2);
Teilungen[2].Y:= YDrw(cY + CubeSize - CubeSize / 2);
Teilungen[1].x:= XDrw(cX + CubeSize);
Teilungen[1].Y:= YDrw(cY);
Teilungen[4].x:= XDrw(cX + CubeSize);
Teilungen[4].Y:= YDrw(cY + CubeSize);
end;
dirLeft: begin
Teilungen[0].x:= XDrw(cX);
Teilungen[0].Y:= YDrw(cY + CubeSize);
Teilungen[1].x:= XDrw(cX - CubeSize / 2);
Teilungen[1].Y:= YDrw(cY + CubeSize - CubeSize / 2);
Teilungen[2].x:= XDrw(cX - CubeSize / 2);
Teilungen[2].Y:= YDrw(cY - CubeSize / 2);
Teilungen[3].x:= XDrw(cX);
Teilungen[3].Y:= YDrw(cY);
Teilungen[4].x:= XDrw(cX);
Teilungen[4].Y:= YDrw(cY + CubeSize);
end;
end;
StartUp.Drw.Canvas.Brush.Color := clRed;
StartUp.Drw.Canvas.Polygon(Teilungen);
StartUp.Drw.Canvas.Brush.Color := CurColor;
end;