Question

I have a procedure:

 procedure DrawSolidHexImage(Target: TCanvas;     { Canvas to draw hex on }
                         Fillstyle : TBrushStyle; { How to fill the hex }
                         Fillcolor : TColor;      { Color to fill it }
                         fillimage : Tbitmap;     { Image to show}
                         Linestyle : TPenStyle;   { What kind of lines }
                         LineColor : Tcolor;      { What color for lines }
                         x,y,radius: integer;     { Position and size of Hex }
                         button    : boolean);    { Make hexes look like buttons? }

When I use this, the image is tiled to fill the area. Is there something I can add or must remove to make it not tile? Thus not repeating the image. Maybe make it center?

{Solid Hexagon drawing function}
procedure THexMap.DrawSolidHeximage(Target:TCanvas;
                          Fillstyle : TBrushStyle;
                          Fillcolor : TColor;
                          Fillimage : TBitmap;
                          Linestyle : TPenStyle;
                          LineColor : Tcolor;
                          x,y,radius: integer;
                          button    : boolean);
 var
   p0,p1,p2,p3,p4,p5,p6:TPoint;
 Begin
   p0 := Point(x,y);

   {compute each point of hex based on center coordinate (p0) }
   p1.x := p0.x - round(Radius /2);
   p1.y := p0.y - Rise;
   p2.x := p0.x + round(Radius /2);
   p2.y := p1.y;
   p3.x := p0.x + Radius;
   p3.y := p0.y;
   p4.x := p2.x;
   p4.y := p0.y + rise;
   p5.x := p1.x;
   p5.y := p4.y;
   p6.x := p0.x - Radius;
   p6.y := p0.y;

   {set color / Style of lines}
   target.pen.color := linecolor;
   target.pen.style := linestyle;

   {Set color and style of hex }
   target.brush.color := FillColor;
   target.brush.style := FillStyle;
   target.Brush.Bitmap := Fillimage;

   {draw the hex}
   target.polygon([p1,p2,p3,p4,p5,p6]);

   {If Desired, draw the borders for the hex}
   if button = true then
   begin
     with target do
     begin
       pen.mode:=pmcopy;
       pen.color:=clWhite;
       moveto(p5.x+1,p5.y-1);
       lineto(p6.x+1,p6.y);
       lineto(p1.x+1,p1.y+1);
       lineto(p2.x-1,p2.y+1);
       pen.color:=clBlack;
       lineto(p3.x-1,p3.y);
       lineto(p4.x-1,p4.y-1);
       lineto(p5.x+1,p5.y-1);
     end;
   end;
 end;

Answer 1

Yep, see my second comment: Target.Brush.Bitmap is set. Removal of that line will prevent the tiling effect, but will also completely prevent any image from being drawn. To compensate that, use something like:

Target.Draw(x, y, FillImage);

You may have to fiddle with the coordinates though.