From: "John McDonnell" <john.mcdonnell@infonomicon.com>
Newsgroups: borland.public.delphi.graphics
References: <3B8FBECE.24891F38@yahoo.com> <3b8fd8ce$2_1@dnews> <3B8FFB6D.E7943D95@yahoo.com>
Subject: Re: Drawing a hexagon
Date: Thu, 6 Sep 2001 19:08:45 +0100
Lines: 279
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2505.0000
X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2505.0000
NNTP-Posting-Host: 217.134.54.249
Message-ID: <3b97bbbf_2@dnews>
X-Trace: dnews 999799743 217.134.54.249 (6 Sep 2001 11:09:03 -0700)
Path: dnews
Xref: dnews borland.public.delphi.graphics:41696

Here's a work in progress for you as well - no trig used in this one...

unit HexGrid;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, ExtCtrls, Math;


type

  TOrientation = (hxVertical, hxhorizontal);

  THexGrid = class(TCustomPanel)
  private
    FOrientation: TOrientation;
    FHexSize: Integer;
    FPoints: array[0..5] of TPoint;
    FDisplayCaption: Boolean;
    procedure ChangedDimensions;
    procedure SetOrientation(Value: TOrientation);
    procedure SetHexSize(const Value: Integer);
    procedure DrawVerticalGrid;
    procedure DrawhorizontalGrid;
    procedure SetDisplayCaption(Value: Boolean);
    { Private declarations }
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    procedure Paint; override;
    property Orientation: TOrientation read FOrientation write
SetOrientation;
    { Public declarations }
  published
  {Republished properties }
    property Align;
    property Alignment;
    property Anchors;
    property AutoSize;
    property BevelInner;
    property BevelOuter;
    property BevelWidth;
    property BiDiMode;
    property BorderWidth;
    property BorderStyle;
    property Caption;
    property Color;
    property Constraints;
    property Ctl3D;
    property UseDockManager default True;
    property DockSite;
    property DragCursor;
    property DragKind;
    property DragMode;
    property Enabled;
    property FullRepaint;
    property Font;
    property Locked;
    property ParentBiDiMode;
    property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Visible;
    property OnCanResize;
    property OnClick;
    property OnConstrainedResize;
    property OnContextPopup;
    property OnDockDrop;
    property OnDockOver;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDock;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnGetSiteInfo;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnResize;
    property OnStartDock;
    property OnStartDrag;
    property OnUnDock;
    property Left;
    property Top;
    property Width;
    property Height;
    property Cursor;
    property Hint;
    property HelpType;
    property HelpKeyword;
    property HelpContext;
    property HexSize: Integer read FHexSize write SetHexSize;
    property DisplayCaption: Boolean read FDisplayCaption write
SetDisplayCaption;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [THexGrid]);
end;

procedure THexGrid.ChangedDimensions;
var
  I: Integer;
begin
  for I := 0 to High(FPoints) do // Iterate
  begin
    FPoints[I].X := 0;
    FPoints[I].Y := 0;
  end; // for
  if Orientation = hxhorizontal then
  begin
    FPoints[0].X := Hexsize div 4;
    FPoints[1].X := HexSize - (Hexsize div 4);
    FPoints[2].X := HexSize;
    FPoints[2].Y := HexSize div 2;
    FPoints[3].X := HexSize - (Hexsize div 4);
    FPoints[3].Y := HexSize;
    FPoints[4].X := HexSize div 4;
    FPoints[4].Y := HexSize;
    FPoints[5].Y := HexSize div 2;
  end;
  if Orientation = hxVertical then
  begin
    FPoints[0].X := HexSize div 2;
    FPoints[1].X := HexSize;
    FPoints[1].Y := HexSize div 4;
    FPoints[2].X := HexSize;
    FPoints[2].Y := HexSize - (Hexsize div 4);
    FPoints[3].X := HexSize div 2;
    FPoints[3].Y := HexSize;
    FPoints[4].Y := HexSize - (Hexsize div 4);
    FPoints[5].Y := HexSize div 4;
  end;
end;

procedure THexGrid.SetOrientation(Value: TOrientation);
begin
  if FOrientation <> Value then
  begin
    FOrientation := Value;
    ChangedDimensions;
     invalidate;
  end;

end;

procedure THexGrid.SetHexSize(const Value: Integer);
begin
  if FHexSize <> Value then
  begin
    FHexSize := Value;
    ChangedDimensions;
     invalidate;
  end;
end;

constructor THexGrid.Create(AOwner: TComponent);
begin
  inherited;
  FOrientation := hxVertical;
  FHexSize := 64;
  ChangedDimensions;
  Width := 128;
  Height := 128;

end;

procedure THexGrid.Paint;

begin
  inherited;
  if Orientation = hxhorizontal then
      DrawhorizontalGrid
      else
      DrawVerticalGrid;

end;

procedure THexGrid.DrawhorizontalGrid;
var
  I: Integer;
  X, Y, Offset: Integer;
  FHex: array[0..5] of TPoint;
begin
   X := 0;
  Y := 0;
  Offset := 0;
  while X +HexSize< Width do
  begin
    Y := 0;
      while Y+HexSize< Height do
    begin
      with Self.Canvas do
      begin
        For I := 0 to High(FPoints) do // Iterate
        begin
          FHex[I].X := X + FPoints[I].X;
          FHex[I].Y := Y + FPoints[I].Y + Offset;
        end; // for
        Polygon(FHex);
      end; // with
      Y := Y + HexSize;
    end; // while
    if Offset=0 then  Offset := (0-(HexSize div 2)) else Offset := 0;

    X := X + (HexSize-(HexSize div 4));
  end;  //while
end;

procedure THexGrid.DrawVerticalGrid;
var
  I: Integer;
  X, Y, Offset: Integer;
  FHex: array[0..5] of TPoint;
begin
  X := 0;
  Y := 0;
  Offset := 0;
    while Y+HexSize < Height do
  begin
    X := 0;
      while X+HexSize < Width do
    begin
      with Self.Canvas do
      begin
        For I := 0 to High(FPoints) do // Iterate
        begin
          FHex[I].X := X + FPoints[I].X + Offset;
          FHex[I].Y := Y + FPoints[I].Y;
        end; // for
        Polygon(FHex);
      end; // with
      X:= X + HexSize;
    end; // while
     if Offset=0 then  Offset := (0-(HexSize div 2)) else Offset := 0;
     Y := Y + (HexSize-(HexSize div 4));
  end;  //while
end;

procedure THexGrid.SetDisplayCaption(Value: Boolean);
begin

end;

end.

"Windopaene" <windopaene@yahoo.com> wrote in message
news:3B8FFB6D.E7943D95@yahoo.com...
> Way cool Gary. Much appreciated.
>
> Gary Williams wrote:
> >
> >
> > Something like this?
> >
> > procedure PlotPolygon(const Canvas: TCanvas;
> >                       const N: Integer;
> >                       const R: Single;
> >                       const XC: Integer;
> >                       const YC: Integer);
> >
> etc.